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

basketball4ever

Sun Nov 07, 2004 1:56 pm


Need Help with increasing size of font

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

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


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

basketball4ever

Sun Nov 07, 2004 2:21 pm



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

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

Sun Nov 07, 2004 2:24 pm



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

look though [url=http://www.compsci.ca/v2/viewtopic.php?t=52]text effects


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

basketball4ever

Sun Nov 07, 2004 2:33 pm



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

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

Sun Nov 07, 2004 3:22 pm



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

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

Mon Nov 08, 2004 7:29 am



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

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


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

templest

Wed Nov 10, 2004 10:59 am



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

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


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

skier

Thu Nov 11, 2004 7:00 pm



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

try this:

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