From 99b05d3e2c27b575157f00450143cdff965c5369 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 11 Mar 2015 22:16:55 -0400
Subject: render: utils: Add apply-depth-test.

* sly/render/utils (apply-depth-test): New procedure.
---
 sly/render/utils.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/sly/render/utils.scm b/sly/render/utils.scm
index 802eca7..56a8b63 100644
--- a/sly/render/utils.scm
+++ b/sly/render/utils.scm
@@ -30,7 +30,8 @@
   #:export (make-blend-mode blend-mode?
             blend-mode-source blend-mode-destination
             default-blend-mode
-            apply-blend-mode))
+            apply-blend-mode
+            apply-depth-test))
 
 ;;;
 ;;; Blending
@@ -85,3 +86,8 @@
                      (destination-blend-function
                       (blend-mode-destination blend-mode))))
       (gl-disable (enable-cap blend))))
+
+(define (apply-depth-test depth-test?)
+  (if depth-test?
+      (gl-enable (enable-cap depth-test))
+      (gl-disable (enable-cap depth-test))))
-- 
cgit v1.2.3