From 8ada9eac88d82a0034c56d3ea2281c4f5e5342aa Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 28 Oct 2014 22:24:13 -0400 Subject: viewport: Define standard clear flags. * sly/render/camera.scm (%standard-clear-flags): New variable. --- sly/render/camera.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/sly/render/camera.scm b/sly/render/camera.scm index 65e384c..5afb6f7 100644 --- a/sly/render/camera.scm +++ b/sly/render/camera.scm @@ -33,7 +33,7 @@ #:use-module (sly transform) #:export (make-viewport viewport? viewport-area viewport-clear-color viewport-clear-flags - apply-viewport + %standard-clear-flags apply-viewport make-camera camera? camera-location camera-projection camera-viewport orthographic-camera)) @@ -49,8 +49,10 @@ (clear-color viewport-clear-color) (clear-flags viewport-clear-flags)) +(define %standard-clear-flags '(color-buffer depth-buffer)) + (define* (make-viewport area #:optional #:key (clear-color black) - (clear-flags '(color-buffer depth-buffer))) + (clear-flags %standard-clear-flags)) "Create a viewport that covers the rectangle AREA of the window. Fill the viewport with CLEAR-COLOR when clearing the screen. Clear the buffers denoted by the list of symbols in CLEAR-FLAGS. Possible -- cgit v1.2.3