From 0ccd85fe9a44bfb8920bfa0c9302d68b8675659d Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 23 Sep 2021 07:17:26 -0400
Subject: graphics: depth: Add basic-depth-test variable.

---
 chickadee/graphics/depth.scm | 3 +++
 chickadee/graphics/mesh.scm  | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/chickadee/graphics/depth.scm b/chickadee/graphics/depth.scm
index 8979997..7778cb2 100644
--- a/chickadee/graphics/depth.scm
+++ b/chickadee/graphics/depth.scm
@@ -27,6 +27,7 @@
             depth-test-function
             depth-test-near
             depth-test-far
+            basic-depth-test
             g:depth-test
             current-depth-test))
 
@@ -41,6 +42,8 @@
 (define* (make-depth-test #:key (write? #t) (function 'less-than) (near 0.0) (far 1.0))
   (%make-depth-test write? function near far))
 
+(define basic-depth-test (make-depth-test))
+
 (define (bind-depth-test depth-test)
   (if depth-test
       (let ((glfunc (match (depth-test-function depth-test)
diff --git a/chickadee/graphics/mesh.scm b/chickadee/graphics/mesh.scm
index 55e78a5..81a3a94 100644
--- a/chickadee/graphics/mesh.scm
+++ b/chickadee/graphics/mesh.scm
@@ -109,7 +109,7 @@
                         (blend-mode blend:replace)
                         (polygon-mode fill-polygon-mode)
                         (cull-face-mode back-cull-face-mode)
-                        (depth-test (make-depth-test))
+                        (depth-test basic-depth-test)
                         (stencil-test default-stencil-test)
                         multisample?
                         (texture-0 null-texture)
-- 
cgit v1.2.3