diff options
| author | David Thompson <dthompson2@worcester.edu> | 2021-08-06 08:57:14 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2021-08-06 08:57:14 -0400 |
| commit | 2adf8c644592230bc0f8bbc511a514f28cb4f7f5 (patch) | |
| tree | 261062d97e8046bdd56ffbda850f4aaeee6121a0 | |
| parent | e326a983893117508a6e94511c2f93913cd02256 (diff) | |
graphics: gl: Add binding for glGenerateMipmap.
| -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 ;;; |