Add bindings for OpenGL instanced rendering extension.

* 2d/wrappers/gl.scm (glDrawArraysInstanced): New procedure.
  (glVertexAttribDivisor): New procedure.

1 files changed, 23 insertions, 1 deletions

diff --git a/2d/wrappers/gl.scm b/2d/wrappers/gl.scm
index e43ba8a..3ee84dd 100644
--- a/2d/wrappers/gl.scm
+++ b/2d/wrappers/gl.scm
@@ -23,7 +23,9 @@
 ;;; Code:
 
 (define-module (2d wrappers gl)
-  #:use-module ((gl low-level) #:renamer (symbol-prefix-proc '%)))
+  #:use-module ((gl low-level) #:renamer (symbol-prefix-proc '%))
+  #:use-module (gl runtime)
+  #:use-module (gl types))
 
 ;;;
 ;;; 3.8.1 Texture Image Specification
@@ -72,3 +74,23 @@
     (%glBindTexture target 0)))
 
 (export with-gl-bind-texture)
+
+;;;
+;;; Instancing extension
+;;;
+
+(define-gl-procedure (glDrawArraysInstanced (mode GLenum)
+                                            (first GLint)
+                                            (count GLsizei)
+                                            (primcount GLsizei)
+                                            -> GLboolean)
+  "Draw multiple instances of a set of arrays.")
+
+(define-gl-procedure (glVertexAttribDivisor (index GLuint)
+                                            (divisor GLuint)
+                                            -> void)
+  "Modify the rate at which generic vertex attributes advance during
+instanced rendering.")
+
+(export glDrawArraysInstanced
+        glVertexAttribDivisor)