|
[VBScruot]
Set ca = CreateObject("ImageGlue7.Canvas")
myps = "/Courier findfont 14 scalefont setfont 1 1 0
setrgbcolor"
myps = myps & " 10 7 moveto (Copyright 1992, my picture
productions) show"
ca.DrawFile Server.MapPath("Pictures/desert1.jpg", ""
ca.DrawPS myps, ""
ca.SaveAs Server.MapPath("Pictures/desert1Annotated.png"),
""
The above creates a new png file with the postscript rendered
over the top of the picture. The original and annotated pictures
are shown below.
sunset.jpg
sunsetAnnotated.png
|