|
[VBScruot]
Set ca = CreateObject("ImageGlue6.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/sunset.jpg", ""
ca.DrawPS myps, ""
ca.SaveAs Server.MapPath("Pictures/sunsetAnnotated.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
|