From 49157a196366ec55cfc94c3e854db99e2d7c3d63 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 25 Oct 2018 08:42:30 -0400
Subject: render: gl: Add glDrawElementsInstanced binding.

* chickadee/render/gl.scm (gl-draw-elements-instanced): New procedure.
---
 chickadee/render/gl.scm | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/chickadee/render/gl.scm b/chickadee/render/gl.scm
index 02ef321..e6d7305 100644
--- a/chickadee/render/gl.scm
+++ b/chickadee/render/gl.scm
@@ -83,17 +83,26 @@
                                             (first GLint)
                                             (count GLsizei)
                                             (primcount GLsizei)
-                                            -> GLboolean)
+                                            -> void)
   "Draw multiple instances of a set of arrays.")
 
+(define-gl-procedure (glDrawElementsInstanced (mode GLenum)
+                                              (count GLsizei)
+                                              (type GLenum)
+                                              (indices void-*)
+                                              (primcount GLsizei)
+                                              -> void)
+  "Draw multiple instances of a set of elements.")
+
 (define-gl-procedure (glVertexAttribDivisor (index GLuint)
                                             (divisor GLuint)
                                             -> void)
   "Modify the rate at which generic vertex attributes advance during
 instanced rendering.")
 
-(export glDrawArraysInstanced
-        glVertexAttribDivisor)
+(export (glDrawArraysInstanced . gl-draw-arrays-instanced)
+        (glDrawElementsInstanced . gl-draw-elements-instanced)
+        (glVertexAttribDivisor . gl-vertex-attrib-divisor))
 
 ;;;
 ;;; VBOs
-- 
cgit v1.2.3