From 8cb85c6c2cb7ec7cb2621cd6871b3b29711cff99 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 11 Mar 2015 22:22:17 -0400
Subject: render: shader: Add null-shader-program.

* sly/render/shader.scm (null-shader-program): New variable.
---
 sly/render/shader.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sly/render/shader.scm b/sly/render/shader.scm
index cf89427..f9949fa 100644
--- a/sly/render/shader.scm
+++ b/sly/render/shader.scm
@@ -52,6 +52,7 @@
             shader-program-id
             shader-program?
             shader-program-linked?
+            null-shader-program
             apply-shader-program
             with-shader-program
             load-default-shader
@@ -281,7 +282,8 @@ VERTEX-SHADER and FRAGMENT-SHADER."
                        (load-fragment-shader fragment-shader-file-name)
                        uniforms attributes))
 
-(define current-shader-program (make-parameter #f))
+(define null-shader-program
+  (%make-shader-program 0 '() '()))
 
 (define (apply-shader-program shader-program)
   (glUseProgram (shader-program-id shader-program)))
-- 
cgit v1.2.3