truetype.vbs
DIM im1
'Create Object
Set im1 = CreateObject("ActiveImage.Images.1")
'Set path to true type fonts
im1.SetFontPathTTF "C:\WINNT\FONTS"
'Set font size
im1.SetFontSizeTTF 24
'Set Font Name
im1.SetFontTTF "ariblk"
'Create empty canvass
im1.CreateImage 300, 300
'Set Color
im1.SetColor 128, 0, 192
'Draw a text with selected font
im1.DrawTextTTF 20, 20 , "tonec.com"
im1.SetFontSizeTTF 36
'Draw a text with selected font and angle
im1.DrawTextAngleTTF 50, 50 ,360-45, "TONEC.COM"
im1.SetColor 128, 192, 192
im1.DrawTextAngleTTF 50, 100 ,360-45, "tonec.com"
'Save image to a file
im1.WriteToFile "C:\truetype.png"
Set im1 = Nothing
|
 |
|
Picture 1. truetype.png (size - 6 Kb) |
|
|