diff options
Diffstat (limited to 'chickadee/render/sprite.scm')
-rw-r--r-- | chickadee/render/sprite.scm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/chickadee/render/sprite.scm b/chickadee/render/sprite.scm index 6b6cf2a..708cc78 100644 --- a/chickadee/render/sprite.scm +++ b/chickadee/render/sprite.scm @@ -434,7 +434,8 @@ BLEND-MODE." (bottom-margin margin) (left-margin margin) (right-margin margin) - (blend-mode 'alpha)) + (blend-mode 'alpha) + (tint white)) (let* ((x (rect-x rect)) (y (rect-y rect)) (w (rect-width rect)) @@ -470,7 +471,8 @@ BLEND-MODE." (set-rect-height! texcoords (- t2 t1)) (draw-sprite* texture %rect matrix #:texcoords texcoords - #:blend-mode blend-mode)) + #:blend-mode blend-mode + #:tint tint)) (with-batched-sprites ;; bottom-left (draw-piece border-x1 border-y1 fill-x1 fill-y1 @@ -513,7 +515,8 @@ BLEND-MODE." (origin %null-vec2) (rotation 0.0) (scale %default-scale) - (blend-mode 'alpha)) + (blend-mode 'alpha) + (tint white)) "Draw a \"nine patch\" sprite. A nine patch sprite renders TEXTURE on the rectangular area RECT whose stretchable areas are defined by the given margin measurements. The corners are never @@ -542,4 +545,5 @@ LEFT-MARGIN, and RIGHT-MARGIN arguments may be used." #:bottom-margin bottom-margin #:left-margin left-margin #:right-margin right-margin - #:blend-mode blend-mode)))) + #:blend-mode blend-mode + #:tint tint)))) |