center and squash hollywoo-flixel set backgrounds

This commit is contained in:
2021-10-25 16:43:52 -04:00
parent 0bb4ab7be4
commit c6583df56b
2 changed files with 9 additions and 1 deletions

View File

@@ -4,6 +4,7 @@ import kiss.Prelude;
import kiss.List;
import flixel.FlxState;
import flixel.FlxSprite;
import flixel.FlxG;
import hollywoo.Scene;
import hollywoo_flixel.FlxMovie;

View File

@@ -6,7 +6,14 @@
(method &override :Void create []
(super.create)
(add (.loadGraphic (new FlxSprite 0 0) set)))
(let [setSprite (new FlxSprite 0 0)]
(setSprite.loadGraphic set)
(when (> setSprite.width FlxG.width)
(setSprite.setGraphicSize FlxG.width))
(when (> setSprite.height FlxG.height)
(setSprite.setGraphicSize 0 FlxG.height))
(setSprite.screenCenter)
(add setSprite)))
(method &override :Void update [:Float elapsed]
(super.update elapsed))