diff options
Diffstat (limited to 'chickadee/render/viewport.scm')
-rw-r--r-- | chickadee/render/viewport.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/chickadee/render/viewport.scm b/chickadee/render/viewport.scm index e61136d..91f50c1 100644 --- a/chickadee/render/viewport.scm +++ b/chickadee/render/viewport.scm @@ -39,6 +39,7 @@ viewport-clear-flags null-viewport apply-viewport + clear-viewport %default-clear-flags %default-clear-color)) @@ -92,6 +93,9 @@ CLEAR-FLAGS are 'color-buffer', 'depth-buffer', 'accum-buffer', and ('color-buffer 16384)) flags))))) +(define (clear-viewport viewport) + (gl-clear (clear-buffer-mask (viewport-clear-flags viewport)))) + (define (apply-viewport viewport) "Set the OpenGL state for VIEWPORT. Clip rendering to the viewport area, set the clear color, and clear necessary buffers." @@ -104,5 +108,4 @@ area, set the clear color, and clear necessary buffers." (gl-enable (enable-cap scissor-test)) (gl-viewport x y w h) (gl-scissor x y w h) - (gl-clear-color (color-r c) (color-g c) (color-b c) (color-a c)) - (gl-clear (clear-buffer-mask (viewport-clear-flags viewport)))))) + (gl-clear-color (color-r c) (color-g c) (color-b c) (color-a c))))) |