From 7381447087453981c8fa71dc004063bdc77033a7 Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Wed, 14 Jun 2023 08:34:53 -0600 Subject: [PATCH] allow font specification on writeOnSprite --- src/kiss_flixel/SpriteTools.kiss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/kiss_flixel/SpriteTools.kiss b/src/kiss_flixel/SpriteTools.kiss index c517119..c54970d 100644 --- a/src/kiss_flixel/SpriteTools.kiss +++ b/src/kiss_flixel/SpriteTools.kiss @@ -41,13 +41,15 @@ (stamp.origin.set oX oY)))) // TODO allow specifying size relative to canvas -(function :Void writeOnSprite [:String text :Int size :FlxSprite canvas :RelativePosition pos &opt :FlxColor color] +(function :Void writeOnSprite [:String text :Int size :FlxSprite canvas :RelativePosition pos &opt :FlxColor color :String fontPath] (let [lines (text.split "\n") &mut offsetY (/ (* size lines.length) -2)] (doFor text lines (set pos.offsetY offsetY) (+= offsetY size) (let [text (new FlxText 0 0 0 text size)] + (when fontPath + (text.setFormat fontPath size color)) (when color (set text.color color)) (drawOnSprite text canvas pos)))))