Animations using new rate-based feature

diff --git a/examples/05-animations/05-animations.scm b/examples/05-animations/05-animations.scm
index eea881236d0db8f8d248f7f8c609f7e9dbafdd45..3c34dc2bb7133a2033713c4fa98f259b186fa229 100644 (file)
--- a/examples/05-animations/05-animations.scm
+++ b/examples/05-animations/05-animations.scm
@@ -24,11 +24,13 @@
 (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))))