From 46f7884f9517a9717b2777e64ce94100a338f27e Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 6 Sep 2014 15:46:56 -0400
Subject: mesh: Allow uniform values to be signals.

* sly/mesh.scm (draw-mesh): Deference uniform values that are signals.
---
 sly/mesh.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sly/mesh.scm b/sly/mesh.scm
index 483c9cd..cd8f680 100644
--- a/sly/mesh.scm
+++ b/sly/mesh.scm
@@ -35,6 +35,7 @@
   #:use-module (sly shader)
   #:use-module (sly texture)
   #:use-module (sly vector)
+  #:use-module (sly signal)
   #:export (make-mesh
             mesh?
             mesh-length
@@ -188,7 +189,8 @@
     (for-each (lambda (uniform)
                 (match uniform
                   ((name value)
-                   (uniform-set! (mesh-shader mesh) name value))))
+                   (uniform-set! (mesh-shader mesh) name
+                                 (signal-ref-maybe value)))))
               uniforms)
     (with-vertex-array (mesh-vao mesh)
       (if (texture? (mesh-texture mesh))
-- 
cgit v1.2.3