From: Javier Sancho <jsf@jsancho.org>
Date: Sat, 29 Apr 2017 15:22:04 +0000 (+0200)
Subject: Animations using new rate-based feature
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=1c40bed9700c3b7586dee1de9536a825a3be6db2;p=gacela.git

Animations using new rate-based feature
---

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))))