allow set color in writeOnSprite

2022-01-02 20:04:51 -07:00
parent b5725bba83
commit 07144e95cf
1 changed files with 5 additions and 2 deletions
--- a/projects/hollywoo-flixel/src/hollywoo_flixel/SpriteTools.kiss
+++ b/projects/hollywoo-flixel/src/hollywoo_flixel/SpriteTools.kiss
@@ -36,5 +36,8 @@
        (canvas.stamp stamp x y)))

 // TODO allow specifying size relative to canvas
-(function :Void writeOnSprite [:String text :Int size :FlxSprite canvas :RelativePosition pos]
-    (drawOnSprite (new FlxText 0 0 0 text size) canvas pos))
+(function :Void writeOnSprite [:String text :Int size :FlxSprite canvas :RelativePosition pos &opt :FlxColor color]
+    (let [text (new FlxText 0 0 0 text size)]
+        (when color
+            (set text.color color))
+            (drawOnSprite text canvas pos)))