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

fix null error in GroupTools

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-08-12 14:58:45 +00:00
parent c9a3792faa
commit 2fd6fb2f43
1 changed files with 18 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
src/kiss_flixel/GroupTools.kiss
View File

@@ -18,21 +18,22 @@
(function :FlxRect calculateScreenBounds <>[:FlxSprite T] [:FlxTypedGroup<T> group &opt :FlxCamera camera :Float margin]
(unless margin (set margin 0))
(let [s (group.getFirstAlive)
r (new FlxRect)
bounds (s.getScreenBounds r camera)
&mut minX bounds.left
&mut maxX bounds.right
&mut minY bounds.top
&mut maxY bounds.bottom]
(group.forEach ->sprite
(let [bounds (sprite.getScreenBounds r camera)]
(setMin minX bounds.left)
(setMin minY bounds.top)
(setMax maxX bounds.right)
(setMax maxY bounds.bottom)))
(ifLet [s (group.getFirstAlive)]
(let [r (new FlxRect)
bounds (s.getScreenBounds r camera)
&mut minX bounds.left
&mut maxX bounds.right
&mut minY bounds.top
&mut maxY bounds.bottom]
(group.forEach ->sprite
(let [bounds (sprite.getScreenBounds r camera)]
(setMin minX bounds.left)
(setMin minY bounds.top)
(setMax maxX bounds.right)
(setMax maxY bounds.bottom)))
(r.fromTwoPoints
(new FlxPoint (- minX margin) (- minY margin))
(new FlxPoint (+ maxX margin) (+ maxY margin)))))
(r.fromTwoPoints
(new FlxPoint (- minX margin) (- minY margin))
(new FlxPoint (+ maxX margin) (+ maxY margin))))
(new FlxRect 0 0 0 0)))