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 --- docs/physics.org | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'docs/physics.org') diff --git a/docs/physics.org b/docs/physics.org index 9c44718..8401a38 100644 --- a/docs/physics.org +++ b/docs/physics.org @@ -331,11 +331,8 @@ update: (lambda (game dt) (player (resolve-tile-collisions-y player tm)) ;; Check if standing on ground (player (detect-on-solid player tm))) - ;; Update camera to follow player - (let ((cam-x (max 0 (- (entity-ref player #:x 0) 300)))) - (camera-x-set! (scene-camera scene) cam-x)) - ;; Store updated player back in scene - (scene-entities-set! scene (list player)))) + (game-scene-set! game + (update-scene scene entities: (list player))))) #+end_src ** Step-by-Step @@ -378,9 +375,8 @@ update: (lambda (game dt) (player (resolve-tile-collisions-y player tm))) ;; Update camera to follow player (camera-x-set! (scene-camera scene) (max 0 (- (entity-ref player #:x 0) 300))) - (camera-y-set! (scene-camera scene) (max 0 (- (entity-ref player #:y 0) 200))) - ;; Store updated player back in scene - (scene-entities-set! scene (list player)))) + (game-scene-set! game + (update-scene scene entities: (list player))))) #+end_src ** Step-by-Step -- cgit v1.2.3