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

textPlates allow specifying width, object arg call form

Browse Source
This commit is contained in:
Nat Quayle Nelson
2025-07-29 20:38:25 -05:00
parent f14071de8f
commit 04be93ad05
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/kiss_flixel/SpriteTools.kiss
View File

@@ -1,3 +1,5 @@
(loadFrom "kiss-tools" "src/kiss_tools/RefactorUtil.kiss")
// Calculate where to draw the given stamp sprite on the given canvas sprite, as percentages or pixels from edge
(function :Array<Int> positionOn [:FlxSprite stamp :FlxSprite canvas :RelativePosition pos &opt :Bool allowOutOfRange]
(unless pos.anchorX (set pos.anchorX (Percent 0.5)))
@@ -62,11 +64,12 @@
(set bytes (bitmapData.encode bitmapData.rect (new PNGEncoderOptions true) bytes))
(File.saveBytes file bytes))))
(function :FlxSprite textPlate [:String text :Int size :Int margin &opt :FlxColor textColor :FlxColor bgColor :FlxText->FlxText applyFormat :String fontPath]
(function :FlxSprite textPlate [:String text :Int size :Int margin &opt :FlxColor textColor :FlxColor bgColor :FlxText->FlxText applyFormat :String fontPath :Int width]
(unless applyFormat (set applyFormat ->text text))
(unless textColor (set textColor FlxColor.WHITE))
(unless bgColor (set bgColor FlxColor.BLACK))
(let [flxText (new FlxText 0 0 0 text size)
(unless width (set width 0))
(let [flxText (new FlxText 0 0 width text size)
flxText (if fontPath
(flxText.setFormat fontPath size textColor)
flxText)
@@ -78,6 +81,7 @@
(plate.makeGraphic (+ (* 2 margin) textWidth) (+ (* 2 margin) textHeight) bgColor true)
(plate.stamp flxText margin margin)
plate))
(redefineWithObjectArgs textPlate textPlateV2 [text size margin])
(function :FlxSprite cloneUnique [:FlxSprite sprite]
(let [s (sprite.clone)]