From 2adf8c644592230bc0f8bbc511a514f28cb4f7f5 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 6 Aug 2021 08:57:14 -0400
Subject: graphics: gl: Add binding for glGenerateMipmap.

---
 chickadee/graphics/gl.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

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
 ;;;
-- 
cgit v1.2.3