From 84840ede6646ed793b61cdd889d3f57ab05e9311 Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Wed, 8 Apr 2026 01:32:55 +0100 Subject: Refactor to be functional --- demo/topdown.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'demo/topdown.scm') 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*) -- cgit v1.2.3