Screen Fading with Pyro

[AmonParticipant]

Can we get screenfades with pyro scene switching?

[therevillsParticipant]

I did something like this when I was trying Pyro:

Monkey

Class MyScreen Extends Screen Const NOT_FADING:Int = 0 Const FADE_IN:Int = 1 Const FADE_OUT:Int = 2 Const FADE_SPEED:Float = 0.05 Field fadeValue:Float = 0 Field fading:Int = NOT_FADING Field nextScreen:MyScreen Method SetScreen() self.Set() Self.fading = MyScreen.FADE_IN Self.fadeValue = 0 End Method OnPostRender( canvas:Canvas ) Override If fading > NOT_FADING DrawFader( canvas, fadeValue ) End End Method FadeToScreen(screen:MyScreen) nextScreen = screen fading = FADE_OUT End Method UpdateScreenFade() If fading > NOT_FADING If fading = FADE_IN If fadeValue < 1 fadeValue += FADE_SPEED Else fadeValue = 1.0 fading = NOT_FADING Endif Else If fadeValue > 0 fadeValue -= FADE_SPEED Else fadeValue = 0 nextScreen.SetScreen() fading = NOT_FADING End End End End Method OnUpdate() Override UpdateScreenFade() End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

Class MyScreen Extends Screen Const NOT_FADING:Int = 0 Const FADE_IN:Int = 1 Const FADE_OUT:Int = 2 Const FADE_SPEED:Float = 0.05 Field fadeValue:Float = 0 Field fading:Int = NOT_FADING Field nextScreen:MyScreen Method SetScreen() self.Set() Self.fading = MyScreen.FADE_IN Self.fadeValue = 0 End Method OnPostRender( canvas:Canvas ) Override If fading > NOT_FADING DrawFader( canvas, fadeValue ) End End Method FadeToScreen(screen:MyScreen) nextScreen = screen fading = FADE_OUT End Method UpdateScreenFade() If fading > NOT_FADING If fading = FADE_IN If fadeValue < 1 fadeValue += FADE_SPEED Else fadeValue = 1.0 fading = NOT_FADING Endif Else If fadeValue > 0 fadeValue -= FADE_SPEED Else fadeValue = 0 nextScreen.SetScreen() fading = NOT_FADING End End End End Method OnUpdate() Override UpdateScreenFade() End End

The using Pyro’s screenmanager:

Monkey

Class NightOfTheUnfed Extends ScreenManager Method New(title:String, width:Int, height:Int, flags:WindowFlags = WindowFlags.Resizable) Super.New(title, width, height, flags) ClearColor=Color.Black Layout = "letterbox" gameScreen = New GameScreen titleScreen = New TitleScreen ' titleScreen.SetScreen() loader=New Loader loader.Set() loader.FollowUpScreen=titleScreen End Method OnMeasure:Vec2i() Override Return virtualResolution End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Class NightOfTheUnfed Extends ScreenManager Method New(title:String, width:Int, height:Int, flags:WindowFlags = WindowFlags.Resizable) Super.New(title, width, height, flags) ClearColor=Color.Black Layout = "letterbox" gameScreen = New GameScreen titleScreen = New TitleScreen ' titleScreen.SetScreen() loader=New Loader loader.Set() loader.FollowUpScreen=titleScreen End   Method OnMeasure:Vec2i() Override Return virtualResolution End End

Monkey

Class GameScreen Extends MyScreen Field camera:Camera Field scene:Scene Field light:LayerSprite Field atlas:Image Field player:Player Field layer:Layer 'Field maze:Maze Field mymap:themap Method New() End Method OnStart() Override scene = New Scene(ScreenManager) ... Method OnUpdate() Override Super.OnUpdate() If Keyboard.KeyHit(Key.Escape) FadeToScreen(titleScreen) End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Class GameScreen Extends MyScreen Field camera:Camera Field scene:Scene Field light:LayerSprite Field atlas:Image     Field player:Player     Field layer:Layer     'Field maze:Maze          Field mymap:themap      Method New()   End Method OnStart() Override scene = New Scene(ScreenManager)   ...   Method OnUpdate() Override Super.OnUpdate() If Keyboard.KeyHit(Key.Escape) FadeToScreen(titleScreen) End

[AmonParticipant]

Thank you, Mr Revills…

 

[Author]

Posts