From e95543c35a04179215e8a79dd6e7fe4da515cef7 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 4 Jun 2023 10:48:59 -0400 Subject: Allow specifying default clear color. --- catbird.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 ))) (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) -- cgit v1.2.3