;;; Reactive positions
-(define (waggle) (cos (* pi (current-time))))
-(define (wiggle) (sin (* pi (current-time))))
-
+(define (tick) (* 3000000 (get-internal-real-time)))
+(define (waggle) (* 200 (+ 1 (cos (* pi (tick))))))
+(define (wiggle) (* 300 (+ 1 (sin (* pi (tick))))))
;;; First example
-(define red (import-bitmap "red.bmp"))
+(define red (bitmap "red.bmp"))
(define left-right-red (move-xy wiggle 0 red))
(run-scene left-right-red)
-(define blue (import-bitmap "blue.bmp"))
+(define blue (bitmap "blue.bmp"))
(define up-down-blue (move-xy 0 waggle blue))
(run-scene up-down-blue)