Rectangle components in NAT

2022-12-18 05:40:53 +00:00
parent 0ac7156366
commit f23e1ca622
5 changed files with 32 additions and 1 deletions
--- a/projects/nat-flixel-desktop-playground/source/EntrySprite.kiss
+++ b/projects/nat-flixel-desktop-playground/source/EntrySprite.kiss
@@ -27,6 +27,12 @@
                    (otherwise
                        (.onComplete (BitmapData.loadFromFile pinnedImage)
                            ->bitmapData (loadGraphic bitmapData))))))
+        ((hasComponent e Rectangle)
+            (let [rect (readComponent e Rectangle)
+                    w (Std.int rect.width)
+                    h (Std.int rect.height)]
+                (makeGraphic w h FlxColor.TRANSPARENT)
+                (FlxSpriteUtil.drawRect this 0 0 w h FlxColor.TRANSPARENT (object color FlxColor.WHITE))))
        ((hasComponent e Circle)
            (set isCircle true)
            (let [c (readComponent e Circle)