summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2021-05-11 09:08:42 -0400
committerDavid Thompson <dthompson2@worcester.edu>2021-05-11 09:08:42 -0400
commit954ba33eef634469f7e7c486bb26107ab8f62bf4 (patch)
tree6f9c0394b97da655c2ec9c10ac0f2f37d40481dd
parent2deafe2a3a6f2393f63e8782ce2aa508f070e84f (diff)
graphics: texture: Add state for texture unit 4.
-rw-r--r--chickadee/graphics/texture.scm7
1 files changed, 7 insertions, 0 deletions
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)