|
1191
|
1 import
|
|
|
2 x, xlib
|
|
|
3
|
|
|
4 #const
|
|
|
5 # libX11* = "X11"
|
|
|
6
|
|
|
7 #
|
|
|
8 # Automatically converted by H2Pas 0.99.15 from xcms.h
|
|
|
9 # The following command line parameters were used:
|
|
|
10 # -p
|
|
|
11 # -T
|
|
|
12 # -S
|
|
|
13 # -d
|
|
|
14 # -c
|
|
|
15 # xcms.h
|
|
|
16 #
|
|
|
17
|
|
|
18 const
|
|
|
19 XcmsFailure* = 0
|
|
|
20 XcmsSuccess* = 1
|
|
|
21 XcmsSuccessWithCompression* = 2
|
|
|
22
|
|
|
23 type
|
|
|
24 PXcmsColorFormat* = ptr XcmsColorFormat
|
|
|
25 XcmsColorFormat* = int32
|
|
|
26
|
|
|
27 proc XcmsUndefinedFormat*(): XcmsColorFormat
|
|
|
28 proc XcmsCIEXYZFormat*(): XcmsColorFormat
|
|
|
29 proc XcmsCIEuvYFormat*(): XcmsColorFormat
|
|
|
30 proc XcmsCIExyYFormat*(): XcmsColorFormat
|
|
|
31 proc XcmsCIELabFormat*(): XcmsColorFormat
|
|
|
32 proc XcmsCIELuvFormat*(): XcmsColorFormat
|
|
|
33 proc XcmsTekHVCFormat*(): XcmsColorFormat
|
|
|
34 proc XcmsRGBFormat*(): XcmsColorFormat
|
|
|
35 proc XcmsRGBiFormat*(): XcmsColorFormat
|
|
|
36 const
|
|
|
37 XcmsInitNone* = 0x00000000
|
|
|
38 XcmsInitSuccess* = 0x00000001
|
|
|
39 XcmsInitFailure* = 0x000000FF
|
|
|
40
|
|
|
41 type
|
|
|
42 PXcmsFloat* = ptr XcmsFloat
|
|
|
43 XcmsFloat* = float64
|
|
|
44 PXcmsRGB* = ptr XcmsRGB
|
|
|
45 XcmsRGB*{.final.} = object
|
|
|
46 red*: int16
|
|
|
47 green*: int16
|
|
|
48 blue*: int16
|
|
|
49
|
|
|
50 PXcmsRGBi* = ptr XcmsRGBi
|
|
|
51 XcmsRGBi*{.final.} = object
|
|
|
52 red*: XcmsFloat
|
|
|
53 green*: XcmsFloat
|
|
|
54 blue*: XcmsFloat
|
|
|
55
|
|
|
56 PXcmsCIEXYZ* = ptr XcmsCIEXYZ
|
|
|
57 XcmsCIEXYZ*{.final.} = object
|
|
|
58 X*: XcmsFloat
|
|
|
59 Y*: XcmsFloat
|
|
|
60 Z*: XcmsFloat
|
|
|
61
|
|
|
62 PXcmsCIEuvY* = ptr XcmsCIEuvY
|
|
|
63 XcmsCIEuvY*{.final.} = object
|
|
|
64 u_prime*: XcmsFloat
|
|
|
65 v_prime*: XcmsFloat
|
|
|
66 Y*: XcmsFloat
|
|
|
67
|
|
|
68 PXcmsCIExyY* = ptr XcmsCIExyY
|
|
|
69 XcmsCIExyY*{.final.} = object
|
|
|
70 x*: XcmsFloat
|
|
|
71 y*: XcmsFloat
|
|
|
72 theY*: XcmsFloat
|
|
|
73
|
|
|
74 PXcmsCIELab* = ptr XcmsCIELab
|
|
|
75 XcmsCIELab*{.final.} = object
|
|
|
76 L_star*: XcmsFloat
|
|
|
77 a_star*: XcmsFloat
|
|
|
78 b_star*: XcmsFloat
|
|
|
79
|
|
|
80 PXcmsCIELuv* = ptr XcmsCIELuv
|
|
|
81 XcmsCIELuv*{.final.} = object
|
|
|
82 L_star*: XcmsFloat
|
|
|
83 u_star*: XcmsFloat
|
|
|
84 v_star*: XcmsFloat
|
|
|
85
|
|
|
86 PXcmsTekHVC* = ptr XcmsTekHVC
|
|
|
87 XcmsTekHVC*{.final.} = object
|
|
|
88 H*: XcmsFloat
|
|
|
89 V*: XcmsFloat
|
|
|
90 C*: XcmsFloat
|
|
|
91
|
|
|
92 PXcmsPad* = ptr XcmsPad
|
|
|
93 XcmsPad*{.final.} = object
|
|
|
94 pad0*: XcmsFloat
|
|
|
95 pad1*: XcmsFloat
|
|
|
96 pad2*: XcmsFloat
|
|
|
97 pad3*: XcmsFloat
|
|
|
98
|
|
|
99 PXcmsColor* = ptr XcmsColor
|
|
|
100 XcmsColor*{.final.} = object # spec : record
|
|
|
101 # case longint of
|
|
|
102 # 0 : ( RGB : XcmsRGB );
|
|
|
103 # 1 : ( RGBi : XcmsRGBi );
|
|
|
104 # 2 : ( CIEXYZ : XcmsCIEXYZ );
|
|
|
105 # 3 : ( CIEuvY : XcmsCIEuvY );
|
|
|
106 # 4 : ( CIExyY : XcmsCIExyY );
|
|
|
107 # 5 : ( CIELab : XcmsCIELab );
|
|
|
108 # 6 : ( CIELuv : XcmsCIELuv );
|
|
|
109 # 7 : ( TekHVC : XcmsTekHVC );
|
|
|
110 # 8 : ( Pad : XcmsPad );
|
|
|
111 # end;
|
|
|
112 pad*: XcmsPad
|
|
|
113 pixel*: int32
|
|
|
114 format*: XcmsColorFormat
|
|
|
115
|
|
|
116 PXcmsPerScrnInfo* = ptr XcmsPerScrnInfo
|
|
|
117 XcmsPerScrnInfo*{.final.} = object
|
|
|
118 screenWhitePt*: XcmsColor
|
|
|
119 functionSet*: XPointer
|
|
|
120 screenData*: XPointer
|
|
|
121 state*: int8
|
|
|
122 pad*: array[0..2, char]
|
|
|
123
|
|
|
124 PXcmsCCC* = ptr XcmsCCC
|
|
|
125 XcmsCompressionProc* = proc (para1: PXcmsCCC, para2: PXcmsColor,
|
|
|
126 para3: int32, para4: int32, para5: PBool): Status{.
|
|
|
127 cdecl.}
|
|
|
128 XcmsWhiteAdjustProc* = proc (para1: PXcmsCCC, para2: PXcmsColor,
|
|
|
129 para3: PXcmsColor, para4: XcmsColorFormat,
|
|
|
130 para5: PXcmsColor, para6: int32, para7: PBool): Status{.
|
|
|
131 cdecl.}
|
|
|
132 XcmsCCC*{.final.} = object
|
|
|
133 dpy*: PDisplay
|
|
|
134 screenNumber*: int32
|
|
|
135 visual*: PVisual
|
|
|
136 clientWhitePt*: XcmsColor
|
|
|
137 gamutCompProc*: XcmsCompressionProc
|
|
|
138 gamutCompClientData*: XPointer
|
|
|
139 whitePtAdjProc*: XcmsWhiteAdjustProc
|
|
|
140 whitePtAdjClientData*: XPointer
|
|
|
141 pPerScrnInfo*: PXcmsPerScrnInfo
|
|
|
142
|
|
|
143 PXcmsCCCRec* = ptr XcmsCCCRec
|
|
|
144 XcmsCCCRec* = XcmsCCC
|
|
|
145
|
|
|
146 XcmsScreenInitProc* = proc (para1: PDisplay, para2: int32,
|
|
|
147 para3: PXcmsPerScrnInfo): Status{.cdecl.}
|
|
|
148 XcmsScreenFreeProc* = proc (para1: XPointer){.cdecl.}
|
|
|
149
|
|
|
150 XcmsConversionProc* = proc (){.cdecl.}
|
|
|
151
|
|
|
152 PXcmsFuncListPtr* = ptr XcmsFuncListPtr
|
|
|
153 XcmsFuncListPtr* = XcmsConversionProc
|
|
|
154
|
|
|
155 XcmsParseStringProc* = proc (para1: cstring, para2: PXcmsColor): int32{.cdecl.}
|
|
|
156
|
|
|
157 PXcmsColorSpace* = ptr XcmsColorSpace
|
|
|
158 XcmsColorSpace*{.final.} = object
|
|
|
159 prefix*: cstring
|
|
|
160 id*: XcmsColorFormat
|
|
|
161 parseString*: XcmsParseStringProc
|
|
|
162 to_CIEXYZ*: XcmsFuncListPtr
|
|
|
163 from_CIEXYZ*: XcmsFuncListPtr
|
|
|
164 inverse_flag*: int32
|
|
|
165
|
|
|
166 PXcmsFunctionSet* = ptr XcmsFunctionSet
|
|
|
167 XcmsFunctionSet*{.final.} = object # error
|
|
|
168 # extern Status XcmsAddColorSpace (
|
|
|
169 # in declaration at line 323
|
|
|
170 DDColorSpaces*: ptr PXcmsColorSpace
|
|
|
171 screenInitProc*: XcmsScreenInitProc
|
|
|
172 screenFreeProc*: XcmsScreenFreeProc
|
|
|
173
|
|
|
174 proc XcmsAddFunctionSet*(para1: PXcmsFunctionSet): Status{.cdecl,
|
|
|
175 dynlib: libX11, importc.}
|
|
|
176 proc XcmsAllocColor*(para1: PDisplay, para2: Colormap, para3: PXcmsColor,
|
|
|
177 para4: XcmsColorFormat): Status{.cdecl, dynlib: libX11,
|
|
|
178 importc.}
|
|
|
179 proc XcmsAllocNamedColor*(para1: PDisplay, para2: Colormap, para3: cstring,
|
|
|
180 para4: PXcmsColor, para5: PXcmsColor,
|
|
|
181 para6: XcmsColorFormat): Status{.cdecl,
|
|
|
182 dynlib: libX11, importc.}
|
|
|
183 proc XcmsCCCOfColormap*(para1: PDisplay, para2: Colormap): XcmsCCC{.cdecl,
|
|
|
184 dynlib: libX11, importc.}
|
|
|
185 proc XcmsCIELabClipab*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
|
|
|
186 para4: int32, para5: PBool): Status{.cdecl,
|
|
|
187 dynlib: libX11, importc.}
|
|
|
188 proc XcmsCIELabClipL*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
|
|
|
189 para4: int32, para5: PBool): Status{.cdecl,
|
|
|
190 dynlib: libX11, importc.}
|
|
|
191 proc XcmsCIELabClipLab*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
|
|
|
192 para4: int32, para5: PBool): Status{.cdecl,
|
|
|
193 dynlib: libX11, importc.}
|
|
|
194 proc XcmsCIELabQueryMaxC*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
|
|
|
195 para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
|
|
|
196 importc.}
|
|
|
197 proc XcmsCIELabQueryMaxL*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
|
|
|
198 para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
|
|
|
199 importc.}
|
|
|
200 proc XcmsCIELabQueryMaxLC*(para1: XcmsCCC, para2: XcmsFloat, para3: PXcmsColor): Status{.
|
|
|
201 cdecl, dynlib: libX11, importc.}
|
|
|
202 proc XcmsCIELabQueryMinL*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
|
|
|
203 para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
|
|
|
204 importc.}
|
|
|
205 proc XcmsCIELabToCIEXYZ*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
|
|
206 para4: int32): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
207 proc XcmsCIELabWhiteShiftColors*(para1: XcmsCCC, para2: PXcmsColor,
|
|
|
208 para3: PXcmsColor, para4: XcmsColorFormat,
|
|
|
209 para5: PXcmsColor, para6: int32, para7: PBool): Status{.
|
|
|
210 cdecl, dynlib: libX11, importc.}
|
|
|
211 proc XcmsCIELuvClipL*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
|
|
|
212 para4: int32, para5: PBool): Status{.cdecl,
|
|
|
213 dynlib: libX11, importc.}
|
|
|
214 proc XcmsCIELuvClipLuv*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
|
|
|
215 para4: int32, para5: PBool): Status{.cdecl,
|
|
|
216 dynlib: libX11, importc.}
|
|
|
217 proc XcmsCIELuvClipuv*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
|
|
|
218 para4: int32, para5: PBool): Status{.cdecl,
|
|
|
219 dynlib: libX11, importc.}
|
|
|
220 proc XcmsCIELuvQueryMaxC*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
|
|
|
221 para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
|
|
|
222 importc.}
|
|
|
223 proc XcmsCIELuvQueryMaxL*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
|
|
|
224 para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
|
|
|
225 importc.}
|
|
|
226 proc XcmsCIELuvQueryMaxLC*(para1: XcmsCCC, para2: XcmsFloat, para3: PXcmsColor): Status{.
|
|
|
227 cdecl, dynlib: libX11, importc.}
|
|
|
228 proc XcmsCIELuvQueryMinL*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
|
|
|
229 para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
|
|
|
230 importc.}
|
|
|
231 proc XcmsCIELuvToCIEuvY*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
|
|
232 para4: int32): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
233 proc XcmsCIELuvWhiteShiftColors*(para1: XcmsCCC, para2: PXcmsColor,
|
|
|
234 para3: PXcmsColor, para4: XcmsColorFormat,
|
|
|
235 para5: PXcmsColor, para6: int32, para7: PBool): Status{.
|
|
|
236 cdecl, dynlib: libX11, importc.}
|
|
|
237 proc XcmsCIEXYZToCIELab*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
|
|
238 para4: int32): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
239 proc XcmsCIEXYZToCIEuvY*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
|
|
240 para4: int32): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
241 proc XcmsCIEXYZToCIExyY*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
|
|
242 para4: int32): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
243 proc XcmsCIEXYZToRGBi*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
|
|
|
244 para4: PBool): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
245 proc XcmsCIEuvYToCIELuv*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
|
|
246 para4: int32): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
247 proc XcmsCIEuvYToCIEXYZ*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
|
|
248 para4: int32): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
249 proc XcmsCIEuvYToTekHVC*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
|
|
250 para4: int32): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
251 proc XcmsCIExyYToCIEXYZ*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
|
|
252 para4: int32): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
253 proc XcmsClientWhitePointOfCCC*(para1: XcmsCCC): PXcmsColor{.cdecl,
|
|
|
254 dynlib: libX11, importc.}
|
|
|
255 proc XcmsConvertColors*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
|
|
|
256 para4: XcmsColorFormat, para5: PBool): Status{.cdecl,
|
|
|
257 dynlib: libX11, importc.}
|
|
|
258 proc XcmsCreateCCC*(para1: PDisplay, para2: int32, para3: PVisual,
|
|
|
259 para4: PXcmsColor, para5: XcmsCompressionProc,
|
|
|
260 para6: XPointer, para7: XcmsWhiteAdjustProc,
|
|
|
261 para8: XPointer): XcmsCCC{.cdecl, dynlib: libX11, importc.}
|
|
|
262 proc XcmsDefaultCCC*(para1: PDisplay, para2: int32): XcmsCCC{.cdecl,
|
|
|
263 dynlib: libX11, importc.}
|
|
|
264 proc XcmsDisplayOfCCC*(para1: XcmsCCC): PDisplay{.cdecl, dynlib: libX11,
|
|
|
265 importc.}
|
|
|
266 proc XcmsFormatOfPrefix*(para1: cstring): XcmsColorFormat{.cdecl,
|
|
|
267 dynlib: libX11, importc.}
|
|
|
268 proc XcmsFreeCCC*(para1: XcmsCCC){.cdecl, dynlib: libX11, importc.}
|
|
|
269 proc XcmsLookupColor*(para1: PDisplay, para2: Colormap, para3: cstring,
|
|
|
270 para4: PXcmsColor, para5: PXcmsColor,
|
|
|
271 para6: XcmsColorFormat): Status{.cdecl, dynlib: libX11,
|
|
|
272 importc.}
|
|
|
273 proc XcmsPrefixOfFormat*(para1: XcmsColorFormat): cstring{.cdecl,
|
|
|
274 dynlib: libX11, importc.}
|
|
|
275 proc XcmsQueryBlack*(para1: XcmsCCC, para2: XcmsColorFormat, para3: PXcmsColor): Status{.
|
|
|
276 cdecl, dynlib: libX11, importc.}
|
|
|
277 proc XcmsQueryBlue*(para1: XcmsCCC, para2: XcmsColorFormat, para3: PXcmsColor): Status{.
|
|
|
278 cdecl, dynlib: libX11, importc.}
|
|
|
279 proc XcmsQueryColor*(para1: PDisplay, para2: Colormap, para3: PXcmsColor,
|
|
|
280 para4: XcmsColorFormat): Status{.cdecl, dynlib: libX11,
|
|
|
281 importc.}
|
|
|
282 proc XcmsQueryColors*(para1: PDisplay, para2: Colormap, para3: PXcmsColor,
|
|
|
283 para4: int32, para5: XcmsColorFormat): Status{.cdecl,
|
|
|
284 dynlib: libX11, importc.}
|
|
|
285 proc XcmsQueryGreen*(para1: XcmsCCC, para2: XcmsColorFormat, para3: PXcmsColor): Status{.
|
|
|
286 cdecl, dynlib: libX11, importc.}
|
|
|
287 proc XcmsQueryRed*(para1: XcmsCCC, para2: XcmsColorFormat, para3: PXcmsColor): Status{.
|
|
|
288 cdecl, dynlib: libX11, importc.}
|
|
|
289 proc XcmsQueryWhite*(para1: XcmsCCC, para2: XcmsColorFormat, para3: PXcmsColor): Status{.
|
|
|
290 cdecl, dynlib: libX11, importc.}
|
|
|
291 proc XcmsRGBiToCIEXYZ*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
|
|
|
292 para4: PBool): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
293 proc XcmsRGBiToRGB*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
|
|
|
294 para4: PBool): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
295 proc XcmsRGBToRGBi*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
|
|
|
296 para4: PBool): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
297 proc XcmsScreenNumberOfCCC*(para1: XcmsCCC): int32{.cdecl, dynlib: libX11,
|
|
|
298 importc.}
|
|
|
299 proc XcmsScreenWhitePointOfCCC*(para1: XcmsCCC): PXcmsColor{.cdecl,
|
|
|
300 dynlib: libX11, importc.}
|
|
|
301 proc XcmsSetCCCOfColormap*(para1: PDisplay, para2: Colormap, para3: XcmsCCC): XcmsCCC{.
|
|
|
302 cdecl, dynlib: libX11, importc.}
|
|
|
303 proc XcmsSetCompressionProc*(para1: XcmsCCC, para2: XcmsCompressionProc,
|
|
|
304 para3: XPointer): XcmsCompressionProc{.cdecl,
|
|
|
305 dynlib: libX11, importc.}
|
|
|
306 proc XcmsSetWhiteAdjustProc*(para1: XcmsCCC, para2: XcmsWhiteAdjustProc,
|
|
|
307 para3: XPointer): XcmsWhiteAdjustProc{.cdecl,
|
|
|
308 dynlib: libX11, importc.}
|
|
|
309 proc XcmsSetWhitePoint*(para1: XcmsCCC, para2: PXcmsColor): Status{.cdecl,
|
|
|
310 dynlib: libX11, importc.}
|
|
|
311 proc XcmsStoreColor*(para1: PDisplay, para2: Colormap, para3: PXcmsColor): Status{.
|
|
|
312 cdecl, dynlib: libX11, importc.}
|
|
|
313 proc XcmsStoreColors*(para1: PDisplay, para2: Colormap, para3: PXcmsColor,
|
|
|
314 para4: int32, para5: PBool): Status{.cdecl,
|
|
|
315 dynlib: libX11, importc.}
|
|
|
316 proc XcmsTekHVCClipC*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
|
|
|
317 para4: int32, para5: PBool): Status{.cdecl,
|
|
|
318 dynlib: libX11, importc.}
|
|
|
319 proc XcmsTekHVCClipV*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
|
|
|
320 para4: int32, para5: PBool): Status{.cdecl,
|
|
|
321 dynlib: libX11, importc.}
|
|
|
322 proc XcmsTekHVCClipVC*(para1: XcmsCCC, para2: PXcmsColor, para3: int32,
|
|
|
323 para4: int32, para5: PBool): Status{.cdecl,
|
|
|
324 dynlib: libX11, importc.}
|
|
|
325 proc XcmsTekHVCQueryMaxC*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
|
|
|
326 para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
|
|
|
327 importc.}
|
|
|
328 proc XcmsTekHVCQueryMaxV*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
|
|
|
329 para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
|
|
|
330 importc.}
|
|
|
331 proc XcmsTekHVCQueryMaxVC*(para1: XcmsCCC, para2: XcmsFloat, para3: PXcmsColor): Status{.
|
|
|
332 cdecl, dynlib: libX11, importc.}
|
|
|
333 proc XcmsTekHVCQueryMaxVSamples*(para1: XcmsCCC, para2: XcmsFloat,
|
|
|
334 para3: PXcmsColor, para4: int32): Status{.
|
|
|
335 cdecl, dynlib: libX11, importc.}
|
|
|
336 proc XcmsTekHVCQueryMinV*(para1: XcmsCCC, para2: XcmsFloat, para3: XcmsFloat,
|
|
|
337 para4: PXcmsColor): Status{.cdecl, dynlib: libX11,
|
|
|
338 importc.}
|
|
|
339 proc XcmsTekHVCToCIEuvY*(para1: XcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
|
|
340 para4: int32): Status{.cdecl, dynlib: libX11, importc.}
|
|
|
341 proc XcmsTekHVCWhiteShiftColors*(para1: XcmsCCC, para2: PXcmsColor,
|
|
|
342 para3: PXcmsColor, para4: XcmsColorFormat,
|
|
|
343 para5: PXcmsColor, para6: int32, para7: PBool): Status{.
|
|
|
344 cdecl, dynlib: libX11, importc.}
|
|
|
345 proc XcmsVisualOfCCC*(para1: XcmsCCC): PVisual{.cdecl, dynlib: libX11, importc.}
|
|
|
346 # implementation
|
|
|
347
|
|
|
348 proc XcmsUndefinedFormat(): XcmsColorFormat =
|
|
|
349 result = 0x00000000'i32
|
|
|
350
|
|
|
351 proc XcmsCIEXYZFormat(): XcmsColorFormat =
|
|
|
352 result = 0x00000001'i32
|
|
|
353
|
|
|
354 proc XcmsCIEuvYFormat(): XcmsColorFormat =
|
|
|
355 result = 0x00000002'i32
|
|
|
356
|
|
|
357 proc XcmsCIExyYFormat(): XcmsColorFormat =
|
|
|
358 result = 0x00000003'i32
|
|
|
359
|
|
|
360 proc XcmsCIELabFormat(): XcmsColorFormat =
|
|
|
361 result = 0x00000004'i32
|
|
|
362
|
|
|
363 proc XcmsCIELuvFormat(): XcmsColorFormat =
|
|
|
364 result = 0x00000005'i32
|
|
|
365
|
|
|
366 proc XcmsTekHVCFormat(): XcmsColorFormat =
|
|
|
367 result = 0x00000006'i32
|
|
|
368
|
|
|
369 proc XcmsRGBFormat(): XcmsColorFormat =
|
|
|
370 result = 0x80000000'i32
|
|
|
371
|
|
|
372 proc XcmsRGBiFormat(): XcmsColorFormat =
|
|
|
373 result = 0x80000001'i32
|
|
|
374
|
|
|
375 #when defined(MACROS):
|
|
|
376 proc DisplayOfCCC(ccc: XcmsCCC): PDisplay =
|
|
|
377 result = ccc.dpy
|
|
|
378
|
|
|
379 proc ScreenNumberOfCCC(ccc: XcmsCCC): int32 =
|
|
|
380 result = ccc.screenNumber
|
|
|
381
|
|
|
382 proc VisualOfCCC(ccc: XcmsCCC): PVisual =
|
|
|
383 result = ccc.visual
|
|
|
384
|
|
|
385 proc ClientWhitePointOfCCC(ccc: var XcmsCCC): ptr XcmsColor =
|
|
|
386 result = addr(ccc.clientWhitePt)
|
|
|
387
|
|
|
388 proc ScreenWhitePointOfCCC(ccc: var XcmsCCC): ptr XcmsColor =
|
|
|
389 result = addr(ccc.pPerScrnInfo.screenWhitePt)
|
|
|
390
|
|
|
391 proc FunctionSetOfCCC(ccc: XcmsCCC): Xpointer =
|
|
|
392 result = ccc.pPerScrnInfo.functionSet
|
|
|
393
|
