Fading

Do you have something to share with us? A tip for newbies, perhaps? Post it here.
Post Reply
peter
Active Member
Posts: 123
Joined: Mon Oct 22, 2007 2:31 pm

Fading

Post by peter » Sun Jul 27, 2014 11:46 pm

hello,
I wanted say, I am still alive.

Code: Select all

SCREEN 640,489,32,2
i = LoadFont("arial",34)
SetFont i

r=255: g=200: b=100: d=1
r1=r 
g1=g 
b1=b

While KeyDown(27)=0
ClsColor r,g,b
Cls

If d=1
   If r>0 then r=r-1
   If g>0 then g=g-1
   If b>0 then b=b-1
   If r=0 and g=0 and b=0 then d=2
EndIf
If d=2
   If r<r1 then r=(r+1)
   If g<g1 then g=(g+1)
   If b<b1 then b=(b+1)
   If r=r1 and g=g1 And b=b1 then d=1
EndIf

Color b1,g1,r1
Text 200,200,"COLOUR FADING" 

DrawScreen OFF
Wend

Post Reply

Who is online

Users browsing this forum: No registered users and 2 guests