From 38eee24832fe6da4f135cae455881ab97953b23a Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sat, 18 Apr 2026 02:47:10 +0100 Subject: Refresh docs and re-indent --- demo/topdown.scm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'demo/topdown.scm') diff --git a/demo/topdown.scm b/demo/topdown.scm index 21c7b6f..13e4cc8 100644 --- a/demo/topdown.scm +++ b/demo/topdown.scm @@ -33,19 +33,19 @@ (define *game* (make-game - title: "Demo: Top-down Explorer" width: 600 height: 400 + title: "Demo: Top-down Explorer" width: 600 height: 400 - create: (lambda (game) - (game-scene-set! game - (chain (game-load-scene! game "demo/assets/level-0.tmx") - (scene-add-entity _ (make-player)) - (update-scene _ camera-target: 'player)))) + create: (lambda (game) + (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))) - (game-scene-set! game - (update-scene scene entities: (list player))))))) + update: (lambda (game dt) + (let* ((input (game-input game)) + (scene (game-scene game)) + (player (update-player (car (scene-entities scene)) input))) + (game-scene-set! game + (update-scene scene entities: (list player))))))) (game-run! *game*) -- cgit v1.2.3