Xojo Conferences
MBSSep2018MunichDE
XDCMay2019MiamiUSA

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 Console & Web iOS
global method TIFF MBS Images Plugin 12.1 Yes Yes Yes Yes No
Function: 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
Notes:
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.

Feedback, Comments & Corrections

CombineTiffCMYKtoRGBMBS(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 Console & Web iOS
global method TIFF MBS Images Plugin 12.1 Yes Yes Yes Yes No
Function: Combines Grayscale tiff images to one RGB tiff.
Example:
const PLANARCONFIG_CONTIG=1
const PHOTOMETRIC_RGB=2
const FILLORDER_MSB2LSB=1

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("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.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
Notes:
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.

Feedback, Comments & Corrections

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





Links
MBS FileMaker tutorial videos