Blame | Last modification | View Log | RSS feed
# Crown Copyright (c) 1997
#
# This TenDRA(r) Computer Program is subject to Copyright
# owned by the United Kingdom Secretary of State for Defence
# acting through the Defence Evaluation and Research Agency
# (DERA). It is made available to Recipients with a
# royalty-free licence for its use, reproduction, transfer
# to other parties and amendment for any purpose not excluding
# product development provided that any such use et cetera
# shall be deemed to be acceptance of the following conditions:-
#
# (1) Its Recipients shall ensure that this Notice is
# reproduced upon any copies or amended versions of it;
#
# (2) Any amended version of it shall be clearly marked to
# show both the nature of and the organisation responsible
# for the relevant amendment or amendments;
#
# (3) Its onward transfer from a recipient to another
# party shall be deemed to be that party's acceptance of
# these conditions;
#
# (4) DERA gives no warranty or assurance as to its
# quality or suitability for any purpose and DERA accepts
# no liability whatsoever in relation to any use to which
# it may be put.
#
# Colour management facilities
+USE "x5/lib", "X11/Xlib.h" ; # needed
# Colour Structures (6.1)
+TYPE ( int ) XcmsColorFormat ; # RCA : ulong in spec, uint in mit
+TYPEDEF double XcmsFloat ;
+FIELD ( struct ) XcmsRGB := { unsigned short red, green, blue ; } ;
+FIELD ( struct ) XcmsRGBi := { XcmsFloat red, green, blue ; } ;
+FIELD ( struct ) XcmsCIEXYZ := { XcmsFloat X, Y, Z ; } ;
+FIELD ( struct ) XcmsCIEuvY := { XcmsFloat u_prime, v_prime, Y ; } ;
+FIELD ( struct ) XcmsCIExyY := { XcmsFloat x, y, Y ; } ;
+FIELD ( struct ) XcmsCIELab := { XcmsFloat L_star, a_star, b_star ; } ;
+FIELD ( struct ) XcmsCIELuv := { XcmsFloat L_star, u_star, v_star ; } ;
+FIELD ( struct ) XcmsTekHVC := { XcmsFloat H, V, C ; } ;
+FIELD ( struct ) XcmsPad := { XcmsFloat pad0, pad1, pad2, pad3 ; } ;
+FIELD union ~XcmsSpec := {
XcmsRGB RGB ;
XcmsRGBi RGBi ;
XcmsCIEXYZ CIEXYZ ;
XcmsCIEuvY CIEuvY ;
XcmsCIExyY CIExyY ;
XcmsCIELab CIELab ;
XcmsCIELuv CIELuv ;
XcmsTekHVC TekHVC ;
XcmsPad Pad ;
} ;
+FIELD ( struct ) XcmsColor := {
union ~XcmsSpec spec ;
XcmsColorFormat format ;
unsigned long pixel ;
} ;
+DEFINE XcmsUndefinedFormat %% 0x00000000 %% ;
+DEFINE XcmsCIEXYZFormat %% 0x00000001 %% ;
+DEFINE XcmsCIEuvYFormat %% 0x00000002 %% ;
+DEFINE XcmsCIExyYFormat %% 0x00000003 %% ;
+DEFINE XcmsCIELabFormat %% 0x00000004 %% ;
+DEFINE XcmsCIELuvFormat %% 0x00000005 %% ;
+DEFINE XcmsTekHVCFormat %% 0x00000006 %% ;
+DEFINE XcmsRGBFormat %% 0x80000000 %% ;
+DEFINE XcmsRGBiFormat %% 0x80000001 %% ;
# Mapping colour names to values (6.5)
+CONST Status XcmsSuccess, XcmsSuccessWithCompression, XcmsFailure ;
+FUNC Status XcmsLookupColor ( Display *, Colormap, char *, XcmsColor *,
XcmsColor *, XcmsColorFormat ) ;
# Allocating and Freeing Colour cells (6.6)
+FUNC Status XcmsAllocColor ( Display *, Colormap, XcmsColor *,
XcmsColorFormat ) ;
+FUNC Status XcmsAllocNamedColor ( Display *, Colormap, char *,
XcmsColor *, XcmsColor *, XcmsColorFormat ) ; # RCA : Error in spec?
# Modifying and Querying Colormap Cells (6.7)
+FUNC Status XcmsStoreColor ( Display *, Colormap, XcmsColor * ) ;
+FUNC Status XcmsStoreColors ( Display *, Colormap, XcmsColor [],
unsigned int, Bool [] ) ; # RCA : Error in spec ?
+FUNC Status XcmsQueryColor ( Display *, Colormap, XcmsColor *,
XcmsColorFormat ) ;
+FUNC Status XcmsQueryColors ( Display *, Colormap, XcmsColor [],
unsigned int, XcmsColorFormat ) ;
# Colour Conversion Contexts (6.8, 6.10.1, 6.10.3)
+TYPE ~XcmsCCCRec ;
+TYPEDEF ~XcmsCCCRec *XcmsCCC ; # RCA : no information given
+TYPEDEF Status ( *XcmsCompressionProc ) ( XcmsCCC, XcmsColor [],
unsigned int, unsigned int, Bool [] ) ;
+TYPEDEF Status ( *XcmsWhiteAdjustProc ) ( XcmsCCC, XcmsColor *,
XcmsColor *, XcmsColorFormat, XcmsColor [], unsigned int, Bool [] ) ;
# Getting and Setting CCC of a Colormap (6.8.1)
+FUNC XcmsCCC XcmsCCCOfColormap ( Display *, Colormap ) ;
+FUNC XcmsCCC XcmsSetCCCOfColormap ( Display *, Colormap, XcmsCCC ) ;
# Getting the default CC (6.8.2)
+FUNC XcmsCCC XcmsDefaultCCC ( Display *, int ) ;
# CCC macros (6.8.3)
+FUNC Display *XcmsDisplayOfCCC ( XcmsCCC ) ;
+FUNC Visual *XcmsVisualOfCCC ( XcmsCCC ) ;
+FUNC int XcmsScreenNumberOfCCC ( XcmsCCC ) ;
+FUNC XcmsColor *XcmsScreenWhitePointOfCCC ( XcmsCCC ) ;
+FUNC XcmsColor *XcmsClientWhitePointOfCCC ( XcmsCCC ) ;
+MACRO Display *DisplayOfCCC ( XcmsCCC ) ;
+MACRO Visual *VisualOfCCC ( XcmsCCC ) ;
+MACRO int ScreenNumberOfCCC ( XcmsCCC ) ;
+MACRO XcmsColor *ScreenWhitePointOfCCC ( XcmsCCC ) ;
+MACRO XcmsColor *ClientWhitePointOfCCC ( XcmsCCC ) ;
# Modifying attributes of a CCC (6.8.4)
+FUNC Status XcmsSetWhitePoint ( XcmsCCC, XcmsColor * ) ;
+FUNC XcmsCompressionProc XcmsSetCompressionProc ( XcmsCCC,
XcmsCompressionProc, XPointer ) ;
+FUNC XcmsWhiteAdjustProc XcmsSetWhiteAdjustProc ( XcmsCCC,
XcmsWhiteAdjustProc, XPointer ) ;
# Creating and Freeing a CCC (6.8.5)
+FUNC XcmsCCC XcmsCreateCCC ( Display *, int, Visual *, XcmsColor *,
XcmsCompressionProc, XPointer, XcmsWhiteAdjustProc, XPointer ) ;
+FUNC void XcmsFreeCCC ( XcmsCCC ) ;
# Converting between Colour spaces (6.9)
+FUNC Status XcmsConvertColors ( XcmsCCC, XcmsColor [], unsigned int,
XcmsColorFormat, Bool [] ) ;
# Supplied Gamut Compression Procedures (6.10.2)
+FUNC Status XcmsCIELabClipL ( XcmsCCC, XcmsColor [], unsigned int,
unsigned int, Bool [] ) ;
+FUNC Status XcmsCIELabClipab ( XcmsCCC, XcmsColor [], unsigned int,
unsigned int, Bool [] ) ;
+FUNC Status XcmsCIELabClipLab ( XcmsCCC, XcmsColor [], unsigned int,
unsigned int, Bool [] ) ;
+FUNC Status XcmsCIELuvClipL ( XcmsCCC, XcmsColor [], unsigned int,
unsigned int, Bool [] ) ;
+FUNC Status XcmsCIELuvClipuv ( XcmsCCC, XcmsColor [], unsigned int,
unsigned int, Bool [] ) ;
+FUNC Status XcmsCIELuvClipLuv ( XcmsCCC, XcmsColor [], unsigned int,
unsigned int, Bool [] ) ;
+FUNC Status XcmsTekHVCClipV ( XcmsCCC, XcmsColor [], unsigned int,
unsigned int, Bool [] ) ;
+FUNC Status XcmsTekHVCClipC ( XcmsCCC, XcmsColor [], unsigned int,
unsigned int, Bool [] ) ;
+FUNC Status XcmsTekHVCClipVC ( XcmsCCC, XcmsColor [], unsigned int,
unsigned int, Bool [] ) ;
# Supplied White Point Adjustment Procedures (6.10.4)
+FUNC Status XcmsCIELabWhiteShiftColors ( XcmsCCC, XcmsColor *,
XcmsColor *, XcmsColorFormat, XcmsColor [], unsigned int, Bool [] ) ;
+FUNC Status XcmsCIELuvWhiteShiftColors ( XcmsCCC, XcmsColor *,
XcmsColor *, XcmsColorFormat, XcmsColor [], unsigned int, Bool [] ) ;
+FUNC Status XcmsTekHVCWhiteShiftColors ( XcmsCCC, XcmsColor *,
XcmsColor *, XcmsColorFormat, XcmsColor [], unsigned int, Bool [] ) ;
# Red, Green and Blue Queries (6.11.1)
+FUNC Status XcmsQueryBlack ( XcmsCCC, XcmsColorFormat, XcmsColor * ) ;
+FUNC Status XcmsQueryBlue ( XcmsCCC, XcmsColorFormat, XcmsColor * ) ;
+FUNC Status XcmsQueryGreen ( XcmsCCC, XcmsColorFormat, XcmsColor * ) ;
+FUNC Status XcmsQueryRed ( XcmsCCC, XcmsColorFormat, XcmsColor * ) ;
+FUNC Status XcmsQueryWhite ( XcmsCCC, XcmsColorFormat, XcmsColor * ) ;
# CIELab Queries (6.11.2)
+FUNC Status XcmsCIELabQueryMaxC ( XcmsCCC, XcmsFloat, XcmsFloat,
XcmsColor * ) ;
+FUNC Status XcmsCIELabQueryMaxL ( XcmsCCC, XcmsFloat, XcmsFloat,
XcmsColor * ) ;
+FUNC Status XcmsCIELabQueryMaxLC ( XcmsCCC, XcmsFloat, XcmsColor * ) ;
+FUNC Status XcmsCIELabQueryMinL ( XcmsCCC, XcmsFloat, XcmsFloat,
XcmsColor * ) ;
# CIELuv Queries (6.11.3)
+FUNC Status XcmsCIELuvQueryMaxC ( XcmsCCC, XcmsFloat, XcmsFloat,
XcmsColor * ) ;
+FUNC Status XcmsCIELuvQueryMaxL ( XcmsCCC, XcmsFloat, XcmsFloat,
XcmsColor * ) ;
+FUNC Status XcmsCIELuvQueryMaxLC ( XcmsCCC, XcmsFloat, XcmsColor * ) ;
+FUNC Status XcmsCIELuvQueryMinL ( XcmsCCC, XcmsFloat, XcmsFloat,
XcmsColor * ) ;
# TekHVC Queries (6.11.4)
+FUNC Status XcmsTekHVCQueryMaxC ( XcmsCCC, XcmsFloat, XcmsFloat,
XcmsColor * ) ;
+FUNC Status XcmsTekHVCQueryMaxV ( XcmsCCC, XcmsFloat, XcmsFloat,
XcmsColor * ) ;
+FUNC Status XcmsTekHVCQueryMaxVC ( XcmsCCC, XcmsFloat, XcmsColor * ) ;
+FUNC Status XcmsTekHVCQueryMaxVSamples ( XcmsCCC, XcmsFloat, XcmsColor [],
unsigned int ) ;
+FUNC Status XcmsTekHVCQueryMinV ( XcmsCCC, XcmsFloat, XcmsFloat,
XcmsColor * ) ;
# Creating Additional Colour spaces (6.12.4, 6.12.5)
+TYPEDEF Status ( *XcmsConversionProc ) () ;
+TYPEDEF XcmsConversionProc *XcmsFuncListPtr ;
+TYPEDEF int ( *XcmsParseStringProc ) ( char *, XcmsColor * ) ;
+FIELD ( struct ) XcmsColorSpace := {
char *prefix ;
XcmsColorFormat format ;
XcmsParseStringProc parseString ;
XcmsFuncListPtr to_CIEXYZ ;
XcmsFuncListPtr from_CIEXYZ ;
int inverse_flag ;
} ;
# Adding Device-independent Colour spaces (6.12.2)
+FUNC Status XcmsAddColorSpace ( XcmsColorSpace * ) ;
# Querying Colour spaces (6.12.3)
+FUNC XcmsColorFormat XcmsFormatOfPrefix ( char * ) ;
+FUNC char *XcmsPrefixOfFormat ( XcmsColorFormat ) ;
# Conversion Routines (6.12.6)
+FUNC Status XcmsCIELabToCIEXYZ ( XcmsCCC, XcmsColor *, XcmsColor *,
unsigned int ) ;
+FUNC Status XcmsCIELuvToCIEuvY ( XcmsCCC, XcmsColor *, XcmsColor *,
unsigned int ) ;
+FUNC Status XcmsCIEXYZToCIELab ( XcmsCCC, XcmsColor *, XcmsColor *,
unsigned int ) ;
+FUNC Status XcmsCIEXYZToCIEuvY ( XcmsCCC, XcmsColor *, XcmsColor *,
unsigned int ) ;
+FUNC Status XcmsCIEXYZToCIExyY ( XcmsCCC, XcmsColor *, XcmsColor *,
unsigned int ) ;
+FUNC Status XcmsCIEuvYToCIELuv ( XcmsCCC, XcmsColor *, XcmsColor *,
unsigned int ) ;
+FUNC Status XcmsCIEuvYToCIEXYZ ( XcmsCCC, XcmsColor *, XcmsColor *,
unsigned int ) ;
+FUNC Status XcmsCIEuvYToTekHVC ( XcmsCCC, XcmsColor *, XcmsColor *,
unsigned int ) ;
+FUNC Status XcmsCIExyYToCIEXYZ ( XcmsCCC, XcmsColor *, XcmsColor *,
unsigned int ) ;
+FUNC Status XcmsTekHVCToCIEuvY ( XcmsCCC, XcmsColor *, XcmsColor *,
unsigned int ) ;
+FUNC Status XcmsCIEXYZToRGBi ( XcmsCCC, XcmsColor *, unsigned int, Bool * ) ;
+FUNC Status XcmsRGBToRGBi ( XcmsCCC, XcmsColor *, unsigned int, Bool * ) ;
+FUNC Status XcmsRGBiToCIEXYZ ( XcmsCCC, XcmsColor *, unsigned int, Bool * ) ;
+FUNC Status XcmsRGBiToRGB ( XcmsCCC, XcmsColor *, unsigned int, Bool * ) ;
# Adding Function Sets (6.12.8, 6.12.9)
+FIELD ( struct ) XcmsPerScrnInfo := {
XcmsColor screenWhitePoint ;
XPointer functionSet ;
XPointer screenData ;
unsigned char state ;
char pad [3] ;
} ;
+TYPEDEF Status ( *XcmsScreenInitProc ) ( Display *, int,
XcmsPerScrnInfo * ) ;
+TYPEDEF void ( *XcmsScreenFreeProc ) ( XPointer ) ;
+CONST Status XcmsInitNone, XcmsInitFailure, XcmsInitSuccess ;
+FIELD ( struct ) XcmsFunctionSet := {
XcmsColorSpace **DDColorSpaces ;
XcmsScreenInitProc screenInitProc ;
XcmsScreenFreeProc screenFreeProc ;
} ;
+FUNC Status XcmsAddFunctionSet ( XcmsFunctionSet * ) ;