Computer Science Canada

Need Help with increasing size of font
Author:  basketball4ever [ Sun Nov 07, 2004 1:56 pm ]
Post subject:  Need Help with increasing size of font
I have no clue how it works... can someone give me an example.
Author:  basketball4ever [ Sun Nov 07, 2004 2:21 pm ]
Post subject: 
like i want it to be like a zoom animation kinda thing..
i want the font to go from like size 5 to be like size 999 so that it would be off the screen.
Author:  Tony [ Sun Nov 07, 2004 2:24 pm ]
Post subject: 
look though text effects
Author:  basketball4ever [ Sun Nov 07, 2004 2:33 pm ]
Post subject: 
It explained a lil... but all i want is the size of the font increasing like an animation.
The concept i want is:

"Hello" at size 5
then erase "hello" at size 5
Then put in "Hello at size 6
Then erase "Hello at size 6...
all the way up to a size where it would be off the screen.
Author:  templest [ Sun Nov 07, 2004 3:22 pm ]
Post subject: 
code:
var text_size : int := 8
var x : int := 100
var font : int := Font.New ("verdana:" + intstr (text_size) + ":bold")
View.Set ("offscreenonly,nobuttonbar,graphics:400,300")
for i : 1 .. 200
    Font.Draw ("templest", x, 100, font, black)
    View.Update
    text_size := text_size + 1
    font := Font.New ("verdana:" + intstr (text_size) + ":bold")
    if i < 200 then
        cls
    end if
    x := x - 2
end for
colorback (black)
cls
Author:  myob [ Mon Nov 08, 2004 7:29 am ]
Post subject: 
however on crappy computers its gonna look bad. like u can see the screen flashes when it erases it
Author:  templest [ Wed Nov 10, 2004 10:59 am ]
Post subject: 
No shit? That's why I put the "View.Update" there! Rolling Eyes
Author:  skier [ Thu Nov 11, 2004 7:00 pm ]
Post subject: 
try this:
code:

setscreen ("graphics: 600,450,offscreenonly")

var font1 : int
var big : int
big := 10
loop
    colorback (7)
    font1 := Font.New ("Snap ITC :" + intstr (big))
    big := big + 1
    cls
    Draw.Text ("cool eh", 160, 250, font1, 14)
    Time.Delay (10)
    View.Update
    exit when big = 50
end loop
delay (100)
View.Update


just change exit when big= 50 to 999

:


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

Terms of Use | Privacy Policy