From 954ba33eef634469f7e7c486bb26107ab8f62bf4 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 11 May 2021 09:08:42 -0400
Subject: graphics: texture: Add state for texture unit 4.

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

diff --git a/chickadee/graphics/texture.scm b/chickadee/graphics/texture.scm
index 56843ad..e7342db 100644
--- a/chickadee/graphics/texture.scm
+++ b/chickadee/graphics/texture.scm
@@ -53,10 +53,12 @@
             g:texture-1
             g:texture-2
             g:texture-3
+            g:texture-4
             current-texture-0
             current-texture-1
             current-texture-2
             current-texture-3
+            current-texture-4
 
             texture-atlas
             list->texture-atlas
@@ -152,6 +154,11 @@
   #:default null-texture
   #:bind (make-bind-texture 3))
 
+(define-graphics-state g:texture-4
+  current-texture-4
+  #:default null-texture
+  #:bind (make-bind-texture 4))
+
 (define* (make-texture pixels width height #:key
                        flip?
                        (min-filter 'nearest)
-- 
cgit v1.2.3