Refactor to be functional

1 files changed, 4 insertions, 8 deletions

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