diff options
Diffstat (limited to 'demo/topdown.scm')
| -rw-r--r-- | demo/topdown.scm | 24 |
1 files changed, 12 insertions, 12 deletions
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*) |