diff options
author | David Thompson <dthompson2@worcester.edu> | 2013-11-03 20:03:07 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2013-11-03 20:03:07 -0500 |
commit | 777e31518c8ae52e9e15867fb60c958fa7a15610 (patch) | |
tree | 873b2cec6608ef62bbc4e9ecae85d31fe4bf6cc4 /examples/simple.scm | |
parent | 49f93e5fe7261dd520a0013508fd02086af6ae17 (diff) |
Update examples to use new scene/stage system.
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) |