diff options
Diffstat (limited to 'chickadee/graphics/sprite.scm')
-rw-r--r-- | chickadee/graphics/sprite.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/chickadee/graphics/sprite.scm b/chickadee/graphics/sprite.scm index 76ee94a..0d6f838 100644 --- a/chickadee/graphics/sprite.scm +++ b/chickadee/graphics/sprite.scm @@ -108,7 +108,7 @@ void main (void) { matrix #:key (tint white) - (blend-mode 'alpha) + (blend-mode blend:alpha) (texcoords (texture-gl-tex-rect texture))) (let ((shader (graphics-variable-ref sprite-shader)) (geometry (graphics-variable-ref sprite-geometry)) @@ -152,7 +152,7 @@ void main (void) { (origin %null-vec2) (scale %default-scale) (rotation 0.0) - (blend-mode 'alpha) + (blend-mode blend:alpha) (rect (texture-gl-rect texture))) "Draw TEXTURE at POSITION. @@ -335,7 +335,7 @@ may be specified via the TEXTURE-REGION argument." #:tint tint #:texture-region texture-region))) -(define* (draw-sprite-batch* batch matrix #:key (blend-mode 'alpha)) +(define* (draw-sprite-batch* batch matrix #:key (blend-mode blend:alpha)) "Render the contents of BATCH." (let ((shader (graphics-variable-ref sprite-batch-shader)) (mvp (graphics-variable-ref sprite-mvp-matrix))) @@ -356,7 +356,7 @@ may be specified via the TEXTURE-REGION argument." (origin %null-vec2) (scale %default-scale) (rotation 0.0) - (blend-mode 'alpha)) + (blend-mode blend:alpha)) "Render the contents of BATCH." (let ((matrix (graphics-variable-ref sprite-model-matrix))) (matrix4-2d-transform! matrix @@ -383,7 +383,7 @@ may be specified via the TEXTURE-REGION argument." (bottom-margin margin) (left-margin margin) (right-margin margin) - (blend-mode 'alpha) + (blend-mode blend:alpha) (tint white)) (let* ((x (rect-x rect)) (y (rect-y rect)) @@ -463,7 +463,7 @@ may be specified via the TEXTURE-REGION argument." (origin %null-vec2) (rotation 0.0) (scale %default-scale) - (blend-mode 'alpha) + (blend-mode blend:alpha) (tint white)) "Draw a \"nine patch\" sprite. A nine patch sprite renders TEXTURE on the rectangular area RECT whose stretchable areas are |