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 --- tests/engine-test.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'tests/engine-test.scm') diff --git a/tests/engine-test.scm b/tests/engine-test.scm index 9290ad7..2c9d6d5 100644 --- a/tests/engine-test.scm +++ b/tests/engine-test.scm @@ -86,10 +86,11 @@ (import downstroke-entity) (defstruct camera x y) (defstruct scene entities tilemap tileset camera tileset-texture camera-target background) - ;; Mock camera-follow! - just clamps camera position - (define (camera-follow! camera entity viewport-w viewport-h) - (camera-x-set! camera (max 0 (- (entity-ref entity #:x 0) (/ viewport-w 2)))) - (camera-y-set! camera (max 0 (- (entity-ref entity #:y 0) (/ viewport-h 2))))) + ;; Mock camera-follow - returns a new camera + (define (camera-follow camera entity viewport-w viewport-h) + (update-camera camera + x: (max 0 (- (entity-ref entity #:x 0) (/ viewport-w 2))) + y: (max 0 (- (entity-ref entity #:y 0) (/ viewport-h 2))))) ;; Mock scene-find-tagged - finds first entity with matching tag (define (scene-find-tagged scene tag) (let loop ((entities (scene-entities scene))) -- cgit v1.2.3