Need Help with increasing size of font

[basketball4ever]

I have no clue how it works... can someone give me an example.

[basketball4ever]

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.

[Tony]

look though text effects

[basketball4ever]

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.

[templest]

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

[myob]

however on crappy computers its gonna look bad. like u can see the screen flashes when it erases it

[templest]

No shit? That's why I put the "View.Update" there!

[skier]

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