diff options
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)))) |