Platforms to show: All Mac Windows Linux Cross-Platform

CombineTiffCMYKtoCMYKMBS(dest as TiffPictureMBS, CyanChannel() as Integer, MagentaChannel() as Integer, YellowChannel() as Integer, BlackChannel() as Integer, TiffData() as TiffPictureMBS) as Integer

Type Topic Plugin Version macOS Windows Linux iOS Targets
global method TIFF MBS Images Plugin 12.1 ✅ Yes ✅ Yes ✅ Yes ✅ Yes All
Combines Grayscale tiff images to one CMYK tiff.
Example
const PLANARCONFIG_CONTIG=1
const PHOTOMETRIC_RGB=2
const FILLORDER_MSB2LSB=1
const PHOTOMETRIC_SEPARATED=5

dim u,v,ot,t(4) as TiffPictureMBS
dim f as FolderItem
dim pnach as Picture
dim dC(4), dM(4), dY(4), dK(4) as Double
dim nC(4), nM(4), nY(4), nK(4) as Integer
dim i as Integer

//Cyan
dK(0)=0.0
dC(0)=1.0
dM(0)=0.0
dY(0)=0.0
//Magenta
dK(1)=0.00
dC(1)=0.0
dM(1)=1.0
dY(1)=0.0
//Yellow
dK(2)=0.00
dC(2)=0.0
dM(2)=0.0
dY(2)=1.0
//Black
dK(3)=1.00
dC(3)=0.0
dM(3)=0.0
dY(3)=0.0
//Pantone, S0
dK(4)=0.00
dC(4)=0.60
dM(4)=0.35
dY(4)=0.15

//Bilder
f=GetFolderItem("test.Cyan.tif")
t(0)=f.OpenAsTiffMBS

f=GetFolderItem("test.Magenta.tif")
t(1)=f.OpenAsTiffMBS

f=GetFolderItem("test.Yellow.tif")
t(2)=f.OpenAsTiffMBS

f=GetFolderItem("test.Black.tif")
t(3)=f.OpenAsTiffMBS

f=GetFolderItem("test.S0.tif")
t(4)=f.OpenAsTiffMBS

for i=0 to 4
nC(i)=dC(i)*1000.0
nM(i)=dM(i)*1000.0
nY(i)=dY(i)*1000.0
nK(i)=dK(i)*1000.0
next

f=GetFolderItem("resultCMYK.tif")
ot=new TiffPictureMBS
if ot.Create(f) then
v=t(0)
u=ot
u.Width=v.Width
u.Height=v.Height
u.RowsPerStrip=v.Height
u.BitsPerSample=8
u.SamplesPerPixel=4
u.ResolutionUnit=v.ResolutionUnit
u.HorizontalPosition=v.HorizontalPosition
u.HorizontalResolution=v.HorizontalResolution
u.VerticalPosition=v.VerticalPosition
u.VerticalResolution=v.VerticalResolution
u.Orientation=v.Orientation
u.PlanarConfig=PLANARCONFIG_CONTIG
u.Photometric=PHOTOMETRIC_SEPARATED
u.FillOrder=FILLORDER_MSB2LSB
Title=str(CombineTiffCMYKtoCMYKMBS(ot, nC,nM,nY,nK,t))
ot.Close
end if

//Neues Bild anzeigen
pnach=f.OpenAsPicture
if pnach<>Nil then
Window1.Width=pNach.Width
Window1.Height=pNach.Height
Window1.Backdrop=pNach
end if

All arrays have the same size specifying for each 8bit grayscal esource image the colors to be used in the final image.
Result image is written to the current tiffpicture. Error code is returned which is 0 for no error.
You need to set yourself all needed tiffpicture parameters for the output image and you must create it before.
The plugin sets width and height for the output tiff.

The items on this page are in the following plugins: MBS Images Plugin.


The biggest plugin in space...