diff options
Diffstat (limited to 'chickadee/graphics/depth.scm')
-rw-r--r-- | chickadee/graphics/depth.scm | 3 |
1 files changed, 3 insertions, 0 deletions
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) |