diff options
| -rw-r--r-- | examples/action.scm | 29 |
1 files changed, 16 insertions, 13 deletions
diff --git a/examples/action.scm b/examples/action.scm index fa44c5e..2886c0a 100644 --- a/examples/action.scm +++ b/examples/action.scm @@ -2,15 +2,20 @@ (2d agenda) (2d coroutine) (2d game) + (2d game-loop) + (2d scene) (2d sprite) + (2d stage) (2d vector2)) (define (demo-sprite) (load-sprite "images/ghost.png" #:position (vector2 320 240))) -(define (start sprite) - (let ((size (game-resolution actions))) +(define (init) + (let ((size (game-resolution actions-demo)) + (sprite (demo-sprite))) + (stage-define sprite sprite) (schedule-action (action-parallel ;; Move horizontally across the screen in 60 frames. @@ -24,16 +29,14 @@ (set-sprite-rotation! sprite angle)) 0 360 120))))) -(define-scene demo - #:title "Demo" - #:draw (lambda (sprite) (draw-sprite sprite)) - #:events (append - (default-scene-events) - `((start . ,(lambda (sprite) (start sprite))))) - #:state (demo-sprite)) +(define demo-scene + (make-scene + #:init init + #:draw (lambda () (draw-sprite (stage-ref sprite))))) -(define-game actions - #:title "actions" - #:first-scene demo) +(define actions-demo + (make-game + #:title "Actions" + #:first-scene demo-scene)) -(run-game actions) +(run-game actions-demo) |