diff options
Diffstat (limited to 'chickadee/graphics/sprite.scm')
-rw-r--r-- | chickadee/graphics/sprite.scm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/chickadee/graphics/sprite.scm b/chickadee/graphics/sprite.scm index 3a30d49..327db67 100644 --- a/chickadee/graphics/sprite.scm +++ b/chickadee/graphics/sprite.scm @@ -142,16 +142,18 @@ void main (void) { (define %null-vec2 (vec2 0.0 0.0)) (define %default-scale (vec2 1.0 1.0)) +(define %default-shear (vec2 0.0 0.0)) (define* (draw-sprite texture position #:key - (tint white) + (blend-mode blend:alpha) (origin %null-vec2) - (scale %default-scale) + (rect (texture-gl-rect texture)) (rotation 0.0) - (blend-mode blend:alpha) - (rect (texture-gl-rect texture))) + (scale %default-scale) + (shear %default-shear) + (tint white)) "Draw TEXTURE at POSITION. Optionally, other transformations may be applied to the sprite. @@ -169,7 +171,8 @@ BLEND-MODE." #:origin origin #:position position #:rotation rotation - #:scale scale) + #:scale scale + #:shear shear) (draw-sprite* texture rect matrix #:tint tint #:blend-mode blend-mode))) |