Refactor to be functional

1 files changed, 6 insertions, 4 deletions

diff --git a/demo/topdown.scm b/demo/topdown.scm
index 7e5bd62..1bf6536 100644
--- a/demo/topdown.scm
+++ b/demo/topdown.scm
@@ -43,15 +43,17 @@
     title: "Demo: Top-down Explorer" width: 600 height: 400
 
     create: (lambda (game)
-      (let ((scene (game-load-scene! game "demo/assets/level-0.tmx")))
-        (scene-add-entity scene (make-player))
-        (scene-camera-target-set! scene 'player)))
+      (game-scene-set! game
+        (chain (game-load-scene! game "demo/assets/level-0.tmx")
+          (scene-add-entity _ (make-player))
+          (update-scene _ camera-target: 'player))))
 
     update: (lambda (game dt)
       (let* ((input  (game-input game))
              (scene  (game-scene game))
              (player (update-player (car (scene-entities scene))
                                     input (scene-tilemap scene))))
-        (scene-entities-set! scene (list player))))))
+        (game-scene-set! game
+          (update-scene scene entities: (list player)))))))
 
 (game-run! *game*)