Platforms to show: All Mac Windows Linux Cross-Platform
CombineTiffCMYKtoRGBMBS(dest as TiffPictureMBS , CyanChannel() as Integer, MagentaChannel() as Integer, YellowChannel() as Integer, BlackChannel() as Integer, TiffData() as TiffPictureMBS ) as Integer
Combines Grayscale tiff images to one RGB tiff.
Example
const PLANARCONFIG_CONTIG=1const PHOTOMETRIC_RGB=2const FILLORDER_MSB2LSB=1dim u,v,ot,t(4 ) as TiffPictureMBS dim f as FolderItemdim pnach as Picturedim 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("resultRGB.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=3 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_RGB u.FillOrder=FILLORDER_MSB2LSB Title=str(CombineTiffCMYKtoRGBMBS(ot, nC,nM,nY,nK,t)) ot.Closeend if //Neues Bild anzeigen pnach=f.OpenAsPictureif pnach<>Nil then Window1.Width=pNach.Width Window1.Height=pNach.Height Window1.Backdrop=pNachend 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 items on this page are in the following plugins: MBS Images Plugin .