Fade Out

85882 · **Posted:** Fri Jun 13, 2003 12:28 pm

code:

procedure FadeThisIn (title:string, x, y :int, size, speed:int)
var font : int := Font.New ("Arial:"+intstr(size))
for decreasing i : 31 .. 10
Font.Draw (title, x, y, font, i)
delay (speed)
end for
put ""
end FadeThisIn

FadeThisIn ("-----------------------*The Easy OOT Decision Structure Quiz*------------------", 1, 100, 15, 800)

Is there a way to fade out instead of in?

Tony · **Posted:** Fri Jun 13, 2003 2:36 pm

just reverse your for loop Confused

code:

procedure FadeThisOut (title:string, x, y :int, size, speed:int)
var font : int := Font.New ("Arial:"+intstr(size))
for i : 21 .. 31
Font.Draw (title, x, y, font, i)
delay (speed)
end for
put ""
end FadeThisIn

FadeThisOut ("-----------------------*The Easy OOT Decision Structure Quiz*------------------", 1, 100, 15, 800)

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members