diff options
| author | David Thompson <dthompson2@worcester.edu> | 2019-10-17 08:54:24 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2019-10-17 08:54:24 -0400 |
| commit | 37abfa16ad431eae2cffc64c40ddfe27d63c70e3 (patch) | |
| tree | 335340fdee975768df27772cbc81fdd3121ea9fb | |
| parent | 2ff4ef8c7650f3fd4e78b2bae60b3b329085ff37 (diff) | |
render: gl: Add more glUniform functions.
| -rw-r--r-- | chickadee/render/gl.scm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/chickadee/render/gl.scm b/chickadee/render/gl.scm index e6d7305..7b23697 100644 --- a/chickadee/render/gl.scm +++ b/chickadee/render/gl.scm @@ -253,7 +253,14 @@ object.") -> void) "Specify the value of a uniform variable for the current program object") -(export (glUniform1ui . gl-uniform1ui)) +(define-gl-procedure (glUniform1uiv (location GLint) + (count GLint) + (ptr GLvoid-*) + -> void) + "Specify the value of a uniform variable for the current program object") + +(export (glUniform1ui . gl-uniform1ui) + (glUniform1uiv . gl-uniform1uiv)) (re-export (%glUseProgram . gl-use-program) (%glDeleteProgram . gl-delete-program) @@ -276,15 +283,18 @@ object.") (%glGetActiveUniform . gl-get-active-uniform) (%glGetActiveAttrib . gl-get-active-attrib) (%glUniform1i . gl-uniform1i) + (%glUniform1iv . gl-uniform1iv) (%glUniform2i . gl-uniform2i) (%glUniform3i . gl-uniform3i) (%glUniform4i . gl-uniform4i) (%glUniform1f . gl-uniform1f) + (%glUniform1fv . gl-uniform1fv) (%glUniform2f . gl-uniform2f) (%glUniform2fv . gl-uniform2fv) (%glUniform3f . gl-uniform3f) (%glUniform3fv . gl-uniform3fv) (%glUniform4f . gl-uniform4f) + (%glUniform4fv . gl-uniform4fv) (%glUniformMatrix4fv . gl-uniform-matrix4fv) (%glUniform4f . gl-uniform4f)) |