Blitz Basement

CODE LIBRARY >> SCREEN FADER

This Function allows you to fade the screen to white and back to black. Thanks to Andy Driskell for allowing use of this function on Blitz Basement. Here is the code for the function:


;*****************************
;Screen Fader
;by Andy Driskell
;*****************************
;
Function screenFadeWhiteBlack() 
For intFadeOut = 255 To 0 Step - 10
ClsColor intFadeOut, intFadeOut, intFadeOut
Cls
Flip
Next
End Function

Here is an example of the function in use.

Graphics 800,600 
Print "Screen1"
Delay 2000
screenFadeWhiteBlack() 
Print "Screen2"
Delay 2000
Function screenFadeWhiteBlack() 
For intFadeOut = 255 To 0 Step - 10
ClsColor intFadeOut, intFadeOut, intFadeOut
Cls
Flip
Next
End Function