Mercurial > games > semicongine

comparison semiconginev2/old/thirdparty/x11/xcms.nim @ 1218:56781cc0fc7c compiletime-tests

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
did: renamge main package
author sam <sam@basx.dev>
date Wed, 17 Jul 2024 21:01:37 +0700
parents semicongine/old/thirdparty/x11/xcms.nim@239adab121a3
children
comparison
equal deleted inserted replaced
1217:f819a874058f 1218:56781cc0fc7c
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