[VBScript]
Set ca = Server.CreateObject("ImageGlue7.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
|
|
|