+(define (hv-dance image1 image2)
+ (over (move image1 wiggle 0)
+ (move image2 0 waggle)))
+
+(define homer-marge-dance
+ (hv-dance homer marge))
+
+(display-scene
+ (window ((resolution '(640 480)))
+ homer-marge-dance))
+
+(display-scene
+ (window ((resolution '(640 480)))
+ (let ((small (scale homer-marge-dance 0.5)))
+ (hv-dance small small))))
+
+(display-scene
+ (window ((resolution '(640 480)))
+ (scale homer-marge-dance (lambda () (abs (swiggle))))))
+
+(display-scene
+ (window ((resolution '(640 480)))
+ (hv-dance (scale homer swiggle)
+ (scale marge swaggle))))