X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=examples%2F05-animations%2F05-animations.scm;h=3c34dc2bb7133a2033713c4fa98f259b186fa229;hb=38d0475fe0cc816d053e37377329d25d6bda0a1b;hp=eea881236d0db8f8d248f7f8c609f7e9dbafdd45;hpb=6cc07be7e64e74546bf295ad42b5d2475624e3fc;p=gacela.git

diff --git a/examples/05-animations/05-animations.scm b/examples/05-animations/05-animations.scm
index eea8812..3c34dc2 100644
--- 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))))