render: texture: Support using 32 texture units.

* chickadee/render/texture.scm (make-apply-texture, texture-ref,
texture-set!): New procedures.
(*texture-states*): New variable.
(apply-texture, *texture-state*): Delete.
(make-texture): Use 'vector-set!'
* chickadee/render/shader.scm: Export 'uniform-type'.
(default-uniform-value): Remove 'sampler-2d' case.
(extract-uniforms): Handle sampler-2d uniforms specially.
* chickadee/render.scm (current-texture): Add 'i' argument.
(with-texture): Add 'n' argument.
(gpu-apply*): Set textures for all texture units.
* .dir-locals.el: Update indentation rules for 'with-texture'.

1 files changed, 2 insertions, 2 deletions

diff --git a/chickadee/render/sprite.scm b/chickadee/render/sprite.scm
index 318a8a5..1ea4dda 100644
--- a/chickadee/render/sprite.scm
+++ b/chickadee/render/sprite.scm
@@ -114,7 +114,7 @@ void main (void) {
       (matrix4-mult! mvp mvp tmp-matrix)
       (matrix4-mult! mvp mvp (current-projection))
       (with-blend-mode blend-mode
-        (with-texture texture
+        (with-texture 0 texture
           (gpu-apply shader (force vertex-array) #:mvp mvp))))))
 
 
@@ -192,7 +192,7 @@ void main (void) {
   "Render the contents of BATCH and clear the cache."
   (unless (zero? (sprite-batch-size batch))
     (with-blend-mode (sprite-batch-blend-mode batch)
-      (with-texture (sprite-batch-texture batch)
+      (with-texture 0 (sprite-batch-texture batch)
         (unmap-vertex-buffer! (sprite-batch-index-buffer batch))
         (unmap-vertex-buffer! (sprite-batch-position-buffer batch))
         (unmap-vertex-buffer! (sprite-batch-texture-buffer batch))