gl: minimal interface to texture objects

* figl/gl.scm (gl-generate-texture, gl-delete-texture):
  (gl-bind-texture): Minimal interface to aid using textures.

diff --git a/figl/gl.scm b/figl/gl.scm
index a579fd6..0f87305 100644 (file)
--- a/figl/gl.scm
+++ b/figl/gl.scm
@@ -296,6 +296,24 @@
 
 (re-export (%glShadeModel . set-gl-shade-model))
 
+;;;
+;;; 3.8.12 Texture Objects
+;;;
+
+(define (gl-generate-texture)
+  (let ((tv (u32vector 0)))
+    (%glGenTextures 1 tv)
+    (u32vector-ref tv 0)))
+
+(define (gl-delete-texture n)
+  (let ((tv (u32vector n)))
+    (%glDeleteTextures 1 tv)))
+
+(export gl-generate-texture
+        gl-delete-texture)
+
+(re-export (%glBindTexture . gl-bind-texture))
+
 \f
 ;;;
 ;;; 4.1 Per-Fragment Operations