From 19a5db8606a82830a5ccd0ed46d8e0cf3c95db0a Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Tue, 7 Apr 2026 23:36:12 +0100 Subject: Work on demos --- tests/engine-test.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'tests/engine-test.scm') diff --git a/tests/engine-test.scm b/tests/engine-test.scm index 85481ac..f886165 100644 --- a/tests/engine-test.scm +++ b/tests/engine-test.scm @@ -19,6 +19,8 @@ (define (create-window! . args) 'mock-window) (define (create-renderer! . args) 'mock-renderer) (define (destroy-window! . args) #f) + (define (make-color r g b #!optional (a 255)) (list r g b a)) + (define render-draw-color (getter-with-setter (lambda (r) #f) (lambda (r c) #f))) (define (render-clear! . args) #f) (define (render-present! . args) #f) (define (make-rect x y w h) (list x y w h)) @@ -82,7 +84,7 @@ (import scheme (chicken base) defstruct) (import downstroke-entity) (defstruct camera x y) - (defstruct scene entities tilemap camera tileset-texture camera-target) + (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)))) @@ -193,9 +195,11 @@ (let* ((cam (make-camera x: 10 y: 20)) (scene (make-scene entities: '() tilemap: #f + tileset: #f camera: cam tileset-texture: #f - camera-target: #f)) + camera-target: #f + background: #f)) (g (make-game))) (game-scene-set! g scene) (test-equal "returns scene camera" -- cgit v1.2.3