[VBScript]
Set mycanvas = Server.CreateObject("ImageGlue7.Canvas")
inpath = Server.MapPath("layers.psd")
outpath = Server.MapPath("drawshape.jpg")
mycanvas.PaintColor = "blue"
mycanvas.PenSize = 4
mycanvas.Width = 250
mycanvas.Height = 250
mycanvas.DrawShape "oval", "Pos=10,10 Size=100,100
Operation=both"
mycanvas.DrawShape "line", "Points=120,120,200,170,130,200
Operation=draw OpenGL=true"
mycanvas.DrawShape "roundrect", "Pos=20,120 Size=80,80
Operation=draw OpenGL=true"
mycanvas.DrawShape "poly", "Points=120,20,200,40,120,100
Operation=draw"
mycanvas.DrawShape "oval", "Pos=0,0 Size=250,250 Operation=draw
OpenGL=true"
mycanvas.DrawShape "rect", "Pos=0,0 Size=250,250
Operation=draw"
mycanvas.SaveAs outpath, "Quality=high"
The code draws a number of shapes using a number of different
options. Note that the top two shapes are drawn without OpenGL and
the bottom two with it.
drawshapes.jpg
|
|
|