diff options
Diffstat (limited to 'chickadee/graphics/shader.scm')
-rw-r--r-- | chickadee/graphics/shader.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/chickadee/graphics/shader.scm b/chickadee/graphics/shader.scm index 9b2070b..1ce0c45 100644 --- a/chickadee/graphics/shader.scm +++ b/chickadee/graphics/shader.scm @@ -54,6 +54,7 @@ make-shader shader? null-shader + g:shader current-shader load-shader strings->shader @@ -481,7 +482,7 @@ #:predicate shader? #:free free-shader) -(define-graphics-state shader +(define-graphics-state g:shader current-shader #:default null-shader #:bind bind-shader) @@ -841,7 +842,7 @@ shader program." (uniform-apply shader rest))))))) (define-syntax-rule (shader-apply** shader* vertex-array uniforms exp) - (with-graphics-state! ((shader shader*)) + (with-graphics-state! ((g:shader shader*)) (uniform-apply shader* uniforms) ;; Sampler2D values aren't explicitly passed as uniform values via ;; shader-apply, so we have to bind them to the proper texture units |