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