From ebc1c54b8f184ff485561b7c039be368b6a9d2c9 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Fri, 10 Apr 2020 22:42:26 -0400
Subject: Day 1 progress.

---
 lisparuga/node-2d.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lisparuga/node-2d.scm')

diff --git a/lisparuga/node-2d.scm b/lisparuga/node-2d.scm
index 9397c77..8dca8e1 100644
--- a/lisparuga/node-2d.scm
+++ b/lisparuga/node-2d.scm
@@ -191,6 +191,8 @@
 (define-class <view-2d> ()
   (camera #:accessor camera #:init-keyword #:camera)
   (area #:getter area #:init-keyword #:area)
+  (clear-color #:getter clear-color #:init-keyword #:clear-color
+               #:init-value tango-light-sky-blue)
   (viewport #:accessor viewport)
   (projection-matrix #:accessor projection-matrix)
   (sprite-rect #:accessor sprite-rect))
@@ -206,7 +208,8 @@
       (make-viewport (inexact->exact x)
                      (inexact->exact y)
                      (inexact->exact w)
-                     (inexact->exact h)))
+                     (inexact->exact h)
+                     #:clear-color (clear-color view)))
     (set! (sprite-rect view) (make-rect 0.0 0.0 w h))
     (set! (projection-matrix view) (orthographic-projection 0 w h 0 0 1))))
 
-- 
cgit v1.2.3