render: shader: Add support for vec3 uniform values.
authorDavid Thompson <dthompson2@worcester.edu>
Fri, 7 Sep 2018 12:52:03 +0000 (08:52 -0400)
committerDavid Thompson <dthompson2@worcester.edu>
Fri, 7 Sep 2018 12:52:03 +0000 (08:52 -0400)
chickadee/render/shader.scm

index cb4426f..fdb683a 100644 (file)
 (define (set-float-vector2-uniform! location v)
   (gl-uniform2fv location 1 (vec2->pointer v)))
 
-;; (define (set-float-vector3-uniform! location v)
-;;   (gl-uniform3f location (vx v) (vy v) (vz v)))
+(define (set-float-vector3-uniform! location v)
+  (gl-uniform3fv location 1 (vec3->pointer v)))
 
 (define (set-float-vector4-uniform! location v)
   (if (color? v)
     ('int 0)
     ('unsigned-int 0)
     ('float 0.0)
-    ('float-vec2 (vec2 0.0 0.0))
-    ;; ('float-vec3 (vector3 0.0 0.0 0.0))
+    ('float-vec2 #v(0.0 0.0))
+    ('float-vec3 #v(0.0 0.0 0.0))
     ('float-vec4 (make-color 0.0 0.0 0.0 0.0))
     ;; ('int-vec2 (vector2 0 0))
     ;; ('int-vec3 (vector3 0 0 0))
     ('unsigned-int set-unsigned-integer-uniform!)
     ('float set-float-uniform!)
     ('float-vec2 set-float-vector2-uniform!)
-    ;; ('float-vec3 set-float-vector3-uniform!)
+    ('float-vec3 set-float-vector3-uniform!)
     ('float-vec4 set-float-vector4-uniform!)
     ;; ('int-vec2 set-integer-vector2-uniform!)
     ;; ('int-vec3 set-integer-vector3-uniform!)