summaryrefslogtreecommitdiff
path: root/2d/wrappers/gl.scm
diff options
context:
space:
mode:
Diffstat (limited to '2d/wrappers/gl.scm')
-rw-r--r--2d/wrappers/gl.scm24
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)