[VBScript]
Set mycanvas = Server.CreateObject("ImageGlue7.Canvas")
mycanvas.Color = "cyan"
mycanvas.Width = 300
mycanvas.Height = 300
mycanvas.TextFont = "Times"
mycanvas.TextSize = 18
mycanvas.TextColor = "darkgray"
mycanvas.DrawText "18 Point Times New Roman", ""
mycanvas.TextSize = 9
mycanvas.TextStyle = "italic"
mycanvas.DrawText "9 Point Italic Times New Roman", "Pos=30,50
TextColor=green"
mycanvas.TextSize = 5
mycanvas.TextStyle = "bold,italic"
mycanvas.DrawText "5 Point Bold Italic Times New Roman",
"Pos=60,100 TextColor=gray"
mycanvas.TextSize = 16
mycanvas.DrawText "16 Point Left Aligned Times New Roman",
"Pos=10,130 Size=200,200"
mycanvas.DrawText "16 Point Right Aligned Times New Roman",
"Pos=10,200 Size=200,200 HAlign=right"
mycanvas.DrawText "16 Point Rotated Text", "Rotate=270
Translate=250,270"
mycanvas.SaveAs Server.MapPath("drawtext.jpg"),
"Quality=high"
The code draws text in a number of sizes, shapes, styles and
positions. It then saves the resulting Canvas out as a jpeg. The
final image is shown below.
drawtext.jpg
|
|
|