From d64b09771a3987ede912ce62626cb478feb8bd4a Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 25 Oct 2022 20:25:20 -0400 Subject: Allow for changing the default clear color in run-game procedure. Add a matching flag for 'chickadee play', too. --- chickadee.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'chickadee.scm') diff --git a/chickadee.scm b/chickadee.scm index 8dc0400..7175f50 100644 --- a/chickadee.scm +++ b/chickadee.scm @@ -256,6 +256,7 @@ border is disabled, otherwise it is enabled.") (window-height 480) window-fullscreen? window-resizable? + (clear-color %default-clear-color) (update-hz 60) (load (const #t)) (update (const #t)) @@ -297,7 +298,8 @@ border is disabled, otherwise it is enabled.") #:multisample? #f))) (gfx (make-graphics-engine (window-gl-context window))) (default-viewport (make-atomic-box - (make-viewport 0 0 window-width window-height))) + (make-viewport 0 0 window-width window-height + #:clear-color clear-color))) (default-projection (make-atomic-box (orthographic-projection 0 window-width window-height 0 -- cgit v1.2.3