389 lines
17 KiB
Nim
389 lines
17 KiB
Nim
|
|
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
|
|
|
|
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: TXcmsCCC): PDisplay =
|
|
result = ccc.dpy
|
|
|
|
proc ScreenNumberOfCCC(ccc: TXcmsCCC): int32 =
|
|
result = ccc.screenNumber
|
|
|
|
proc VisualOfCCC(ccc: TXcmsCCC): PVisual =
|
|
result = ccc.visual
|
|
|
|
proc ClientWhitePointOfCCC(ccc: var TXcmsCCC): ptr TXcmsColor =
|
|
result = addr(ccc.clientWhitePt)
|
|
|
|
proc ScreenWhitePointOfCCC(ccc: var TXcmsCCC): ptr TXcmsColor =
|
|
result = addr(ccc.pPerScrnInfo.screenWhitePt)
|
|
|
|
proc FunctionSetOfCCC(ccc: TXcmsCCC): TXpointer =
|
|
result = ccc.pPerScrnInfo.functionSet
|