From 31478647e55319129eada502ef975a7770e951d4 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 16 Jun 2013 14:40:49 -0400 Subject: Fix sprite default scale values. --- 2d/sprite.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/2d/sprite.scm b/2d/sprite.scm index e7820b5..c5310f7 100644 --- a/2d/sprite.scm +++ b/2d/sprite.scm @@ -55,7 +55,7 @@ (rotation sprite-rotation set-sprite-rotation!) (color sprite-color set-sprite-color!)) -(define* (make-sprite texture #:optional (x 0) (y 0) (scale-x 0) (scale-y 0) +(define* (make-sprite texture #:optional (x 0) (y 0) (scale-x 1) (scale-y 1) (rotation 0) (color '(1 1 1))) (%make-sprite texture x y scale-x scale-y rotation color)) -- cgit v1.2.3