From 11a5fa552c9fe39f0978a3df2aeb59cb171f37cf Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 26 Sep 2014 21:10:14 -0400 Subject: sprite: Add anchor and color parameters to load-sprite. * sly/sprite.scm (load-sprite): Add 'anchor' and 'color' parameters. --- sly/sprite.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/sly/sprite.scm b/sly/sprite.scm index b1f57bb..e717133 100644 --- a/sly/sprite.scm +++ b/sly/sprite.scm @@ -77,10 +77,12 @@ custom SHADER can be specified." (vector s2 t2) (vector s1 t2))))))) -(define* (load-sprite file-name #:optional #:key (shader (load-default-shader))) +(define* (load-sprite file-name #:optional #:key (shader (load-default-shader)) + (anchor 'center) (color white)) "Return a sprite mesh for the texture loaded from FILE-NAME. Optionally, a custom SHADER can be specified." - (make-sprite (load-texture file-name) #:shader shader)) + (make-sprite (load-texture file-name) #:shader shader + #:anchor anchor #:color color)) (define* (make-animated-sprite textures frame-duration #:optional #:key (loop? #t) -- cgit v1.2.3