(define (wiggle) (* 300 (sin (* pi (tick)))))
(display-scene
- (window ((resolution '(640 480)))
- (move (image "homer.png")
- wiggle 0)))
+ (window ((resolution '(640 480)))
+ (context ((x (wiggle)))
+ (move (image "homer.png")
+ x 0))))
(display-scene
- (window ((resolution '(640 480)))
- (move (image "marge.png")
- 0 waggle)))
+ (window ((resolution '(640 480)))
+ (context ((y (waggle)))
+ (move (image "marge.png")
+ 0 y))))