2157 lines
113 KiB
ObjectPascal
2157 lines
113 KiB
ObjectPascal
|
//
|
||
|
|
// Little cms DELPHI wrapper
|
||
|
|
//---------------------------------------------------------------------------------
|
||
|
|
//
|
||
|
|
// Little Color Management System
|
||
|
|
// Copyright (c) 1998-2014 Marti Maria Saguer
|
||
|
|
//
|
||
|
|
// Permission is hereby granted, free of charge, to any person obtaining
|
||
|
|
// a copy of this software and associated documentation files (the "Software"),
|
||
|
|
// to deal in the Software without restriction, including without limitation
|
||
|
|
// the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
||
|
|
// and/or sell copies of the Software, and to permit persons to whom the Software
|
||
|
|
// is furnished to do so, subject to the following conditions:
|
||
|
|
//
|
||
|
|
// The above copyright notice and this permission notice shall be included in
|
||
|
|
// all copies or substantial portions of the Software.
|
||
|
|
//
|
||
|
|
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
||
|
|
// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO
|
||
|
|
// THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
||
|
|
// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
|
||
|
|
// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
|
||
|
|
// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
|
||
|
|
// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
||
|
|
//
|
||
|
|
//---------------------------------------------------------------------------------
|
||
|
|
//
|
||
|
|
// Version 2.6
|
||
|
|
//
|
||
|
|
|
||
|
|
UNIT lcms2dll;
|
||
|
|
|
||
|
|
{$IFDEF FPC}
|
||
|
|
{$MODE Delphi}
|
||
|
|
{$ENDIF}
|
||
|
|
|
||
|
|
INTERFACE
|
||
|
|
|
||
|
|
{$IFNDEF MSWINDOWS}
|
||
|
|
USES LCLType, types;
|
||
|
|
Type PWChar = PWideChar;
|
||
|
|
{$ELSE}
|
||
|
|
USES Windows;
|
||
|
|
{$ENDIF}
|
||
|
|
|
||
|
|
CONST
|
||
|
|
|
||
|
|
LCMS2_SO = {$IFDEF DARWIN} 'liblcms2.2.dylib'; {$ELSE} 'lcms2.dll'; {$ENDIF}
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
|
||
|
|
Uint8 = Byte;
|
||
|
|
Int8 = Shortint;
|
||
|
|
UInt16 = Word;
|
||
|
|
Int16 = Smallint;
|
||
|
|
UInt32 = LongWord;
|
||
|
|
Int32 = Longint;
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
cmsUInt8Number = Uint8;
|
||
|
|
cmsInt8Number = Int8;
|
||
|
|
cmsUInt16Number = UInt16;
|
||
|
|
cmsInt16Number = Int16;
|
||
|
|
|
||
|
|
cmsUInt32Number = UInt32;
|
||
|
|
cmsInt32Number = Int32;
|
||
|
|
cmsInt64Number = Int64;
|
||
|
|
cmsUInt64Number = UInt64;
|
||
|
|
|
||
|
|
cmsFloat32Number = Single;
|
||
|
|
cmsFloat64Number = Double;
|
||
|
|
|
||
|
|
LPcmsUInt8Number = ^cmsUInt8Number;
|
||
|
|
LPcmsInt8Number = ^cmsInt8Number;
|
||
|
|
LPcmsUInt16Number = ^cmsUInt16Number;
|
||
|
|
LPcmsInt16Number = ^cmsInt16Number;
|
||
|
|
|
||
|
|
LPcmsUInt32Number = ^cmsUInt32Number;
|
||
|
|
LPcmsInt32Number = ^cmsInt32Number;
|
||
|
|
LPcmsInt64Number = ^cmsInt64Number;
|
||
|
|
LPcmsUInt64Number = ^cmsUInt64Number;
|
||
|
|
|
||
|
|
LPcmsFloat32Number = ^cmsFloat32Number;
|
||
|
|
LPcmsFloat64Number = ^cmsFloat64Number;
|
||
|
|
|
||
|
|
|
||
|
|
// Derivative types
|
||
|
|
cmsSignature = cmsUInt32Number;
|
||
|
|
cmsU8Fixed8Number = cmsUInt16Number;
|
||
|
|
cmsS15Fixed16Number = cmsInt32Number;
|
||
|
|
cmsU16Fixed16Number = cmsUInt32Number;
|
||
|
|
|
||
|
|
// Boolean type, which will be using the native integer
|
||
|
|
cmsBool = Boolean;
|
||
|
|
|
||
|
|
CONST
|
||
|
|
|
||
|
|
// Some common definitions
|
||
|
|
cmsMAX_PATH = 256;
|
||
|
|
|
||
|
|
// D50 XYZ normalized to Y=1.0
|
||
|
|
cmsD50X = 0.9642;
|
||
|
|
cmsD50Y = 1.0;
|
||
|
|
cmsD50Z = 0.8249;
|
||
|
|
|
||
|
|
// V4 perceptual black
|
||
|
|
cmsPERCEPTUAL_BLACK_X = 0.00336;
|
||
|
|
cmsPERCEPTUAL_BLACK_Y = 0.0034731;
|
||
|
|
cmsPERCEPTUAL_BLACK_Z = 0.00287;
|
||
|
|
|
||
|
|
// Definitions in ICC spec
|
||
|
|
cmsMagicNumber = $61637370; // 'acsp'
|
||
|
|
lcmsSignature = $6c636d73; // 'lcms'
|
||
|
|
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
|
||
|
|
// Base ICC type definitions
|
||
|
|
cmsTagTypeSignature = (
|
||
|
|
cmsSigChromaticityType = $6368726D, // 'chrm'
|
||
|
|
cmsSigColorantOrderType = $636C726F, // 'clro'
|
||
|
|
cmsSigColorantTableType = $636C7274, // 'clrt'
|
||
|
|
cmsSigCrdInfoType = $63726469, // 'crdi'
|
||
|
|
cmsSigCurveType = $63757276, // 'curv'
|
||
|
|
cmsSigDataType = $64617461, // 'data'
|
||
|
|
cmsSigDictType = $64696374, // 'dict'
|
||
|
|
cmsSigDateTimeType = $6474696D, // 'dtim'
|
||
|
|
cmsSigDeviceSettingsType = $64657673, // 'devs'
|
||
|
|
cmsSigLut16Type = $6d667432, // 'mft2'
|
||
|
|
cmsSigLut8Type = $6d667431, // 'mft1'
|
||
|
|
cmsSigLutAtoBType = $6d414220, // 'mAB '
|
||
|
|
cmsSigLutBtoAType = $6d424120, // 'mBA '
|
||
|
|
cmsSigMeasurementType = $6D656173, // 'meas'
|
||
|
|
cmsSigMultiLocalizedUnicodeType = $6D6C7563, // 'mluc'
|
||
|
|
cmsSigMultiProcessElementType = $6D706574, // 'mpet'
|
||
|
|
cmsSigNamedColorType = $6E636f6C, // 'ncol' -- DEPRECATED!
|
||
|
|
cmsSigNamedColor2Type = $6E636C32, // 'ncl2'
|
||
|
|
cmsSigParametricCurveType = $70617261, // 'para'
|
||
|
|
cmsSigProfileSequenceDescType = $70736571, // 'pseq'
|
||
|
|
cmsSigProfileSequenceIdType = $70736964, // 'psid'
|
||
|
|
cmsSigResponseCurveSet16Type = $72637332, // 'rcs2'
|
||
|
|
cmsSigS15Fixed16ArrayType = $73663332, // 'sf32'
|
||
|
|
cmsSigScreeningType = $7363726E, // 'scrn'
|
||
|
|
cmsSigSignatureType = $73696720, // 'sig '
|
||
|
|
cmsSigTextType = $74657874, // 'text'
|
||
|
|
cmsSigTextDescriptionType = $64657363, // 'desc'
|
||
|
|
cmsSigU16Fixed16ArrayType = $75663332, // 'uf32'
|
||
|
|
cmsSigUcrBgType = $62666420, // 'bfd '
|
||
|
|
cmsSigUInt16ArrayType = $75693136, // 'ui16'
|
||
|
|
cmsSigUInt32ArrayType = $75693332, // 'ui32'
|
||
|
|
cmsSigUInt64ArrayType = $75693634, // 'ui64'
|
||
|
|
cmsSigUInt8ArrayType = $75693038, // 'ui08'
|
||
|
|
cmsSigViewingConditionsType = $76696577, // 'view'
|
||
|
|
cmsSigXYZType = $58595A20, // 'XYZ '
|
||
|
|
cmsSigVcgtType = $76636774 // 'vcgt'
|
||
|
|
);
|
||
|
|
|
||
|
|
// Base ICC tag definitions
|
||
|
|
cmsTagSignature = (
|
||
|
|
cmsSigAToB0Tag = $41324230, // 'A2B0'
|
||
|
|
cmsSigAToB1Tag = $41324231, // 'A2B1'
|
||
|
|
cmsSigAToB2Tag = $41324232, // 'A2B2'
|
||
|
|
cmsSigBlueColorantTag = $6258595A, // 'bXYZ'
|
||
|
|
cmsSigBlueMatrixColumnTag = $6258595A, // 'bXYZ'
|
||
|
|
cmsSigBlueTRCTag = $62545243, // 'bTRC'
|
||
|
|
cmsSigBToA0Tag = $42324130, // 'B2A0'
|
||
|
|
cmsSigBToA1Tag = $42324131, // 'B2A1'
|
||
|
|
cmsSigBToA2Tag = $42324132, // 'B2A2'
|
||
|
|
cmsSigCalibrationDateTimeTag = $63616C74, // 'calt'
|
||
|
|
cmsSigCharTargetTag = $74617267, // 'targ'
|
||
|
|
cmsSigChromaticAdaptationTag = $63686164, // 'chad'
|
||
|
|
cmsSigChromaticityTag = $6368726D, // 'chrm'
|
||
|
|
cmsSigColorantOrderTag = $636C726F, // 'clro'
|
||
|
|
cmsSigColorantTableTag = $636C7274, // 'clrt'
|
||
|
|
cmsSigColorantTableOutTag = $636C6F74, // 'clot'
|
||
|
|
cmsSigColorimetricIntentImageStateTag = $63696973, // 'ciis'
|
||
|
|
cmsSigCopyrightTag = $63707274, // 'cprt'
|
||
|
|
cmsSigCrdInfoTag = $63726469, // 'crdi'
|
||
|
|
cmsSigDataTag = $64617461, // 'data'
|
||
|
|
cmsSigDateTimeTag = $6474696D, // 'dtim'
|
||
|
|
cmsSigDeviceMfgDescTag = $646D6E64, // 'dmnd'
|
||
|
|
cmsSigDeviceModelDescTag = $646D6464, // 'dmdd'
|
||
|
|
cmsSigDeviceSettingsTag = $64657673, // 'devs'
|
||
|
|
cmsSigDToB0Tag = $44324230, // 'D2B0'
|
||
|
|
cmsSigDToB1Tag = $44324231, // 'D2B1'
|
||
|
|
cmsSigDToB2Tag = $44324232, // 'D2B2'
|
||
|
|
cmsSigDToB3Tag = $44324233, // 'D2B3'
|
||
|
|
cmsSigBToD0Tag = $42324430, // 'B2D0'
|
||
|
|
cmsSigBToD1Tag = $42324431, // 'B2D1'
|
||
|
|
cmsSigBToD2Tag = $42324432, // 'B2D2'
|
||
|
|
cmsSigBToD3Tag = $42324433, // 'B2D3'
|
||
|
|
cmsSigGamutTag = $67616D74, // 'gamt'
|
||
|
|
cmsSigGrayTRCTag = $6b545243, // 'kTRC'
|
||
|
|
cmsSigGreenColorantTag = $6758595A, // 'gXYZ'
|
||
|
|
cmsSigGreenMatrixColumnTag = $6758595A, // 'gXYZ'
|
||
|
|
cmsSigGreenTRCTag = $67545243, // 'gTRC'
|
||
|
|
cmsSigLuminanceTag = $6C756d69, // 'lumi'
|
||
|
|
cmsSigMeasurementTag = $6D656173, // 'meas'
|
||
|
|
cmsSigMediaBlackPointTag = $626B7074, // 'bkpt'
|
||
|
|
cmsSigMediaWhitePointTag = $77747074, // 'wtpt'
|
||
|
|
cmsSigNamedColorTag = $6E636f6C, // 'ncol' // Deprecated by the ICC
|
||
|
|
cmsSigNamedColor2Tag = $6E636C32, // 'ncl2'
|
||
|
|
cmsSigOutputResponseTag = $72657370, // 'resp'
|
||
|
|
cmsSigPerceptualRenderingIntentGamutTag = $72696730, // 'rig0'
|
||
|
|
cmsSigPreview0Tag = $70726530, // 'pre0'
|
||
|
|
cmsSigPreview1Tag = $70726531, // 'pre1'
|
||
|
|
cmsSigPreview2Tag = $70726532, // 'pre2'
|
||
|
|
cmsSigProfileDescriptionTag = $64657363, // 'desc'
|
||
|
|
cmsSigProfileSequenceDescTag = $70736571, // 'pseq'
|
||
|
|
cmsSigProfileSequenceIdTag = $70736964, // 'psid'
|
||
|
|
cmsSigPs2CRD0Tag = $70736430, // 'psd0'
|
||
|
|
cmsSigPs2CRD1Tag = $70736431, // 'psd1'
|
||
|
|
cmsSigPs2CRD2Tag = $70736432, // 'psd2'
|
||
|
|
cmsSigPs2CRD3Tag = $70736433, // 'psd3'
|
||
|
|
cmsSigPs2CSATag = $70733273, // 'ps2s'
|
||
|
|
cmsSigPs2RenderingIntentTag = $70733269, // 'ps2i'
|
||
|
|
cmsSigRedColorantTag = $7258595A, // 'rXYZ'
|
||
|
|
cmsSigRedMatrixColumnTag = $7258595A, // 'rXYZ'
|
||
|
|
cmsSigRedTRCTag = $72545243, // 'rTRC'
|
||
|
|
cmsSigSaturationRenderingIntentGamutTag = $72696732, // 'rig2'
|
||
|
|
cmsSigScreeningDescTag = $73637264, // 'scrd'
|
||
|
|
cmsSigScreeningTag = $7363726E, // 'scrn'
|
||
|
|
cmsSigTechnologyTag = $74656368, // 'tech'
|
||
|
|
cmsSigUcrBgTag = $62666420, // 'bfd '
|
||
|
|
cmsSigViewingCondDescTag = $76756564, // 'vued'
|
||
|
|
cmsSigViewingConditionsTag = $76696577, // 'view'
|
||
|
|
cmsSigVcgtTag = $76636774, // 'vcgt'
|
||
|
|
cmsSigMetaTag = $6D657461 // 'meta'
|
||
|
|
);
|
||
|
|
|
||
|
|
// ICC Technology tag
|
||
|
|
cmsTechnologySignature = (
|
||
|
|
cmsSigDigitalCamera = $6463616D, // 'dcam'
|
||
|
|
cmsSigFilmScanner = $6673636E, // 'fscn'
|
||
|
|
cmsSigReflectiveScanner = $7273636E, // 'rscn'
|
||
|
|
cmsSigInkJetPrinter = $696A6574, // 'ijet'
|
||
|
|
cmsSigThermalWaxPrinter = $74776178, // 'twax'
|
||
|
|
cmsSigElectrophotographicPrinter = $6570686F, // 'epho'
|
||
|
|
cmsSigElectrostaticPrinter = $65737461, // 'esta'
|
||
|
|
cmsSigDyeSublimationPrinter = $64737562, // 'dsub'
|
||
|
|
cmsSigPhotographicPaperPrinter = $7270686F, // 'rpho'
|
||
|
|
cmsSigFilmWriter = $6670726E, // 'fprn'
|
||
|
|
cmsSigVideoMonitor = $7669646D, // 'vidm'
|
||
|
|
cmsSigVideoCamera = $76696463, // 'vidc'
|
||
|
|
cmsSigProjectionTelevision = $706A7476, // 'pjtv'
|
||
|
|
cmsSigCRTDisplay = $43525420, // 'CRT '
|
||
|
|
cmsSigPMDisplay = $504D4420, // 'PMD '
|
||
|
|
cmsSigAMDisplay = $414D4420, // 'AMD '
|
||
|
|
cmsSigPhotoCD = $4B504344, // 'KPCD'
|
||
|
|
cmsSigPhotoImageSetter = $696D6773, // 'imgs'
|
||
|
|
cmsSigGravure = $67726176, // 'grav'
|
||
|
|
cmsSigOffsetLithography = $6F666673, // 'offs'
|
||
|
|
cmsSigSilkscreen = $73696C6B, // 'silk'
|
||
|
|
cmsSigFlexography = $666C6578, // 'flex'
|
||
|
|
cmsSigMotionPictureFilmScanner = $6D706673, // 'mpfs'
|
||
|
|
cmsSigMotionPictureFilmRecorder = $6D706672, // 'mpfr'
|
||
|
|
cmsSigDigitalMotionPictureCamera = $646D7063, // 'dmpc'
|
||
|
|
cmsSigDigitalCinemaProjector = $64636A70 // 'dcpj'
|
||
|
|
);
|
||
|
|
|
||
|
|
|
||
|
|
// ICC Color spaces
|
||
|
|
cmsColorSpaceSignature = (
|
||
|
|
cmsSigXYZData = $58595A20, // 'XYZ '
|
||
|
|
cmsSigLabData = $4C616220, // 'Lab '
|
||
|
|
cmsSigLuvData = $4C757620, // 'Luv '
|
||
|
|
cmsSigYCbCrData = $59436272, // 'YCbr'
|
||
|
|
cmsSigYxyData = $59787920, // 'Yxy '
|
||
|
|
cmsSigRgbData = $52474220, // 'RGB '
|
||
|
|
cmsSigGrayData = $47524159, // 'GRAY'
|
||
|
|
cmsSigHsvData = $48535620, // 'HSV '
|
||
|
|
cmsSigHlsData = $484C5320, // 'HLS '
|
||
|
|
cmsSigCmykData = $434D594B, // 'CMYK'
|
||
|
|
cmsSigCmyData = $434D5920, // 'CMY '
|
||
|
|
cmsSigMCH1Data = $4D434831, // 'MCH1'
|
||
|
|
cmsSigMCH2Data = $4D434832, // 'MCH2'
|
||
|
|
cmsSigMCH3Data = $4D434833, // 'MCH3'
|
||
|
|
cmsSigMCH4Data = $4D434834, // 'MCH4'
|
||
|
|
cmsSigMCH5Data = $4D434835, // 'MCH5'
|
||
|
|
cmsSigMCH6Data = $4D434836, // 'MCH6'
|
||
|
|
cmsSigMCH7Data = $4D434837, // 'MCH7'
|
||
|
|
cmsSigMCH8Data = $4D434838, // 'MCH8'
|
||
|
|
cmsSigMCH9Data = $4D434839, // 'MCH9'
|
||
|
|
cmsSigMCHAData = $4D43483A, // 'MCHA'
|
||
|
|
cmsSigMCHBData = $4D43483B, // 'MCHB'
|
||
|
|
cmsSigMCHCData = $4D43483C, // 'MCHC'
|
||
|
|
cmsSigMCHDData = $4D43483D, // 'MCHD'
|
||
|
|
cmsSigMCHEData = $4D43483E, // 'MCHE'
|
||
|
|
cmsSigMCHFData = $4D43483F, // 'MCHF'
|
||
|
|
cmsSigNamedData = $6e6d636c, // 'nmcl'
|
||
|
|
cmsSig1colorData = $31434C52, // '1CLR'
|
||
|
|
cmsSig2colorData = $32434C52, // '2CLR'
|
||
|
|
cmsSig3colorData = $33434C52, // '3CLR'
|
||
|
|
cmsSig4colorData = $34434C52, // '4CLR'
|
||
|
|
cmsSig5colorData = $35434C52, // '5CLR'
|
||
|
|
cmsSig6colorData = $36434C52, // '6CLR'
|
||
|
|
cmsSig7colorData = $37434C52, // '7CLR'
|
||
|
|
cmsSig8colorData = $38434C52, // '8CLR'
|
||
|
|
cmsSig9colorData = $39434C52, // '9CLR'
|
||
|
|
cmsSig10colorData = $41434C52, // 'ACLR'
|
||
|
|
cmsSig11colorData = $42434C52, // 'BCLR'
|
||
|
|
cmsSig12colorData = $43434C52, // 'CCLR'
|
||
|
|
cmsSig13colorData = $44434C52, // 'DCLR'
|
||
|
|
cmsSig14colorData = $45434C52, // 'ECLR'
|
||
|
|
cmsSig15colorData = $46434C52, // 'FCLR'
|
||
|
|
cmsSigLuvKData = $4C75764B // 'LuvK'
|
||
|
|
);
|
||
|
|
|
||
|
|
// ICC Profile Class
|
||
|
|
cmsProfileClassSignature = (
|
||
|
|
cmsSigInputClass = $73636E72, // 'scnr'
|
||
|
|
cmsSigDisplayClass = $6D6E7472, // 'mntr'
|
||
|
|
cmsSigOutputClass = $70727472, // 'prtr'
|
||
|
|
cmsSigLinkClass = $6C696E6B, // 'link'
|
||
|
|
cmsSigAbstractClass = $61627374, // 'abst'
|
||
|
|
cmsSigColorSpaceClass = $73706163, // 'spac'
|
||
|
|
cmsSigNamedColorClass = $6e6d636c // 'nmcl'
|
||
|
|
);
|
||
|
|
|
||
|
|
|
||
|
|
// ICC Platforms
|
||
|
|
cmsPlatformSignature = (
|
||
|
|
cmsSigMacintosh = $4150504C, // 'APPL'
|
||
|
|
cmsSigMicrosoft = $4D534654, // 'MSFT'
|
||
|
|
cmsSigSolaris = $53554E57, // 'SUNW'
|
||
|
|
cmsSigSGI = $53474920, // 'SGI '
|
||
|
|
cmsSigTaligent = $54474E54, // 'TGNT'
|
||
|
|
cmsSigUnices = $2A6E6978 // '*nix' // From argyll -- Not official
|
||
|
|
);
|
||
|
|
|
||
|
|
CONST
|
||
|
|
|
||
|
|
// Reference gamut
|
||
|
|
cmsSigPerceptualReferenceMediumGamut = $70726d67; //'prmg'
|
||
|
|
|
||
|
|
// For cmsSigColorimetricIntentImageStateTag
|
||
|
|
cmsSigSceneColorimetryEstimates = $73636F65; //'scoe'
|
||
|
|
cmsSigSceneAppearanceEstimates = $73617065; //'sape'
|
||
|
|
cmsSigFocalPlaneColorimetryEstimates = $66706365; //'fpce'
|
||
|
|
cmsSigReflectionHardcopyOriginalColorimetry = $72686F63; //'rhoc'
|
||
|
|
cmsSigReflectionPrintOutputColorimetry = $72706F63; //'rpoc'
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
|
||
|
|
// Multi process elements types
|
||
|
|
cmsStageSignature = (
|
||
|
|
cmsSigCurveSetElemType = $63767374, //'cvst'
|
||
|
|
cmsSigMatrixElemType = $6D617466, //'matf'
|
||
|
|
cmsSigCLutElemType = $636C7574, //'clut'
|
||
|
|
|
||
|
|
cmsSigBAcsElemType = $62414353, // 'bACS'
|
||
|
|
cmsSigEAcsElemType = $65414353, // 'eACS'
|
||
|
|
|
||
|
|
// Custom from here, not in the ICC Spec
|
||
|
|
cmsSigXYZ2LabElemType = $6C327820, // 'l2x '
|
||
|
|
cmsSigLab2XYZElemType = $78326C20, // 'x2l '
|
||
|
|
cmsSigNamedColorElemType = $6E636C20, // 'ncl '
|
||
|
|
cmsSigLabV2toV4 = $32203420, // '2 4 '
|
||
|
|
cmsSigLabV4toV2 = $34203220, // '4 2 '
|
||
|
|
|
||
|
|
// Identities
|
||
|
|
cmsSigIdentityElemType = $69646E20 // 'idn '
|
||
|
|
);
|
||
|
|
|
||
|
|
// Types of CurveElements
|
||
|
|
cmsCurveSegSignature = (
|
||
|
|
|
||
|
|
cmsSigFormulaCurveSeg = $70617266, // 'parf'
|
||
|
|
cmsSigSampledCurveSeg = $73616D66, // 'samf'
|
||
|
|
cmsSigSegmentedCurve = $63757266 // 'curf'
|
||
|
|
);
|
||
|
|
|
||
|
|
CONST
|
||
|
|
|
||
|
|
// Used in ResponseCurveType
|
||
|
|
cmsSigStatusA = $53746141; //'StaA'
|
||
|
|
cmsSigStatusE = $53746145; //'StaE'
|
||
|
|
cmsSigStatusI = $53746149; //'StaI'
|
||
|
|
cmsSigStatusT = $53746154; //'StaT'
|
||
|
|
cmsSigStatusM = $5374614D; //'StaM'
|
||
|
|
cmsSigDN = $444E2020; //'DN '
|
||
|
|
cmsSigDNP = $444E2050; //'DN P'
|
||
|
|
cmsSigDNN = $444E4E20; //'DNN '
|
||
|
|
cmsSigDNNP = $444E4E50; //'DNNP'
|
||
|
|
|
||
|
|
// Device attributes, currently defined values correspond to the low 4 bytes
|
||
|
|
// of the 8 byte attribute quantity
|
||
|
|
cmsReflective = 0;
|
||
|
|
cmsTransparency = 1;
|
||
|
|
cmsGlossy = 0;
|
||
|
|
cmsMatte = 2;
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
|
||
|
|
// Common structures in ICC tags
|
||
|
|
cmsICCData = PACKED RECORD
|
||
|
|
len : cmsUInt32Number;
|
||
|
|
flag : cmsUInt32Number;
|
||
|
|
data : Array [0..1] of cmsUInt8Number;
|
||
|
|
END;
|
||
|
|
|
||
|
|
// ICC date time
|
||
|
|
cmsDateTimeNumber = PACKED RECORD
|
||
|
|
year: cmsUInt16Number;
|
||
|
|
month: cmsUInt16Number;
|
||
|
|
day: cmsUInt16Number;
|
||
|
|
hours: cmsUInt16Number;
|
||
|
|
minutes: cmsUInt16Number;
|
||
|
|
seconds: cmsUInt16Number;
|
||
|
|
END;
|
||
|
|
|
||
|
|
// ICC XYZ
|
||
|
|
|
||
|
|
cmsEncodedXYZNumber = PACKED RECORD
|
||
|
|
X: cmsS15Fixed16Number;
|
||
|
|
Y: cmsS15Fixed16Number;
|
||
|
|
Z: cmsS15Fixed16Number;
|
||
|
|
END;
|
||
|
|
|
||
|
|
|
||
|
|
// Profile ID as computed by MD5 algorithm
|
||
|
|
cmsProfileID = PACKED RECORD
|
||
|
|
CASE Integer OF
|
||
|
|
1: (ID8: Array[0..15] OF cmsUInt8Number);
|
||
|
|
2: (ID16: Array[0..7] OF cmsUInt16Number);
|
||
|
|
3: (ID32: Array[0..3] OF cmsUInt32Number);
|
||
|
|
END;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
// ----------------------------------------------------------------------------------------------
|
||
|
|
// ICC profile internal base types. Strictly, shouldn't be declared in this unit, but maybe
|
||
|
|
// somebody want to use this info for accessing profile header directly, so here it is.
|
||
|
|
|
||
|
|
// Profile header -- it is 32-bit aligned, so no issues are expected on alignment
|
||
|
|
cmsICCHeader = PACKED RECORD
|
||
|
|
size: cmsUInt32Number; // Profile size in bytes
|
||
|
|
cmmId: cmsSignature; // CMM for this profile
|
||
|
|
version: cmsUInt32Number; // Format version number
|
||
|
|
deviceClass: cmsProfileClassSignature; // Type of profile
|
||
|
|
colorSpace: cmsColorSpaceSignature; // Color space of data
|
||
|
|
pcs: cmsColorSpaceSignature; // PCS, XYZ or Lab only
|
||
|
|
date: cmsDateTimeNumber; // Date profile was created
|
||
|
|
magic: cmsSignature; // Magic Number to identify an ICC profile
|
||
|
|
platform: cmsPlatformSignature; // Primary Platform
|
||
|
|
flags: cmsUInt32Number; // Various bit settings
|
||
|
|
manufacturer: cmsSignature; // Device manufacturer
|
||
|
|
model: cmsUInt32Number; // Device model number
|
||
|
|
attributes: cmsUInt64Number; // Device attributes
|
||
|
|
renderingIntent:cmsUInt32Number; // Rendering intent
|
||
|
|
illuminant: cmsEncodedXYZNumber; // Profile illuminant
|
||
|
|
creator: cmsSignature; // Profile creator
|
||
|
|
profileID: cmsProfileID; // Profile ID using MD5
|
||
|
|
reserved: array [0..27] of cmsInt8Number; // Reserved for future use
|
||
|
|
END;
|
||
|
|
|
||
|
|
// ICC base tag
|
||
|
|
cmsTagBase = PACKED RECORD
|
||
|
|
sig: cmsTagTypeSignature;
|
||
|
|
reserved: array[0..3] of cmsInt8Number;
|
||
|
|
END;
|
||
|
|
|
||
|
|
// A tag entry in directory
|
||
|
|
cmsTagEntry = PACKED RECORD
|
||
|
|
sig: cmsTagSignature; // The tag signature
|
||
|
|
offset: cmsUInt32Number; // Start of tag
|
||
|
|
size: cmsUInt32Number; // Size in bytes
|
||
|
|
END;
|
||
|
|
|
||
|
|
|
||
|
|
cmsContext = Pointer; // Context identifier for multithreaded environments
|
||
|
|
cmsHANDLE = Pointer; // Generic handle
|
||
|
|
cmsHPROFILE = Pointer; // Opaque typedefs to hide internals
|
||
|
|
cmsHTRANSFORM = Pointer;
|
||
|
|
|
||
|
|
|
||
|
|
CONST
|
||
|
|
|
||
|
|
cmsMAXCHANNELS = 16; // Maximum number of channels in ICC profiles
|
||
|
|
|
||
|
|
// Format of pixel is defined by one cmsUInt32Number, using bit fields as follows
|
||
|
|
//
|
||
|
|
// A O TTTTT U Y F P X S EEE CCCC BBB
|
||
|
|
//
|
||
|
|
// A: Floating point -- With this flag we can differentiate 16 bits as float and as int
|
||
|
|
// O: Optimized -- previous optimization already returns the final 8-bit value
|
||
|
|
// T: Pixeltype
|
||
|
|
// F: Flavor 0=MinIsBlack(Chocolate) 1=MinIsWhite(Vanilla)
|
||
|
|
// P: Planar? 0=Chunky, 1=Planar
|
||
|
|
// X: swap 16 bps endianness?
|
||
|
|
// S: Do swap? ie, BGR, KYMC
|
||
|
|
// E: Extra samples
|
||
|
|
// C: Channels (Samples per pixel)
|
||
|
|
// B: bytes per sample
|
||
|
|
// Y: Swap first - changes ABGR to BGRA and KCMY to CMYK
|
||
|
|
|
||
|
|
FUNCTION FLOAT_SH(a: cmsUInt32Number): cmsUInt32Number;
|
||
|
|
FUNCTION OPTIMIZED_SH(s: cmsUInt32Number): cmsUInt32Number;
|
||
|
|
FUNCTION COLORSPACE_SH(s: cmsUInt32Number):cmsUInt32Number;
|
||
|
|
FUNCTION SWAPFIRST_SH(s: cmsUInt32Number):cmsUInt32Number;
|
||
|
|
FUNCTION FLAVOR_SH(s: cmsUInt32Number):cmsUInt32Number;
|
||
|
|
FUNCTION PLANAR_SH(p: cmsUInt32Number):cmsUInt32Number;
|
||
|
|
FUNCTION ENDIAN16_SH(e: cmsUInt32Number):cmsUInt32Number;
|
||
|
|
FUNCTION DOSWAP_SH(e: cmsUInt32Number):cmsUInt32Number;
|
||
|
|
FUNCTION EXTRA_SH(e: cmsUInt32Number):cmsUInt32Number;
|
||
|
|
FUNCTION CHANNELS_SH(c: cmsUInt32Number):cmsUInt32Number;
|
||
|
|
FUNCTION BYTES_SH(b: cmsUInt32Number):cmsUInt32Number;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION T_FLOAT(a: cmsUInt32Number): cmsUInt32Number;
|
||
|
|
FUNCTION T_OPTIMIZED(o: cmsUInt32Number): cmsUInt32Number;
|
||
|
|
FUNCTION T_COLORSPACE(s: cmsUInt32Number): cmsUInt32Number;
|
||
|
|
FUNCTION T_SWAPFIRST(s: cmsUInt32Number): cmsUInt32Number;
|
||
|
|
FUNCTION T_FLAVOR(s: cmsUInt32Number): cmsUInt32Number;
|
||
|
|
FUNCTION T_PLANAR(p: cmsUInt32Number): cmsUInt32Number;
|
||
|
|
FUNCTION T_ENDIAN16(e: cmsUInt32Number): cmsUInt32Number;
|
||
|
|
FUNCTION T_DOSWAP(e: cmsUInt32Number): cmsUInt32Number;
|
||
|
|
FUNCTION T_EXTRA(e: cmsUInt32Number): cmsUInt32Number;
|
||
|
|
FUNCTION T_CHANNELS(c: cmsUInt32Number): cmsUInt32Number;
|
||
|
|
FUNCTION T_BYTES(b: cmsUInt32Number): cmsUInt32Number;
|
||
|
|
|
||
|
|
CONST
|
||
|
|
|
||
|
|
|
||
|
|
// Pixel types
|
||
|
|
|
||
|
|
PT_ANY = 0; // Don't check colorspace
|
||
|
|
// 1 & 2 are reserved
|
||
|
|
PT_GRAY = 3;
|
||
|
|
PT_RGB = 4;
|
||
|
|
PT_CMY = 5;
|
||
|
|
PT_CMYK = 6;
|
||
|
|
PT_YCbCr = 7;
|
||
|
|
PT_YUV = 8; // Lu'v'
|
||
|
|
PT_XYZ = 9;
|
||
|
|
PT_Lab = 10;
|
||
|
|
PT_YUVK = 11; // Lu'v'K
|
||
|
|
PT_HSV = 12;
|
||
|
|
PT_HLS = 13;
|
||
|
|
PT_Yxy = 14;
|
||
|
|
|
||
|
|
PT_MCH1 = 15;
|
||
|
|
PT_MCH2 = 16;
|
||
|
|
PT_MCH3 = 17;
|
||
|
|
PT_MCH4 = 18;
|
||
|
|
PT_MCH5 = 19;
|
||
|
|
PT_MCH6 = 20;
|
||
|
|
PT_MCH7 = 21;
|
||
|
|
PT_MCH8 = 22;
|
||
|
|
PT_MCH9 = 23;
|
||
|
|
PT_MCH10 = 24;
|
||
|
|
PT_MCH11 = 25;
|
||
|
|
PT_MCH12 = 26;
|
||
|
|
PT_MCH13 = 27;
|
||
|
|
PT_MCH14 = 28;
|
||
|
|
PT_MCH15 = 29;
|
||
|
|
|
||
|
|
PT_LabV2 = 30; // Identical to PT_Lab, but using the V2 old encoding
|
||
|
|
|
||
|
|
|
||
|
|
// Format descriptors
|
||
|
|
TYPE_GRAY_8 = $030009;
|
||
|
|
TYPE_GRAY_8_REV = $032009;
|
||
|
|
TYPE_GRAY_16 = $03000a;
|
||
|
|
TYPE_GRAY_16_REV = $03200a;
|
||
|
|
TYPE_GRAY_16_SE = $03080a;
|
||
|
|
TYPE_GRAYA_8 = $030089;
|
||
|
|
TYPE_GRAYA_16 = $03008a;
|
||
|
|
TYPE_GRAYA_16_SE = $03088a;
|
||
|
|
TYPE_GRAYA_8_PLANAR = $031089;
|
||
|
|
TYPE_GRAYA_16_PLANAR = $03108a;
|
||
|
|
TYPE_RGB_8 = $040019;
|
||
|
|
TYPE_RGB_8_PLANAR = $041019;
|
||
|
|
TYPE_BGR_8 = $040419;
|
||
|
|
TYPE_BGR_8_PLANAR = $041419;
|
||
|
|
TYPE_RGB_16 = $04001a;
|
||
|
|
TYPE_RGB_16_PLANAR = $04101a;
|
||
|
|
TYPE_RGB_16_SE = $04081a;
|
||
|
|
TYPE_BGR_16 = $04041a;
|
||
|
|
TYPE_BGR_16_PLANAR = $04141a;
|
||
|
|
TYPE_BGR_16_SE = $040c1a;
|
||
|
|
TYPE_RGBA_8 = $040099;
|
||
|
|
TYPE_RGBA_8_PLANAR = $041099;
|
||
|
|
TYPE_ARGB_8_PLANAR = $045099;
|
||
|
|
TYPE_ABGR_8_PLANAR = $041499;
|
||
|
|
TYPE_BGRA_8_PLANAR = $045499;
|
||
|
|
TYPE_RGBA_16 = $04009a;
|
||
|
|
TYPE_RGBA_16_PLANAR = $04109a;
|
||
|
|
TYPE_RGBA_16_SE = $04089a;
|
||
|
|
TYPE_ARGB_8 = $044099;
|
||
|
|
TYPE_ARGB_16 = $04409a;
|
||
|
|
TYPE_ABGR_8 = $040499;
|
||
|
|
TYPE_ABGR_16 = $04049a;
|
||
|
|
TYPE_ABGR_16_PLANAR = $04149a;
|
||
|
|
TYPE_ABGR_16_SE = $040c9a;
|
||
|
|
TYPE_BGRA_8 = $044499;
|
||
|
|
TYPE_BGRA_16 = $04449a;
|
||
|
|
TYPE_BGRA_16_SE = $04489a;
|
||
|
|
TYPE_CMY_8 = $050019;
|
||
|
|
TYPE_CMY_8_PLANAR = $051019;
|
||
|
|
TYPE_CMY_16 = $05001a;
|
||
|
|
TYPE_CMY_16_PLANAR = $05101a;
|
||
|
|
TYPE_CMY_16_SE = $05081a;
|
||
|
|
TYPE_CMYK_8 = $060021;
|
||
|
|
TYPE_CMYKA_8 = $0600a1;
|
||
|
|
TYPE_CMYK_8_REV = $062021;
|
||
|
|
TYPE_YUVK_8 = $062021;
|
||
|
|
TYPE_CMYK_8_PLANAR = $061021;
|
||
|
|
TYPE_CMYK_16 = $060022;
|
||
|
|
TYPE_CMYK_16_REV = $062022;
|
||
|
|
TYPE_YUVK_16 = $062022;
|
||
|
|
TYPE_CMYK_16_PLANAR = $061022;
|
||
|
|
TYPE_CMYK_16_SE = $060822;
|
||
|
|
TYPE_KYMC_8 = $060421;
|
||
|
|
TYPE_KYMC_16 = $060422;
|
||
|
|
TYPE_KYMC_16_SE = $060c22;
|
||
|
|
TYPE_KCMY_8 = $064021;
|
||
|
|
TYPE_KCMY_8_REV = $066021;
|
||
|
|
TYPE_KCMY_16 = $064022;
|
||
|
|
TYPE_KCMY_16_REV = $066022;
|
||
|
|
TYPE_KCMY_16_SE = $064822;
|
||
|
|
TYPE_CMYK5_8 = $130029;
|
||
|
|
TYPE_CMYK5_16 = $13002a;
|
||
|
|
TYPE_CMYK5_16_SE = $13082a;
|
||
|
|
TYPE_KYMC5_8 = $130429;
|
||
|
|
TYPE_KYMC5_16 = $13042a;
|
||
|
|
TYPE_KYMC5_16_SE = $130c2a;
|
||
|
|
TYPE_CMYK6_8 = $140031;
|
||
|
|
TYPE_CMYK6_8_PLANAR = $141031;
|
||
|
|
TYPE_CMYK6_16 = $140032;
|
||
|
|
TYPE_CMYK6_16_PLANAR = $141032;
|
||
|
|
TYPE_CMYK6_16_SE = $140832;
|
||
|
|
TYPE_CMYK7_8 = $150039;
|
||
|
|
TYPE_CMYK7_16 = $15003a;
|
||
|
|
TYPE_CMYK7_16_SE = $15083a;
|
||
|
|
TYPE_KYMC7_8 = $150439;
|
||
|
|
TYPE_KYMC7_16 = $15043a;
|
||
|
|
TYPE_KYMC7_16_SE = $150c3a;
|
||
|
|
TYPE_CMYK8_8 = $160041;
|
||
|
|
TYPE_CMYK8_16 = $160042;
|
||
|
|
TYPE_CMYK8_16_SE = $160842;
|
||
|
|
TYPE_KYMC8_8 = $160441;
|
||
|
|
TYPE_KYMC8_16 = $160442;
|
||
|
|
TYPE_KYMC8_16_SE = $160c42;
|
||
|
|
TYPE_CMYK9_8 = $170049;
|
||
|
|
TYPE_CMYK9_16 = $17004a;
|
||
|
|
TYPE_CMYK9_16_SE = $17084a;
|
||
|
|
TYPE_KYMC9_8 = $170449;
|
||
|
|
TYPE_KYMC9_16 = $17044a;
|
||
|
|
TYPE_KYMC9_16_SE = $170c4a;
|
||
|
|
TYPE_CMYK10_8 = $180051;
|
||
|
|
TYPE_CMYK10_16 = $180052;
|
||
|
|
TYPE_CMYK10_16_SE = $180852;
|
||
|
|
TYPE_KYMC10_8 = $180451;
|
||
|
|
TYPE_KYMC10_16 = $180452;
|
||
|
|
TYPE_KYMC10_16_SE = $180c52;
|
||
|
|
TYPE_CMYK11_8 = $190059;
|
||
|
|
TYPE_CMYK11_16 = $19005a;
|
||
|
|
TYPE_CMYK11_16_SE = $19085a;
|
||
|
|
TYPE_KYMC11_8 = $190459;
|
||
|
|
TYPE_KYMC11_16 = $19045a;
|
||
|
|
TYPE_KYMC11_16_SE = $190c5a;
|
||
|
|
TYPE_CMYK12_8 = $1a0061;
|
||
|
|
TYPE_CMYK12_16 = $1a0062;
|
||
|
|
TYPE_CMYK12_16_SE = $1a0862;
|
||
|
|
TYPE_KYMC12_8 = $1a0461;
|
||
|
|
TYPE_KYMC12_16 = $1a0462;
|
||
|
|
TYPE_KYMC12_16_SE = $1a0c62;
|
||
|
|
TYPE_XYZ_16 = $09001a;
|
||
|
|
TYPE_Lab_8 = $0a0019;
|
||
|
|
TYPE_ALab_8 = $0a0499;
|
||
|
|
TYPE_Lab_16 = $0a001a;
|
||
|
|
TYPE_Yxy_16 = $0e001a;
|
||
|
|
TYPE_YCbCr_8 = $070019;
|
||
|
|
TYPE_YCbCr_8_PLANAR = $071019;
|
||
|
|
TYPE_YCbCr_16 = $07001a;
|
||
|
|
TYPE_YCbCr_16_PLANAR = $07101a;
|
||
|
|
TYPE_YCbCr_16_SE = $07081a;
|
||
|
|
TYPE_YUV_8 = $080019;
|
||
|
|
TYPE_YUV_8_PLANAR = $081019;
|
||
|
|
TYPE_YUV_16 = $08001a;
|
||
|
|
TYPE_YUV_16_PLANAR = $08101a;
|
||
|
|
TYPE_YUV_16_SE = $08081a;
|
||
|
|
TYPE_HLS_8 = $0d0019;
|
||
|
|
TYPE_HLS_8_PLANAR = $0d1019;
|
||
|
|
TYPE_HLS_16 = $0d001a;
|
||
|
|
TYPE_HLS_16_PLANAR = $0d101a;
|
||
|
|
TYPE_HLS_16_SE = $0d081a;
|
||
|
|
TYPE_HSV_8 = $0c0019;
|
||
|
|
TYPE_HSV_8_PLANAR = $0c1019;
|
||
|
|
TYPE_HSV_16 = $0c001a;
|
||
|
|
TYPE_HSV_16_PLANAR = $0c101a;
|
||
|
|
TYPE_HSV_16_SE = $0c081a;
|
||
|
|
|
||
|
|
TYPE_NAMED_COLOR_INDEX = $000A;
|
||
|
|
|
||
|
|
TYPE_XYZ_FLT = $49001c;
|
||
|
|
TYPE_Lab_FLT = $4a001c;
|
||
|
|
TYPE_GRAY_FLT = $43000c;
|
||
|
|
TYPE_RGB_FLT = $44001c;
|
||
|
|
TYPE_CMYK_FLT = $460024;
|
||
|
|
TYPE_XYZA_FLT = $49009c;
|
||
|
|
TYPE_LabA_FLT = $4a009c;
|
||
|
|
TYPE_RGBA_FLT = $44009c;
|
||
|
|
|
||
|
|
TYPE_XYZ_DBL = $490018;
|
||
|
|
TYPE_Lab_DBL = $4a0018;
|
||
|
|
TYPE_GRAY_DBL = $430008;
|
||
|
|
TYPE_RGB_DBL = $440018;
|
||
|
|
TYPE_CMYK_DBL = $460020;
|
||
|
|
TYPE_LabV2_8 = $1e0019;
|
||
|
|
TYPE_ALabV2_8 = $1e0499;
|
||
|
|
TYPE_LabV2_16 = $1e001a;
|
||
|
|
|
||
|
|
TYPE_GRAY_HALF_FLT = $43000a;
|
||
|
|
TYPE_RGB_HALF_FLT = $44001a;
|
||
|
|
TYPE_RGBA_HALF_FLT = $44009a;
|
||
|
|
TYPE_CMYK_HALF_FLT = $460022;
|
||
|
|
|
||
|
|
TYPE_ARGB_HALF_FLT = $44409a;
|
||
|
|
TYPE_BGR_HALF_FLT = $44041a;
|
||
|
|
TYPE_BGRA_HALF_FLT = $44449a;
|
||
|
|
TYPE_ABGR_HALF_FLT = $44041a;
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
|
||
|
|
|
||
|
|
// Colorimetric spaces
|
||
|
|
|
||
|
|
cmsCIEXYZ = PACKED RECORD
|
||
|
|
X, Y, Z : cmsFloat64Number;
|
||
|
|
END;
|
||
|
|
LPcmsCIEXYZ = ^cmsCIEXYZ;
|
||
|
|
|
||
|
|
cmsCIExyY = PACKED RECORD
|
||
|
|
x, y, YY : cmsFloat64Number
|
||
|
|
END;
|
||
|
|
LPcmsCIExyY = ^cmsCIEXYY;
|
||
|
|
|
||
|
|
cmsCIELab = PACKED RECORD
|
||
|
|
L, a, b: cmsFloat64Number
|
||
|
|
END;
|
||
|
|
LPcmsCIELab = ^cmsCIELab;
|
||
|
|
|
||
|
|
cmsCIELCh = PACKED RECORD
|
||
|
|
L, C, h : cmsFloat64Number
|
||
|
|
END;
|
||
|
|
LPcmsCIELCh = ^cmsCIELCh;
|
||
|
|
|
||
|
|
cmsJCh = PACKED RECORD
|
||
|
|
J, C, h : cmsFloat64Number
|
||
|
|
END;
|
||
|
|
LPcmsJCh = ^cmsJCH;
|
||
|
|
|
||
|
|
|
||
|
|
cmsCIEXYZTRIPLE = PACKED RECORD
|
||
|
|
Red, Green, Blue : cmsCIEXYZ
|
||
|
|
END;
|
||
|
|
LPcmsCIEXYZTRIPLE = ^cmsCIEXYZTRIPLE;
|
||
|
|
|
||
|
|
|
||
|
|
cmsCIExyYTRIPLE = PACKED RECORD
|
||
|
|
Red, Green, Blue : cmsCIExyY
|
||
|
|
END;
|
||
|
|
LPcmsCIExyYTRIPLE = ^cmsCIExyYTRIPLE;
|
||
|
|
|
||
|
|
|
||
|
|
CONST
|
||
|
|
|
||
|
|
// Illuminant types for structs below
|
||
|
|
cmsILLUMINANT_TYPE_UNKNOWN = $0000000;
|
||
|
|
cmsILLUMINANT_TYPE_D50 = $0000001;
|
||
|
|
cmsILLUMINANT_TYPE_D65 = $0000002;
|
||
|
|
cmsILLUMINANT_TYPE_D93 = $0000003;
|
||
|
|
cmsILLUMINANT_TYPE_F2 = $0000004;
|
||
|
|
cmsILLUMINANT_TYPE_D55 = $0000005;
|
||
|
|
cmsILLUMINANT_TYPE_A = $0000006;
|
||
|
|
cmsILLUMINANT_TYPE_E = $0000007;
|
||
|
|
cmsILLUMINANT_TYPE_F8 = $0000008;
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
|
||
|
|
cmsICCMeasurementConditions = PACKED RECORD
|
||
|
|
|
||
|
|
Observer: cmsUInt32Number; // 0 = unknown, 1=CIE 1931, 2=CIE 1964
|
||
|
|
Backing: cmsCIEXYZ; // Value of backing
|
||
|
|
Geometry: cmsUInt32Number; // 0=unknown, 1=45/0, 0/45 2=0d, d/0
|
||
|
|
Flare: cmsFloat64Number; // 0..1.0
|
||
|
|
IlluminantType: cmsUInt32Number;
|
||
|
|
|
||
|
|
END;
|
||
|
|
|
||
|
|
cmsICCViewingConditions = PACKED RECORD
|
||
|
|
IlluminantXYZ: cmsCIEXYZ; // Not the same struct as CAM02,
|
||
|
|
SurroundXYZ: cmsCIEXYZ; // This is for storing the tag
|
||
|
|
IlluminantType: cmsUInt32Number; // viewing condition
|
||
|
|
END;
|
||
|
|
|
||
|
|
|
||
|
|
// Context --------------------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
FUNCTION cmsCreateContext(Plugin : Pointer; UserData : Pointer) : cmsContext; StdCall;
|
||
|
|
PROCEDURE cmsDeleteContext(ContextID: cmsContext); StdCall;
|
||
|
|
FUNCTION cmsDupContext(ContextID: cmsContext; NewUserData: Pointer): cmsContext; StdCall;
|
||
|
|
FUNCTION cmsGetContextUserData(ContextID: cmsContext): Pointer; StdCall;
|
||
|
|
|
||
|
|
// Plug-In registering ---------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
FUNCTION cmsPlugin(Plugin: Pointer): cmsBool; StdCall;
|
||
|
|
PROCEDURE cmsUnregisterPlugins; StdCall;
|
||
|
|
|
||
|
|
// Error logging ----------------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
// There is no error handling at all. When a function fails, it returns proper value.
|
||
|
|
// For example, all create functions does return NULL on failure. Other may return FALSE.
|
||
|
|
// It may be interesting, for the developer, to know why the function is failing.
|
||
|
|
// for that reason, lcms2 does offer a logging function. This function will get
|
||
|
|
// an ENGLISH string with some clues on what is going wrong. You can show this
|
||
|
|
// info to the end user if you wish, or just create some sort of log on disk.
|
||
|
|
// The logging function should NOT terminate the program, as this obviously can leave
|
||
|
|
// unfreed resources. It is the programmer's responsibility to check each function
|
||
|
|
// return code to make sure it didn't fail.
|
||
|
|
|
||
|
|
CONST
|
||
|
|
|
||
|
|
cmsERROR_UNDEFINED = 0;
|
||
|
|
cmsERROR_FILE = 1;
|
||
|
|
cmsERROR_RANGE = 2;
|
||
|
|
cmsERROR_INTERNAL = 3;
|
||
|
|
cmsERROR_NULL = 4;
|
||
|
|
cmsERROR_READ = 5;
|
||
|
|
cmsERROR_SEEK = 6;
|
||
|
|
cmsERROR_WRITE = 7;
|
||
|
|
cmsERROR_UNKNOWN_EXTENSION = 8;
|
||
|
|
cmsERROR_COLORSPACE_CHECK = 9;
|
||
|
|
cmsERROR_ALREADY_DEFINED = 10;
|
||
|
|
cmsERROR_BAD_SIGNATURE = 11;
|
||
|
|
cmsERROR_CORRUPTION_DETECTED = 12;
|
||
|
|
cmsERROR_NOT_SUITABLE = 13;
|
||
|
|
|
||
|
|
// Error logger is called with the ContextID when a message is raised. This gives the
|
||
|
|
// chance to know which thread is responsible of the warning and any environment associated
|
||
|
|
// with it. Non-multithreading applications may safely ignore this parameter.
|
||
|
|
// Note that under certain special circumstances, ContextID may be NULL.
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
|
||
|
|
cmsLogErrorHandlerFunction = PROCEDURE( ContextID: cmsContext; ErrorCode: cmsUInt32Number; Text: PAnsiChar); CDecl;
|
||
|
|
|
||
|
|
// Allows user to set any specific logger
|
||
|
|
PROCEDURE cmsSetLogErrorHandler(Fn: cmsLogErrorHandlerFunction); StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
// Conversions --------------------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
|
||
|
|
// Returns pointers to constant structs
|
||
|
|
FUNCTION cmsD50_XYZ: LPcmsCIEXYZ; StdCall;
|
||
|
|
FUNCTION cmsD50_xyY: LPcmsCIExyY; StdCall;
|
||
|
|
|
||
|
|
// Colorimetric space conversions
|
||
|
|
PROCEDURE cmsXYZ2xyY(Dest: LPcmsCIExyY; Source: LPcmsCIEXYZ); StdCall;
|
||
|
|
PROCEDURE cmsxyY2XYZ(Dest: LPcmsCIEXYZ; Source: LPcmsCIExyY); StdCall;
|
||
|
|
PROCEDURE cmsLab2XYZ(WhitePoint: LPcmsCIEXYZ; xyz: LPcmsCIEXYZ; Lab: LPcmsCIELab); StdCall;
|
||
|
|
PROCEDURE cmsXYZ2Lab(WhitePoint: LPcmsCIEXYZ; Lab: LPcmsCIELab; xyz: LPcmsCIEXYZ); StdCall;
|
||
|
|
PROCEDURE cmsLab2LCh(LCh: LPcmsCIELCh; Lab: LPcmsCIELab); StdCall;
|
||
|
|
PROCEDURE cmsLCh2Lab(Lab: LPcmsCIELab; LCh: LPcmsCIELCh); StdCall;
|
||
|
|
|
||
|
|
// Encoding /Decoding on PCS
|
||
|
|
PROCEDURE cmsLabEncoded2Float(Lab: LPcmsCIELab; wLab: Pointer); StdCall;
|
||
|
|
PROCEDURE cmsLabEncoded2FloatV2(Lab: LPcmsCIELab; wLab: Pointer); StdCall;
|
||
|
|
PROCEDURE cmsFloat2LabEncoded(wLab: Pointer; Lab: LPcmsCIELab); StdCall;
|
||
|
|
PROCEDURE cmsFloat2LabEncodedV2(wLab: Pointer; Lab: LPcmsCIELab); StdCall;
|
||
|
|
PROCEDURE cmsXYZEncoded2Float(fxyz : LPcmsCIEXYZ; XYZ: Pointer); StdCall;
|
||
|
|
PROCEDURE cmsFloat2XYZEncoded(XYZ: Pointer; fXYZ: LPcmsCIEXYZ); StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
// DeltaE metrics
|
||
|
|
FUNCTION cmsDeltaE(Lab1, Lab2: LPcmsCIELab): Double; StdCall;
|
||
|
|
FUNCTION cmsCIE94DeltaE(Lab1, Lab2: LPcmsCIELab): Double; StdCall;
|
||
|
|
FUNCTION cmsBFDdeltaE(Lab1, Lab2: LPcmsCIELab): Double; StdCall;
|
||
|
|
FUNCTION cmsCMCdeltaE(Lab1, Lab2: LPcmsCIELab): Double; StdCall;
|
||
|
|
FUNCTION cmsCIE2000DeltaE(Lab1, Lab2: LPcmsCIELab; Kl, Kc, Kh: Double): Double; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
// Temperature <-> Chromaticity (Black body)
|
||
|
|
FUNCTION cmsWhitePointFromTemp(var WhitePoint: cmsCIExyY; TempK: cmsFloat64Number) : cmsBool; StdCall;
|
||
|
|
FUNCTION cmsTempFromWhitePoint(var TeampK: cmsFloat64Number; var WhitePoint: cmsCIExyY) : cmsBool; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
// Chromatic adaptation
|
||
|
|
FUNCTION cmsAdaptToIlluminant(Result: LPcmsCIEXYZ; SourceWhitePt: LPcmsCIEXYZ;
|
||
|
|
Illuminant: LPcmsCIEXYZ; Value: LPcmsCIEXYZ): cmsBool; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
// CIECAM02 ---------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
// Viewing conditions. Please note those are CAM model viewing conditions, and not the ICC tag viewing
|
||
|
|
// conditions, which I'm naming cmsICCViewingConditions to make differences evident. Unfortunately, the tag
|
||
|
|
// cannot deal with surround La, Yb and D value so is basically useless to store CAM02 viewing conditions.
|
||
|
|
|
||
|
|
CONST
|
||
|
|
|
||
|
|
AVG_SURROUND = 1;
|
||
|
|
DIM_SURROUND = 2;
|
||
|
|
DARK_SURROUND = 3;
|
||
|
|
CUTSHEET_SURROUND = 4;
|
||
|
|
|
||
|
|
D_CALCULATE = -1;
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
|
||
|
|
cmsViewingConditions = PACKED RECORD
|
||
|
|
|
||
|
|
WhitePoint: cmsCIEXYZ;
|
||
|
|
Yb : cmsFloat64Number;
|
||
|
|
La : cmsFloat64Number;
|
||
|
|
surround : Integer;
|
||
|
|
D_value : cmsFloat64Number
|
||
|
|
END;
|
||
|
|
|
||
|
|
|
||
|
|
LPcmsViewingConditions = ^cmsViewingConditions;
|
||
|
|
|
||
|
|
FUNCTION cmsCIECAM02Init(pVC : LPcmsViewingConditions ) : Pointer; StdCall;
|
||
|
|
PROCEDURE cmsCIECAM02Done(hModel : Pointer); StdCall;
|
||
|
|
PROCEDURE cmsCIECAM02Forward(hModel: Pointer; pIn: LPcmsCIEXYZ; pOut: LPcmsJCh ); StdCall;
|
||
|
|
PROCEDURE cmsCIECAM02Reverse(hModel: Pointer; pIn: LPcmsJCh; pOut: LPcmsCIEXYZ ); StdCall;
|
||
|
|
|
||
|
|
// Tone curves -----------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
// This describes a curve segment. For a table of supported types, see the manual. User can increase the number of
|
||
|
|
// available types by using a proper plug-in. Parametric segments allow 10 parameters at most
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
cmsCurveSegment = PACKED RECORD
|
||
|
|
x0, x1: cmsFloat32Number; // Domain; for x0 < x <= x1
|
||
|
|
PType: cmsInt32Number; // Parametric type, Type == 0 means sampled segment. Negative values are reserved
|
||
|
|
Params: array [0..9] of cmsFloat64Number; // Parameters if Type != 0
|
||
|
|
nGridPoints: cmsUInt32Number; // Number of grid points if Type == 0
|
||
|
|
SampledPoints: LPcmsFloat32Number; // Points to an array of floats if Type == 0
|
||
|
|
END;
|
||
|
|
|
||
|
|
LPcmsToneCurve = Pointer;
|
||
|
|
LPcmsCurveSegmentArray = ^cmsCurveSegmentArray;
|
||
|
|
cmsCurveSegmentArray = array[0..0] of cmsCurveSegment;
|
||
|
|
|
||
|
|
LPcmsFloat64NumberArray = ^cmsFloat64NumberArray;
|
||
|
|
cmsFloat64NumberArray = array[0..0] of cmsFloat64Number;
|
||
|
|
|
||
|
|
LPcmsUInt16NumberArray = ^cmsUInt16NumberArray;
|
||
|
|
cmsUInt16NumberArray = array[0..0] of cmsUInt16Number;
|
||
|
|
|
||
|
|
LPcmsFloat32NumberArray = ^cmsFloat32NumberArray;
|
||
|
|
cmsFloat32NumberArray = array[0..0] of cmsFloat32Number;
|
||
|
|
|
||
|
|
LPLPcmsToneCurveArray = ^LPcmsToneCurveArray;
|
||
|
|
LPcmsToneCurveArray = array[0..0] of LPcmsToneCurve;
|
||
|
|
|
||
|
|
LPcmsUInt32NumberArray = ^cmsUInt32NumberArray;
|
||
|
|
cmsUInt32NumberArray = array[0..0] of cmsUInt32Number;
|
||
|
|
|
||
|
|
FUNCTION cmsBuildSegmentedToneCurve(ContextID: cmsContext; nSegments: cmsInt32Number; Segments: LPcmsCurveSegmentArray): LPcmsToneCurve; StdCall;
|
||
|
|
FUNCTION cmsBuildParametricToneCurve(ContextID: cmsContext; CType: cmsInt32Number; Params: LPcmsFloat64NumberArray): LPcmsToneCurve; StdCall;
|
||
|
|
FUNCTION cmsBuildGamma(ContextID: cmsContext; Gamma: cmsFloat64Number): LPcmsToneCurve; StdCall;
|
||
|
|
FUNCTION cmsBuildTabulatedToneCurve16(ContextID: cmsContext; nEntries: cmsInt32Number; values: LPcmsUInt16NumberArray): LPcmsToneCurve; StdCall;
|
||
|
|
FUNCTION cmsBuildTabulatedToneCurveFloat(ContextID: cmsContext; nEntries: cmsUInt32Number; values: LPcmsFloat32NumberArray): LPcmsToneCurve; StdCall;
|
||
|
|
PROCEDURE cmsFreeToneCurve(Curve: LPcmsToneCurve); StdCall;
|
||
|
|
PROCEDURE cmsFreeToneCurveTriple(Curve: LPLPcmsToneCurveArray); StdCall;
|
||
|
|
FUNCTION cmsDupToneCurve(Src: LPcmsToneCurve): LPcmsToneCurve; StdCall;
|
||
|
|
FUNCTION cmsReverseToneCurve(InGamma: LPcmsToneCurve): LPcmsToneCurve; StdCall;
|
||
|
|
FUNCTION cmsReverseToneCurveEx(nResultSamples: cmsInt32Number; InGamma: LPcmsToneCurve): LPcmsToneCurve; StdCall;
|
||
|
|
FUNCTION cmsJoinToneCurve(ContextID: cmsContext; X, Y: LPcmsToneCurve; nPoints: cmsUInt32Number ): LPcmsToneCurve; StdCall;
|
||
|
|
FUNCTION cmsSmoothToneCurve(Tab: LPcmsToneCurve; lambda: cmsFloat64Number): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsEvalToneCurveFloat(Curve: LPcmsToneCurve; v: cmsFloat32Number):cmsFloat32Number; StdCall;
|
||
|
|
FUNCTION cmsEvalToneCurve16(Curve: LPcmsToneCurve; v:cmsUInt16Number):cmsUInt16Number; StdCall;
|
||
|
|
FUNCTION cmsIsToneCurveMultisegment(InGamma: LPcmsToneCurve):cmsBool; StdCall;
|
||
|
|
FUNCTION cmsIsToneCurveLinear(Curve: LPcmsToneCurve):cmsBool; StdCall;
|
||
|
|
FUNCTION cmsIsToneCurveMonotonic(t: LPcmsToneCurve):cmsBool; StdCall;
|
||
|
|
FUNCTION cmsIsToneCurveDescending(t: LPcmsToneCurve):cmsBool; StdCall;
|
||
|
|
FUNCTION cmsGetToneCurveParametricType(t: LPcmsToneCurve):cmsInt32Number; StdCall;
|
||
|
|
FUNCTION cmsEstimateGamma(t: LPcmsToneCurve; Precision:cmsFloat64Number):cmsFloat64Number; StdCall;
|
||
|
|
FUNCTION cmsGetToneCurveEstimatedTableEntries(t: LPcmsToneCurve): cmsUInt32Number; StdCall;
|
||
|
|
FUNCTION cmsGetToneCurveEstimatedTable(t: LPcmsToneCurve): LPcmsUInt16Number; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
// Implements pipelines of multi-processing elements -------------------------------------------------------------
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
LPcmsPipeline = Pointer;
|
||
|
|
LPcmsStage = Pointer;
|
||
|
|
LPLPcmsStage = ^LPcmsStage;
|
||
|
|
|
||
|
|
// Those are hi-level pipelines
|
||
|
|
FUNCTION cmsPipelineAlloc(ContextID: cmsContext; InputChannels, OutputChannels: cmsUInt32Number): LPcmsPipeline; StdCall;
|
||
|
|
PROCEDURE cmsPipelineFree(lut: LPcmsPipeline); StdCall;
|
||
|
|
FUNCTION cmsPipelineDup(Orig: LPcmsPipeline): LPcmsPipeline; StdCall;
|
||
|
|
FUNCTION cmsGetPipelineContextID(lut: LPcmsPipeline) : cmsContext; StdCall;
|
||
|
|
FUNCTION cmsPipelineInputChannels(lut: LPcmsPipeline): cmsUInt32Number; StdCall;
|
||
|
|
FUNCTION cmsPipelineOutputChannels(lut: LPcmsPipeline): cmsUInt32Number; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsPipelineStageCount(lut: LPcmsPipeline): cmsUInt32Number; StdCall;
|
||
|
|
FUNCTION cmsPipelineGetPtrToFirstStage(lut: LPcmsPipeline): LPcmsStage; StdCall;
|
||
|
|
FUNCTION cmsPipelineGetPtrToLastStage(lut: LPcmsPipeline): LPcmsStage; StdCall;
|
||
|
|
|
||
|
|
PROCEDURE cmsPipelineEval16(Inv, Outv: LPcmsUInt16NumberArray; lut: LPcmsPipeline); StdCall;
|
||
|
|
PROCEDURE cmsPipelineEvalFloat(Inv, Outv: LPcmsFloat32NumberArray; lut: LPcmsPipeline); StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsPipelineEvalReverseFloat(Target, Result, Hint: LPcmsFloat32NumberArray; lut: LPcmsPipeline): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsPipelineCat(l1, l2: LPcmsPipeline): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsPipelineSetSaveAs8bitsFlag(lut: LPcmsPipeline; On: cmsBool): cmsBool; StdCall;
|
||
|
|
|
||
|
|
// Where to place/locate the stages in the pipeline chain
|
||
|
|
TYPE
|
||
|
|
cmsStageLoc = (cmsAT_BEGIN = 0, cmsAT_END = 1 );
|
||
|
|
|
||
|
|
PROCEDURE cmsPipelineInsertStage(lut: LPcmsPipeline; loc: cmsStageLoc; mpe: LPcmsStage); StdCall;
|
||
|
|
PROCEDURE cmsPipelineUnlinkStage(lut: LPcmsPipeline; loc: cmsStageLoc; mpe: LPLPcmsStage); StdCall;
|
||
|
|
|
||
|
|
// This function is quite useful to analyze the structure of a Pipeline and retrieve the Stage elements
|
||
|
|
// that conform the Pipeline. It should be called with the Pipeline, the number of expected elements and
|
||
|
|
// then a list of expected types followed with a list of double pointers to Stage elements. If
|
||
|
|
// the function founds a match with current pipeline, it fills the pointers and returns TRUE
|
||
|
|
// if not, returns FALSE without touching anything.
|
||
|
|
// FUNCTION cmsPipelineCheckAndRetreiveStages(const cmsPipeline* Lut, n: cmsUInt32Number, ...): cmsBool; StdCall;
|
||
|
|
|
||
|
|
// Matrix has double precision and CLUT has only float precision. That is because an ICC profile can encode
|
||
|
|
// matrices with far more precision that CLUTS
|
||
|
|
FUNCTION cmsStageAllocIdentity(ContextID: cmsContext; nChannels: cmsUInt32Number): LPcmsStage; StdCall;
|
||
|
|
FUNCTION cmsStageAllocToneCurves(ContextID: cmsContext; nChannels: cmsUInt32Number; Curves: LPLPcmsToneCurveArray): LPcmsStage; StdCall;
|
||
|
|
FUNCTION cmsStageAllocMatrix(ContextID: cmsContext; Rows, Cols: cmsUInt32Number; Matrix, Offset: LPcmsFloat64NumberArray): LPcmsStage; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsStageAllocCLut16bit(ContextID: cmsContext; nGridPoints: cmsUInt32Number; inputChan, outputChan: cmsUInt32Number; Table: LPcmsUInt16NumberArray): LPcmsStage; StdCall;
|
||
|
|
FUNCTION cmsStageAllocCLutFloat(ContextID: cmsContext; nGridPoints: cmsUInt32Number; inputChan, outputChan: cmsUInt32Number; Table: LPcmsFloat32NumberArray): LPcmsStage; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsStageAllocCLut16bitGranular(ContextID: cmsContext; nGridPoints: LPcmsUInt32NumberArray; inputChan, outputChan: cmsUInt32Number; Table: LPcmsUInt16NumberArray): LPcmsStage; StdCall;
|
||
|
|
FUNCTION cmsStageAllocCLutFloatGranular(ContextID: cmsContext; nGridPoints: LPcmsUInt32NumberArray; inputChan, outputChan: cmsUInt32Number; Table: LPcmsFloat32NumberArray): LPcmsStage; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION cmsStageDup(mpe: LPcmsStage): LPcmsStage; StdCall;
|
||
|
|
PROCEDURE cmsStageFree(mpe: LPcmsStage); StdCall;
|
||
|
|
FUNCTION cmsStageNext(mpe: LPcmsStage): LPcmsStage; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsStageInputChannels(mpe: LPcmsStage): cmsUInt32Number; StdCall;
|
||
|
|
FUNCTION cmsStageOutputChannels(mpe: LPcmsStage): cmsUInt32Number; StdCall;
|
||
|
|
FUNCTION cmsStageType(mpe: LPcmsStage): cmsStageSignature; StdCall;
|
||
|
|
FUNCTION cmsStageData(mpe: LPcmsStage): Pointer; StdCall;
|
||
|
|
|
||
|
|
// Sampling
|
||
|
|
|
||
|
|
Type
|
||
|
|
cmsSAMPLER16 = FUNCTION (Inp, Outp: LPcmsUInt16NumberArray; Cargo: Pointer): cmsInt32Number; CDecl;
|
||
|
|
cmsSAMPLERFLOAT = FUNCTION (Inp, Outp: LPcmsFloat32NumberArray; Cargo: Pointer): cmsInt32Number; CDecl;
|
||
|
|
|
||
|
|
// Use this flag to prevent changes being written to destination
|
||
|
|
|
||
|
|
Const
|
||
|
|
|
||
|
|
SAMPLER_INSPECT = $01000000;
|
||
|
|
|
||
|
|
|
||
|
|
// For CLUT only
|
||
|
|
FUNCTION cmsStageSampleCLut16bit(mpe: LPcmsStage; Sampler: cmsSAMPLER16; Cargo: Pointer; dwFlags: cmsUInt32Number): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsStageSampleCLutFloat(mpe: LPcmsStage; Sampler: cmsSAMPLERFLOAT; Cargo: Pointer; dwFlags: cmsUInt32Number): cmsBool; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
// Slicers
|
||
|
|
FUNCTION cmsSliceSpace16(nInputs: cmsUInt32Number; clutPoints: LPcmsUInt32NumberArray;
|
||
|
|
Sampler: cmsSAMPLER16; Cargo: Pointer): cmsBool; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsSliceSpaceFloat(nInputs: cmsUInt32Number; clutPoints: LPcmsUInt32NumberArray;
|
||
|
|
Sampler: cmsSAMPLERFLOAT; Cargo: Pointer): cmsBool; StdCall;
|
||
|
|
|
||
|
|
// Multilocalized Unicode management ---------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
Type
|
||
|
|
LPcmsMLU = Pointer;
|
||
|
|
|
||
|
|
Const
|
||
|
|
|
||
|
|
cmsNoLanguage = #0#0#0;
|
||
|
|
cmsNoCountry = #0#0#0;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION cmsMLUalloc(ContextID: cmsContext; nItems: cmsUInt32Number): LPcmsMLU; StdCall;
|
||
|
|
PROCEDURE cmsMLUfree(mlu: LPcmsMLU); StdCall;
|
||
|
|
FUNCTION cmsMLUdup(mlu: LPcmsMLU): LPcmsMLU; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsMLUsetASCII(mlu: LPcmsMLU; LanguageCode, CountryCode, ASCIIString: PAnsiChar): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsMLUsetWide(mlu: LPcmsMLU; LanguageCode, CountryCode: PAnsiChar; WideString: PWChar): cmsBool; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsMLUgetASCII(mlu: LPcmsMLU; LanguageCode, CountryCode: PAnsiChar; Buffer: PAnsiChar; BufferSize: cmsUInt32Number): cmsUInt32Number; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsMLUgetWide(mlu: LPcmsMLU; LanguageCode, CountryCode: PAnsiChar; Buffer: PWChar; BufferSize: cmsUInt32Number): cmsUInt32Number; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsMLUgetTranslation(mlu: LPcmsMLU; LanguageCode, CountryCode, ObtainedLanguage, ObtainedCountry: PAnsiChar): cmsBool; StdCall;
|
||
|
|
|
||
|
|
// Undercolorremoval & black generation -------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
Type
|
||
|
|
|
||
|
|
cmsUcrBg = PACKED RECORD
|
||
|
|
Ucr, Bg: LPcmsToneCurve;
|
||
|
|
Desc: LPcmsMLU;
|
||
|
|
END;
|
||
|
|
|
||
|
|
|
||
|
|
// Screening ----------------------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
Const
|
||
|
|
|
||
|
|
cmsPRINTER_DEFAULT_SCREENS = $0001;
|
||
|
|
cmsFREQUENCE_UNITS_LINES_CM = $0000;
|
||
|
|
cmsFREQUENCE_UNITS_LINES_INCH = $0002;
|
||
|
|
|
||
|
|
cmsSPOT_UNKNOWN = 0;
|
||
|
|
cmsSPOT_PRINTER_DEFAULT = 1;
|
||
|
|
cmsSPOT_ROUND = 2;
|
||
|
|
cmsSPOT_DIAMOND = 3;
|
||
|
|
cmsSPOT_ELLIPSE = 4;
|
||
|
|
cmsSPOT_LINE = 5;
|
||
|
|
cmsSPOT_SQUARE = 6;
|
||
|
|
cmsSPOT_CROSS = 7;
|
||
|
|
|
||
|
|
|
||
|
|
Type
|
||
|
|
|
||
|
|
cmsScreeningChannel = PACKED RECORD
|
||
|
|
|
||
|
|
Frequency,
|
||
|
|
ScreenAngle: cmsFloat64Number;
|
||
|
|
SpotShape: cmsUInt32Number;
|
||
|
|
|
||
|
|
END;
|
||
|
|
|
||
|
|
cmsScreening = PACKED RECORD
|
||
|
|
|
||
|
|
Flag,
|
||
|
|
nChannels : cmsUInt32Number;
|
||
|
|
Channels: Array [0..cmsMAXCHANNELS-1] OF cmsScreeningChannel;
|
||
|
|
END;
|
||
|
|
|
||
|
|
|
||
|
|
// Named color -----------------------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
|
||
|
|
LPcmsNAMEDCOLORLIST = Pointer;
|
||
|
|
|
||
|
|
FUNCTION cmsAllocNamedColorList(ContextID: cmsContext; n, ColorantCount :cmsUInt32Number;
|
||
|
|
Prefix, Suffix: PAnsiChar): LPcmsNAMEDCOLORLIST; StdCall;
|
||
|
|
|
||
|
|
PROCEDURE cmsFreeNamedColorList(v: LPcmsNAMEDCOLORLIST); StdCall;
|
||
|
|
FUNCTION cmsDupNamedColorList(v: LPcmsNAMEDCOLORLIST): LPcmsNAMEDCOLORLIST; StdCall;
|
||
|
|
FUNCTION cmsAppendNamedColor(v: LPcmsNAMEDCOLORLIST; Name: PAnsiChar;
|
||
|
|
PCS, Colorant : LPcmsUInt16NumberArray): cmsBool; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsNamedColorCount(v: LPcmsNAMEDCOLORLIST): cmsUInt32Number; StdCall;
|
||
|
|
FUNCTION cmsNamedColorIndex(v: LPcmsNAMEDCOLORLIST; Name: PAnsiChar): cmsInt32Number; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsNamedColorInfo(v: LPcmsNAMEDCOLORLIST; nColor : cmsUInt32Number;
|
||
|
|
Name,Prefix, Suffix : PAnsiChar;
|
||
|
|
PCS, Colorant : LPcmsUInt16NumberArray): cmsBool; StdCall;
|
||
|
|
|
||
|
|
// Retrieve named color list from transform
|
||
|
|
FUNCTION cmsGetNamedColorList(xform: cmsHTRANSFORM ): LPcmsNAMEDCOLORLIST; StdCall;
|
||
|
|
|
||
|
|
// Profile sequence -----------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
Type
|
||
|
|
|
||
|
|
// Profile sequence descriptor. Some fields come from profile sequence descriptor tag, others
|
||
|
|
// come from Profile Sequence Identifier Tag
|
||
|
|
|
||
|
|
cmsPSEQDESC = PACKED RECORD
|
||
|
|
deviceMfg, deviceModel: cmsSignature;
|
||
|
|
|
||
|
|
attributes: cmsUInt64Number;
|
||
|
|
technology: cmsTechnologySignature;
|
||
|
|
ProfileID: cmsProfileID;
|
||
|
|
Manufacturer,
|
||
|
|
Model,
|
||
|
|
Description : LPcmsMLU;
|
||
|
|
END;
|
||
|
|
|
||
|
|
LPcmsSEQDESC = ^cmsPSEQDESC;
|
||
|
|
|
||
|
|
cmsSEQ = PACKED RECORD
|
||
|
|
|
||
|
|
n: cmsUInt32Number;
|
||
|
|
ContextID: cmsContext;
|
||
|
|
seq: LPcmsSEQDESC;
|
||
|
|
END;
|
||
|
|
|
||
|
|
LPcmsSEQ = ^cmsSEQ;
|
||
|
|
|
||
|
|
FUNCTION cmsAllocProfileSequenceDescription(ContextID: cmsContext; n: cmsUInt32Number):LPcmsSEQ; StdCall;
|
||
|
|
FUNCTION cmsDupProfileSequenceDescription(pseq: LPcmsSEQ):LPcmsSEQ; StdCall;
|
||
|
|
PROCEDURE cmsFreeProfileSequenceDescription(pseq: LPcmsSEQ); StdCall;
|
||
|
|
|
||
|
|
// Dictionaries --------------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
|
||
|
|
LPcmsDICTentry = ^cmsDICTentry;
|
||
|
|
|
||
|
|
cmsDICTentry = PACKED RECORD
|
||
|
|
|
||
|
|
Next: LPcmsDICTentry;
|
||
|
|
|
||
|
|
DisplayName, DisplayValue: LPcmsMLU;
|
||
|
|
Name, Value : PWChar;
|
||
|
|
END;
|
||
|
|
|
||
|
|
FUNCTION cmsDictAlloc(ContextID: cmsContext): cmsHANDLE; StdCall;
|
||
|
|
PROCEDURE cmsDictFree(hDict: cmsHANDLE); StdCall;
|
||
|
|
FUNCTION cmsDictDup(hDict: cmsHANDLE): cmsHANDLE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsDictAddEntry(hDict: cmsHANDLE; Name, Value: PWChar; DisplayName, DisplayValue : LPcmsMLU): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsDictGetEntryList(hDict: cmsHANDLE): LPcmsDICTentry; StdCall;
|
||
|
|
FUNCTION cmsDictNextEntry(e : LPcmsDICTentry): LPcmsDICTentry; StdCall;
|
||
|
|
|
||
|
|
// Access to Profile data ----------------------------------------------------------------------------------------------
|
||
|
|
FUNCTION cmsCreateProfilePlaceholder(ContextID: cmsContext): cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsGetProfileContextID(hProfile: cmsHPROFILE):cmsContext; StdCall;
|
||
|
|
FUNCTION cmsGetTagCount(hProfile: cmsHPROFILE): cmsInt32Number; StdCall;
|
||
|
|
FUNCTION cmsGetTagSignature(hProfile: cmsHPROFILE; n: cmsUInt32Number): cmsTagSignature; StdCall;
|
||
|
|
FUNCTION cmsIsTag(hProfile: cmsHPROFILE; sig: cmsTagSignature ): cmsBool; StdCall;
|
||
|
|
|
||
|
|
// Read and write pre-formatted data
|
||
|
|
FUNCTION cmsReadTag(hProfile: cmsHPROFILE; sig: cmsTagSignature ): Pointer; StdCall;
|
||
|
|
FUNCTION cmsWriteTag(hProfile: cmsHPROFILE; sig: cmsTagSignature; data: Pointer): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsLinkTag(hProfile: cmsHPROFILE; sig: cmsTagSignature; dest: cmsTagSignature): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsTagLinkedTo(hProfile: cmsHPROFILE; sig: cmsTagSignature):cmsTagSignature; StdCall;
|
||
|
|
|
||
|
|
// Read and write raw data
|
||
|
|
FUNCTION cmsReadRawTag(hProfile: cmsHPROFILE; sig: cmsTagSignature; Buffer: Pointer; BufferSize: cmsUInt32Number): cmsInt32Number; StdCall;
|
||
|
|
FUNCTION cmsWriteRawTag(hProfile: cmsHPROFILE; sig: cmsTagSignature; data: Pointer; Size: cmsUInt32Number): cmsBool; StdCall;
|
||
|
|
|
||
|
|
// Access header data
|
||
|
|
Const
|
||
|
|
|
||
|
|
cmsEmbeddedProfileFalse = $00000000;
|
||
|
|
cmsEmbeddedProfileTrue = $00000001;
|
||
|
|
cmsUseAnywhere = $00000000;
|
||
|
|
cmsUseWithEmbeddedDataOnly = $00000002;
|
||
|
|
|
||
|
|
FUNCTION cmsGetHeaderFlags(hProfile: cmsHPROFILE): cmsUInt32Number; StdCall;
|
||
|
|
PROCEDURE cmsGetHeaderAttributes(hProfile: cmsHPROFILE; Flags: LPcmsUInt64Number); StdCall;
|
||
|
|
PROCEDURE cmsGetHeaderProfileID(hProfile: cmsHPROFILE; ProfileID: LPcmsUInt8Number); StdCall;
|
||
|
|
|
||
|
|
// TODO:
|
||
|
|
// FUNCTION cmsGetHeaderCreationDateTime(hProfile: cmsHPROFILE; struct tm *Dest): cmsBool; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsGetHeaderRenderingIntent(hProfile: cmsHPROFILE): cmsUInt32Number; StdCall;
|
||
|
|
PROCEDURE cmsSetHeaderFlags(hProfile: cmsHPROFILE; Flags: cmsUInt32Number); StdCall;
|
||
|
|
FUNCTION cmsGetHeaderManufacturer(hProfile: cmsHPROFILE): cmsUInt32Number; StdCall;
|
||
|
|
PROCEDURE cmsSetHeaderManufacturer(hProfile: cmsHPROFILE; manufacturer: cmsUInt32Number ); StdCall;
|
||
|
|
FUNCTION cmsGetHeaderModel(hProfile: cmsHPROFILE): cmsUInt32Number; StdCall;
|
||
|
|
PROCEDURE cmsSetHeaderModel(hProfile: cmsHPROFILE; model: cmsUInt32Number ); StdCall;
|
||
|
|
PROCEDURE cmsSetHeaderAttributes(hProfile: cmsHPROFILE; Flags: cmsUInt64Number); StdCall;
|
||
|
|
PROCEDURE cmsSetHeaderProfileID(hProfile: cmsHPROFILE; ProfileID: LPcmsUInt8Number); StdCall;
|
||
|
|
PROCEDURE cmsSetHeaderRenderingIntent(hProfile: cmsHPROFILE; RenderingIntent: cmsUInt32Number ); StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsGetPCS(hProfile: cmsHPROFILE):cmsColorSpaceSignature; StdCall;
|
||
|
|
PROCEDURE cmsSetPCS(hProfile: cmsHPROFILE; pcs: cmsColorSpaceSignature); StdCall;
|
||
|
|
FUNCTION cmsGetColorSpace(hProfile: cmsHPROFILE): cmsColorSpaceSignature; StdCall;
|
||
|
|
PROCEDURE cmsSetColorSpace(hProfile: cmsHPROFILE; sig: cmsColorSpaceSignature); StdCall;
|
||
|
|
FUNCTION cmsGetDeviceClass(hProfile: cmsHPROFILE): cmsProfileClassSignature; StdCall;
|
||
|
|
PROCEDURE cmsSetDeviceClass(hProfile: cmsHPROFILE; sig: cmsProfileClassSignature); StdCall;
|
||
|
|
PROCEDURE cmsSetProfileVersion(hProfile: cmsHPROFILE; Version: cmsFloat64Number); StdCall;
|
||
|
|
FUNCTION cmsGetProfileVersion(hProfile: cmsHPROFILE): cmsFloat64Number; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsGetEncodedICCversion(hProfile: cmsHPROFILE): cmsUInt32Number; StdCall;
|
||
|
|
PROCEDURE cmsSetEncodedICCversion(hProfile: cmsHPROFILE; Version: cmsUInt32Number); StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
Const
|
||
|
|
|
||
|
|
// How profiles may be used
|
||
|
|
LCMS_USED_AS_INPUT = 0;
|
||
|
|
LCMS_USED_AS_OUTPUT = 1;
|
||
|
|
LCMS_USED_AS_PROOF = 2;
|
||
|
|
|
||
|
|
FUNCTION cmsIsIntentSupported(hProfile: cmsHPROFILE; Intent: cmsUInt32Number; UsedDirection: cmsUInt32Number): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsIsMatrixShaper(hProfile: cmsHPROFILE): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsIsCLUT(hProfile: cmsHPROFILE; Intent: cmsUInt32Number; UsedDirection: cmsUInt32Number): cmsBool; StdCall;
|
||
|
|
|
||
|
|
// Translate form/to our notation to ICC
|
||
|
|
FUNCTION _cmsICCcolorSpace(OurNotation: Integer): cmsColorSpaceSignature; StdCall;
|
||
|
|
FUNCTION _cmsLCMScolorSpace(ProfileSpace: cmsColorSpaceSignature): Integer; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsChannelsOf( ColorSpace: cmsColorSpaceSignature): cmsUInt32Number; StdCall;
|
||
|
|
|
||
|
|
// Build a suitable formatter for the colorspace of this profile
|
||
|
|
FUNCTION cmsFormatterForColorspaceOfProfile(hProfile: cmsHPROFILE; nBytes: cmsUInt32Number; lIsFloat: cmsBool): cmsUInt32Number; StdCall;
|
||
|
|
FUNCTION cmsFormatterForPCSOfProfile(hProfile: cmsHPROFILE; nBytes: cmsUInt32Number; lIsFloat: cmsBool): cmsUInt32Number; StdCall;
|
||
|
|
|
||
|
|
Type
|
||
|
|
|
||
|
|
// Localized info
|
||
|
|
cmsInfoType = (
|
||
|
|
cmsInfoDescription = 0,
|
||
|
|
cmsInfoManufacturer = 1,
|
||
|
|
cmsInfoModel = 2,
|
||
|
|
cmsInfoCopyright = 3
|
||
|
|
);
|
||
|
|
|
||
|
|
FUNCTION cmsGetProfileInfo(hProfile: cmsHPROFILE; Info: cmsInfoType; LanguageCode, CountryCode: PAnsiChar;
|
||
|
|
Buffer: PWChar; BufferSize: cmsUInt32Number): cmsUInt32Number; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsGetProfileInfoASCII(hProfile: cmsHPROFILE; Info: cmsInfoType; LanguageCode, CountryCode: PAnsiChar;
|
||
|
|
Buffer: PAnsiChar; BufferSize: cmsUInt32Number): cmsUInt32Number; StdCall;
|
||
|
|
|
||
|
|
// IO handlers ----------------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
Type
|
||
|
|
|
||
|
|
LPcmsIOHANDLER = Pointer;
|
||
|
|
|
||
|
|
FUNCTION cmsOpenIOhandlerFromFile(ContextID: cmsContext; FileName, AccessMode: PAnsiChar): LPcmsIOHANDLER; StdCall;
|
||
|
|
// FUNCTION cmsOpenIOhandlerFromStream(ContextID: cmsContext; FILE* Stream): LPcmsIOHANDLER; StdCall;
|
||
|
|
FUNCTION cmsOpenIOhandlerFromMem(ContextID: cmsContext; Buffer: Pointer; size: cmsUInt32Number; AccessMode: PAnsiChar): LPcmsIOHANDLER; StdCall;
|
||
|
|
FUNCTION cmsOpenIOhandlerFromNULL(ContextID: cmsContext): LPcmsIOHANDLER; StdCall;
|
||
|
|
FUNCTION cmsCloseIOhandler(io: LPcmsIOHANDLER): cmsBool; StdCall;
|
||
|
|
|
||
|
|
// MD5 message digest --------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
FUNCTION cmsMD5computeID(hProfile: cmsHPROFILE): cmsBool; StdCall;
|
||
|
|
|
||
|
|
// Profile high level functions ------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
FUNCTION cmsOpenProfileFromFile(ICCProfile : PAnsiChar; sAccess: PAnsiChar): cmsHPROFILE; StdCall;
|
||
|
|
FUNCTION cmsOpenProfileFromFileTHR(ContextID: cmsContext; ICCProfile, sAccess: PAnsiChar): cmsHPROFILE; StdCall;
|
||
|
|
// FUNCTION CMSEXPORT cmsOpenProfileFromStream(FILE* ICCProfile, const char* sAccess): cmsHPROFILE; StdCall;
|
||
|
|
// FUNCTION CMSEXPORT cmsOpenProfileFromStreamTHR(ContextID: cmsContext; FILE* ICCProfile, const char* sAccess): cmsHPROFILE; StdCall;
|
||
|
|
FUNCTION cmsOpenProfileFromMem(MemPtr: Pointer; dwSize: cmsUInt32Number): cmsHPROFILE; StdCall;
|
||
|
|
FUNCTION cmsOpenProfileFromMemTHR(ContextID: cmsContext; MemPtr: Pointer; dwSize: cmsUInt32Number): cmsHPROFILE; StdCall;
|
||
|
|
FUNCTION cmsOpenProfileFromIOhandlerTHR(ContextID: cmsContext; io: LPcmsIOHANDLER): cmsHPROFILE; StdCall;
|
||
|
|
FUNCTION cmsCloseProfile(hProfile: cmsHPROFILE): cmsBool; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsSaveProfileToFile(hProfile: cmsHPROFILE; FileName: PAnsiChar): cmsBool; StdCall;
|
||
|
|
// FUNCTION CMSEXPORT cmsSaveProfileToStream(hProfile: cmsHPROFILE, FILE* Stream): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsSaveProfileToMem(hProfile: cmsHPROFILE; MemPtr: Pointer; BytesNeeded: LPcmsUInt32Number): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsSaveProfileToIOhandler(hProfile: cmsHPROFILE; io: LPcmsIOHANDLER):cmsUInt32Number; StdCall;
|
||
|
|
|
||
|
|
// Predefined virtual profiles ------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
FUNCTION cmsCreateRGBProfileTHR(ContextID: cmsContext;
|
||
|
|
WhitePoint: LPcmsCIExyY;
|
||
|
|
Primaries: LPcmsCIExyYTRIPLE;
|
||
|
|
TransferFunction: LPLPcmsToneCurveArray): cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateRGBProfile(WhitePoint: LPcmsCIExyY;
|
||
|
|
Primaries: LPcmsCIExyYTRIPLE;
|
||
|
|
TransferFunction: LPLPcmsToneCurveArray): cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateGrayProfileTHR(ContextID: cmsContext;
|
||
|
|
WhitePoint: LPcmsCIExyY;
|
||
|
|
TransferFunction: LPcmsToneCurve): cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateGrayProfile(WhitePoint: LPcmsCIExyY;
|
||
|
|
TransferFunction: LPcmsToneCurve): cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateLinearizationDeviceLinkTHR(ContextID: cmsContext;
|
||
|
|
ColorSpace: cmsColorSpaceSignature;
|
||
|
|
TransferFunctions: LPLPcmsToneCurveArray): cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateLinearizationDeviceLink(ColorSpace: cmsColorSpaceSignature;
|
||
|
|
TransferFunctions: LPLPcmsToneCurveArray): cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateInkLimitingDeviceLinkTHR(ContextID: cmsContext;
|
||
|
|
ColorSpace: cmsColorSpaceSignature; Limit: cmsFloat64Number): cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateInkLimitingDeviceLink(ColorSpace: cmsColorSpaceSignature; Limit: cmsFloat64Number): cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION cmsCreateLab2ProfileTHR(ContextID: cmsContext; WhitePoint: LPcmsCIExyY): cmsHPROFILE; StdCall;
|
||
|
|
FUNCTION cmsCreateLab2Profile(WhitePoint: LPcmsCIExyY): cmsHPROFILE; StdCall;
|
||
|
|
FUNCTION cmsCreateLab4ProfileTHR(ContextID: cmsContext; WhitePoint: LPcmsCIExyY): cmsHPROFILE; StdCall;
|
||
|
|
FUNCTION cmsCreateLab4Profile(WhitePoint: LPcmsCIExyY): cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateXYZProfileTHR(ContextID: cmsContext): cmsHPROFILE; StdCall;
|
||
|
|
FUNCTION cmsCreateXYZProfile: cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreate_sRGBProfileTHR(ContextID: cmsContext): cmsHPROFILE; StdCall;
|
||
|
|
FUNCTION cmsCreate_sRGBProfile: cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateBCHSWabstractProfileTHR(ContextID: cmsContext;
|
||
|
|
nLUTPoints: Integer;
|
||
|
|
Bright,
|
||
|
|
Contrast,
|
||
|
|
Hue,
|
||
|
|
Saturation: cmsFloat64Number;
|
||
|
|
TempSrc,
|
||
|
|
TempDest: Integer): cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateBCHSWabstractProfile( nLUTPoints: Integer;
|
||
|
|
Bright,
|
||
|
|
Contrast,
|
||
|
|
Hue,
|
||
|
|
Saturation: cmsFloat64Number;
|
||
|
|
TempSrc,
|
||
|
|
TempDest: Integer): cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateNULLProfileTHR(ContextID: cmsContext): cmsHPROFILE; StdCall;
|
||
|
|
FUNCTION cmsCreateNULLProfile: cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
// Converts a transform to a devicelink profile
|
||
|
|
FUNCTION cmsTransform2DeviceLink(hTransform: cmsHTRANSFORM; Version: cmsFloat64Number; dwFlags: cmsUInt32Number): cmsHPROFILE; StdCall;
|
||
|
|
|
||
|
|
// Intents ----------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
Const
|
||
|
|
|
||
|
|
// ICC Intents
|
||
|
|
INTENT_PERCEPTUAL = 0;
|
||
|
|
INTENT_RELATIVE_COLORIMETRIC = 1;
|
||
|
|
INTENT_SATURATION = 2;
|
||
|
|
INTENT_ABSOLUTE_COLORIMETRIC = 3;
|
||
|
|
|
||
|
|
// Non-ICC intents
|
||
|
|
INTENT_PRESERVE_K_ONLY_PERCEPTUAL = 10;
|
||
|
|
INTENT_PRESERVE_K_ONLY_RELATIVE_COLORIMETRIC = 11;
|
||
|
|
INTENT_PRESERVE_K_ONLY_SATURATION = 12;
|
||
|
|
INTENT_PRESERVE_K_PLANE_PERCEPTUAL = 13;
|
||
|
|
INTENT_PRESERVE_K_PLANE_RELATIVE_COLORIMETRIC = 14;
|
||
|
|
INTENT_PRESERVE_K_PLANE_SATURATION = 15;
|
||
|
|
|
||
|
|
Type
|
||
|
|
LPPAnsiChar = ^PAnsiChar;
|
||
|
|
|
||
|
|
// Call with NULL as parameters to get the intent count
|
||
|
|
FUNCTION cmsGetSupportedIntents(nMax: cmsUInt32Number; Codes: LPcmsUInt32Number; Descriptions: LPPAnsiChar): cmsUInt32Number; StdCall;
|
||
|
|
|
||
|
|
Const
|
||
|
|
|
||
|
|
// Flags
|
||
|
|
|
||
|
|
cmsFLAGS_NOCACHE = $0040; // Inhibit 1-pixel cache
|
||
|
|
cmsFLAGS_NOOPTIMIZE = $0100; // Inhibit optimizations
|
||
|
|
cmsFLAGS_NULLTRANSFORM = $0200; // Don't transform anyway
|
||
|
|
|
||
|
|
// Proofing flags
|
||
|
|
cmsFLAGS_GAMUTCHECK = $1000; // Out of Gamut alarm
|
||
|
|
cmsFLAGS_SOFTPROOFING = $4000; // Do softproofing
|
||
|
|
|
||
|
|
// Misc
|
||
|
|
cmsFLAGS_BLACKPOINTCOMPENSATION = $2000;
|
||
|
|
cmsFLAGS_NOWHITEONWHITEFIXUP = $0004; // Don't fix scum dot
|
||
|
|
cmsFLAGS_HIGHRESPRECALC = $0400; // Use more memory to give better accuracy
|
||
|
|
cmsFLAGS_LOWRESPRECALC = $0800; // Use less memory to minimize resouces
|
||
|
|
|
||
|
|
// For devicelink creation
|
||
|
|
cmsFLAGS_8BITS_DEVICELINK = $0008; // Create 8 bits devicelinks
|
||
|
|
cmsFLAGS_GUESSDEVICECLASS = $0020; // Guess device class (for transform2devicelink)
|
||
|
|
cmsFLAGS_KEEP_SEQUENCE = $0080; // Keep profile sequence for devicelink creation
|
||
|
|
|
||
|
|
// Specific to a particular optimizations
|
||
|
|
cmsFLAGS_FORCE_CLUT = $0002; // Force CLUT optimization
|
||
|
|
cmsFLAGS_CLUT_POST_LINEARIZATION = $0001; // create postlinearization tables if possible
|
||
|
|
cmsFLAGS_CLUT_PRE_LINEARIZATION = $0010; // create prelinearization tables if possible
|
||
|
|
|
||
|
|
// CRD special
|
||
|
|
cmsFLAGS_NODEFAULTRESOURCEDEF = $01000000;
|
||
|
|
|
||
|
|
// Fine-tune control over number of gridpoints
|
||
|
|
FUNCTION cmsFLAGS_GRIDPOINTS(n: Integer): Integer;
|
||
|
|
|
||
|
|
|
||
|
|
// Transforms ---------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
type
|
||
|
|
LPcmsHPROFILEArray = ^cmsHPROFILEArray;
|
||
|
|
cmsHPROFILEArray = array[0..0] of cmsHPROFILE;
|
||
|
|
|
||
|
|
LPcmsBoolArray = ^cmsBoolArray;
|
||
|
|
cmsBoolArray = array[0..0] of cmsBool;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateTransformTHR(ContextID: cmsContext;
|
||
|
|
Input: cmsHPROFILE;
|
||
|
|
InputFormat: cmsUInt32Number;
|
||
|
|
Output: cmsHPROFILE;
|
||
|
|
OutputFormat: cmsUInt32Number;
|
||
|
|
Intent: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number): cmsHTRANSFORM; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateTransform(Input: cmsHPROFILE;
|
||
|
|
InputFormat: cmsUInt32Number;
|
||
|
|
Output: cmsHPROFILE;
|
||
|
|
OutputFormat: cmsUInt32Number;
|
||
|
|
Intent: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number): cmsHTRANSFORM; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateProofingTransformTHR(ContextID: cmsContext;
|
||
|
|
Input: cmsHPROFILE;
|
||
|
|
InputFormat: cmsUInt32Number;
|
||
|
|
Output: cmsHPROFILE;
|
||
|
|
OutputFormat: cmsUInt32Number;
|
||
|
|
Proofing: cmsHPROFILE;
|
||
|
|
Intent: cmsUInt32Number;
|
||
|
|
ProofingIntent: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number): cmsHTRANSFORM; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateProofingTransform(Input: cmsHPROFILE;
|
||
|
|
InputFormat: cmsUInt32Number;
|
||
|
|
Output: cmsHPROFILE;
|
||
|
|
OutputFormat: cmsUInt32Number;
|
||
|
|
Proofing: cmsHPROFILE;
|
||
|
|
Intent: cmsUInt32Number;
|
||
|
|
ProofingIntent: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number): cmsHTRANSFORM; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateMultiprofileTransformTHR(ContextID: cmsContext;
|
||
|
|
hProfiles: LPcmsHPROFILEArray;
|
||
|
|
nProfiles: cmsUInt32Number;
|
||
|
|
InputFormat: cmsUInt32Number;
|
||
|
|
OutputFormat: cmsUInt32Number;
|
||
|
|
Intent: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number): cmsHTRANSFORM; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION cmsCreateMultiprofileTransform( hProfiles: LPcmsHPROFILEArray;
|
||
|
|
nProfiles: cmsUInt32Number;
|
||
|
|
InputFormat: cmsUInt32Number;
|
||
|
|
OutputFormat: cmsUInt32Number;
|
||
|
|
Intent: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number): cmsHTRANSFORM; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION cmsCreateExtendedTransform(ContextID: cmsContext;
|
||
|
|
nProfiles: cmsUInt32Number;
|
||
|
|
hProfiles: LPcmsHPROFILEArray;
|
||
|
|
BPC: LPcmsBoolArray;
|
||
|
|
Intents: LPcmsUInt32NumberArray;
|
||
|
|
AdaptationStates: LPcmsFloat64NumberArray;
|
||
|
|
hGamutProfile: cmsHPROFILE;
|
||
|
|
nGamutPCSposition: cmsUInt32Number;
|
||
|
|
InputFormat,
|
||
|
|
OutputFormat: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number): cmsHTRANSFORM; StdCall;
|
||
|
|
|
||
|
|
PROCEDURE cmsDeleteTransform(hTransform: cmsHTRANSFORM); StdCall;
|
||
|
|
|
||
|
|
PROCEDURE cmsDoTransform(Transform: cmsHTRANSFORM; InputBuffer, OutputBuffer: Pointer; size: cmsUInt32Number); StdCall;
|
||
|
|
PROCEDURE cmsDoTransformStride(Transform: cmsHTRANSFORM; InputBuffer, OutputBuffer: Pointer; size: cmsUInt32Number; stride: cmsUInt32Number); StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
PROCEDURE cmsSetAlarmCodes( NewAlarm: LPcmsUInt16NumberArray); StdCall;
|
||
|
|
PROCEDURE cmsGetAlarmCodes(NewAlarm: LPcmsUInt16NumberArray); StdCall;
|
||
|
|
|
||
|
|
// Adaptation state for absolute colorimetric intent
|
||
|
|
FUNCTION cmsSetAdaptationState(d: cmsFloat64Number):cmsFloat64Number; StdCall;
|
||
|
|
|
||
|
|
// Grab the ContextID from an open transform. Returns NULL if a NULL transform is passed
|
||
|
|
FUNCTION cmsGetTransformContextID(hTransform: cmsHTRANSFORM):cmsContext; StdCall;
|
||
|
|
|
||
|
|
// For backwards compatibility
|
||
|
|
FUNCTION cmsChangeBuffersFormat(hTransform: cmsHTRANSFORM; InputFormat, OutputFormat: cmsUInt32Number): cmsBool; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
// PostScript ColorRenderingDictionary and ColorSpaceArray ----------------------------------------------------
|
||
|
|
|
||
|
|
Type
|
||
|
|
|
||
|
|
cmsPSResourceType = (cmsPS_RESOURCE_CSA, cmsPS_RESOURCE_CRD ) ;
|
||
|
|
|
||
|
|
// lcms2 unified method to access postscript color resources
|
||
|
|
FUNCTION cmsGetPostScriptColorResource(ContextID: cmsContext; RType: cmsPSResourceType;
|
||
|
|
hProfile: cmsHPROFILE;
|
||
|
|
Intent: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number;
|
||
|
|
io: LPcmsIOHANDLER): cmsUInt32Number; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsGetPostScriptCSA(ContextID: cmsContext; hProfile: cmsHPROFILE; Intent: cmsUInt32Number; dwFlags: cmsUInt32Number; Buffer: Pointer; dwBufferLen: cmsUInt32Number ): cmsUInt32Number; StdCall;
|
||
|
|
FUNCTION cmsGetPostScriptCRD(ContextID: cmsContext; hProfile: cmsHPROFILE; Intent: cmsUInt32Number; dwFlags: cmsUInt32Number; Buffer: Pointer; dwBufferLen: cmsUInt32Number): cmsUInt32Number; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
// IT8.7 / CGATS.17-20$ handling -----------------------------------------------------------------------------
|
||
|
|
|
||
|
|
|
||
|
|
// CGATS.13 parser
|
||
|
|
|
||
|
|
FUNCTION cmsIT8Alloc: cmsHANDLE; StdCall;
|
||
|
|
PROCEDURE cmsIT8Free(hIT8: cmsHANDLE); StdCall;
|
||
|
|
|
||
|
|
// Tables
|
||
|
|
|
||
|
|
FUNCTION cmsIT8TableCount(hIT8: cmsHANDLE): Integer; StdCall;
|
||
|
|
FUNCTION cmsIT8SetTable(hIT8: cmsHANDLE; nTable: Integer): Integer; StdCall;
|
||
|
|
|
||
|
|
// Persistence
|
||
|
|
FUNCTION cmsIT8LoadFromFile(cFileName: PAnsiChar): cmsHANDLE; StdCall;
|
||
|
|
FUNCTION cmsIT8LoadFromMem(Ptr: Pointer; size :DWord): cmsHANDLE; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SaveToFile(hIT8: cmsHANDLE; cFileName: PAnsiChar): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsIT8SaveToMem(hIT8: cmsHANDLE; MemPtr: Pointer; BytesNeeded: LPcmsUInt32Number): cmsBool; StdCall;
|
||
|
|
// Properties
|
||
|
|
|
||
|
|
FUNCTION cmsIT8GetSheetType(hIT8: cmsHANDLE): PAnsiChar; StdCall;
|
||
|
|
FUNCTION cmsIT8SetSheetType(hIT8: cmsHANDLE; TheType: PAnsiChar): cmsBool; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SetComment(hIT8: cmsHANDLE; cComment: PAnsiChar): cmsBool; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SetPropertyStr(hIT8: cmsHANDLE; cProp, Str: PAnsiChar): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsIT8SetPropertyDbl(hIT8: cmsHANDLE; cProp: PAnsiChar; Val: Double): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsIT8SetPropertyHex(hIT8: cmsHANDLE; cProp: PAnsiChar; Val: Integer): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsIT8SetPropertyUncooked(hIT8: cmsHANDLE; Key, Buffer: PAnsiChar): cmsBool; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION cmsIT8GetProperty(hIT8: cmsHANDLE; cProp: PAnsiChar): PAnsiChar; StdCall;
|
||
|
|
FUNCTION cmsIT8GetPropertyDbl(hIT8: cmsHANDLE; cProp: PAnsiChar): Double; StdCall;
|
||
|
|
FUNCTION cmsIT8EnumProperties(hIT8: cmsHANDLE; var PropertyNames: LPPAnsiChar): Integer; StdCall;
|
||
|
|
|
||
|
|
// Datasets
|
||
|
|
|
||
|
|
FUNCTION cmsIT8GetDataRowCol(hIT8: cmsHANDLE; row, col: Integer): PAnsiChar; StdCall;
|
||
|
|
FUNCTION cmsIT8GetDataRowColDbl(hIT8: cmsHANDLE; row, col: Integer): Double; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SetDataRowCol(hIT8: cmsHANDLE; row, col: Integer; Val: PAnsiChar): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsIT8SetDataRowColDbl(hIT8: cmsHANDLE; row, col: Integer; Val: Double): cmsBool; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8GetData(hIT8: cmsHANDLE; cPatch, cSample: PAnsiChar): PAnsiChar; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8GetDataDbl(hIT8: cmsHANDLE;cPatch, cSample: PAnsiChar): Double; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SetData(hIT8: cmsHANDLE; cPatch, cSample, Val: PAnsiChar): cmsBool; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SetDataDbl(hIT8: cmsHANDLE; cPatch, cSample: PAnsiChar; Val: Double): cmsBool; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SetDataFormat(hIT8: cmsHANDLE; n: Integer; Sample: PAnsiChar): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsIT8EnumDataFormat(hIT8: cmsHANDLE; var SampleNames: LPPAnsiChar): Integer; StdCall;
|
||
|
|
FUNCTION cmsIT8GetPatchName(hIT8: cmsHANDLE; nPatch: Integer; Buffer: PAnsiChar): PAnsiChar; StdCall;
|
||
|
|
|
||
|
|
// The LABEL extension
|
||
|
|
FUNCTION cmsIT8SetTableByLabel(hIT8: cmsHANDLE; cSet, cField, ExpectedType: PAnsiChar): Integer; StdCall;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8FindDataFormat(hIT8: cmsHANDLE; cSample: PAnsiChar): Integer; StdCall;
|
||
|
|
|
||
|
|
// Formatter for double
|
||
|
|
PROCEDURE cmsIT8DefineDblFormat(hIT8: cmsHANDLE; Formatter: PAnsiChar); StdCall;
|
||
|
|
|
||
|
|
// Gamut boundary description routines ------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
FUNCTION cmsGBDAlloc(ContextID: cmsContext):cmsHANDLE; StdCall;
|
||
|
|
PROCEDURE cmsGBDFree(hGBD: cmsHANDLE); StdCall;
|
||
|
|
FUNCTION cmsGDBAddPoint(hGBD: cmsHANDLE; Lab: LPcmsCIELab): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsGDBCompute(hGDB: cmsHANDLE; dwFlags: cmsUInt32Number): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsGDBCheckPoint(hGBD: cmsHANDLE; Lab: LPcmsCIELab): cmsBool; StdCall;
|
||
|
|
|
||
|
|
// Feature detection ----------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
// Estimate the black point
|
||
|
|
FUNCTION cmsDetectBlackPoint( BlackPoint: LPcmsCIEXYZ; hProfile: cmsHPROFILE; Intent: cmsUInt32Number; dwFlags: cmsUInt32Number): cmsBool; StdCall;
|
||
|
|
FUNCTION cmsDetectDestinationBlackPoint( BlackPoint: LPcmsCIEXYZ; hProfile: cmsHPROFILE; Intent: cmsUInt32Number; dwFlags: cmsUInt32Number): cmsBool; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
// Estimate total area coverage
|
||
|
|
FUNCTION cmsDetectTAC(hProfile: cmsHPROFILE): cmsFloat64Number; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
// Poor man's gamut mapping
|
||
|
|
FUNCTION cmsDesaturateLab(Lab: LPcmsCIELab; amax, amin, bmax, bmin: cmsFloat64Number): cmsBool; StdCall;
|
||
|
|
|
||
|
|
|
||
|
|
IMPLEMENTATION
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION FLOAT_SH(a: cmsUInt32Number): cmsUInt32Number; begin FLOAT_SH := ((a) shl 22) end;
|
||
|
|
FUNCTION OPTIMIZED_SH(s: cmsUInt32Number): cmsUInt32Number; begin OPTIMIZED_SH := ((s) shl 21) end;
|
||
|
|
FUNCTION COLORSPACE_SH(s: cmsUInt32Number):cmsUInt32Number; begin COLORSPACE_SH := ((s) shl 16) end;
|
||
|
|
FUNCTION SWAPFIRST_SH(s: cmsUInt32Number):cmsUInt32Number; begin SWAPFIRST_SH := ((s) shl 14) end;
|
||
|
|
FUNCTION FLAVOR_SH(s: cmsUInt32Number):cmsUInt32Number; begin FLAVOR_SH := ((s) shl 13) end;
|
||
|
|
FUNCTION PLANAR_SH(p: cmsUInt32Number):cmsUInt32Number; begin PLANAR_SH := ((p) shl 12) end;
|
||
|
|
FUNCTION ENDIAN16_SH(e: cmsUInt32Number):cmsUInt32Number; begin ENDIAN16_SH := ((e) shl 11) end;
|
||
|
|
FUNCTION DOSWAP_SH(e: cmsUInt32Number):cmsUInt32Number; begin DOSWAP_SH := ((e) shl 10) end;
|
||
|
|
FUNCTION EXTRA_SH(e: cmsUInt32Number):cmsUInt32Number; begin EXTRA_SH := ((e) shl 7) end;
|
||
|
|
FUNCTION CHANNELS_SH(c: cmsUInt32Number):cmsUInt32Number; begin CHANNELS_SH := ((c) shl 3) end;
|
||
|
|
FUNCTION BYTES_SH(b: cmsUInt32Number):cmsUInt32Number; begin BYTES_SH := (b) end;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION T_FLOAT(a: cmsUInt32Number): cmsUInt32Number; begin T_FLOAT := (((a) shr 22) and 1) end;
|
||
|
|
FUNCTION T_OPTIMIZED(o: cmsUInt32Number): cmsUInt32Number; begin T_OPTIMIZED := (((o) shr 21) and 1) end;
|
||
|
|
FUNCTION T_COLORSPACE(s: cmsUInt32Number): cmsUInt32Number; begin T_COLORSPACE := (((s) shr 16) and 31) end;
|
||
|
|
FUNCTION T_SWAPFIRST(s: cmsUInt32Number): cmsUInt32Number; begin T_SWAPFIRST := (((s) shr 14) and 1) end;
|
||
|
|
FUNCTION T_FLAVOR(s: cmsUInt32Number): cmsUInt32Number; begin T_FLAVOR := (((s) shr 13) and 1) end;
|
||
|
|
FUNCTION T_PLANAR(p: cmsUInt32Number): cmsUInt32Number; begin T_PLANAR := (((p) shr 12) and 1) end;
|
||
|
|
FUNCTION T_ENDIAN16(e: cmsUInt32Number): cmsUInt32Number; begin T_ENDIAN16 := (((e) shr 11) and 1) end;
|
||
|
|
FUNCTION T_DOSWAP(e: cmsUInt32Number): cmsUInt32Number; begin T_DOSWAP := (((e) shr 10) and 1) end;
|
||
|
|
FUNCTION T_EXTRA(e: cmsUInt32Number): cmsUInt32Number; begin T_EXTRA := (((e) shr 7) and 7) end;
|
||
|
|
FUNCTION T_CHANNELS(c: cmsUInt32Number): cmsUInt32Number; begin T_CHANNELS := (((c) shr 3) and 15) end;
|
||
|
|
FUNCTION T_BYTES(b: cmsUInt32Number): cmsUInt32Number; begin T_BYTES := ((b) and 7) end;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
//
|
||
|
|
|
||
|
|
FUNCTION cmsCreateContext(Plugin : Pointer; UserData : Pointer) : cmsContext; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsDeleteContext(ContextID: cmsContext); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsDupContext(ContextID: cmsContext; NewUserData: Pointer): cmsContext; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGetContextUserData(ContextID: cmsContext): Pointer; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsPlugin(Plugin: Pointer): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsUnregisterPlugins; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsSetLogErrorHandler(Fn: cmsLogErrorHandlerFunction); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsD50_XYZ: LPcmsCIEXYZ; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsD50_xyY: LPcmsCIExyY; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsXYZ2xyY(Dest: LPcmsCIExyY; Source: LPcmsCIEXYZ); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsxyY2XYZ(Dest: LPcmsCIEXYZ; Source: LPcmsCIExyY); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsLab2XYZ(WhitePoint: LPcmsCIEXYZ; xyz: LPcmsCIEXYZ; Lab: LPcmsCIELab); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsXYZ2Lab(WhitePoint: LPcmsCIEXYZ; Lab: LPcmsCIELab; xyz: LPcmsCIEXYZ); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsLab2LCh(LCh: LPcmsCIELCh; Lab: LPcmsCIELab); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsLCh2Lab(Lab: LPcmsCIELab; LCh: LPcmsCIELCh); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsLabEncoded2Float(Lab: LPcmsCIELab; wLab: Pointer); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsLabEncoded2FloatV2(Lab: LPcmsCIELab; wLab: Pointer); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsFloat2LabEncoded(wLab: Pointer; Lab: LPcmsCIELab); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsFloat2LabEncodedV2(wLab: Pointer; Lab: LPcmsCIELab); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsXYZEncoded2Float(fxyz : LPcmsCIEXYZ; XYZ: Pointer); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsFloat2XYZEncoded(XYZ: Pointer; fXYZ: LPcmsCIEXYZ); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsDeltaE(Lab1, Lab2: LPcmsCIELab): Double; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsCIE94DeltaE(Lab1, Lab2: LPcmsCIELab): Double; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsBFDdeltaE(Lab1, Lab2: LPcmsCIELab): Double; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsCMCdeltaE(Lab1, Lab2: LPcmsCIELab): Double; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsCIE2000DeltaE(Lab1, Lab2: LPcmsCIELab; Kl, Kc, Kh: Double): Double; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsWhitePointFromTemp(var WhitePoint: cmsCIExyY; TempK: cmsFloat64Number) : cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsTempFromWhitePoint(var TeampK: cmsFloat64Number; var WhitePoint: cmsCIExyY) : cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsAdaptToIlluminant(Result: LPcmsCIEXYZ; SourceWhitePt: LPcmsCIEXYZ;
|
||
|
|
Illuminant: LPcmsCIEXYZ; Value: LPcmsCIEXYZ): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsCIECAM02Init(pVC : LPcmsViewingConditions ) : Pointer; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsCIECAM02Done(hModel : Pointer); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsCIECAM02Forward(hModel: Pointer; pIn: LPcmsCIEXYZ; pOut: LPcmsJCh ); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsCIECAM02Reverse(hModel: Pointer; pIn: LPcmsJCh; pOut: LPcmsCIEXYZ ); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsBuildSegmentedToneCurve(ContextID: cmsContext; nSegments: cmsInt32Number; Segments: LPcmsCurveSegmentArray): LPcmsToneCurve; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsBuildParametricToneCurve(ContextID: cmsContext; CType: cmsInt32Number; Params: LPcmsFloat64NumberArray): LPcmsToneCurve; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsBuildGamma(ContextID: cmsContext; Gamma: cmsFloat64Number): LPcmsToneCurve; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsBuildTabulatedToneCurve16(ContextID: cmsContext; nEntries: cmsInt32Number; values: LPcmsUInt16NumberArray): LPcmsToneCurve; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsBuildTabulatedToneCurveFloat(ContextID: cmsContext; nEntries: cmsUInt32Number; values: LPcmsFloat32NumberArray): LPcmsToneCurve; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsFreeToneCurve(Curve: LPcmsToneCurve); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsFreeToneCurveTriple(Curve: LPLPcmsToneCurveArray); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsDupToneCurve(Src: LPcmsToneCurve): LPcmsToneCurve; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsReverseToneCurve(InGamma: LPcmsToneCurve): LPcmsToneCurve; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsReverseToneCurveEx(nResultSamples: cmsInt32Number; InGamma: LPcmsToneCurve): LPcmsToneCurve; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsJoinToneCurve(ContextID: cmsContext; X, Y: LPcmsToneCurve; nPoints: cmsUInt32Number ): LPcmsToneCurve; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsSmoothToneCurve(Tab: LPcmsToneCurve; lambda: cmsFloat64Number): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsEvalToneCurveFloat(Curve: LPcmsToneCurve; v: cmsFloat32Number):cmsFloat32Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsEvalToneCurve16(Curve: LPcmsToneCurve; v:cmsUInt16Number):cmsUInt16Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIsToneCurveMultisegment(InGamma: LPcmsToneCurve):cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIsToneCurveLinear(Curve: LPcmsToneCurve):cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIsToneCurveMonotonic(t: LPcmsToneCurve):cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIsToneCurveDescending(t: LPcmsToneCurve):cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGetToneCurveParametricType(t: LPcmsToneCurve):cmsInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsEstimateGamma(t: LPcmsToneCurve; Precision:cmsFloat64Number):cmsFloat64Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGetToneCurveEstimatedTableEntries(t: LPcmsToneCurve): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGetToneCurveEstimatedTable(t: LPcmsToneCurve): LPcmsUInt16Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsPipelineAlloc(ContextID: cmsContext; InputChannels, OutputChannels: cmsUInt32Number): LPcmsPipeline; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsPipelineFree(lut: LPcmsPipeline); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsPipelineDup(Orig: LPcmsPipeline): LPcmsPipeline; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGetPipelineContextID(lut: LPcmsPipeline) : cmsContext; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsPipelineInputChannels(lut: LPcmsPipeline): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsPipelineOutputChannels(lut: LPcmsPipeline): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsPipelineStageCount(lut: LPcmsPipeline): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsPipelineGetPtrToFirstStage(lut: LPcmsPipeline): LPcmsStage; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsPipelineGetPtrToLastStage(lut: LPcmsPipeline): LPcmsStage; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
PROCEDURE cmsPipelineEval16(Inv, Outv: LPcmsUInt16NumberArray; lut: LPcmsPipeline); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsPipelineEvalFloat(Inv, Outv: LPcmsFloat32NumberArray; lut: LPcmsPipeline); StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsPipelineEvalReverseFloat(Target, Result, Hint: LPcmsFloat32NumberArray; lut: LPcmsPipeline): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsPipelineCat(l1, l2: LPcmsPipeline): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsPipelineSetSaveAs8bitsFlag(lut: LPcmsPipeline; On: cmsBool): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsPipelineInsertStage(lut: LPcmsPipeline; loc: cmsStageLoc; mpe: LPcmsStage); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsPipelineUnlinkStage(lut: LPcmsPipeline; loc: cmsStageLoc; mpe: LPLPcmsStage); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageAllocIdentity(ContextID: cmsContext; nChannels: cmsUInt32Number): LPcmsStage; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageAllocToneCurves(ContextID: cmsContext; nChannels: cmsUInt32Number; Curves: LPLPcmsToneCurveArray): LPcmsStage; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageAllocMatrix(ContextID: cmsContext; Rows, Cols: cmsUInt32Number; Matrix, Offset: LPcmsFloat64NumberArray): LPcmsStage; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageAllocCLut16bit(ContextID: cmsContext; nGridPoints: cmsUInt32Number; inputChan, outputChan: cmsUInt32Number; Table: LPcmsUInt16NumberArray): LPcmsStage; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageAllocCLutFloat(ContextID: cmsContext; nGridPoints: cmsUInt32Number; inputChan, outputChan: cmsUInt32Number; Table: LPcmsFloat32NumberArray): LPcmsStage; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageAllocCLut16bitGranular(ContextID: cmsContext; nGridPoints: LPcmsUInt32NumberArray; inputChan, outputChan: cmsUInt32Number; Table: LPcmsUInt16NumberArray): LPcmsStage; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageAllocCLutFloatGranular(ContextID: cmsContext; nGridPoints: LPcmsUInt32NumberArray; inputChan, outputChan: cmsUInt32Number; Table: LPcmsFloat32NumberArray): LPcmsStage; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageDup(mpe: LPcmsStage): LPcmsStage; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsStageFree(mpe: LPcmsStage); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageNext(mpe: LPcmsStage): LPcmsStage; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageInputChannels(mpe: LPcmsStage): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageOutputChannels(mpe: LPcmsStage): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageType(mpe: LPcmsStage): cmsStageSignature; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageData(mpe: LPcmsStage): Pointer; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageSampleCLut16bit(mpe: LPcmsStage; Sampler: cmsSAMPLER16; Cargo: Pointer; dwFlags: cmsUInt32Number): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsStageSampleCLutFloat(mpe: LPcmsStage; Sampler: cmsSAMPLERFLOAT; Cargo: Pointer; dwFlags: cmsUInt32Number): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsSliceSpace16(nInputs: cmsUInt32Number; clutPoints: LPcmsUInt32NumberArray;
|
||
|
|
Sampler: cmsSAMPLER16; Cargo: Pointer): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsSliceSpaceFloat(nInputs: cmsUInt32Number; clutPoints: LPcmsUInt32NumberArray;
|
||
|
|
Sampler: cmsSAMPLERFLOAT; Cargo: Pointer): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsMLUalloc(ContextID: cmsContext; nItems: cmsUInt32Number): LPcmsMLU; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsMLUfree(mlu: LPcmsMLU); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsMLUdup(mlu: LPcmsMLU): LPcmsMLU; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsMLUsetASCII(mlu: LPcmsMLU; LanguageCode, CountryCode, ASCIIString: PAnsiChar): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsMLUsetWide(mlu: LPcmsMLU; LanguageCode, CountryCode: PAnsiChar; WideString: PWChar): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsMLUgetASCII(mlu: LPcmsMLU; LanguageCode, CountryCode: PAnsiChar; Buffer: PAnsiChar; BufferSize: cmsUInt32Number): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsMLUgetWide(mlu: LPcmsMLU; LanguageCode, CountryCode: PAnsiChar; Buffer: PWChar; BufferSize: cmsUInt32Number): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsMLUgetTranslation(mlu: LPcmsMLU; LanguageCode, CountryCode, ObtainedLanguage, ObtainedCountry: PAnsiChar): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsAllocNamedColorList(ContextID: cmsContext; n, ColorantCount :cmsUInt32Number;
|
||
|
|
Prefix, Suffix: PAnsiChar): LPcmsNAMEDCOLORLIST; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
PROCEDURE cmsFreeNamedColorList(v: LPcmsNAMEDCOLORLIST); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsDupNamedColorList(v: LPcmsNAMEDCOLORLIST): LPcmsNAMEDCOLORLIST; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsAppendNamedColor(v: LPcmsNAMEDCOLORLIST; Name: PAnsiChar;
|
||
|
|
PCS, Colorant : LPcmsUInt16NumberArray): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsNamedColorCount(v: LPcmsNAMEDCOLORLIST): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsNamedColorIndex(v: LPcmsNAMEDCOLORLIST; Name: PAnsiChar): cmsInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsNamedColorInfo(v: LPcmsNAMEDCOLORLIST; nColor : cmsUInt32Number;
|
||
|
|
Name,Prefix, Suffix : PAnsiChar;
|
||
|
|
PCS, Colorant : LPcmsUInt16NumberArray): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsGetNamedColorList(xform: cmsHTRANSFORM ): LPcmsNAMEDCOLORLIST; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsAllocProfileSequenceDescription(ContextID: cmsContext; n: cmsUInt32Number):LPcmsSEQ; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsDupProfileSequenceDescription(pseq: LPcmsSEQ):LPcmsSEQ; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsFreeProfileSequenceDescription(pseq: LPcmsSEQ); StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsDictAlloc(ContextID: cmsContext): cmsHANDLE; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsDictFree(hDict: cmsHANDLE); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsDictDup(hDict: cmsHANDLE): cmsHANDLE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsDictAddEntry(hDict: cmsHANDLE; Name, Value: PWChar; DisplayName, DisplayValue : LPcmsMLU): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsDictGetEntryList(hDict: cmsHANDLE): LPcmsDICTentry; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsDictNextEntry(e : LPcmsDICTentry): LPcmsDICTentry; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateProfilePlaceholder(ContextID: cmsContext): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsGetProfileContextID(hProfile: cmsHPROFILE):cmsContext; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGetTagCount(hProfile: cmsHPROFILE): cmsInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGetTagSignature(hProfile: cmsHPROFILE; n: cmsUInt32Number): cmsTagSignature; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIsTag(hProfile: cmsHPROFILE; sig: cmsTagSignature ): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsReadTag(hProfile: cmsHPROFILE; sig: cmsTagSignature ): Pointer; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsWriteTag(hProfile: cmsHPROFILE; sig: cmsTagSignature; data: Pointer): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsLinkTag(hProfile: cmsHPROFILE; sig: cmsTagSignature; dest: cmsTagSignature): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsTagLinkedTo(hProfile: cmsHPROFILE; sig: cmsTagSignature):cmsTagSignature; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsReadRawTag(hProfile: cmsHPROFILE; sig: cmsTagSignature; Buffer: Pointer; BufferSize: cmsUInt32Number): cmsInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsWriteRawTag(hProfile: cmsHPROFILE; sig: cmsTagSignature; data: Pointer; Size: cmsUInt32Number): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsGetHeaderFlags(hProfile: cmsHPROFILE): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsGetHeaderAttributes(hProfile: cmsHPROFILE; Flags: LPcmsUInt64Number); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsGetHeaderProfileID(hProfile: cmsHPROFILE; ProfileID: LPcmsUInt8Number); StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsGetHeaderRenderingIntent(hProfile: cmsHPROFILE): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsSetHeaderFlags(hProfile: cmsHPROFILE; Flags: cmsUInt32Number); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGetHeaderManufacturer(hProfile: cmsHPROFILE): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsSetHeaderManufacturer(hProfile: cmsHPROFILE; manufacturer: cmsUInt32Number ); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGetHeaderModel(hProfile: cmsHPROFILE): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsSetHeaderModel(hProfile: cmsHPROFILE; model: cmsUInt32Number ); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsSetHeaderAttributes(hProfile: cmsHPROFILE; Flags: cmsUInt64Number); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsSetHeaderProfileID(hProfile: cmsHPROFILE; ProfileID: LPcmsUInt8Number); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsSetHeaderRenderingIntent(hProfile: cmsHPROFILE; RenderingIntent: cmsUInt32Number ); StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsGetPCS(hProfile: cmsHPROFILE):cmsColorSpaceSignature; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsSetPCS(hProfile: cmsHPROFILE; pcs: cmsColorSpaceSignature); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGetColorSpace(hProfile: cmsHPROFILE): cmsColorSpaceSignature; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsSetColorSpace(hProfile: cmsHPROFILE; sig: cmsColorSpaceSignature); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGetDeviceClass(hProfile: cmsHPROFILE): cmsProfileClassSignature; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsSetDeviceClass(hProfile: cmsHPROFILE; sig: cmsProfileClassSignature); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsSetProfileVersion(hProfile: cmsHPROFILE; Version: cmsFloat64Number); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGetProfileVersion(hProfile: cmsHPROFILE): cmsFloat64Number; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsGetEncodedICCversion(hProfile: cmsHPROFILE): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsSetEncodedICCversion(hProfile: cmsHPROFILE; Version: cmsUInt32Number); StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION cmsIsIntentSupported(hProfile: cmsHPROFILE; Intent: cmsUInt32Number; UsedDirection: cmsUInt32Number): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIsMatrixShaper(hProfile: cmsHPROFILE): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIsCLUT(hProfile: cmsHPROFILE; Intent: cmsUInt32Number; UsedDirection: cmsUInt32Number): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION _cmsICCcolorSpace(OurNotation: Integer): cmsColorSpaceSignature; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION _cmsLCMScolorSpace(ProfileSpace: cmsColorSpaceSignature): Integer; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsChannelsOf( ColorSpace: cmsColorSpaceSignature): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsFormatterForColorspaceOfProfile(hProfile: cmsHPROFILE; nBytes: cmsUInt32Number; lIsFloat: cmsBool): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsFormatterForPCSOfProfile(hProfile: cmsHPROFILE; nBytes: cmsUInt32Number; lIsFloat: cmsBool): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION cmsGetProfileInfo(hProfile: cmsHPROFILE; Info: cmsInfoType; LanguageCode, CountryCode: PAnsiChar;
|
||
|
|
Buffer: PWChar; BufferSize: cmsUInt32Number): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsGetProfileInfoASCII(hProfile: cmsHPROFILE; Info: cmsInfoType; LanguageCode, CountryCode: PAnsiChar;
|
||
|
|
Buffer: PAnsiChar; BufferSize: cmsUInt32Number): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION cmsOpenIOhandlerFromFile(ContextID: cmsContext; FileName, AccessMode: PAnsiChar): LPcmsIOHANDLER; StdCall; external LCMS2_SO;
|
||
|
|
// FUNCTION cmsOpenIOhandlerFromStream(ContextID: cmsContext; FILE* Stream): LPcmsIOHANDLER; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsOpenIOhandlerFromMem(ContextID: cmsContext; Buffer: Pointer; size: cmsUInt32Number; AccessMode: PAnsiChar): LPcmsIOHANDLER; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsOpenIOhandlerFromNULL(ContextID: cmsContext): LPcmsIOHANDLER; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsCloseIOhandler(io: LPcmsIOHANDLER): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsMD5computeID(hProfile: cmsHPROFILE): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsOpenProfileFromFile(ICCProfile : PAnsiChar; sAccess: PAnsiChar): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsOpenProfileFromFileTHR(ContextID: cmsContext; ICCProfile, sAccess: PAnsiChar): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
// FUNCTION CMSEXPORT cmsOpenProfileFromStream(FILE* ICCProfile, const char* sAccess): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
// FUNCTION CMSEXPORT cmsOpenProfileFromStreamTHR(ContextID: cmsContext; FILE* ICCProfile, const char* sAccess): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsOpenProfileFromMem(MemPtr: Pointer; dwSize: cmsUInt32Number): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsOpenProfileFromMemTHR(ContextID: cmsContext; MemPtr: Pointer; dwSize: cmsUInt32Number): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsOpenProfileFromIOhandlerTHR(ContextID: cmsContext; io: LPcmsIOHANDLER): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsCloseProfile(hProfile: cmsHPROFILE): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsSaveProfileToFile(hProfile: cmsHPROFILE; FileName: PAnsiChar): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
// FUNCTION CMSEXPORT cmsSaveProfileToStream(hProfile: cmsHPROFILE, FILE* Stream): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsSaveProfileToMem(hProfile: cmsHPROFILE; MemPtr: Pointer; BytesNeeded: LPcmsUInt32Number): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsSaveProfileToIOhandler(hProfile: cmsHPROFILE; io: LPcmsIOHANDLER):cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateRGBProfileTHR(ContextID: cmsContext;
|
||
|
|
WhitePoint: LPcmsCIExyY;
|
||
|
|
Primaries: LPcmsCIExyYTRIPLE;
|
||
|
|
TransferFunction: LPLPcmsToneCurveArray): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateRGBProfile(WhitePoint: LPcmsCIExyY;
|
||
|
|
Primaries: LPcmsCIExyYTRIPLE;
|
||
|
|
TransferFunction: LPLPcmsToneCurveArray): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateGrayProfileTHR(ContextID: cmsContext;
|
||
|
|
WhitePoint: LPcmsCIExyY;
|
||
|
|
TransferFunction: LPcmsToneCurve): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateGrayProfile(WhitePoint: LPcmsCIExyY;
|
||
|
|
TransferFunction: LPcmsToneCurve): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateLinearizationDeviceLinkTHR(ContextID: cmsContext;
|
||
|
|
ColorSpace: cmsColorSpaceSignature;
|
||
|
|
TransferFunctions: LPLPcmsToneCurveArray): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateLinearizationDeviceLink(ColorSpace: cmsColorSpaceSignature;
|
||
|
|
TransferFunctions: LPLPcmsToneCurveArray): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateInkLimitingDeviceLinkTHR(ContextID: cmsContext;
|
||
|
|
ColorSpace: cmsColorSpaceSignature; Limit: cmsFloat64Number): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateInkLimitingDeviceLink(ColorSpace: cmsColorSpaceSignature; Limit: cmsFloat64Number): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION cmsCreateLab2ProfileTHR(ContextID: cmsContext; WhitePoint: LPcmsCIExyY): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsCreateLab2Profile(WhitePoint: LPcmsCIExyY): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsCreateLab4ProfileTHR(ContextID: cmsContext; WhitePoint: LPcmsCIExyY): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsCreateLab4Profile(WhitePoint: LPcmsCIExyY): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateXYZProfileTHR(ContextID: cmsContext): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsCreateXYZProfile: cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreate_sRGBProfileTHR(ContextID: cmsContext): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsCreate_sRGBProfile: cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateBCHSWabstractProfileTHR(ContextID: cmsContext;
|
||
|
|
nLUTPoints: Integer;
|
||
|
|
Bright,
|
||
|
|
Contrast,
|
||
|
|
Hue,
|
||
|
|
Saturation: cmsFloat64Number;
|
||
|
|
TempSrc,
|
||
|
|
TempDest: Integer): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateBCHSWabstractProfile( nLUTPoints: Integer;
|
||
|
|
Bright,
|
||
|
|
Contrast,
|
||
|
|
Hue,
|
||
|
|
Saturation: cmsFloat64Number;
|
||
|
|
TempSrc,
|
||
|
|
TempDest: Integer): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateNULLProfileTHR(ContextID: cmsContext): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsCreateNULLProfile: cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
// Converts a transform to a devicelink profile
|
||
|
|
FUNCTION cmsTransform2DeviceLink(hTransform: cmsHTRANSFORM; Version: cmsFloat64Number; dwFlags: cmsUInt32Number): cmsHPROFILE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
// Call with NULL as parameters to get the intent count
|
||
|
|
FUNCTION cmsGetSupportedIntents(nMax: cmsUInt32Number; Codes: LPcmsUInt32Number; Descriptions: LPPAnsiChar): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsFLAGS_GRIDPOINTS(n: Integer): Integer; begin cmsFLAGS_GRIDPOINTS := (((n) and $FF) shl 16) end;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION cmsCreateTransformTHR(ContextID: cmsContext;
|
||
|
|
Input: cmsHPROFILE;
|
||
|
|
InputFormat: cmsUInt32Number;
|
||
|
|
Output: cmsHPROFILE;
|
||
|
|
OutputFormat: cmsUInt32Number;
|
||
|
|
Intent: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number): cmsHTRANSFORM; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateTransform(Input: cmsHPROFILE;
|
||
|
|
InputFormat: cmsUInt32Number;
|
||
|
|
Output: cmsHPROFILE;
|
||
|
|
OutputFormat: cmsUInt32Number;
|
||
|
|
Intent: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number): cmsHTRANSFORM; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateProofingTransformTHR(ContextID: cmsContext;
|
||
|
|
Input: cmsHPROFILE;
|
||
|
|
InputFormat: cmsUInt32Number;
|
||
|
|
Output: cmsHPROFILE;
|
||
|
|
OutputFormat: cmsUInt32Number;
|
||
|
|
Proofing: cmsHPROFILE;
|
||
|
|
Intent: cmsUInt32Number;
|
||
|
|
ProofingIntent: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number): cmsHTRANSFORM; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateProofingTransform(Input: cmsHPROFILE;
|
||
|
|
InputFormat: cmsUInt32Number;
|
||
|
|
Output: cmsHPROFILE;
|
||
|
|
OutputFormat: cmsUInt32Number;
|
||
|
|
Proofing: cmsHPROFILE;
|
||
|
|
Intent: cmsUInt32Number;
|
||
|
|
ProofingIntent: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number): cmsHTRANSFORM; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsCreateMultiprofileTransformTHR(ContextID: cmsContext;
|
||
|
|
hProfiles: LPcmsHPROFILEArray;
|
||
|
|
nProfiles: cmsUInt32Number;
|
||
|
|
InputFormat: cmsUInt32Number;
|
||
|
|
OutputFormat: cmsUInt32Number;
|
||
|
|
Intent: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number): cmsHTRANSFORM; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION cmsCreateMultiprofileTransform( hProfiles: LPcmsHPROFILEArray;
|
||
|
|
nProfiles: cmsUInt32Number;
|
||
|
|
InputFormat: cmsUInt32Number;
|
||
|
|
OutputFormat: cmsUInt32Number;
|
||
|
|
Intent: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number): cmsHTRANSFORM; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION cmsCreateExtendedTransform(ContextID: cmsContext;
|
||
|
|
nProfiles: cmsUInt32Number;
|
||
|
|
hProfiles: LPcmsHPROFILEArray;
|
||
|
|
BPC: LPcmsBoolArray;
|
||
|
|
Intents: LPcmsUInt32NumberArray;
|
||
|
|
AdaptationStates: LPcmsFloat64NumberArray;
|
||
|
|
hGamutProfile: cmsHPROFILE;
|
||
|
|
nGamutPCSposition: cmsUInt32Number;
|
||
|
|
InputFormat,
|
||
|
|
OutputFormat: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number): cmsHTRANSFORM; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
PROCEDURE cmsDeleteTransform(hTransform: cmsHTRANSFORM); StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
PROCEDURE cmsDoTransform(Transform: cmsHTRANSFORM; InputBuffer, OutputBuffer: Pointer; size: cmsUInt32Number); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsDoTransformStride(Transform: cmsHTRANSFORM; InputBuffer, OutputBuffer: Pointer; size: cmsUInt32Number; stride: cmsUInt32Number); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsSetAlarmCodes( NewAlarm: LPcmsUInt16NumberArray); StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsGetAlarmCodes(NewAlarm: LPcmsUInt16NumberArray); StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
// Adaptation state for absolute colorimetric intent
|
||
|
|
FUNCTION cmsSetAdaptationState(d: cmsFloat64Number):cmsFloat64Number; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
// Grab the ContextID from an open transform. Returns NULL if a NULL transform is passed
|
||
|
|
FUNCTION cmsGetTransformContextID(hTransform: cmsHTRANSFORM):cmsContext; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
// For backwards compatibility
|
||
|
|
FUNCTION cmsChangeBuffersFormat(hTransform: cmsHTRANSFORM; InputFormat, OutputFormat: cmsUInt32Number): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
|
||
|
|
// lcms2 unified method to access postscript color resources
|
||
|
|
FUNCTION cmsGetPostScriptColorResource(ContextID: cmsContext; RType: cmsPSResourceType;
|
||
|
|
hProfile: cmsHPROFILE;
|
||
|
|
Intent: cmsUInt32Number;
|
||
|
|
dwFlags: cmsUInt32Number;
|
||
|
|
io: LPcmsIOHANDLER): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsGetPostScriptCSA(ContextID: cmsContext; hProfile: cmsHPROFILE; Intent: cmsUInt32Number; dwFlags: cmsUInt32Number; Buffer: Pointer; dwBufferLen: cmsUInt32Number ): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGetPostScriptCRD(ContextID: cmsContext; hProfile: cmsHPROFILE; Intent: cmsUInt32Number; dwFlags: cmsUInt32Number; Buffer: Pointer; dwBufferLen: cmsUInt32Number): cmsUInt32Number; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
|
||
|
|
// CGATS.13 parser
|
||
|
|
|
||
|
|
FUNCTION cmsIT8Alloc: cmsHANDLE; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsIT8Free(hIT8: cmsHANDLE); StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
// Tables
|
||
|
|
|
||
|
|
FUNCTION cmsIT8TableCount(hIT8: cmsHANDLE): Integer; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIT8SetTable(hIT8: cmsHANDLE; nTable: Integer): Integer; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
// Persistence
|
||
|
|
FUNCTION cmsIT8LoadFromFile(cFileName: PAnsiChar): cmsHANDLE; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIT8LoadFromMem(Ptr: Pointer; size :DWord): cmsHANDLE; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SaveToFile(hIT8: cmsHANDLE; cFileName: PAnsiChar): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIT8SaveToMem(hIT8: cmsHANDLE; MemPtr: Pointer; BytesNeeded: LPcmsUInt32Number): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
// Properties
|
||
|
|
|
||
|
|
FUNCTION cmsIT8GetSheetType(hIT8: cmsHANDLE): PAnsiChar; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIT8SetSheetType(hIT8: cmsHANDLE; TheType: PAnsiChar): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SetComment(hIT8: cmsHANDLE; cComment: PAnsiChar): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SetPropertyStr(hIT8: cmsHANDLE; cProp, Str: PAnsiChar): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIT8SetPropertyDbl(hIT8: cmsHANDLE; cProp: PAnsiChar; Val: Double): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIT8SetPropertyHex(hIT8: cmsHANDLE; cProp: PAnsiChar; Val: Integer): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIT8SetPropertyUncooked(hIT8: cmsHANDLE; Key, Buffer: PAnsiChar): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION cmsIT8GetProperty(hIT8: cmsHANDLE; cProp: PAnsiChar): PAnsiChar; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIT8GetPropertyDbl(hIT8: cmsHANDLE; cProp: PAnsiChar): Double; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIT8EnumProperties(hIT8: cmsHANDLE; var PropertyNames: LPPAnsiChar): Integer; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
// Datasets
|
||
|
|
|
||
|
|
FUNCTION cmsIT8GetDataRowCol(hIT8: cmsHANDLE; row, col: Integer): PAnsiChar; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIT8GetDataRowColDbl(hIT8: cmsHANDLE; row, col: Integer): Double; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SetDataRowCol(hIT8: cmsHANDLE; row, col: Integer; Val: PAnsiChar): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIT8SetDataRowColDbl(hIT8: cmsHANDLE; row, col: Integer; Val: Double): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8GetData(hIT8: cmsHANDLE; cPatch, cSample: PAnsiChar): PAnsiChar; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8GetDataDbl(hIT8: cmsHANDLE;cPatch, cSample: PAnsiChar): Double; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SetData(hIT8: cmsHANDLE; cPatch, cSample, Val: PAnsiChar): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SetDataDbl(hIT8: cmsHANDLE; cPatch, cSample: PAnsiChar; Val: Double): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SetDataFormat(hIT8: cmsHANDLE; n: Integer; Sample: PAnsiChar): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIT8EnumDataFormat(hIT8: cmsHANDLE; var SampleNames: LPPAnsiChar): Integer; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsIT8GetPatchName(hIT8: cmsHANDLE; nPatch: Integer; Buffer: PAnsiChar): PAnsiChar; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
// The LABEL extension
|
||
|
|
|
||
|
|
FUNCTION cmsIT8SetTableByLabel(hIT8: cmsHANDLE; cSet, cField, ExpectedType: PAnsiChar): Integer; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsIT8FindDataFormat(hIT8: cmsHANDLE; cSample: PAnsiChar): Integer; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
// Formatter for double
|
||
|
|
PROCEDURE cmsIT8DefineDblFormat(hIT8: cmsHANDLE; Formatter: PAnsiChar); StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsGBDAlloc(ContextID: cmsContext):cmsHANDLE; StdCall; external LCMS2_SO;
|
||
|
|
PROCEDURE cmsGBDFree(hGBD: cmsHANDLE); StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGDBAddPoint(hGBD: cmsHANDLE; Lab: LPcmsCIELab): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGDBCompute(hGDB: cmsHANDLE; dwFlags: cmsUInt32Number): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsGDBCheckPoint(hGBD: cmsHANDLE; Lab: LPcmsCIELab): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsDetectBlackPoint( BlackPoint: LPcmsCIEXYZ; hProfile: cmsHPROFILE; Intent: cmsUInt32Number; dwFlags: cmsUInt32Number): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
FUNCTION cmsDetectDestinationBlackPoint( BlackPoint: LPcmsCIEXYZ; hProfile: cmsHPROFILE; Intent: cmsUInt32Number; dwFlags: cmsUInt32Number): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsDetectTAC(hProfile: cmsHPROFILE): cmsFloat64Number; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
FUNCTION cmsDesaturateLab(Lab: LPcmsCIELab; amax, amin, bmax, bmin: cmsFloat64Number): cmsBool; StdCall; external LCMS2_SO;
|
||
|
|
|
||
|
|
END.
|