Computer Science Canada

Fonts Tags

Author:  josh [ Mon Feb 16, 2004 10:58 pm ]
Post subject:  Fonts Tags

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

Author:  shorthair [ Mon Feb 16, 2004 11:01 pm ]
Post subject: 

% 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)

Author:  jonos [ Wed Feb 18, 2004 7:26 am ]
Post subject: 

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)

Author:  Cervantes [ Wed Feb 18, 2004 4:36 pm ]
Post subject: 

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)

Author:  jonos [ Wed Feb 18, 2004 4:58 pm ]
Post subject: 

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
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