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

Username:   Password: 
 RegisterRegister   
 Fonts Tags
Index -> Programming, Turing -> Turing Help
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
josh




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




PostPosted: Mon Feb 16, 2004 11:01 pm   Post subject: (No 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)
jonos




PostPosted: Wed Feb 18, 2004 7:26 am   Post subject: (No 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)
Cervantes




PostPosted: Wed Feb 18, 2004 4:36 pm   Post subject: (No 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)
jonos




PostPosted: Wed Feb 18, 2004 4:58 pm   Post subject: (No 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
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  [ 5 Posts ]
Jump to:   


Style:  
Search: