diff options
| author | David Thompson <dthompson2@worcester.edu> | 2022-10-25 20:25:20 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2022-10-25 20:25:44 -0400 |
| commit | d64b09771a3987ede912ce62626cb478feb8bd4a (patch) | |
| tree | 06d42b30ef4f5ca78e53a986024df0db38359287 /chickadee.scm | |
| parent | a7ce7f386de7aff4ebe426004224d3e2c5c5d169 (diff) | |
Allow for changing the default clear color in run-game procedure.
Add a matching flag for 'chickadee play', too.
Diffstat (limited to 'chickadee.scm')
| -rw-r--r-- | chickadee.scm | 4 |
1 files changed, 3 insertions, 1 deletions
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 |