increase font size help !!!!!!!

[WooFerPPK]

code:

for decreasing count : 60 .. 1     fontselect := "Freestyle Script:" + intstr (count)     font1 := Font.New (fontselect)     move := move + 1     text := "TENNIS TEAM" (1 .. 11)     Draw.Text (text, maxx div 2 - 87, maxy div 2 - 25, font1, 12)     delay (10)     Draw.Text (text, maxx div 2 - 87, maxy div 2 - 25, font1, green)     Font.Free (font1) end for

that will make the font shrink from the positon its in
i want it to shrink each letter at a time
ie/ HELL0

pls help

[Tony]

so then you first declear all the fonts (from 1 to size of string) then run a for loop as this:

code:

for i=1 to length(text) font.draw(text(i),X,Y,fontid(i),color) end for

as the for loop increases, the fontid changes (make sure fonts are in an array)

also a good estimate of the position of X is number of letters * fontsize... So since its gonna be changing, I recomend counter... as

code:

X:= X + (length(text)-i) + (note here)

in note here part you put w/e value you'd have to add to length of the text to get largest font size. This is assuming that fonts decrease by 1.

length(text) - i
gives size of the font and
note here
part gives the base size increasement... well it depends on how you declear your fonts.

Hope you understand