From fc6b4fb4ba04ed93acc545a52505f26dfc9198e8 Mon Sep 17 00:00:00 2001
From: David Thompson <davet@gnu.org>
Date: Sat, 6 Jun 2015 14:46:30 -0400
Subject: render: camera: Add null-viewport.

* sly/render/camera.scm (null-viewport): New variable.
---
 sly/render/camera.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/sly/render/camera.scm b/sly/render/camera.scm
index a9b8e41..48a66b2 100644
--- a/sly/render/camera.scm
+++ b/sly/render/camera.scm
@@ -35,6 +35,7 @@
   #:export (make-viewport viewport?
             viewport-area viewport-clear-color viewport-clear-flags
             %standard-clear-flags apply-viewport
+            null-viewport
             make-camera camera?
             camera-location camera-projection camera-viewport
             orthographic-camera))
@@ -61,6 +62,8 @@ values for CLEAR-FLAGS are 'color-buffer', 'depth-buffer',
 'accum-buffer', and 'stencil-buffer'."
   (%make-viewport area clear-color clear-flags))
 
+(define null-viewport (make-viewport (make-rect 0 0 0 0)))
+
 (define clear-buffer-mask
   (memoize
    (lambda (flags)
-- 
cgit v1.2.3