From d6d8ead4e73b02f2485fadc8fab1482986b8f0e8 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 16 Aug 2021 17:09:32 -0400
Subject: graphics: texture: Add state for texture unit 5.

---
 chickadee/graphics/texture.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/chickadee/graphics/texture.scm b/chickadee/graphics/texture.scm
index e1f2aef..e9a13ae 100644
--- a/chickadee/graphics/texture.scm
+++ b/chickadee/graphics/texture.scm
@@ -62,11 +62,13 @@
             g:texture-2
             g:texture-3
             g:texture-4
+            g:texture-5
             current-texture-0
             current-texture-1
             current-texture-2
             current-texture-3
             current-texture-4
+            current-texture-5
 
             texture-atlas
             list->texture-atlas
@@ -178,6 +180,11 @@
   #:default null-texture
   #:bind (make-bind-texture 4))
 
+(define-graphics-state g:texture-5
+  current-texture-5
+  #:default null-texture
+  #:bind (make-bind-texture 5))
+
 (define (gl-wrap-mode mode)
   (case mode
     ((repeat)
-- 
cgit v1.2.3