diff options
| author | David Thompson <dthompson2@worcester.edu> | 2017-01-19 11:14:01 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2017-01-19 11:14:01 -0500 |
| commit | 20c3c95f0fa01bb674d63354de1042c0be4ca6f8 (patch) | |
| tree | b1738f52eeedc85c452ec7382d26addf29f376bf | |
| parent | a57fbeb9ca813a4aace2a9e538bd84db9aa4a804 (diff) | |
render: viewport: Change %standard-clear-flags to %default-clear-flags.
| -rw-r--r-- | chickadee/render/viewport.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/chickadee/render/viewport.scm b/chickadee/render/viewport.scm index b4a4ce3..6789766 100644 --- a/chickadee/render/viewport.scm +++ b/chickadee/render/viewport.scm @@ -38,7 +38,7 @@ viewport-clear-color viewport-clear-flags null-viewport - %standard-clear-flags + %default-clear-flags %default-clear-color apply-viewport *viewport-state*)) @@ -53,7 +53,7 @@ (clear-color viewport-clear-color) (clear-flags viewport-clear-flags)) -(define %standard-clear-flags '(color-buffer depth-buffer)) +(define %default-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)) @@ -65,6 +65,7 @@ (define* (make-viewport x y width height #:key (clear-color %default-clear-color) + (clear-flags %default-clear-flags)) "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 |