sprite: Add anchor and color parameters to load-sprite.

* sly/sprite.scm (load-sprite): Add 'anchor' and 'color' parameters.

1 files 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)