diff options
Diffstat (limited to 'demo/sandbox.scm')
| -rw-r--r-- | demo/sandbox.scm | 19 |
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)) |