Computer Science Canada

Fade Out
Author:  85882 [ Fri Jun 13, 2003 12:28 pm ]
Post subject:  Fade Out
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?
Author:  Tony [ Fri Jun 13, 2003 2:36 pm ]
Post subject: 
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)

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy