version0.7.10
This commit is contained in:
Andreas Rumpf
parent
ce88dc3e67
commit
4d4b3b1c04
193 changed files with 9099 additions and 17637 deletions
|
|
@ -1,396 +0,0 @@
|
|||
|
||||
import
|
||||
x, xlib
|
||||
|
||||
#const
|
||||
# libX11* = "X11"
|
||||
|
||||
#
|
||||
# Automatically converted by H2Pas 0.99.15 from xcms.h
|
||||
# The following command line parameters were used:
|
||||
# -p
|
||||
# -T
|
||||
# -S
|
||||
# -d
|
||||
# -c
|
||||
# xcms.h
|
||||
#
|
||||
|
||||
const
|
||||
XcmsFailure* = 0
|
||||
XcmsSuccess* = 1
|
||||
XcmsSuccessWithCompression* = 2
|
||||
|
||||
type
|
||||
PXcmsColorFormat* = ptr TXcmsColorFormat
|
||||
TXcmsColorFormat* = int32
|
||||
|
||||
proc XcmsUndefinedFormat*(): TXcmsColorFormat
|
||||
proc XcmsCIEXYZFormat*(): TXcmsColorFormat
|
||||
proc XcmsCIEuvYFormat*(): TXcmsColorFormat
|
||||
proc XcmsCIExyYFormat*(): TXcmsColorFormat
|
||||
proc XcmsCIELabFormat*(): TXcmsColorFormat
|
||||
proc XcmsCIELuvFormat*(): TXcmsColorFormat
|
||||
proc XcmsTekHVCFormat*(): TXcmsColorFormat
|
||||
proc XcmsRGBFormat*(): TXcmsColorFormat
|
||||
proc XcmsRGBiFormat*(): TXcmsColorFormat
|
||||
const
|
||||
XcmsInitNone* = 0x00000000
|
||||
XcmsInitSuccess* = 0x00000001
|
||||
XcmsInitFailure* = 0x000000FF
|
||||
|
||||
when defined(MACROS):
|
||||
proc DisplayOfCCC*(ccc: int32): int32
|
||||
proc ScreenNumberOfCCC*(ccc: int32): int32
|
||||
proc VisualOfCCC*(ccc: int32): int32
|
||||
proc ClientWhitePointOfCCC*(ccc: int32): int32
|
||||
proc ScreenWhitePointOfCCC*(ccc: int32): int32
|
||||
proc FunctionSetOfCCC*(ccc: int32): int32
|
||||
type
|
||||
PXcmsFloat* = ptr TXcmsFloat
|
||||
TXcmsFloat* = float64
|
||||
PXcmsRGB* = ptr TXcmsRGB
|
||||
TXcmsRGB*{.final.} = object
|
||||
red*: int16
|
||||
green*: int16
|
||||
blue*: int16
|
||||
|
||||
PXcmsRGBi* = ptr TXcmsRGBi
|
||||
TXcmsRGBi*{.final.} = object
|
||||
red*: TXcmsFloat
|
||||
green*: TXcmsFloat
|
||||
blue*: TXcmsFloat
|
||||
|
||||
PXcmsCIEXYZ* = ptr TXcmsCIEXYZ
|
||||
TXcmsCIEXYZ*{.final.} = object
|
||||
X*: TXcmsFloat
|
||||
Y*: TXcmsFloat
|
||||
Z*: TXcmsFloat
|
||||
|
||||
PXcmsCIEuvY* = ptr TXcmsCIEuvY
|
||||
TXcmsCIEuvY*{.final.} = object
|
||||
u_prime*: TXcmsFloat
|
||||
v_prime*: TXcmsFloat
|
||||
Y*: TXcmsFloat
|
||||
|
||||
PXcmsCIExyY* = ptr TXcmsCIExyY
|
||||
TXcmsCIExyY*{.final.} = object
|
||||
x*: TXcmsFloat
|
||||
y*: TXcmsFloat
|
||||
theY*: TXcmsFloat
|
||||
|
||||
PXcmsCIELab* = ptr TXcmsCIELab
|
||||
TXcmsCIELab*{.final.} = object
|
||||
L_star*: TXcmsFloat
|
||||
a_star*: TXcmsFloat
|
||||
b_star*: TXcmsFloat
|
||||
|
||||
PXcmsCIELuv* = ptr TXcmsCIELuv
|
||||
TXcmsCIELuv*{.final.} = object
|
||||
L_star*: TXcmsFloat
|
||||
u_star*: TXcmsFloat
|
||||
v_star*: TXcmsFloat
|
||||
|
||||
PXcmsTekHVC* = ptr TXcmsTekHVC
|
||||
TXcmsTekHVC*{.final.} = object
|
||||
H*: TXcmsFloat
|
||||
V*: TXcmsFloat
|
||||
C*: TXcmsFloat
|
||||
|
||||
PXcmsPad* = ptr TXcmsPad
|
||||
TXcmsPad*{.final.} = object
|
||||
pad0*: TXcmsFloat
|
||||
pad1*: TXcmsFloat
|
||||
pad2*: TXcmsFloat
|
||||
pad3*: TXcmsFloat
|
||||
|
||||
PXcmsColor* = ptr TXcmsColor
|
||||
TXcmsColor*{.final.} = object # spec : record
|
||||
# case longint of
|
||||
# 0 : ( RGB : TXcmsRGB );
|
||||
# 1 : ( RGBi : TXcmsRGBi );
|
||||
# 2 : ( CIEXYZ : TXcmsCIEXYZ );
|
||||
# 3 : ( CIEuvY : TXcmsCIEuvY );
|
||||
# 4 : ( CIExyY : TXcmsCIExyY );
|
||||
# 5 : ( CIELab : TXcmsCIELab );
|
||||
# 6 : ( CIELuv : TXcmsCIELuv );
|
||||
# 7 : ( TekHVC : TXcmsTekHVC );
|
||||
# 8 : ( Pad : TXcmsPad );
|
||||
# end;
|
||||
pad*: TXcmsPad
|
||||
pixel*: int32
|
||||
format*: TXcmsColorFormat
|
||||
|
||||
PXcmsPerScrnInfo* = ptr TXcmsPerScrnInfo
|
||||
TXcmsPerScrnInfo*{.final.} = object
|
||||
screenWhitePt*: TXcmsColor
|
||||
functionSet*: TXPointer
|
||||
screenData*: TXPointer
|
||||
state*: int8
|
||||
pad*: array[0..2, char]
|
||||
|
||||
PXcmsCCC* = ptr TXcmsCCC
|
||||
TXcmsCompressionProc* = proc (para1: PXcmsCCC, para2: PXcmsColor,
|
||||
para3: int32, para4: int32, para5: PBool): TStatus{.
|
||||
cdecl.}
|
||||
TXcmsWhiteAdjustProc* = proc (para1: PXcmsCCC, para2: PXcmsColor,
|
||||
para3: PXcmsColor, para4: TXcmsColorFormat,
|
||||
para5: PXcmsColor, para6: int32, para7: PBool): TStatus{.
|
||||
cdecl.}
|
||||
TXcmsCCC*{.final.} = object
|
||||
dpy*: PDisplay
|
||||
screenNumber*: int32
|
||||
visual*: PVisual
|
||||
clientWhitePt*: TXcmsColor
|
||||
gamutCompProc*: TXcmsCompressionProc
|
||||
gamutCompClientData*: TXPointer
|
||||
whitePtAdjProc*: TXcmsWhiteAdjustProc
|
||||
whitePtAdjClientData*: TXPointer
|
||||
pPerScrnInfo*: PXcmsPerScrnInfo
|
||||
|
||||
TXcmsCCCRec* = TXcmsCCC
|
||||
PXcmsCCCRec* = ptr TXcmsCCCRec
|
||||
TXcmsScreenInitProc* = proc (para1: PDisplay, para2: int32,
|
||||
para3: PXcmsPerScrnInfo): TStatus{.cdecl.}
|
||||
TXcmsScreenFreeProc* = proc (para1: TXPointer){.cdecl.}
|
||||
TXcmsConversionProc* = proc (){.cdecl.}
|
||||
PXcmsFuncListPtr* = ptr TXcmsFuncListPtr
|
||||
TXcmsFuncListPtr* = TXcmsConversionProc
|
||||
TXcmsParseStringProc* = proc (para1: cstring, para2: PXcmsColor): int32{.cdecl.}
|
||||
PXcmsColorSpace* = ptr TXcmsColorSpace
|
||||
TXcmsColorSpace*{.final.} = object
|
||||
prefix*: cstring
|
||||
id*: TXcmsColorFormat
|
||||
parseString*: TXcmsParseStringProc
|
||||
to_CIEXYZ*: TXcmsFuncListPtr
|
||||
from_CIEXYZ*: TXcmsFuncListPtr
|
||||
inverse_flag*: int32
|
||||
|
||||
PXcmsFunctionSet* = ptr TXcmsFunctionSet
|
||||
TXcmsFunctionSet*{.final.} = object # error
|
||||
#extern Status XcmsAddColorSpace (
|
||||
#in declaration at line 323
|
||||
DDColorSpaces*: ptr PXcmsColorSpace
|
||||
screenInitProc*: TXcmsScreenInitProc
|
||||
screenFreeProc*: TXcmsScreenFreeProc
|
||||
|
||||
|
||||
proc XcmsAddFunctionSet*(para1: PXcmsFunctionSet): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsAllocColor*(para1: PDisplay, para2: TColormap, para3: PXcmsColor,
|
||||
para4: TXcmsColorFormat): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsAllocNamedColor*(para1: PDisplay, para2: TColormap, para3: cstring,
|
||||
para4: PXcmsColor, para5: PXcmsColor,
|
||||
para6: TXcmsColorFormat): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCCCOfColormap*(para1: PDisplay, para2: TColormap): TXcmsCCC{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCIELabClipab*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCIELabClipL*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCIELabClipLab*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCIELabQueryMaxC*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsCIELabQueryMaxL*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsCIELabQueryMaxLC*(para1: TXcmsCCC, para2: TXcmsFloat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIELabQueryMinL*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsCIELabToCIEXYZ*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIELabWhiteShiftColors*(para1: TXcmsCCC, para2: PXcmsColor,
|
||||
para3: PXcmsColor, para4: TXcmsColorFormat,
|
||||
para5: PXcmsColor, para6: int32, para7: PBool): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIELuvClipL*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCIELuvClipLuv*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCIELuvClipuv*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCIELuvQueryMaxC*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsCIELuvQueryMaxL*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsCIELuvQueryMaxLC*(para1: TXcmsCCC, para2: TXcmsFloat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIELuvQueryMinL*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsCIELuvToCIEuvY*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIELuvWhiteShiftColors*(para1: TXcmsCCC, para2: PXcmsColor,
|
||||
para3: PXcmsColor, para4: TXcmsColorFormat,
|
||||
para5: PXcmsColor, para6: int32, para7: PBool): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIEXYZToCIELab*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIEXYZToCIEuvY*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIEXYZToCIExyY*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIEXYZToRGBi*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: PBool): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIEuvYToCIELuv*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIEuvYToCIEXYZ*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIEuvYToTekHVC*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIExyYToCIEXYZ*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsClientWhitePointOfCCC*(para1: TXcmsCCC): PXcmsColor{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsConvertColors*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: TXcmsColorFormat, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCreateCCC*(para1: PDisplay, para2: int32, para3: PVisual,
|
||||
para4: PXcmsColor, para5: TXcmsCompressionProc,
|
||||
para6: TXPointer, para7: TXcmsWhiteAdjustProc,
|
||||
para8: TXPointer): TXcmsCCC{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsDefaultCCC*(para1: PDisplay, para2: int32): TXcmsCCC{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsDisplayOfCCC*(para1: TXcmsCCC): PDisplay{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsFormatOfPrefix*(para1: cstring): TXcmsColorFormat{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsFreeCCC*(para1: TXcmsCCC){.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsLookupColor*(para1: PDisplay, para2: TColormap, para3: cstring,
|
||||
para4: PXcmsColor, para5: PXcmsColor,
|
||||
para6: TXcmsColorFormat): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsPrefixOfFormat*(para1: TXcmsColorFormat): cstring{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsQueryBlack*(para1: TXcmsCCC, para2: TXcmsColorFormat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsQueryBlue*(para1: TXcmsCCC, para2: TXcmsColorFormat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsQueryColor*(para1: PDisplay, para2: TColormap, para3: PXcmsColor,
|
||||
para4: TXcmsColorFormat): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsQueryColors*(para1: PDisplay, para2: TColormap, para3: PXcmsColor,
|
||||
para4: int32, para5: TXcmsColorFormat): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsQueryGreen*(para1: TXcmsCCC, para2: TXcmsColorFormat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsQueryRed*(para1: TXcmsCCC, para2: TXcmsColorFormat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsQueryWhite*(para1: TXcmsCCC, para2: TXcmsColorFormat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsRGBiToCIEXYZ*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: PBool): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsRGBiToRGB*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: PBool): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsRGBToRGBi*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: PBool): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsScreenNumberOfCCC*(para1: TXcmsCCC): int32{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsScreenWhitePointOfCCC*(para1: TXcmsCCC): PXcmsColor{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsSetCCCOfColormap*(para1: PDisplay, para2: TColormap, para3: TXcmsCCC): TXcmsCCC{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsSetCompressionProc*(para1: TXcmsCCC, para2: TXcmsCompressionProc,
|
||||
para3: TXPointer): TXcmsCompressionProc{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsSetWhiteAdjustProc*(para1: TXcmsCCC, para2: TXcmsWhiteAdjustProc,
|
||||
para3: TXPointer): TXcmsWhiteAdjustProc{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsSetWhitePoint*(para1: TXcmsCCC, para2: PXcmsColor): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsStoreColor*(para1: PDisplay, para2: TColormap, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsStoreColors*(para1: PDisplay, para2: TColormap, para3: PXcmsColor,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsTekHVCClipC*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsTekHVCClipV*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsTekHVCClipVC*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsTekHVCQueryMaxC*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsTekHVCQueryMaxV*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsTekHVCQueryMaxVC*(para1: TXcmsCCC, para2: TXcmsFloat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsTekHVCQueryMaxVSamples*(para1: TXcmsCCC, para2: TXcmsFloat,
|
||||
para3: PXcmsColor, para4: int32): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsTekHVCQueryMinV*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsTekHVCToCIEuvY*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsTekHVCWhiteShiftColors*(para1: TXcmsCCC, para2: PXcmsColor,
|
||||
para3: PXcmsColor, para4: TXcmsColorFormat,
|
||||
para5: PXcmsColor, para6: int32, para7: PBool): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsVisualOfCCC*(para1: TXcmsCCC): PVisual{.cdecl, dynlib: libX11, importc.}
|
||||
# implementation
|
||||
|
||||
proc XcmsUndefinedFormat(): TXcmsColorFormat =
|
||||
result = 0x00000000'i32
|
||||
|
||||
proc XcmsCIEXYZFormat(): TXcmsColorFormat =
|
||||
result = 0x00000001'i32
|
||||
|
||||
proc XcmsCIEuvYFormat(): TXcmsColorFormat =
|
||||
result = 0x00000002'i32
|
||||
|
||||
proc XcmsCIExyYFormat(): TXcmsColorFormat =
|
||||
result = 0x00000003'i32
|
||||
|
||||
proc XcmsCIELabFormat(): TXcmsColorFormat =
|
||||
result = 0x00000004'i32
|
||||
|
||||
proc XcmsCIELuvFormat(): TXcmsColorFormat =
|
||||
result = 0x00000005'i32
|
||||
|
||||
proc XcmsTekHVCFormat(): TXcmsColorFormat =
|
||||
result = 0x00000006'i32
|
||||
|
||||
proc XcmsRGBFormat(): TXcmsColorFormat =
|
||||
result = 0x80000000'i32
|
||||
|
||||
proc XcmsRGBiFormat(): TXcmsColorFormat =
|
||||
result = 0x80000001'i32
|
||||
|
||||
when defined(MACROS):
|
||||
proc DisplayOfCCC(ccc: int32): int32 =
|
||||
result = ccc.dpy
|
||||
|
||||
proc ScreenNumberOfCCC(ccc: int32): int32 =
|
||||
result = ccc.screenNumber
|
||||
|
||||
proc VisualOfCCC(ccc: int32): int32 =
|
||||
result = ccc.visual
|
||||
|
||||
proc ClientWhitePointOfCCC(ccc: int32): int32 =
|
||||
result = addr(ccc.clientWhitePt)
|
||||
|
||||
proc ScreenWhitePointOfCCC(ccc: int32): int32 =
|
||||
result = addr(ccc.pPerScrnInfo.screenWhitePt)
|
||||
|
||||
proc FunctionSetOfCCC(ccc: int32): int32 =
|
||||
result = ccc.pPerScrnInfo.functionSet
|
||||
Loading…
Add table
Add a link
Reference in a new issue