1 files changed, 6 insertions, 2 deletions
diff --git a/chickadee/render/viewport.scm b/chickadee/render/viewport.scm
index 5768406..b4a4ce3 100644
--- a/chickadee/render/viewport.scm
+++ b/chickadee/render/viewport.scm
@@ -39,6 +39,7 @@
             viewport-clear-flags
             null-viewport
             %standard-clear-flags
+            %default-clear-color
             apply-viewport
             *viewport-state*))
 
@@ -53,14 +54,17 @@
   (clear-flags viewport-clear-flags))
 
 (define %standard-clear-flags '(color-buffer depth-buffer))
+;; Just a fun color from the Dawnbringer 32-color palette instead of
+;; boring old black.
+(define %default-clear-color (rgb #x45283c))
 
 (define (assert-non-negative-integer n)
   (if (and (integer? n) (>= n 0))
       n
       (error "expecting non-negative integer:" n)))
 
-(define* (make-viewport x y width height #:key (clear-color black)
-                        (clear-flags %standard-clear-flags))
+(define* (make-viewport x y width height #:key
+                        (clear-color %default-clear-color)
   "Create a viewport that covers an area of the window starting from
 coordinates (X, Y) and spanning WIDTH x HEIGHT pixels.  Fill the
 viewport with CLEAR-COLOR when clearing the screen.  Clear the buffers