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/shmup.scm | 86 +++++++++++++++++++++++++++++----------------------------- 1 file changed, 43 insertions(+), 43 deletions(-) (limited to 'demo/shmup.scm') diff --git a/demo/shmup.scm b/demo/shmup.scm index 15afb71..6d6ffe0 100644 --- a/demo/shmup.scm +++ b/demo/shmup.scm @@ -43,10 +43,10 @@ (define (entities-overlap? a b) (aabb-overlap? - (entity-ref a #:x 0) (entity-ref a #:y 0) - (entity-ref a #:width 0) (entity-ref a #:height 0) - (entity-ref b #:x 0) (entity-ref b #:y 0) - (entity-ref b #:width 0) (entity-ref b #:height 0))) + (entity-ref a #:x 0) (entity-ref a #:y 0) + (entity-ref a #:width 0) (entity-ref a #:height 0) + (entity-ref b #:x 0) (entity-ref b #:y 0) + (entity-ref b #:width 0) (entity-ref b #:height 0))) (define (find-dead entities) (let ((bullets (filter (lambda (e) (eq? (entity-type e) 'bullet)) entities)) @@ -75,7 +75,7 @@ (define (clamp-player-x player) (entity-set player #:x - (max 0 (min (- +screen-width+ 16) (entity-ref player #:x 0))))) + (max 0 (min (- +screen-width+ 16) (entity-ref player #:x 0))))) (define (update-player player input) (let ((updated (chain player @@ -120,43 +120,43 @@ (define *game* (make-game - title: "Demo: Shoot-em-up" - width: +screen-width+ height: +screen-height+ - - preload: (lambda (game) - (init-audio!) - (load-sounds! '((shoot . "demo/assets/jump.wav")))) - - create: (lambda (game) - (game-scene-set! game - (make-scene - entities: (list (make-player)) - tilemap: #f - camera: (make-camera x: 0 y: 0) - tileset-texture: #f - camera-target: #f - engine-update: 'none))) - - update: (lambda (game dt) - (set! *frame-count* (+ *frame-count* 1)) - (let* ((input (game-input game)) - (scene (game-scene game)) - (player (car (scene-entities scene)))) - (receive (player new-entities) (update-player player input) - (let* ((others (filter (lambda (e) (not (eq? (entity-type e) 'player))) - (scene-entities scene))) - (spawned (maybe-spawn-enemies)) - (all (cons player (append new-entities spawned others)))) - (game-scene-set! game - (chain (update-scene scene entities: all) - (scene-map-entities _ - (lambda (scene_ e) (if (eq? (entity-type e) 'player) e (move-projectile e)))) - (scene-remove-dead _) - (scene-filter-entities _ - (lambda (e) (or (eq? (entity-type e) 'player) (in-bounds? e)))))))))) - - render: (lambda (game) - (for-each (cut draw-shmup-entity (game-renderer game) <>) - (scene-entities (game-scene game)))))) + title: "Demo: Shoot-em-up" + width: +screen-width+ height: +screen-height+ + + preload: (lambda (game) + (init-audio!) + (load-sounds! '((shoot . "demo/assets/jump.wav")))) + + create: (lambda (game) + (game-scene-set! game + (make-scene + entities: (list (make-player)) + tilemap: #f + camera: (make-camera x: 0 y: 0) + tileset-texture: #f + camera-target: #f + engine-update: 'none))) + + update: (lambda (game dt) + (set! *frame-count* (+ *frame-count* 1)) + (let* ((input (game-input game)) + (scene (game-scene game)) + (player (car (scene-entities scene)))) + (receive (player new-entities) (update-player player input) + (let* ((others (filter (lambda (e) (not (eq? (entity-type e) 'player))) + (scene-entities scene))) + (spawned (maybe-spawn-enemies)) + (all (cons player (append new-entities spawned others)))) + (game-scene-set! game + (chain (update-scene scene entities: all) + (scene-map-entities _ + (lambda (scene_ e) (if (eq? (entity-type e) 'player) e (move-projectile e)))) + (scene-remove-dead _) + (scene-filter-entities _ + (lambda (e) (or (eq? (entity-type e) 'player) (in-bounds? e)))))))))) + + render: (lambda (game) + (for-each (cut draw-shmup-entity (game-renderer game) <>) + (scene-entities (game-scene game)))))) (game-run! *game*) -- cgit v1.2.3