|
The following code shows how to colorize an image. It adds a
base image to the current page and converts it to grayscale. Then
it creates a new spot color space and assigns the new color space
to the image.
Set theDoc = Server.CreateObject("ABCpdf13.Doc")
theDoc.Rect.Inset 20, 20
Set theImg = Server.CreateObject("ABCpdf13.Image")
theImg.SetFile "c:\mypics\mypic.jpg"
theID = theDoc.AddImageObject(theImg, False)
theID = theDoc.GetInfo(theID, "XObject")
theDoc.SetInfo theID, "Grayscale", ""
theCS = theDoc.AddColorSpaceSpot("MAGENTA", "0 100 0 0")
theDoc.SetInfo theID, "/ColorSpace:Ref", theCS
theDoc.Save "c:\mypdfs\doccolorspace.pdf"

doccolorspace.pdf
|
|
|