proper cutToBlack

projects/hollywoo-flixel/src/hollywoo_flixel/FlxDirector.kiss

@@ -290,6 +290,15 @@
         (creditsText.push t)
         t))
 
+(prop &mut :FlxSprite blackBG null)
+(method :Void showBlackScreen []
+    (set blackBG (new FlxSprite))
+    (blackBG.makeGraphic 1280 720 FlxColor.BLACK true)
+    (currentState.add blackBG))
+
+(method :Void hideBlackScreen []
+    (currentState.remove blackBG))
+
 // TODO maybe credits need their own substate so an after-credits scene could be done.
 // currently the bg will cover whatever the final scene was.
 (method :Void rollCredits [:Array<CreditsLine> credits cc]

projects/hollywoo/src/hollywoo/Director.hx

@@ -28,6 +28,8 @@ interface Director<Set, StagePosition, StageFacing, ScreenPosition, Actor, Sound
     function hideDialog():Void;
     function showTitleCard(text:Array<String>, cc:Continuation):Void;
     function hideTitleCard():Void;
+    function showBlackScreen():Void;
+    function hideBlackScreen():Void;
     function showPropOnScreen(prop:Prop, position:ScreenPosition, cc:Continuation):Void;
     // TODO showPropOnStage
     function hideProp(prop:Prop, cc:Continuation):Void;

projects/hollywoo/src/hollywoo/Movie.kiss

@@ -309,6 +309,10 @@
                                     (OnScreen charOnScreen)
                                 (FromPhone (dictGet actors actorName))) wryly text cc))
 
+(hollywooMethod cutToBlack true [seconds :Continuation cc]
+    (director.showBlackScreen)
+    (delay seconds ->:Void {(director.hideBlackScreen)(cc)}))
+
 // TODO themedRollCredits
 (hollywooMethod rollCredits true [:String creditsTSV :Continuation cc]
     (director.rollCredits