|
[VBScript]
Set ca = Server.CreateObject("ImageGlue7.Canvas")
Set ptn = Server.CreateObject("ImageGlue7.Canvas")
ptn.DrawFile Server.MapPath("boat.gif"), ""
pts = "Points = 30,190,100,10,170,190,10,70,190,70"
ca.Color = "yellow"
ca.Width = 200
ca.Height = 200
ca.Pattern = ptn.Image
ca.DrawShape "poly", pts
ca.SaveAs Server.MapPath("pattern.jpg"), ""
The page draws a closed polygon in the shape of a star filling
it with a pattern taken from another canvas. It then saves the
image out as a jpeg. The input and output images are shown
below.
boat.gif
pattern.jpg
|
|
|