diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-06-04 10:48:59 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-06-04 10:48:59 -0400 |
| commit | e95543c35a04179215e8a79dd6e7fe4da515cef7 (patch) | |
| tree | 3f441340415a05dd0cbaf768501e8a5d22e51f61 | |
| parent | 8366d2b34355e9406bac31f6c6ee8e760518d351 (diff) | |
Allow specifying default clear color.
| -rw-r--r-- | catbird.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/catbird.scm b/catbird.scm index cdd3313..13ebc4a 100644 --- a/catbird.scm +++ b/catbird.scm @@ -30,6 +30,7 @@ #:use-module (catbird scene) #:use-module (catbird ui) #:use-module (chickadee) + #:use-module (chickadee graphics viewport) #:use-module (chickadee math rect) #:use-module (oop goops) #:export (run-catbird @@ -59,7 +60,8 @@ (define* (run-catbird thunk #:key (width 1366) (height 768) (title "^~Catbird~^") (fullscreen? #f) - (resizable? #t) (update-hz 60)) + (resizable? #t) (update-hz 60) + (clear-color %default-clear-color)) (let ((kernel (make <kernel>))) (parameterize ((current-kernel kernel)) (run-game #:window-title title @@ -68,6 +70,7 @@ #:window-fullscreen? fullscreen? #:window-resizable? resizable? #:update-hz update-hz + #:clear-color clear-color #:load (lambda () (load* kernel) |