diff options
Diffstat (limited to 'examples/simple.scm')
-rw-r--r-- | examples/simple.scm | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/examples/simple.scm b/examples/simple.scm index 8a1fd8f..09a403f 100644 --- a/examples/simple.scm +++ b/examples/simple.scm @@ -1,18 +1,22 @@ -(use-modules (2d sprite) - (2d game) +(use-modules (2d game) + (2d game-loop) + (2d scene) + (2d sprite) (2d vector2)) -(define (demo-sprite) +(define (make-demo-sprite) (load-sprite "images/ghost.png" #:position (vector2 320 240))) -(define-scene demo - #:title "Demo" - #:draw (lambda (sprite) (draw-sprite sprite)) - #:state (demo-sprite)) +(define simple-scene + (make-scene + "Simple" + #:init make-demo-sprite + #:draw draw-sprite)) -(define-game simple - #:title "Simple Demo" - #:first-scene demo) +(define simple-demo + (make-game + #:title "Simple Demo" + #:first-scene simple-scene)) -(run-game simple) +(run-game simple-demo) |