diff options
Diffstat (limited to 'tests/engine-test.scm')
| -rw-r--r-- | tests/engine-test.scm | 9 |
1 files changed, 5 insertions, 4 deletions
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))) |