Complete implementation

1 files changed, 4 insertions, 15 deletions

diff --git a/demo/sandbox.scm b/demo/sandbox.scm
index 1be3968..ffc0cca 100644
--- a/demo/sandbox.scm
+++ b/demo/sandbox.scm
@@ -11,7 +11,8 @@
         downstroke/input
         downstroke/physics
         downstroke/assets
-        downstroke/entity)
+        downstroke/entity
+        downstroke/scene-loader)
 
 (define *elapsed* 0)
 (define *respawn-interval* 10000)
@@ -36,21 +37,9 @@
   (make-game
     title: "Demo: Physics Sandbox" width: 600 height: 400
 
-    preload: (lambda (game)
-      (game-asset-set! game 'tilemap
-        (load-tilemap "demo/assets/level-0.tmx")))
-
     create: (lambda (game)
-      (let* ((tm  (game-asset game 'tilemap))
-             (tex (sdl2:create-texture-from-surface
-                    (game-renderer game)
-                    (tileset-image (tilemap-tileset tm)))))
-        (game-scene-set! game
-          (make-scene
-            entities:        (spawn-entities)
-            tilemap:         tm
-            camera:          (make-camera x: 0 y: 0)
-            tileset-texture: tex))))
+      (let ((scene (game-load-scene! game "demo/assets/level-0.tmx")))
+        (scene-entities-set! scene (spawn-entities))))
 
     update: (lambda (game dt)
       (let* ((scene (game-scene game))