Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Need Help with increasing size of font
Index -> Programming, Turing -> Turing Help
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
basketball4ever




PostPosted: 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.
Sponsor
Sponsor
Sponsor
sponsor
basketball4ever




PostPosted: Sun Nov 07, 2004 2:21 pm   Post subject: (No 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.
Tony




PostPosted: Sun Nov 07, 2004 2:24 pm   Post subject: (No subject)

look though text effects
Latest from compsci.ca/blog: Tony's programming blog. DWITE - a programming contest.
basketball4ever




PostPosted: Sun Nov 07, 2004 2:33 pm   Post subject: (No 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.
templest




PostPosted: Sun Nov 07, 2004 3:22 pm   Post subject: (No 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
myob




PostPosted: Mon Nov 08, 2004 7:29 am   Post subject: (No subject)

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




PostPosted: Wed Nov 10, 2004 10:59 am   Post subject: (No subject)

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




PostPosted: Thu Nov 11, 2004 7:00 pm   Post subject: (No 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
Sponsor
Sponsor
Sponsor
sponsor
Display posts from previous:   
   Index -> Programming, Turing -> Turing Help
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 8 Posts ]
Jump to:   


Style:  
Search: