BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"RGB --> RGB Screenfader", by tilldrap

Fades screen from one rgb code to another:
screenfade(R1,G1,B1,R2,G2,B2)
Simple!

Code

Function screenfade(SR,SG,SB,ER,EG,EB)
;***************;
;* SCREENFADER *;
;*      BY     *;
;* HPOnline UK *;
;***************;

SPEED = 1 ;colours use even & odd numbers.
CR = SR
CG = SG
CB = SB
If SR > ER Then R = 0 Else R = 1 ;}
If SG > EG Then G = 0 Else G = 1 ;}inc / dec colour values depending on difference of start / end
If SB > EB Then B = 0 Else B = 1 ;}

While Not CR = ER
If R = 1 Then CR = CR + SPEED Else CR = CR - SPEED ;change red values
ClsColor CR,SG,SB
Cls ;fade screen to colour values
Delay(10) ;make effect slow enough to see
Wend

While Not CG = EG
If G = 1 Then CG = CG + SPEED Else CG = CG - SPEED ;change green values
ClsColor CR,CG,SB
Cls ;fade screen to colour values
Delay(10) ;make effect slow enough to see
Wend

While Not CB = EB
If B = 1 Then CB = CB + SPEED Else CB = CB - SPEED ;change blue values
ClsColor CR,CG,CB
Cls ;fade screen to colour values
Delay(10) ;make effect slow enough to see
Wend

ClsColor ER,EG,EB
Cls ;set final colours
Delay(1000)

End Function

Code software created by Krylar's Kreations