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

josh

Mon Feb 16, 2004 10:58 pm


Fonts Tags

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

Can Somone Post a list of Different fonts/text effects and there coresponding tags???
Thanx


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

shorthair

Mon Feb 16, 2004 11:01 pm



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

% The "Font.Draw" program.
var font1, font2, font3, font4 : int
font1 := Font.New ("serif:12")
assert font1 > 0
font2 := Font.New ("sans serif:18:bold")
assert font2 > 0
font3 := Font.New ("mono:9")
assert font3 > 0
font4 := Font.New ("Arial:24:bold,italic")
assert font4 > 0
Font.Draw ("This is in a serif font", 50, 30, font1, red)
Font.Draw ("This is in a sans serif font", 50, 80, font2, brightblue)
Font.Draw ("This is in a mono font", 50, 130, font3, colorfg)
Font.Draw ("This is in Arial (if available)", 50, 180, font4, green)
Font.Free (font1)
Font.Free (font2)
Font.Free (font3)
Font.Free (font4)


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

jonos

Wed Feb 18, 2004 7:26 am



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

you could just have looked in turing reference for that, almost the exact same thing if not (i don't know if shorthair wrote that)


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

Cervantes

Wed Feb 18, 2004 4:36 pm



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

There are more fonts than just that.

Go to start -> settings -> control panel -> fonts

that's all the fonts you can use
open it up and you'll see examples of its use.  You can use all those sizes at the bare minimum.

(I think, correct me if I'm wrong)


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

jonos

Wed Feb 18, 2004 4:58 pm



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

or you can do it in turing:

setscreen("text:250;400, nobuttonbar")

var streamNumber : int
var fileName : string
streamNumber := Dir.Open ("c:\\windows\\fonts") % or where your fonts are stored

put ">>>c:\\windows\\fonts"

assert streamNumber > 0
loop
    fileName := Dir.Get (streamNumber)
    exit when fileName = ""
    put fileName
end loop
Dir.Close (streamNumber)

this even has copy capabilities so you don't have to memorize and type the font names