Update examples to use new scene/stage system.

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)