summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2021-08-06 08:57:14 -0400
committerDavid Thompson <dthompson2@worcester.edu>2021-08-06 08:57:14 -0400
commit2adf8c644592230bc0f8bbc511a514f28cb4f7f5 (patch)
tree261062d97e8046bdd56ffbda850f4aaeee6121a0
parente326a983893117508a6e94511c2f93913cd02256 (diff)
graphics: gl: Add binding for glGenerateMipmap.
-rw-r--r--chickadee/graphics/gl.scm9
1 files changed, 9 insertions, 0 deletions
diff --git a/chickadee/graphics/gl.scm b/chickadee/graphics/gl.scm
index 2ba0ec2..fc91a49 100644
--- a/chickadee/graphics/gl.scm
+++ b/chickadee/graphics/gl.scm
@@ -26,6 +26,7 @@
#:use-module (srfi srfi-4)
#:use-module ((system foreign) #:select (bytevector->pointer))
#:use-module (gl)
+ #:use-module (gl runtime)
#:use-module ((gl low-level) #:renamer (symbol-prefix-proc '%))
#:use-module (gl enums)
#:use-module (gl runtime)
@@ -44,6 +45,14 @@
(%glTexImage2D . gl-texture-image-2d)
(%glTexImage1D . gl-texture-image-1d))
+;; For some reason, guile-opengl does not bind glGenerateMipmap, so we
+;; have to do it ourselves.
+(define-gl-procedure (glGenerateMipmap (target GLenum) -> void)
+ "Generate mipmaps for the texture attached to target of the active
+texture unit.")
+
+(export (glGenerateMipmap . gl-generate-mipmap))
+
;;;
;;; 3.8.2 Alternate Texture Image Specification Commands
;;;