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

zoom out to allow offscreen stagepos

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-04-03 09:56:06 -06:00
parent 99902560f8
commit 92e19d2d30
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/hollywoo_flixel/FlxDirector.kiss
View File

@@ -114,11 +114,14 @@
(let [screen (new FlxSprite)] (let [screen (new FlxSprite)]
(screen.makeGraphic FlxG.width FlxG.height (FlxColor.fromRGBFloat 0 1 0 0.2)) (screen.makeGraphic FlxG.width FlxG.height (FlxColor.fromRGBFloat 0 1 0 0.2))
(set screen.cameras [flxMovie.uiCamera]) (set screen.cameras [flxMovie.uiCamera])
(doFor camera FlxG.cameras.list (set camera.zoom 0.5))
(mm.add screen (mm.add screen
->screen { ->screen {
(mm.remove screen) (mm.remove screen)
(FlxG.state.remove screen) (FlxG.state.remove screen)
(submit (FlxG.mouse.getScreenPosition flxMovie.uiCamera)) (let [pos (FlxG.mouse.getScreenPosition FlxG.camera)]
(doFor camera FlxG.cameras.list (set camera.zoom 1))
(submit pos))
}) })
(FlxG.state.add screen))) (FlxG.state.add screen)))
@@ -138,10 +141,11 @@
(sh.registerItem (sh.registerItem
"{enter} submit light source" "{enter} submit light source"
(onceLambda [cc] (onceLambda [cc]
(doFor camera FlxG.cameras.list (set camera.zoom 1))
(when points (when points
// TODO allow color choice // TODO allow color choice
(submit (new FlxLightSource points FlxColor.TRANSPARENT))) (submit (new FlxLightSource points FlxColor.TRANSPARENT)))
(cc)))))) (cc)) true))))
(method :Void showLighting [:SceneTime sceneTime :Array<FlxLightSource> lightSources :FlxCamera camera] (method :Void showLighting [:SceneTime sceneTime :Array<FlxLightSource> lightSources :FlxCamera camera]
(set lightSprite (new FlxSprite)) (set lightSprite (new FlxSprite))