|
[VBScript]
Set ca = Server.CreateObject("ImageGlue6.Canvas")
myshape = "Size=30,30 Operation=both PaintColor=green PenColor=red"
ca.Width = 200
ca.Height = 200
For i = 0 To 4
For j = 0 To 4
myrot = " Rotation=" & (i
* 50) + (j * 10) & ",15,15"
mytra = " Translate=" & j
* 40 & "," & i * 40
ca.DrawShape "rect", myshape &
myrot & mytra
Next
Next
Response.ContentType = "image/png"
Response.BinaryWrite ca.GetAs("getas.png","")
A sample output file is shown below.
getas.png
|
|
|