kiss-lang/kiss-flixel
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

allow font specification on writeOnSprite

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-06-14 08:34:53 -06:00
parent 3d0cc19386
commit 7381447087
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/kiss_flixel/SpriteTools.kiss
View File

@@ -41,13 +41,15 @@
(stamp.origin.set oX oY)))) (stamp.origin.set oX oY))))
// TODO allow specifying size relative to canvas // 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") (let [lines (text.split "\n")
&mut offsetY (/ (* size lines.length) -2)] &mut offsetY (/ (* size lines.length) -2)]
(doFor text lines (doFor text lines
(set pos.offsetY offsetY) (set pos.offsetY offsetY)
(+= offsetY size) (+= offsetY size)
(let [text (new FlxText 0 0 0 text size)] (let [text (new FlxText 0 0 0 text size)]
(when fontPath
(text.setFormat fontPath size color))
(when color (when color
(set text.color color)) (set text.color color))
(drawOnSprite text canvas pos))))) (drawOnSprite text canvas pos)))))