[VBScript]
Set theObj = Server.CreateObject("ImageGlue7.Canvas")
Set thePic = Server.CreateObject("ImageGlue7.Canvas")
Set theMatte = Server.CreateObject("ImageGlue7.Canvas")
theObj.Color = "cyan"
theObj.Width = 340
theObj.Height = 340
thePic.DrawFile Server.MapPath("boat.gif"), ""
theMatte.DrawFile Server.MapPath("boatmask.gif"), ""
thePic.SetChannel "alpha", theMatte.Image
theObj.DrawCanvas thePic.Image, "Rotation=45,75,75 Translate=10,10
Mode=Transparent"
theObj.DrawCanvas thePic.Image, "Rotation=90,75,75 Translate=170,10
Mode=Transparent"
theObj.DrawCanvas thePic.Image, "Rotation=135,75,75
Translate=10,170 Mode=Transparent"
theObj.DrawCanvas thePic.Image, "Rotation=180,75,75
Translate=170,170 Mode=Transparent"
theObj.SaveAs Server.MapPath("DrawCanvasOut.jpg"), ""
The above creates a new jpeg file containing four rotated images
matted against a blue background. Some sample files are shown
below.
boat.gif
boatmask.gif
DrawCanvasOut.jpg
|
|
|