diff options
| -rw-r--r-- | examples/action.scm | 28 |
1 files changed, 10 insertions, 18 deletions
diff --git a/examples/action.scm b/examples/action.scm index eb2d65e..e5dce93 100644 --- a/examples/action.scm +++ b/examples/action.scm @@ -32,23 +32,15 @@ (add-hook! on-render-hook (lambda () (render))) (add-hook! on-key-down-hook (lambda (key mod unicode) (key-down key mod unicode))) -;; Simple script that moves the sprite to a random location every -;; second. -(agenda-schedule - (colambda () - (lerp (lambda (i) - (set-sprite-position! sprite (vector i (/ window-height 2)))) - 0 - 800 - 120))) - -(agenda-schedule - (colambda () - (lerp (lambda (angle) - (set-sprite-rotation! sprite angle)) - 0 - 1080 - 120))) - +(schedule-action + (action-parallel + ;; Move horizontally across the screen in 60 frames. + (lerp (lambda (x) + (set-sprite-position! sprite (vector x (/ window-height 2)))) + 0 800 60) + ;; Rotate 1080 degrees in 120 frames. + (lerp (lambda (angle) + (set-sprite-rotation! sprite angle)) + 0 1080 60))) (run-game-loop) |