From 1c40bed9700c3b7586dee1de9536a825a3be6db2 Mon Sep 17 00:00:00 2001 From: Javier Sancho Date: Sat, 29 Apr 2017 17:22:04 +0200 Subject: [PATCH] Animations using new rate-based feature --- examples/05-animations/05-animations.scm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) 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)))) -- 2.39.5