Update examples to use new scene/stage system.

1 files changed, 12 insertions, 8 deletions

diff --git a/examples/tilemap.scm b/examples/tilemap.scm
index a60ee18..141184e 100644
--- a/examples/tilemap.scm
+++ b/examples/tilemap.scm
@@ -2,9 +2,11 @@
              (srfi srfi-9)
              (srfi srfi-42)
              (2d game)
+             (2d game-loop)
+             (2d scene)
+             (2d sprite)
              (2d texture)
              (2d tileset)
-             (2d sprite)
              (2d vector2))
 
 ;;;
@@ -81,13 +83,15 @@
                                     tileset
                                     map-tiles))))
 
-(define-scene demo
-  #:title  "Demo"
-  #:draw   (lambda (map) (draw-map-layer map))
-  #:state  (build-map))
+(define tilemap-scene
+  (make-scene
+   "Tilemap"
+   #:init build-map
+   #:draw draw-map-layer))
 
-(define-game tilemap
-  #:title       "Tilemap"
-  #:first-scene demo)
+(define tilemap
+  (make-game
+   #:title "Tilemap"
+   #:first-scene tilemap-scene))
 
 (run-game tilemap)