From 8152ddc9e677dcf9bf553d5b9a95148ff48cc17c Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 31 Mar 2017 15:14:30 -0400 Subject: 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'. --- .dir-locals.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to '.dir-locals.el') diff --git a/.dir-locals.el b/.dir-locals.el index 3cfdc35..540a9b0 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -2,7 +2,7 @@ . ((eval . (put 'with-blend-mode 'scheme-indent-function 1)) (eval . (put 'with-depth-test 'scheme-indent-function 1)) - (eval . (put 'with-texture 'scheme-indent-function 1)) + (eval . (put 'with-texture 'scheme-indent-function 2)) (eval . (put 'with-shader 'scheme-indent-function 1)) (eval . (put 'with-vertex-array 'scheme-indent-function 1)) (eval . (put 'with-projection 'scheme-indent-function 1)) -- cgit v1.2.3