diff options
author | David Thompson <dthompson@vistahigherlearning.com> | 2020-04-10 22:42:26 -0400 |
---|---|---|
committer | David Thompson <dthompson@vistahigherlearning.com> | 2020-04-10 22:42:26 -0400 |
commit | ebc1c54b8f184ff485561b7c039be368b6a9d2c9 (patch) | |
tree | e7a5354a90e06758966091c181c3b5555766f4c2 /lisparuga/node-2d.scm | |
parent | 2c5b19226815a406c60cc1a49c59864922364c55 (diff) |
Day 1 progress.
Diffstat (limited to 'lisparuga/node-2d.scm')
-rw-r--r-- | lisparuga/node-2d.scm | 5 |
1 files changed, 4 insertions, 1 deletions
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)))) |