diff options
| -rw-r--r-- | chickadee/graphics/gl.scm | 9 |
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 ;;; |