Quote: "how about text?"
You can fade text by just changing the color content. I used to do this all the time in Quickbasic (well it's easier in Quickbasic because you can change the color palette). I threw this together so it's a bit primitive. When it fades in it fades as different colors till it gets to the maxes... you might not like that effect... but it points you in the right direction (I think).
Works in both Classic and Pro:
sync rate 0
sync on
set text opaque
dim TColor(0,6)
TColor(0,0)=0 :` Fade 0=Decrease Color 1=Increase color
TColor(0,1)=24 :` Max Red Content
TColor(0,2)=45 :` Max Green Content
TColor(0,3)=255 :` Max Blue Content
TColor(0,4)=TColor(0,1) :` Current Red Content
TColor(0,5)=TColor(0,2) :` Current Green Content
TColor(0,6)=TColor(0,3) :` Current Blue Content
Tex$="This is a fade test."
x=320-text width(Tex$)/2
y=20
tim=timer()
do
if timer()>tim+10 :` Fade delay
ink rgb(TColor(0,4),TColor(0,5),TColor(0,6)),0
text x,y,Tex$
if TColor(0,0)=0 :` If fade out
for t=4 to 6
if TColor(0,t)>=1
TColor(0,t)=TColor(0,t)-1 :` Decrease current colors
endif
next t
else :` If fade in
for t=4 to 6
if TColor(0,t)<TColor(0,t-3)
TColor(0,t)=TColor(0,t)+1 :` Increase current colors
endif
next t
endif
if TColor(0,4)=TColor(0,1) :` If all colors equal max color
if TColor(0,5)=TColor(0,2)
if TColor(0,6)=TColor(0,3)
TColor(0,0)=0 :` Change to fade out
endif
endif
endif
if TColor(0,4)=0 :` If all colors equal zero
if TColor(0,5)=0
if TColor(0,6)=0
TColor(0,0)=1 :` Change to fade in
endif
endif
endif
tim=timer() :` Reset timer
endif
ink rgb(255,255,255),0
text 0,100,"TColor(0,0)="+str$(TColor(0,0))
text 0,120,"TColor(0,4)="+str$(TColor(0,4))+" "
text 0,140,"TColor(0,5)="+str$(TColor(0,5))+" "
text 0,160,"TColor(0,6)="+str$(TColor(0,6))+" "
sync
loop
