-----------------------------------

85882

Fri Jun 13, 2003 12:28 pm


Fade Out

-----------------------------------

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

Fri Jun 13, 2003 2:36 pm



-----------------------------------

just reverse your for loop :?


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)