diff options
| -rw-r--r-- | sly/wrappers/gl.scm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/sly/wrappers/gl.scm b/sly/wrappers/gl.scm index 4a9b2fa..c6b84a4 100644 --- a/sly/wrappers/gl.scm +++ b/sly/wrappers/gl.scm @@ -94,3 +94,27 @@ instanced rendering.") (export glDrawArraysInstanced glVertexAttribDivisor) + +;;; +;;; VAOs +;;; + +(define-gl-procedure (glGenVertexArrays (n GLsizei) + (arrays GLuint-*) + -> void) + "Generate N vertex arrays.") + +(define-gl-procedure (glBindVertexArray (array GLuint) + -> void) + "Bind vertex array object ARRAY.") + +(export glGenVertexArrays + glBindVertexArray) + +(define-syntax-rule (with-gl-client-state state body ...) + (begin + (gl-enable-client-state state) + body ... + (gl-disable-client-state state))) + +(export with-gl-client-state) |