Coverage Report

Created: 2025-07-11 06:47

/src/lcms/src/cmspack.c
Line
Count
Source (jump to first uncovered line)
1
//---------------------------------------------------------------------------------
2
//
3
//  Little Color Management System
4
//  Copyright (c) 1998-2024 Marti Maria Saguer
5
//
6
// Permission is hereby granted, free of charge, to any person obtaining
7
// a copy of this software and associated documentation files (the "Software"),
8
// to deal in the Software without restriction, including without limitation
9
// the rights to use, copy, modify, merge, publish, distribute, sublicense,
10
// and/or sell copies of the Software, and to permit persons to whom the Software
11
// is furnished to do so, subject to the following conditions:
12
//
13
// The above copyright notice and this permission notice shall be included in
14
// all copies or substantial portions of the Software.
15
//
16
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
17
// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO
18
// THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
19
// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
20
// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
21
// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
22
// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
23
//
24
//---------------------------------------------------------------------------------
25
//
26
27
#include "lcms2_internal.h"
28
29
// This module handles all formats supported by lcms. There are two flavors, 16 bits and
30
// floating point. Floating point is supported only in a subset, those formats holding
31
// cmsFloat32Number (4 bytes per component) and double (marked as 0 bytes per component
32
// as special case)
33
34
// ---------------------------------------------------------------------------
35
36
37
// This macro return words stored as big endian
38
0
#define CHANGE_ENDIAN(w)    (cmsUInt16Number) ((cmsUInt16Number) ((w)<<8)|((w)>>8))
39
40
// These macros handles reversing (negative)
41
0
#define REVERSE_FLAVOR_8(x)     ((cmsUInt8Number) (0xff-(x)))
42
0
#define REVERSE_FLAVOR_16(x)    ((cmsUInt16Number)(0xffff-(x)))
43
44
// * 0xffff / 0xff00 = (255 * 257) / (255 * 256) = 257 / 256
45
cmsINLINE cmsUInt16Number FomLabV2ToLabV4(cmsUInt16Number x)
46
0
{
47
0
    int a = (x << 8 | x) >> 8;  // * 257 / 256
48
0
    if ( a > 0xffff) return 0xffff;
49
0
    return (cmsUInt16Number) a;
50
0
}
51
52
// * 0xf00 / 0xffff = * 256 / 257
53
cmsINLINE cmsUInt16Number FomLabV4ToLabV2(cmsUInt16Number x)
54
0
{
55
0
    return (cmsUInt16Number) (((x << 8) + 0x80) / 257);
56
0
}
57
58
59
typedef struct {
60
    cmsUInt32Number Type;
61
    cmsUInt32Number Mask;
62
    cmsFormatter16  Frm;
63
64
} cmsFormatters16;
65
66
typedef struct {
67
    cmsUInt32Number    Type;
68
    cmsUInt32Number    Mask;
69
    cmsFormatterFloat  Frm;
70
71
} cmsFormattersFloat;
72
73
74
#define ANYSPACE        COLORSPACE_SH(31)
75
#define ANYCHANNELS     CHANNELS_SH(15)
76
#define ANYEXTRA        EXTRA_SH(7)
77
#define ANYPLANAR       PLANAR_SH(1)
78
#define ANYENDIAN       ENDIAN16_SH(1)
79
#define ANYSWAP         DOSWAP_SH(1)
80
#define ANYSWAPFIRST    SWAPFIRST_SH(1)
81
#define ANYFLAVOR       FLAVOR_SH(1)
82
#define ANYPREMUL       PREMUL_SH(1)
83
84
85
// Suppress waning about info never being used
86
87
#ifdef _MSC_VER
88
#pragma warning(disable : 4100)
89
#endif
90
91
// Unpacking routines (16 bits) ----------------------------------------------------------------------------------------
92
93
94
// Does almost everything but is slow
95
static
96
cmsUInt8Number* UnrollChunkyBytes(CMSREGISTER _cmsTRANSFORM* info,
97
                                  CMSREGISTER cmsUInt16Number wIn[],
98
                                  CMSREGISTER cmsUInt8Number* accum,
99
                                  CMSREGISTER cmsUInt32Number Stride)
100
0
{
101
0
    cmsUInt32Number nChan      = T_CHANNELS(info -> InputFormat);
102
0
    cmsUInt32Number DoSwap     = T_DOSWAP(info ->InputFormat);
103
0
    cmsUInt32Number Reverse    = T_FLAVOR(info ->InputFormat);
104
0
    cmsUInt32Number SwapFirst  = T_SWAPFIRST(info -> InputFormat);
105
0
    cmsUInt32Number Extra      = T_EXTRA(info -> InputFormat);
106
0
    cmsUInt32Number Premul     = T_PREMUL(info->InputFormat);
107
108
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
109
0
    cmsUInt32Number v;
110
0
    cmsUInt32Number i;  
111
0
    cmsUInt32Number alpha_factor = 1;
112
113
0
    if (ExtraFirst) {
114
        
115
0
        if (Premul && Extra)
116
0
            alpha_factor = _cmsToFixedDomain(FROM_8_TO_16(accum[0]));
117
118
0
        accum += Extra;
119
0
    }
120
0
    else
121
0
    {
122
0
        if (Premul && Extra)        
123
0
            alpha_factor = _cmsToFixedDomain(FROM_8_TO_16(accum[nChan]));
124
0
    }
125
126
0
    for (i=0; i < nChan; i++) {
127
128
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
129
130
0
        v = FROM_8_TO_16(*accum);
131
0
        v = Reverse ? REVERSE_FLAVOR_16(v) : v;
132
133
0
        if (Premul && alpha_factor > 0)
134
0
        {
135
0
            v = ((cmsUInt32Number)((cmsUInt32Number)v << 16) / alpha_factor);
136
0
            if (v > 0xffff) v = 0xffff;
137
0
        }
138
139
0
        wIn[index] = (cmsUInt16Number) v;
140
0
        accum++;
141
0
    }
142
143
0
    if (!ExtraFirst) {
144
0
        accum += Extra;
145
0
    }
146
147
0
    if (Extra == 0 && SwapFirst) {
148
0
        cmsUInt16Number tmp = wIn[0];
149
150
0
        memmove(&wIn[0], &wIn[1], (nChan-1) * sizeof(cmsUInt16Number));
151
0
        wIn[nChan-1] = tmp;
152
0
    }
153
154
0
    return accum;
155
156
0
    cmsUNUSED_PARAMETER(info);
157
0
    cmsUNUSED_PARAMETER(Stride);
158
159
0
}
160
161
162
// Extra channels are just ignored because come in the next planes
163
static
164
cmsUInt8Number* UnrollPlanarBytes(CMSREGISTER _cmsTRANSFORM* info,
165
                                  CMSREGISTER cmsUInt16Number wIn[],
166
                                  CMSREGISTER cmsUInt8Number* accum,
167
                                  CMSREGISTER cmsUInt32Number Stride)
168
0
{
169
0
    cmsUInt32Number nChan     = T_CHANNELS(info -> InputFormat);
170
0
    cmsUInt32Number DoSwap    = T_DOSWAP(info ->InputFormat);
171
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info ->InputFormat);
172
0
    cmsUInt32Number Reverse   = T_FLAVOR(info ->InputFormat);
173
0
    cmsUInt32Number i;
174
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
175
0
    cmsUInt32Number Extra = T_EXTRA(info->InputFormat);
176
0
    cmsUInt32Number Premul = T_PREMUL(info->InputFormat);
177
0
    cmsUInt8Number* Init = accum;
178
0
    cmsUInt32Number alpha_factor = 1;
179
180
0
    if (ExtraFirst) {
181
182
0
        if (Premul && Extra)        
183
0
            alpha_factor = _cmsToFixedDomain(FROM_8_TO_16(accum[0]));
184
185
186
0
        accum += Extra * Stride;
187
0
    }
188
0
    else
189
0
    {
190
0
        if (Premul && Extra)
191
0
            alpha_factor = _cmsToFixedDomain(FROM_8_TO_16(accum[nChan * Stride]));
192
0
    }
193
194
0
    for (i=0; i < nChan; i++) {
195
196
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
197
0
        cmsUInt32Number v = FROM_8_TO_16(*accum);
198
        
199
0
        v = Reverse ? REVERSE_FLAVOR_16(v) : v;
200
201
0
        if (Premul && alpha_factor > 0)
202
0
        {
203
0
            v = ((cmsUInt32Number)((cmsUInt32Number)v << 16) / alpha_factor);
204
0
            if (v > 0xffff) v = 0xffff;
205
0
        }
206
207
0
        wIn[index] = (cmsUInt16Number) v;
208
0
        accum += Stride;
209
0
    }
210
211
0
    return (Init + 1);
212
0
}
213
214
215
// Special cases, provided for performance
216
static
217
cmsUInt8Number* Unroll4Bytes(CMSREGISTER _cmsTRANSFORM* info,
218
                             CMSREGISTER cmsUInt16Number wIn[],
219
                             CMSREGISTER cmsUInt8Number* accum,
220
                             CMSREGISTER cmsUInt32Number Stride)
221
0
{
222
0
    wIn[0] = FROM_8_TO_16(*accum); accum++; // C
223
0
    wIn[1] = FROM_8_TO_16(*accum); accum++; // M
224
0
    wIn[2] = FROM_8_TO_16(*accum); accum++; // Y
225
0
    wIn[3] = FROM_8_TO_16(*accum); accum++; // K
226
227
0
    return accum;
228
229
0
    cmsUNUSED_PARAMETER(info);
230
0
    cmsUNUSED_PARAMETER(Stride);
231
0
}
232
233
static
234
cmsUInt8Number* Unroll4BytesReverse(CMSREGISTER _cmsTRANSFORM* info,
235
                                    CMSREGISTER cmsUInt16Number wIn[],
236
                                    CMSREGISTER cmsUInt8Number* accum,
237
                                    CMSREGISTER cmsUInt32Number Stride)
238
0
{
239
0
    wIn[0] = FROM_8_TO_16(REVERSE_FLAVOR_8(*accum)); accum++; // C
240
0
    wIn[1] = FROM_8_TO_16(REVERSE_FLAVOR_8(*accum)); accum++; // M
241
0
    wIn[2] = FROM_8_TO_16(REVERSE_FLAVOR_8(*accum)); accum++; // Y
242
0
    wIn[3] = FROM_8_TO_16(REVERSE_FLAVOR_8(*accum)); accum++; // K
243
244
0
    return accum;
245
246
0
    cmsUNUSED_PARAMETER(info);
247
0
    cmsUNUSED_PARAMETER(Stride);
248
0
}
249
250
static
251
cmsUInt8Number* Unroll4BytesSwapFirst(CMSREGISTER _cmsTRANSFORM* info,
252
                                      CMSREGISTER cmsUInt16Number wIn[],
253
                                      CMSREGISTER cmsUInt8Number* accum,
254
                                      CMSREGISTER cmsUInt32Number Stride)
255
0
{
256
0
    wIn[3] = FROM_8_TO_16(*accum); accum++; // K
257
0
    wIn[0] = FROM_8_TO_16(*accum); accum++; // C
258
0
    wIn[1] = FROM_8_TO_16(*accum); accum++; // M
259
0
    wIn[2] = FROM_8_TO_16(*accum); accum++; // Y
260
261
0
    return accum;
262
263
0
    cmsUNUSED_PARAMETER(info);
264
0
    cmsUNUSED_PARAMETER(Stride);
265
0
}
266
267
// KYMC
268
static
269
cmsUInt8Number* Unroll4BytesSwap(CMSREGISTER _cmsTRANSFORM* info,
270
                                 CMSREGISTER cmsUInt16Number wIn[],
271
                                 CMSREGISTER cmsUInt8Number* accum,
272
                                 CMSREGISTER cmsUInt32Number Stride)
273
0
{
274
0
    wIn[3] = FROM_8_TO_16(*accum); accum++;  // K
275
0
    wIn[2] = FROM_8_TO_16(*accum); accum++;  // Y
276
0
    wIn[1] = FROM_8_TO_16(*accum); accum++;  // M
277
0
    wIn[0] = FROM_8_TO_16(*accum); accum++;  // C
278
279
0
    return accum;
280
281
0
    cmsUNUSED_PARAMETER(info);
282
0
    cmsUNUSED_PARAMETER(Stride);
283
0
}
284
285
static
286
cmsUInt8Number* Unroll4BytesSwapSwapFirst(CMSREGISTER _cmsTRANSFORM* info,
287
                                          CMSREGISTER cmsUInt16Number wIn[],
288
                                          CMSREGISTER cmsUInt8Number* accum,
289
                                          CMSREGISTER cmsUInt32Number Stride)
290
0
{
291
0
    wIn[2] = FROM_8_TO_16(*accum); accum++;  // K
292
0
    wIn[1] = FROM_8_TO_16(*accum); accum++;  // Y
293
0
    wIn[0] = FROM_8_TO_16(*accum); accum++;  // M
294
0
    wIn[3] = FROM_8_TO_16(*accum); accum++;  // C
295
296
0
    return accum;
297
298
0
    cmsUNUSED_PARAMETER(info);
299
0
    cmsUNUSED_PARAMETER(Stride);
300
0
}
301
302
static
303
cmsUInt8Number* Unroll3Bytes(CMSREGISTER _cmsTRANSFORM* info,
304
                             CMSREGISTER cmsUInt16Number wIn[],
305
                             CMSREGISTER cmsUInt8Number* accum,
306
                             CMSREGISTER cmsUInt32Number Stride)
307
0
{
308
0
    wIn[0] = FROM_8_TO_16(*accum); accum++;     // R
309
0
    wIn[1] = FROM_8_TO_16(*accum); accum++;     // G
310
0
    wIn[2] = FROM_8_TO_16(*accum); accum++;     // B
311
312
0
    return accum;
313
314
0
    cmsUNUSED_PARAMETER(info);
315
0
    cmsUNUSED_PARAMETER(Stride);
316
0
}
317
318
static
319
cmsUInt8Number* Unroll3BytesSkip1Swap(CMSREGISTER _cmsTRANSFORM* info,
320
                                      CMSREGISTER cmsUInt16Number wIn[],
321
                                      CMSREGISTER cmsUInt8Number* accum,
322
                                      CMSREGISTER cmsUInt32Number Stride)
323
0
{
324
0
    accum++; // A
325
0
    wIn[2] = FROM_8_TO_16(*accum); accum++; // B
326
0
    wIn[1] = FROM_8_TO_16(*accum); accum++; // G
327
0
    wIn[0] = FROM_8_TO_16(*accum); accum++; // R
328
329
0
    return accum;
330
331
0
    cmsUNUSED_PARAMETER(info);
332
0
    cmsUNUSED_PARAMETER(Stride);
333
0
}
334
335
static
336
cmsUInt8Number* Unroll3BytesSkip1SwapSwapFirst(CMSREGISTER _cmsTRANSFORM* info, 
337
                                              CMSREGISTER cmsUInt16Number wIn[], 
338
                                              CMSREGISTER cmsUInt8Number* accum,
339
                                              CMSREGISTER cmsUInt32Number Stride)
340
0
{
341
0
    wIn[2] = FROM_8_TO_16(*accum); accum++; // B
342
0
    wIn[1] = FROM_8_TO_16(*accum); accum++; // G
343
0
    wIn[0] = FROM_8_TO_16(*accum); accum++; // R
344
0
    accum++; // A
345
346
0
    return accum;
347
348
0
    cmsUNUSED_PARAMETER(info);
349
0
    cmsUNUSED_PARAMETER(Stride);
350
0
}
351
352
static
353
cmsUInt8Number* Unroll3BytesSkip1SwapFirst(CMSREGISTER _cmsTRANSFORM* info, 
354
                                           CMSREGISTER cmsUInt16Number wIn[], 
355
                                           CMSREGISTER cmsUInt8Number* accum,
356
                                           CMSREGISTER cmsUInt32Number Stride)
357
0
{
358
0
    accum++; // A
359
0
    wIn[0] = FROM_8_TO_16(*accum); accum++; // R
360
0
    wIn[1] = FROM_8_TO_16(*accum); accum++; // G
361
0
    wIn[2] = FROM_8_TO_16(*accum); accum++; // B
362
363
0
    return accum;
364
365
0
    cmsUNUSED_PARAMETER(info);
366
0
    cmsUNUSED_PARAMETER(Stride);
367
0
}
368
369
370
// BRG
371
static
372
cmsUInt8Number* Unroll3BytesSwap(CMSREGISTER _cmsTRANSFORM* info,
373
                                 CMSREGISTER cmsUInt16Number wIn[],
374
                                 CMSREGISTER cmsUInt8Number* accum,
375
                                 CMSREGISTER cmsUInt32Number Stride)
376
0
{
377
0
    wIn[2] = FROM_8_TO_16(*accum); accum++;     // B
378
0
    wIn[1] = FROM_8_TO_16(*accum); accum++;     // G
379
0
    wIn[0] = FROM_8_TO_16(*accum); accum++;     // R
380
381
0
    return accum;
382
383
0
    cmsUNUSED_PARAMETER(info);
384
0
    cmsUNUSED_PARAMETER(Stride);
385
0
}
386
387
static
388
cmsUInt8Number* UnrollLabV2_8(CMSREGISTER _cmsTRANSFORM* info,
389
                              CMSREGISTER cmsUInt16Number wIn[],
390
                              CMSREGISTER cmsUInt8Number* accum,
391
                              CMSREGISTER cmsUInt32Number Stride)
392
0
{
393
0
    wIn[0] = FomLabV2ToLabV4(FROM_8_TO_16(*accum)); accum++;     // L
394
0
    wIn[1] = FomLabV2ToLabV4(FROM_8_TO_16(*accum)); accum++;     // a
395
0
    wIn[2] = FomLabV2ToLabV4(FROM_8_TO_16(*accum)); accum++;     // b
396
397
0
    return accum;
398
399
0
    cmsUNUSED_PARAMETER(info);
400
0
    cmsUNUSED_PARAMETER(Stride);
401
0
}
402
403
static
404
cmsUInt8Number* UnrollALabV2_8(CMSREGISTER _cmsTRANSFORM* info,
405
                               CMSREGISTER cmsUInt16Number wIn[],
406
                               CMSREGISTER cmsUInt8Number* accum,
407
                               CMSREGISTER cmsUInt32Number Stride)
408
0
{
409
0
    accum++;  // A
410
0
    wIn[0] = FomLabV2ToLabV4(FROM_8_TO_16(*accum)); accum++;     // L
411
0
    wIn[1] = FomLabV2ToLabV4(FROM_8_TO_16(*accum)); accum++;     // a
412
0
    wIn[2] = FomLabV2ToLabV4(FROM_8_TO_16(*accum)); accum++;     // b
413
414
0
    return accum;
415
416
0
    cmsUNUSED_PARAMETER(info);
417
0
    cmsUNUSED_PARAMETER(Stride);
418
0
}
419
420
static
421
cmsUInt8Number* UnrollLabV2_16(CMSREGISTER _cmsTRANSFORM* info,
422
                               CMSREGISTER cmsUInt16Number wIn[],
423
                               CMSREGISTER cmsUInt8Number* accum,
424
                               CMSREGISTER cmsUInt32Number Stride)
425
0
{
426
0
    wIn[0] = FomLabV2ToLabV4(*(cmsUInt16Number*) accum); accum += 2;     // L
427
0
    wIn[1] = FomLabV2ToLabV4(*(cmsUInt16Number*) accum); accum += 2;     // a
428
0
    wIn[2] = FomLabV2ToLabV4(*(cmsUInt16Number*) accum); accum += 2;     // b
429
430
0
    return accum;
431
432
0
    cmsUNUSED_PARAMETER(info);
433
0
    cmsUNUSED_PARAMETER(Stride);
434
0
}
435
436
// for duplex
437
static
438
cmsUInt8Number* Unroll2Bytes(CMSREGISTER _cmsTRANSFORM* info,
439
                                     CMSREGISTER cmsUInt16Number wIn[],
440
                                     CMSREGISTER cmsUInt8Number* accum,
441
                                     CMSREGISTER cmsUInt32Number Stride)
442
0
{
443
0
    wIn[0] = FROM_8_TO_16(*accum); accum++;     // ch1
444
0
    wIn[1] = FROM_8_TO_16(*accum); accum++;     // ch2
445
446
0
    return accum;
447
448
0
    cmsUNUSED_PARAMETER(info);
449
0
    cmsUNUSED_PARAMETER(Stride);
450
0
}
451
452
453
454
455
// Monochrome duplicates L into RGB for null-transforms
456
static
457
cmsUInt8Number* Unroll1Byte(CMSREGISTER _cmsTRANSFORM* info,
458
                            CMSREGISTER cmsUInt16Number wIn[],
459
                            CMSREGISTER cmsUInt8Number* accum,
460
                            CMSREGISTER cmsUInt32Number Stride)
461
0
{
462
0
    wIn[0] = wIn[1] = wIn[2] = FROM_8_TO_16(*accum); accum++;     // L
463
464
0
    return accum;
465
466
0
    cmsUNUSED_PARAMETER(info);
467
0
    cmsUNUSED_PARAMETER(Stride);
468
0
}
469
470
471
static
472
cmsUInt8Number* Unroll1ByteSkip1(CMSREGISTER _cmsTRANSFORM* info,
473
                                 CMSREGISTER cmsUInt16Number wIn[],
474
                                 CMSREGISTER cmsUInt8Number* accum,
475
                                 CMSREGISTER cmsUInt32Number Stride)
476
0
{
477
0
    wIn[0] = wIn[1] = wIn[2] = FROM_8_TO_16(*accum); accum++;     // L
478
0
    accum += 1;
479
480
0
    return accum;
481
482
0
    cmsUNUSED_PARAMETER(info);
483
0
    cmsUNUSED_PARAMETER(Stride);
484
0
}
485
486
static
487
cmsUInt8Number* Unroll1ByteSkip2(CMSREGISTER _cmsTRANSFORM* info,
488
                                 CMSREGISTER cmsUInt16Number wIn[],
489
                                 CMSREGISTER cmsUInt8Number* accum,
490
                                 CMSREGISTER cmsUInt32Number Stride)
491
0
{
492
0
    wIn[0] = wIn[1] = wIn[2] = FROM_8_TO_16(*accum); accum++;     // L
493
0
    accum += 2;
494
495
0
    return accum;
496
497
0
    cmsUNUSED_PARAMETER(info);
498
0
    cmsUNUSED_PARAMETER(Stride);
499
0
}
500
501
static
502
cmsUInt8Number* Unroll1ByteReversed(CMSREGISTER _cmsTRANSFORM* info,
503
                                    CMSREGISTER cmsUInt16Number wIn[],
504
                                    CMSREGISTER cmsUInt8Number* accum,
505
                                    CMSREGISTER cmsUInt32Number Stride)
506
0
{
507
0
    wIn[0] = wIn[1] = wIn[2] = REVERSE_FLAVOR_16(FROM_8_TO_16(*accum)); accum++;     // L
508
509
0
    return accum;
510
511
0
    cmsUNUSED_PARAMETER(info);
512
0
    cmsUNUSED_PARAMETER(Stride);
513
0
}
514
515
516
static
517
cmsUInt8Number* UnrollAnyWords(CMSREGISTER _cmsTRANSFORM* info,
518
                               CMSREGISTER cmsUInt16Number wIn[],
519
                               CMSREGISTER cmsUInt8Number* accum,
520
                               CMSREGISTER cmsUInt32Number Stride)
521
0
{
522
0
   cmsUInt32Number nChan       = T_CHANNELS(info -> InputFormat);
523
0
   cmsUInt32Number SwapEndian  = T_ENDIAN16(info -> InputFormat);
524
0
   cmsUInt32Number DoSwap      = T_DOSWAP(info ->InputFormat);
525
0
   cmsUInt32Number Reverse     = T_FLAVOR(info ->InputFormat);
526
0
   cmsUInt32Number SwapFirst   = T_SWAPFIRST(info -> InputFormat);
527
0
   cmsUInt32Number Extra       = T_EXTRA(info -> InputFormat);
528
0
   cmsUInt32Number ExtraFirst  = DoSwap ^ SwapFirst;
529
0
   cmsUInt32Number i;
530
531
0
    if (ExtraFirst) {
532
0
        accum += Extra * sizeof(cmsUInt16Number);
533
0
    }
534
535
0
    for (i=0; i < nChan; i++) {
536
537
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
538
0
        cmsUInt16Number v = *(cmsUInt16Number*) accum;
539
540
0
        if (SwapEndian)
541
0
            v = CHANGE_ENDIAN(v);
542
543
0
        wIn[index] = Reverse ? REVERSE_FLAVOR_16(v) : v;
544
545
0
        accum += sizeof(cmsUInt16Number);
546
0
    }
547
548
0
    if (!ExtraFirst) {
549
0
        accum += Extra * sizeof(cmsUInt16Number);
550
0
    }
551
552
0
    if (Extra == 0 && SwapFirst) {
553
554
0
        cmsUInt16Number tmp = wIn[0];
555
556
0
        memmove(&wIn[0], &wIn[1], (nChan-1) * sizeof(cmsUInt16Number));
557
0
        wIn[nChan-1] = tmp;
558
0
    }
559
560
0
    return accum;
561
562
0
    cmsUNUSED_PARAMETER(Stride);
563
0
}
564
565
566
static
567
cmsUInt8Number* UnrollAnyWordsPremul(CMSREGISTER _cmsTRANSFORM* info,
568
                                     CMSREGISTER cmsUInt16Number wIn[],
569
                                     CMSREGISTER cmsUInt8Number* accum,
570
                                     CMSREGISTER cmsUInt32Number Stride)
571
0
{
572
0
   cmsUInt32Number nChan       = T_CHANNELS(info -> InputFormat);
573
0
   cmsUInt32Number SwapEndian  = T_ENDIAN16(info -> InputFormat);
574
0
   cmsUInt32Number DoSwap      = T_DOSWAP(info ->InputFormat);
575
0
   cmsUInt32Number Reverse     = T_FLAVOR(info ->InputFormat);
576
0
   cmsUInt32Number SwapFirst   = T_SWAPFIRST(info -> InputFormat);   
577
0
   cmsUInt32Number ExtraFirst  = DoSwap ^ SwapFirst;
578
0
   cmsUInt32Number i;
579
580
0
   cmsUInt16Number alpha = (ExtraFirst ? ((cmsUInt16Number*)accum)[0] : ((cmsUInt16Number*)accum)[nChan]);
581
0
   cmsUInt32Number alpha_factor = _cmsToFixedDomain(alpha);
582
583
0
    if (ExtraFirst) {
584
0
        accum += sizeof(cmsUInt16Number);
585
0
    }
586
587
0
    for (i=0; i < nChan; i++) {
588
589
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
590
0
        cmsUInt32Number v = *(cmsUInt16Number*) accum;
591
592
0
        if (SwapEndian)
593
0
            v = CHANGE_ENDIAN(v);
594
595
0
        if (alpha_factor > 0) {
596
597
0
            v = (v << 16) / alpha_factor;
598
0
            if (v > 0xffff) v = 0xffff;
599
0
        }
600
601
0
        wIn[index] = (cmsUInt16Number) (Reverse ? REVERSE_FLAVOR_16(v) : v);
602
603
0
        accum += sizeof(cmsUInt16Number);
604
0
    }
605
606
0
    if (!ExtraFirst) {
607
0
        accum += sizeof(cmsUInt16Number);
608
0
    }
609
610
0
    return accum;
611
612
0
    cmsUNUSED_PARAMETER(Stride);
613
0
}
614
615
616
617
static
618
cmsUInt8Number* UnrollPlanarWords(CMSREGISTER _cmsTRANSFORM* info,
619
                                  CMSREGISTER cmsUInt16Number wIn[],
620
                                  CMSREGISTER cmsUInt8Number* accum,
621
                                  CMSREGISTER cmsUInt32Number Stride)
622
0
{
623
0
    cmsUInt32Number nChan = T_CHANNELS(info -> InputFormat);
624
0
    cmsUInt32Number DoSwap= T_DOSWAP(info ->InputFormat);
625
0
    cmsUInt32Number Reverse= T_FLAVOR(info ->InputFormat);
626
0
    cmsUInt32Number SwapEndian = T_ENDIAN16(info -> InputFormat);
627
0
    cmsUInt32Number i;
628
0
    cmsUInt8Number* Init = accum;
629
630
0
    if (DoSwap) {
631
0
        accum += T_EXTRA(info -> InputFormat) * Stride;
632
0
    }
633
634
0
    for (i=0; i < nChan; i++) {
635
636
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
637
0
        cmsUInt16Number v = *(cmsUInt16Number*) accum;
638
639
0
        if (SwapEndian)
640
0
            v = CHANGE_ENDIAN(v);
641
642
0
        wIn[index] = Reverse ? REVERSE_FLAVOR_16(v) : v;
643
644
0
        accum +=  Stride;
645
0
    }
646
647
0
    return (Init + sizeof(cmsUInt16Number));
648
0
}
649
650
static
651
cmsUInt8Number* UnrollPlanarWordsPremul(CMSREGISTER _cmsTRANSFORM* info,
652
                                        CMSREGISTER cmsUInt16Number wIn[],
653
                                        CMSREGISTER cmsUInt8Number* accum,
654
                                        CMSREGISTER cmsUInt32Number Stride)
655
0
{
656
0
    cmsUInt32Number nChan = T_CHANNELS(info -> InputFormat);
657
0
    cmsUInt32Number DoSwap= T_DOSWAP(info ->InputFormat);
658
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info->InputFormat);
659
0
    cmsUInt32Number Reverse= T_FLAVOR(info ->InputFormat);
660
0
    cmsUInt32Number SwapEndian = T_ENDIAN16(info -> InputFormat);
661
0
    cmsUInt32Number i;
662
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
663
0
    cmsUInt8Number* Init = accum;
664
    
665
0
    cmsUInt16Number alpha = (ExtraFirst ? ((cmsUInt16Number*)accum)[0] : ((cmsUInt16Number*)accum)[nChan * Stride / 2]);
666
0
    cmsUInt32Number alpha_factor = _cmsToFixedDomain(alpha);
667
668
0
    if (ExtraFirst) {
669
0
        accum += Stride;
670
0
    }
671
672
0
    for (i=0; i < nChan; i++) {
673
674
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
675
0
        cmsUInt32Number v = (cmsUInt32Number) *(cmsUInt16Number*) accum;
676
677
0
        if (SwapEndian)
678
0
            v = CHANGE_ENDIAN(v);
679
680
0
        if (alpha_factor > 0) {
681
682
0
            v = (v << 16) / alpha_factor;
683
0
            if (v > 0xffff) v = 0xffff;
684
0
        }
685
686
0
        wIn[index] = (cmsUInt16Number) (Reverse ? REVERSE_FLAVOR_16(v) : v);
687
688
0
        accum +=  Stride;
689
0
    }
690
691
0
    return (Init + sizeof(cmsUInt16Number));
692
0
}
693
694
static
695
cmsUInt8Number* Unroll4Words(CMSREGISTER _cmsTRANSFORM* info,
696
                             CMSREGISTER cmsUInt16Number wIn[],
697
                             CMSREGISTER cmsUInt8Number* accum,
698
                             CMSREGISTER cmsUInt32Number Stride)
699
0
{
700
0
    wIn[0] = *(cmsUInt16Number*) accum; accum+= 2; // C
701
0
    wIn[1] = *(cmsUInt16Number*) accum; accum+= 2; // M
702
0
    wIn[2] = *(cmsUInt16Number*) accum; accum+= 2; // Y
703
0
    wIn[3] = *(cmsUInt16Number*) accum; accum+= 2; // K
704
705
0
    return accum;
706
707
0
    cmsUNUSED_PARAMETER(info);
708
0
    cmsUNUSED_PARAMETER(Stride);
709
0
}
710
711
static
712
cmsUInt8Number* Unroll4WordsReverse(CMSREGISTER _cmsTRANSFORM* info,
713
                                    CMSREGISTER cmsUInt16Number wIn[],
714
                                    CMSREGISTER cmsUInt8Number* accum,
715
                                    CMSREGISTER cmsUInt32Number Stride)
716
0
{
717
0
    wIn[0] = REVERSE_FLAVOR_16(*(cmsUInt16Number*) accum); accum+= 2; // C
718
0
    wIn[1] = REVERSE_FLAVOR_16(*(cmsUInt16Number*) accum); accum+= 2; // M
719
0
    wIn[2] = REVERSE_FLAVOR_16(*(cmsUInt16Number*) accum); accum+= 2; // Y
720
0
    wIn[3] = REVERSE_FLAVOR_16(*(cmsUInt16Number*) accum); accum+= 2; // K
721
722
0
    return accum;
723
724
0
    cmsUNUSED_PARAMETER(info);
725
0
    cmsUNUSED_PARAMETER(Stride);
726
0
}
727
728
static
729
cmsUInt8Number* Unroll4WordsSwapFirst(CMSREGISTER _cmsTRANSFORM* info,
730
                                      CMSREGISTER cmsUInt16Number wIn[],
731
                                      CMSREGISTER cmsUInt8Number* accum,
732
                                      CMSREGISTER cmsUInt32Number Stride)
733
0
{
734
0
    wIn[3] = *(cmsUInt16Number*) accum; accum+= 2; // K
735
0
    wIn[0] = *(cmsUInt16Number*) accum; accum+= 2; // C
736
0
    wIn[1] = *(cmsUInt16Number*) accum; accum+= 2; // M
737
0
    wIn[2] = *(cmsUInt16Number*) accum; accum+= 2; // Y
738
739
0
    return accum;
740
741
0
    cmsUNUSED_PARAMETER(info);
742
0
    cmsUNUSED_PARAMETER(Stride);
743
0
}
744
745
// KYMC
746
static
747
cmsUInt8Number* Unroll4WordsSwap(CMSREGISTER _cmsTRANSFORM* info,
748
                                 CMSREGISTER cmsUInt16Number wIn[],
749
                                 CMSREGISTER cmsUInt8Number* accum,
750
                                 CMSREGISTER cmsUInt32Number Stride)
751
0
{
752
0
    wIn[3] = *(cmsUInt16Number*) accum; accum+= 2; // K
753
0
    wIn[2] = *(cmsUInt16Number*) accum; accum+= 2; // Y
754
0
    wIn[1] = *(cmsUInt16Number*) accum; accum+= 2; // M
755
0
    wIn[0] = *(cmsUInt16Number*) accum; accum+= 2; // C
756
757
0
    return accum;
758
759
0
    cmsUNUSED_PARAMETER(info);
760
0
    cmsUNUSED_PARAMETER(Stride);
761
0
}
762
763
static
764
cmsUInt8Number* Unroll4WordsSwapSwapFirst(CMSREGISTER _cmsTRANSFORM* info,
765
                                          CMSREGISTER cmsUInt16Number wIn[],
766
                                          CMSREGISTER cmsUInt8Number* accum,
767
                                          CMSREGISTER cmsUInt32Number Stride)
768
0
{
769
0
    wIn[2] = *(cmsUInt16Number*) accum; accum+= 2; // K
770
0
    wIn[1] = *(cmsUInt16Number*) accum; accum+= 2; // Y
771
0
    wIn[0] = *(cmsUInt16Number*) accum; accum+= 2; // M
772
0
    wIn[3] = *(cmsUInt16Number*) accum; accum+= 2; // C
773
774
0
    return accum;
775
776
0
    cmsUNUSED_PARAMETER(info);
777
0
    cmsUNUSED_PARAMETER(Stride);
778
0
}
779
780
static
781
cmsUInt8Number* Unroll3Words(CMSREGISTER _cmsTRANSFORM* info,
782
                             CMSREGISTER cmsUInt16Number wIn[],
783
                             CMSREGISTER cmsUInt8Number* accum,
784
                             CMSREGISTER cmsUInt32Number Stride)
785
0
{
786
0
    wIn[0] = *(cmsUInt16Number*) accum; accum+= 2;  // C R
787
0
    wIn[1] = *(cmsUInt16Number*) accum; accum+= 2;  // M G
788
0
    wIn[2] = *(cmsUInt16Number*) accum; accum+= 2;  // Y B
789
790
0
    return accum;
791
792
0
    cmsUNUSED_PARAMETER(info);
793
0
    cmsUNUSED_PARAMETER(Stride);
794
0
}
795
796
static
797
cmsUInt8Number* Unroll3WordsSwap(CMSREGISTER _cmsTRANSFORM* info,
798
                                 CMSREGISTER cmsUInt16Number wIn[],
799
                                 CMSREGISTER cmsUInt8Number* accum,
800
                                 CMSREGISTER cmsUInt32Number Stride)
801
0
{
802
0
    wIn[2] = *(cmsUInt16Number*) accum; accum+= 2;  // C R
803
0
    wIn[1] = *(cmsUInt16Number*) accum; accum+= 2;  // M G
804
0
    wIn[0] = *(cmsUInt16Number*) accum; accum+= 2;  // Y B
805
806
0
    return accum;
807
808
0
    cmsUNUSED_PARAMETER(info);
809
0
    cmsUNUSED_PARAMETER(Stride);
810
0
}
811
812
static
813
cmsUInt8Number* Unroll3WordsSkip1Swap(CMSREGISTER _cmsTRANSFORM* info,
814
                                      CMSREGISTER cmsUInt16Number wIn[],
815
                                      CMSREGISTER cmsUInt8Number* accum,
816
                                      CMSREGISTER cmsUInt32Number Stride)
817
0
{
818
0
    accum += 2; // A
819
0
    wIn[2] = *(cmsUInt16Number*) accum; accum += 2; // R
820
0
    wIn[1] = *(cmsUInt16Number*) accum; accum += 2; // G
821
0
    wIn[0] = *(cmsUInt16Number*) accum; accum += 2; // B
822
823
0
    return accum;
824
825
0
    cmsUNUSED_PARAMETER(info);
826
0
    cmsUNUSED_PARAMETER(Stride);
827
0
}
828
829
static
830
cmsUInt8Number* Unroll3WordsSkip1SwapFirst(CMSREGISTER _cmsTRANSFORM* info,
831
                                           CMSREGISTER cmsUInt16Number wIn[],
832
                                           CMSREGISTER cmsUInt8Number* accum,
833
                                           CMSREGISTER cmsUInt32Number Stride)
834
0
{
835
0
    accum += 2; // A
836
0
    wIn[0] = *(cmsUInt16Number*) accum; accum += 2; // R
837
0
    wIn[1] = *(cmsUInt16Number*) accum; accum += 2; // G
838
0
    wIn[2] = *(cmsUInt16Number*) accum; accum += 2; // B
839
840
0
    return accum;
841
842
0
    cmsUNUSED_PARAMETER(info);
843
0
    cmsUNUSED_PARAMETER(Stride);
844
0
}
845
846
static
847
cmsUInt8Number* Unroll1Word(CMSREGISTER _cmsTRANSFORM* info,
848
                            CMSREGISTER cmsUInt16Number wIn[],
849
                            CMSREGISTER cmsUInt8Number* accum,
850
                            CMSREGISTER cmsUInt32Number Stride)
851
0
{
852
0
    wIn[0] = wIn[1] = wIn[2] = *(cmsUInt16Number*) accum; accum+= 2;   // L
853
854
0
    return accum;
855
856
0
    cmsUNUSED_PARAMETER(info);
857
0
    cmsUNUSED_PARAMETER(Stride);
858
0
}
859
860
static
861
cmsUInt8Number* Unroll1WordReversed(CMSREGISTER _cmsTRANSFORM* info,
862
                                    CMSREGISTER cmsUInt16Number wIn[],
863
                                    CMSREGISTER cmsUInt8Number* accum,
864
                                    CMSREGISTER cmsUInt32Number Stride)
865
0
{
866
0
    wIn[0] = wIn[1] = wIn[2] = REVERSE_FLAVOR_16(*(cmsUInt16Number*) accum); accum+= 2;
867
868
0
    return accum;
869
870
0
    cmsUNUSED_PARAMETER(info);
871
0
    cmsUNUSED_PARAMETER(Stride);
872
0
}
873
874
static
875
cmsUInt8Number* Unroll1WordSkip3(CMSREGISTER _cmsTRANSFORM* info,
876
                                 CMSREGISTER cmsUInt16Number wIn[],
877
                                 CMSREGISTER cmsUInt8Number* accum,
878
                                 CMSREGISTER cmsUInt32Number Stride)
879
0
{
880
0
    wIn[0] = wIn[1] = wIn[2] = *(cmsUInt16Number*) accum;
881
882
0
    accum += 8;
883
884
0
    return accum;
885
886
0
    cmsUNUSED_PARAMETER(info);
887
0
    cmsUNUSED_PARAMETER(Stride);
888
0
}
889
890
static
891
cmsUInt8Number* Unroll2Words(CMSREGISTER _cmsTRANSFORM* info,
892
                                     CMSREGISTER cmsUInt16Number wIn[],
893
                                     CMSREGISTER cmsUInt8Number* accum,
894
                                     CMSREGISTER cmsUInt32Number Stride)
895
0
{
896
0
    wIn[0] = *(cmsUInt16Number*) accum; accum += 2;    // ch1
897
0
    wIn[1] = *(cmsUInt16Number*) accum; accum += 2;    // ch2
898
899
0
    return accum;
900
901
0
    cmsUNUSED_PARAMETER(info);
902
0
    cmsUNUSED_PARAMETER(Stride);
903
0
}
904
905
906
// This is a conversion of Lab double to 16 bits
907
static
908
cmsUInt8Number* UnrollLabDoubleTo16(CMSREGISTER _cmsTRANSFORM* info,
909
                                    CMSREGISTER cmsUInt16Number wIn[],
910
                                    CMSREGISTER cmsUInt8Number* accum,
911
                                    CMSREGISTER cmsUInt32Number  Stride)
912
0
{
913
0
    if (T_PLANAR(info -> InputFormat)) {
914
915
0
        cmsCIELab Lab;
916
0
        cmsUInt8Number* pos_L;
917
0
        cmsUInt8Number* pos_a;
918
0
        cmsUInt8Number* pos_b;
919
        
920
0
        pos_L = accum;
921
0
        pos_a = accum + Stride;
922
0
        pos_b = accum + Stride * 2;
923
924
0
        Lab.L = *(cmsFloat64Number*) pos_L;
925
0
        Lab.a = *(cmsFloat64Number*) pos_a;
926
0
        Lab.b = *(cmsFloat64Number*) pos_b;
927
928
0
        cmsFloat2LabEncoded(wIn, &Lab);
929
0
        return accum + sizeof(cmsFloat64Number);
930
0
    }
931
0
    else {
932
933
0
        cmsFloat2LabEncoded(wIn, (cmsCIELab*) accum);
934
0
        accum += sizeof(cmsCIELab) + T_EXTRA(info ->InputFormat) * sizeof(cmsFloat64Number);
935
0
        return accum;
936
0
    }
937
0
}
938
939
940
// This is a conversion of Lab float to 16 bits
941
static
942
cmsUInt8Number* UnrollLabFloatTo16(CMSREGISTER _cmsTRANSFORM* info,
943
                                    CMSREGISTER cmsUInt16Number wIn[],
944
                                    CMSREGISTER cmsUInt8Number* accum,
945
                                    CMSREGISTER cmsUInt32Number  Stride)
946
0
{
947
0
    cmsCIELab Lab;
948
    
949
0
    if (T_PLANAR(info -> InputFormat)) {
950
951
0
        cmsUInt8Number* pos_L;
952
0
        cmsUInt8Number* pos_a;
953
0
        cmsUInt8Number* pos_b;
954
955
0
        pos_L = accum;
956
0
        pos_a = accum + Stride;
957
0
        pos_b = accum + Stride * 2;
958
959
0
        Lab.L = *(cmsFloat32Number*)pos_L;
960
0
        Lab.a = *(cmsFloat32Number*)pos_a;
961
0
        Lab.b = *(cmsFloat32Number*)pos_b;
962
963
0
        cmsFloat2LabEncoded(wIn, &Lab);
964
0
        return accum + sizeof(cmsFloat32Number);
965
0
    }
966
0
    else {
967
 
968
0
        Lab.L = ((cmsFloat32Number*) accum)[0];
969
0
        Lab.a = ((cmsFloat32Number*) accum)[1];
970
0
        Lab.b = ((cmsFloat32Number*) accum)[2];
971
972
0
        cmsFloat2LabEncoded(wIn, &Lab);
973
0
        accum += (3 + T_EXTRA(info ->InputFormat)) * sizeof(cmsFloat32Number);
974
0
        return accum;
975
0
    }
976
0
}
977
978
// This is a conversion of XYZ double to 16 bits
979
static
980
cmsUInt8Number* UnrollXYZDoubleTo16(CMSREGISTER _cmsTRANSFORM* info,
981
                                    CMSREGISTER cmsUInt16Number wIn[],
982
                                    CMSREGISTER cmsUInt8Number* accum,
983
                                    CMSREGISTER cmsUInt32Number Stride)
984
0
{
985
0
    if (T_PLANAR(info -> InputFormat)) {
986
987
0
        cmsCIEXYZ XYZ;
988
0
        cmsUInt8Number* pos_X;
989
0
        cmsUInt8Number* pos_Y;
990
0
        cmsUInt8Number* pos_Z;
991
992
0
        pos_X = accum;
993
0
        pos_Y = accum + Stride;
994
0
        pos_Z = accum + Stride * 2;
995
996
0
        XYZ.X = *(cmsFloat64Number*)pos_X;
997
0
        XYZ.Y = *(cmsFloat64Number*)pos_Y;
998
0
        XYZ.Z = *(cmsFloat64Number*)pos_Z;
999
1000
0
        cmsFloat2XYZEncoded(wIn, &XYZ);
1001
1002
0
        return accum + sizeof(cmsFloat64Number);
1003
1004
0
    }
1005
1006
0
    else {
1007
0
        cmsFloat2XYZEncoded(wIn, (cmsCIEXYZ*) accum);
1008
0
        accum += sizeof(cmsCIEXYZ) + T_EXTRA(info ->InputFormat) * sizeof(cmsFloat64Number);
1009
1010
0
        return accum;
1011
0
    }
1012
0
}
1013
1014
// This is a conversion of XYZ float to 16 bits
1015
static
1016
cmsUInt8Number* UnrollXYZFloatTo16(CMSREGISTER _cmsTRANSFORM* info,
1017
                                   CMSREGISTER cmsUInt16Number wIn[],
1018
                                   CMSREGISTER cmsUInt8Number* accum,
1019
                                   CMSREGISTER cmsUInt32Number Stride)
1020
0
{
1021
0
    if (T_PLANAR(info -> InputFormat)) {
1022
1023
0
        cmsCIEXYZ XYZ;
1024
0
        cmsUInt8Number* pos_X;
1025
0
        cmsUInt8Number* pos_Y;
1026
0
        cmsUInt8Number* pos_Z;
1027
1028
0
        pos_X = accum;
1029
0
        pos_Y = accum + Stride;
1030
0
        pos_Z = accum + Stride * 2;
1031
1032
0
        XYZ.X = *(cmsFloat32Number*)pos_X;
1033
0
        XYZ.Y = *(cmsFloat32Number*)pos_Y;
1034
0
        XYZ.Z = *(cmsFloat32Number*)pos_Z;
1035
1036
0
        cmsFloat2XYZEncoded(wIn, &XYZ);
1037
1038
0
        return accum + sizeof(cmsFloat32Number);
1039
1040
0
    }
1041
1042
0
    else {
1043
0
        cmsFloat32Number* Pt = (cmsFloat32Number*) accum;
1044
0
        cmsCIEXYZ XYZ;
1045
1046
0
        XYZ.X = Pt[0];
1047
0
        XYZ.Y = Pt[1];
1048
0
        XYZ.Z = Pt[2];
1049
0
        cmsFloat2XYZEncoded(wIn, &XYZ);
1050
1051
0
        accum += 3 * sizeof(cmsFloat32Number) + T_EXTRA(info ->InputFormat) * sizeof(cmsFloat32Number);
1052
1053
0
        return accum;
1054
0
    }
1055
0
}
1056
1057
// Check if space is marked as ink
1058
cmsINLINE cmsBool IsInkSpace(cmsUInt32Number Type)
1059
0
{
1060
0
    switch (T_COLORSPACE(Type)) {
1061
1062
0
     case PT_CMY:
1063
0
     case PT_CMYK:
1064
0
     case PT_MCH5:
1065
0
     case PT_MCH6:
1066
0
     case PT_MCH7:
1067
0
     case PT_MCH8:
1068
0
     case PT_MCH9:
1069
0
     case PT_MCH10:
1070
0
     case PT_MCH11:
1071
0
     case PT_MCH12:
1072
0
     case PT_MCH13:
1073
0
     case PT_MCH14:
1074
0
     case PT_MCH15: return TRUE;
1075
1076
0
     default: return FALSE;
1077
0
    }
1078
0
}
1079
1080
// Return the size in bytes of a given formatter
1081
cmsINLINE cmsUInt32Number PixelSize(cmsUInt32Number Format)
1082
0
{
1083
0
    cmsUInt32Number fmt_bytes = T_BYTES(Format);
1084
1085
    // For double, the T_BYTES field is zero
1086
0
    if (fmt_bytes == 0)
1087
0
        return sizeof(cmsUInt64Number);
1088
1089
    // Otherwise, it is already correct for all formats
1090
0
    return fmt_bytes;
1091
0
}
1092
1093
// Inks does come in percentage, remaining cases are between 0..1.0, again to 16 bits
1094
static
1095
cmsUInt8Number* UnrollDoubleTo16(CMSREGISTER _cmsTRANSFORM* info,
1096
                                CMSREGISTER cmsUInt16Number wIn[],
1097
                                CMSREGISTER cmsUInt8Number* accum,
1098
                                CMSREGISTER cmsUInt32Number Stride)
1099
0
{
1100
1101
0
    cmsUInt32Number nChan      = T_CHANNELS(info -> InputFormat);
1102
0
    cmsUInt32Number DoSwap     = T_DOSWAP(info ->InputFormat);
1103
0
    cmsUInt32Number Reverse    = T_FLAVOR(info ->InputFormat);
1104
0
    cmsUInt32Number SwapFirst  = T_SWAPFIRST(info -> InputFormat);
1105
0
    cmsUInt32Number Extra      = T_EXTRA(info -> InputFormat);
1106
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
1107
0
    cmsUInt32Number Planar     = T_PLANAR(info -> InputFormat);
1108
0
    cmsFloat64Number v;
1109
0
    cmsUInt16Number  vi;
1110
0
    cmsUInt32Number i, start = 0;
1111
0
    cmsFloat64Number maximum = IsInkSpace(info ->InputFormat) ? 655.35 : 65535.0;
1112
1113
1114
0
    Stride /= PixelSize(info->InputFormat);
1115
1116
0
    if (ExtraFirst)
1117
0
            start = Extra;
1118
1119
0
    for (i=0; i < nChan; i++) {
1120
1121
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
1122
1123
0
        if (Planar)
1124
0
            v = (cmsFloat32Number) ((cmsFloat64Number*) accum)[(i + start) * Stride];
1125
0
        else
1126
0
            v = (cmsFloat32Number) ((cmsFloat64Number*) accum)[i + start];
1127
1128
0
        vi = _cmsQuickSaturateWord(v * maximum);
1129
1130
0
        if (Reverse)
1131
0
            vi = REVERSE_FLAVOR_16(vi);
1132
1133
0
        wIn[index] = vi;
1134
0
    }
1135
1136
1137
0
    if (Extra == 0 && SwapFirst) {
1138
0
        cmsUInt16Number tmp = wIn[0];
1139
1140
0
        memmove(&wIn[0], &wIn[1], (nChan-1) * sizeof(cmsUInt16Number));
1141
0
        wIn[nChan-1] = tmp;
1142
0
    }
1143
1144
0
    if (T_PLANAR(info -> InputFormat))
1145
0
        return accum + sizeof(cmsFloat64Number);
1146
0
    else
1147
0
        return accum + (nChan + Extra) * sizeof(cmsFloat64Number);
1148
0
}
1149
1150
1151
1152
static
1153
cmsUInt8Number* UnrollFloatTo16(CMSREGISTER _cmsTRANSFORM* info,
1154
                                CMSREGISTER cmsUInt16Number wIn[],
1155
                                CMSREGISTER cmsUInt8Number* accum,
1156
                                CMSREGISTER cmsUInt32Number Stride)
1157
0
{
1158
1159
0
    cmsUInt32Number nChan  = T_CHANNELS(info -> InputFormat);
1160
0
    cmsUInt32Number DoSwap   = T_DOSWAP(info ->InputFormat);
1161
0
    cmsUInt32Number Reverse    = T_FLAVOR(info ->InputFormat);
1162
0
    cmsUInt32Number SwapFirst  = T_SWAPFIRST(info -> InputFormat);
1163
0
    cmsUInt32Number Extra   = T_EXTRA(info -> InputFormat);
1164
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
1165
0
    cmsUInt32Number Planar     = T_PLANAR(info -> InputFormat);
1166
0
    cmsFloat32Number v;
1167
0
    cmsUInt16Number  vi;
1168
0
    cmsUInt32Number i, start = 0;
1169
0
    cmsFloat64Number maximum = IsInkSpace(info ->InputFormat) ? 655.35 : 65535.0;
1170
1171
0
    Stride /= PixelSize(info->InputFormat);
1172
1173
0
    if (ExtraFirst)
1174
0
            start = Extra;
1175
1176
0
    for (i=0; i < nChan; i++) {
1177
1178
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
1179
1180
0
        if (Planar)
1181
0
            v = (cmsFloat32Number) ((cmsFloat32Number*) accum)[(i + start) * Stride];
1182
0
        else
1183
0
            v = (cmsFloat32Number) ((cmsFloat32Number*) accum)[i + start];
1184
1185
0
        vi = _cmsQuickSaturateWord(v * maximum);
1186
1187
0
        if (Reverse)
1188
0
            vi = REVERSE_FLAVOR_16(vi);
1189
1190
0
        wIn[index] = vi;
1191
0
    }
1192
1193
1194
0
    if (Extra == 0 && SwapFirst) {
1195
0
        cmsUInt16Number tmp = wIn[0];
1196
1197
0
        memmove(&wIn[0], &wIn[1], (nChan-1) * sizeof(cmsUInt16Number));
1198
0
        wIn[nChan-1] = tmp;
1199
0
    }
1200
1201
0
    if (T_PLANAR(info -> InputFormat))
1202
0
        return accum + sizeof(cmsFloat32Number);
1203
0
    else
1204
0
        return accum + (nChan + Extra) * sizeof(cmsFloat32Number);
1205
0
}
1206
1207
1208
1209
1210
// For 1 channel, we need to duplicate data (it comes in 0..1.0 range)
1211
static
1212
cmsUInt8Number* UnrollDouble1Chan(CMSREGISTER _cmsTRANSFORM* info,
1213
                                  CMSREGISTER cmsUInt16Number wIn[],
1214
                                  CMSREGISTER cmsUInt8Number* accum,
1215
                                  CMSREGISTER cmsUInt32Number Stride)
1216
0
{
1217
0
    cmsFloat64Number* Inks = (cmsFloat64Number*) accum;
1218
1219
0
    wIn[0] = wIn[1] = wIn[2] = _cmsQuickSaturateWord(Inks[0] * 65535.0);
1220
1221
0
    return accum + sizeof(cmsFloat64Number);
1222
1223
0
    cmsUNUSED_PARAMETER(info);
1224
0
    cmsUNUSED_PARAMETER(Stride);
1225
0
}
1226
1227
//-------------------------------------------------------------------------------------------------------------------
1228
1229
// For anything going from cmsUInt8Number
1230
static
1231
cmsUInt8Number* Unroll8ToFloat(_cmsTRANSFORM* info,
1232
                               cmsFloat32Number wIn[],
1233
                               cmsUInt8Number* accum,
1234
                               cmsUInt32Number Stride)
1235
0
{
1236
1237
0
    cmsUInt32Number nChan = T_CHANNELS(info->InputFormat);
1238
0
    cmsUInt32Number DoSwap = T_DOSWAP(info->InputFormat);
1239
0
    cmsUInt32Number Reverse = T_FLAVOR(info->InputFormat);
1240
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info->InputFormat);
1241
0
    cmsUInt32Number Extra = T_EXTRA(info->InputFormat);
1242
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
1243
0
    cmsUInt32Number Planar = T_PLANAR(info->InputFormat);
1244
0
    cmsFloat32Number v;
1245
0
    cmsUInt32Number i, start = 0;
1246
    
1247
0
    Stride /= PixelSize(info->InputFormat);
1248
1249
0
    if (ExtraFirst)
1250
0
        start = Extra;
1251
1252
0
    for (i = 0; i < nChan; i++) {
1253
1254
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
1255
1256
0
        if (Planar)
1257
0
            v = (cmsFloat32Number) ((cmsUInt8Number *)accum)[(i + start) * Stride];
1258
0
        else
1259
0
            v = (cmsFloat32Number) ((cmsUInt8Number *)accum)[i + start];
1260
1261
0
        v /= 255.0F;
1262
1263
0
        wIn[index] = Reverse ? 1 - v : v;
1264
0
    }
1265
1266
1267
0
    if (Extra == 0 && SwapFirst) {
1268
0
        cmsFloat32Number tmp = wIn[0];
1269
1270
0
        memmove(&wIn[0], &wIn[1], (nChan - 1) * sizeof(cmsFloat32Number));
1271
0
        wIn[nChan - 1] = tmp;
1272
0
    }
1273
1274
0
    if (T_PLANAR(info->InputFormat))
1275
0
        return accum + sizeof(cmsUInt8Number);
1276
0
    else
1277
0
        return accum + (nChan + Extra) * sizeof(cmsUInt8Number);
1278
0
}
1279
1280
1281
// For anything going from cmsUInt16Number
1282
static
1283
cmsUInt8Number* Unroll16ToFloat(_cmsTRANSFORM* info,
1284
                                cmsFloat32Number wIn[],
1285
                                cmsUInt8Number* accum,
1286
                                cmsUInt32Number Stride)
1287
0
{
1288
1289
0
    cmsUInt32Number nChan = T_CHANNELS(info->InputFormat);
1290
0
    cmsUInt32Number DoSwap = T_DOSWAP(info->InputFormat);
1291
0
    cmsUInt32Number Reverse = T_FLAVOR(info->InputFormat);
1292
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info->InputFormat);
1293
0
    cmsUInt32Number Extra = T_EXTRA(info->InputFormat);
1294
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
1295
0
    cmsUInt32Number Planar = T_PLANAR(info->InputFormat);
1296
0
    cmsFloat32Number v;
1297
0
    cmsUInt32Number i, start = 0;
1298
1299
0
    Stride /= PixelSize(info->InputFormat);
1300
1301
0
    if (ExtraFirst)
1302
0
        start = Extra;
1303
1304
0
    for (i = 0; i < nChan; i++) {
1305
1306
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
1307
1308
0
        if (Planar)
1309
0
            v = (cmsFloat32Number)((cmsUInt16Number*)accum)[(i + start) * Stride];
1310
0
        else
1311
0
            v = (cmsFloat32Number)((cmsUInt16Number*)accum)[i + start];
1312
1313
0
        v /= 65535.0F;
1314
1315
0
        wIn[index] = Reverse ? 1 - v : v;
1316
0
    }
1317
1318
1319
0
    if (Extra == 0 && SwapFirst) {
1320
0
        cmsFloat32Number tmp = wIn[0];
1321
1322
0
        memmove(&wIn[0], &wIn[1], (nChan - 1) * sizeof(cmsFloat32Number));
1323
0
        wIn[nChan - 1] = tmp;
1324
0
    }
1325
1326
0
    if (T_PLANAR(info->InputFormat))
1327
0
        return accum + sizeof(cmsUInt16Number);
1328
0
    else
1329
0
        return accum + (nChan + Extra) * sizeof(cmsUInt16Number);
1330
0
}
1331
1332
1333
// For anything going from cmsFloat32Number
1334
static
1335
cmsUInt8Number* UnrollFloatsToFloat(_cmsTRANSFORM* info,
1336
                                    cmsFloat32Number wIn[],
1337
                                    cmsUInt8Number* accum,
1338
                                    cmsUInt32Number Stride)
1339
0
{
1340
1341
0
    cmsUInt32Number nChan = T_CHANNELS(info->InputFormat);
1342
0
    cmsUInt32Number DoSwap = T_DOSWAP(info->InputFormat);
1343
0
    cmsUInt32Number Reverse = T_FLAVOR(info->InputFormat);
1344
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info->InputFormat);
1345
0
    cmsUInt32Number Extra = T_EXTRA(info->InputFormat);
1346
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
1347
0
    cmsUInt32Number Planar = T_PLANAR(info->InputFormat);
1348
0
    cmsUInt32Number Premul = T_PREMUL(info->InputFormat);
1349
0
    cmsFloat32Number v;
1350
0
    cmsUInt32Number i, start = 0;
1351
0
    cmsFloat32Number maximum = IsInkSpace(info->InputFormat) ? 100.0F : 1.0F;
1352
0
    cmsFloat32Number alpha_factor = 1.0f;
1353
0
    cmsFloat32Number* ptr = (cmsFloat32Number*)accum;
1354
1355
0
    Stride /= PixelSize(info->InputFormat);
1356
1357
0
    if (Premul && Extra)
1358
0
    {        
1359
0
        if (Planar)
1360
0
            alpha_factor = (ExtraFirst ? ptr[0] : ptr[nChan * Stride]) / maximum;
1361
0
        else
1362
0
            alpha_factor = (ExtraFirst ? ptr[0] : ptr[nChan]) / maximum;        
1363
0
    }
1364
1365
0
    if (ExtraFirst)
1366
0
            start = Extra;
1367
1368
0
    for (i=0; i < nChan; i++) {
1369
1370
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
1371
1372
0
        if (Planar)
1373
0
            v = ptr[(i + start) * Stride];
1374
0
        else
1375
0
            v = ptr[i + start];
1376
1377
0
        if (Premul && alpha_factor > 0)
1378
0
            v /= alpha_factor;
1379
1380
0
        v /= maximum;
1381
1382
0
        wIn[index] = Reverse ? 1 - v : v;
1383
0
    }
1384
1385
1386
0
    if (Extra == 0 && SwapFirst) {
1387
0
        cmsFloat32Number tmp = wIn[0];
1388
1389
0
        memmove(&wIn[0], &wIn[1], (nChan-1) * sizeof(cmsFloat32Number));
1390
0
        wIn[nChan-1] = tmp;
1391
0
    }
1392
1393
0
    if (T_PLANAR(info -> InputFormat))
1394
0
        return accum + sizeof(cmsFloat32Number);
1395
0
    else
1396
0
        return accum + (nChan + Extra) * sizeof(cmsFloat32Number);
1397
0
}
1398
1399
// For anything going from double
1400
1401
static
1402
cmsUInt8Number* UnrollDoublesToFloat(_cmsTRANSFORM* info,
1403
                                    cmsFloat32Number wIn[],
1404
                                    cmsUInt8Number* accum,
1405
                                    cmsUInt32Number Stride)
1406
0
{
1407
1408
0
    cmsUInt32Number nChan = T_CHANNELS(info->InputFormat);
1409
0
    cmsUInt32Number DoSwap = T_DOSWAP(info->InputFormat);
1410
0
    cmsUInt32Number Reverse = T_FLAVOR(info->InputFormat);
1411
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info->InputFormat);
1412
0
    cmsUInt32Number Extra = T_EXTRA(info->InputFormat);
1413
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
1414
0
    cmsUInt32Number Planar = T_PLANAR(info->InputFormat);
1415
0
    cmsUInt32Number Premul = T_PREMUL(info->InputFormat);
1416
0
    cmsFloat64Number v;
1417
0
    cmsUInt32Number i, start = 0;
1418
0
    cmsFloat64Number maximum = IsInkSpace(info ->InputFormat) ? 100.0 : 1.0;
1419
0
    cmsFloat64Number alpha_factor = 1.0;
1420
0
    cmsFloat64Number* ptr = (cmsFloat64Number*)accum;
1421
1422
0
    Stride /= PixelSize(info->InputFormat);
1423
1424
0
    if (Premul && Extra)
1425
0
    {
1426
0
        if (Planar)
1427
0
            alpha_factor = (ExtraFirst ? ptr[0] : ptr[nChan * Stride]) / maximum;
1428
0
        else
1429
0
            alpha_factor = (ExtraFirst ? ptr[0] : ptr[nChan]) / maximum;
1430
0
    }
1431
   
1432
0
    if (ExtraFirst)
1433
0
            start = Extra;
1434
1435
0
    for (i=0; i < nChan; i++) {
1436
1437
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
1438
1439
0
        if (Planar)
1440
0
            v = (cmsFloat64Number) ((cmsFloat64Number*) accum)[(i + start)  * Stride];
1441
0
        else
1442
0
            v = (cmsFloat64Number) ((cmsFloat64Number*) accum)[i + start];
1443
1444
1445
0
        if (Premul && alpha_factor > 0)
1446
0
            v /= alpha_factor;
1447
1448
0
        v /= maximum;
1449
1450
0
        wIn[index] = (cmsFloat32Number) (Reverse ? 1.0 - v : v);
1451
0
    }
1452
1453
1454
0
    if (Extra == 0 && SwapFirst) {
1455
0
        cmsFloat32Number tmp = wIn[0];
1456
1457
0
        memmove(&wIn[0], &wIn[1], (nChan-1) * sizeof(cmsFloat32Number));
1458
0
        wIn[nChan-1] = tmp;
1459
0
    }
1460
1461
0
    if (T_PLANAR(info -> InputFormat))
1462
0
        return accum + sizeof(cmsFloat64Number);
1463
0
    else
1464
0
        return accum + (nChan + Extra) * sizeof(cmsFloat64Number);
1465
0
}
1466
1467
1468
1469
// From Lab double to cmsFloat32Number
1470
static
1471
cmsUInt8Number* UnrollLabDoubleToFloat(_cmsTRANSFORM* info,
1472
                                       cmsFloat32Number wIn[],
1473
                                       cmsUInt8Number* accum,
1474
                                       cmsUInt32Number Stride)
1475
0
{
1476
0
    cmsFloat64Number* Pt = (cmsFloat64Number*) accum;
1477
1478
0
    if (T_PLANAR(info -> InputFormat)) {
1479
1480
0
        Stride /= PixelSize(info->InputFormat);
1481
1482
0
        wIn[0] = (cmsFloat32Number) (Pt[0] / 100.0);                 // from 0..100 to 0..1
1483
0
        wIn[1] = (cmsFloat32Number) ((Pt[Stride] + 128) / 255.0);    // form -128..+127 to 0..1
1484
0
        wIn[2] = (cmsFloat32Number) ((Pt[Stride*2] + 128) / 255.0);
1485
1486
0
        return accum + sizeof(cmsFloat64Number);
1487
0
    }
1488
0
    else {
1489
1490
0
        wIn[0] = (cmsFloat32Number) (Pt[0] / 100.0);            // from 0..100 to 0..1
1491
0
        wIn[1] = (cmsFloat32Number) ((Pt[1] + 128) / 255.0);    // form -128..+127 to 0..1
1492
0
        wIn[2] = (cmsFloat32Number) ((Pt[2] + 128) / 255.0);
1493
1494
0
        accum += sizeof(cmsFloat64Number)*(3 + T_EXTRA(info ->InputFormat));
1495
0
        return accum;
1496
0
    }
1497
0
}
1498
1499
// From Lab double to cmsFloat32Number
1500
static
1501
cmsUInt8Number* UnrollLabFloatToFloat(_cmsTRANSFORM* info,
1502
                                      cmsFloat32Number wIn[],
1503
                                      cmsUInt8Number* accum,
1504
                                      cmsUInt32Number Stride)
1505
0
{
1506
0
    cmsFloat32Number* Pt = (cmsFloat32Number*) accum;
1507
1508
0
    if (T_PLANAR(info -> InputFormat)) {
1509
1510
0
        Stride /= PixelSize(info->InputFormat);
1511
1512
0
        wIn[0] = (cmsFloat32Number) (Pt[0] / 100.0);                 // from 0..100 to 0..1
1513
0
        wIn[1] = (cmsFloat32Number) ((Pt[Stride] + 128) / 255.0);    // form -128..+127 to 0..1
1514
0
        wIn[2] = (cmsFloat32Number) ((Pt[Stride*2] + 128) / 255.0);
1515
1516
0
        return accum + sizeof(cmsFloat32Number);
1517
0
    }
1518
0
    else {
1519
1520
0
        wIn[0] = (cmsFloat32Number) (Pt[0] / 100.0);            // from 0..100 to 0..1
1521
0
        wIn[1] = (cmsFloat32Number) ((Pt[1] + 128) / 255.0);    // form -128..+127 to 0..1
1522
0
        wIn[2] = (cmsFloat32Number) ((Pt[2] + 128) / 255.0);
1523
1524
0
        accum += sizeof(cmsFloat32Number)*(3 + T_EXTRA(info ->InputFormat));
1525
0
        return accum;
1526
0
    }
1527
0
}
1528
1529
// 1.15 fixed point, that means maximum value is MAX_ENCODEABLE_XYZ (0xFFFF)
1530
static
1531
cmsUInt8Number* UnrollXYZDoubleToFloat(_cmsTRANSFORM* info,
1532
                                       cmsFloat32Number wIn[],
1533
                                       cmsUInt8Number* accum,
1534
                                       cmsUInt32Number Stride)
1535
0
{
1536
0
    cmsFloat64Number* Pt = (cmsFloat64Number*) accum;
1537
1538
0
    if (T_PLANAR(info -> InputFormat)) {
1539
1540
0
        Stride /= PixelSize(info->InputFormat);
1541
1542
0
        wIn[0] = (cmsFloat32Number) (Pt[0] / MAX_ENCODEABLE_XYZ);
1543
0
        wIn[1] = (cmsFloat32Number) (Pt[Stride] / MAX_ENCODEABLE_XYZ);
1544
0
        wIn[2] = (cmsFloat32Number) (Pt[Stride*2] / MAX_ENCODEABLE_XYZ);
1545
1546
0
        return accum + sizeof(cmsFloat64Number);
1547
0
    }
1548
0
    else {
1549
1550
0
        wIn[0] = (cmsFloat32Number) (Pt[0] / MAX_ENCODEABLE_XYZ);
1551
0
        wIn[1] = (cmsFloat32Number) (Pt[1] / MAX_ENCODEABLE_XYZ);
1552
0
        wIn[2] = (cmsFloat32Number) (Pt[2] / MAX_ENCODEABLE_XYZ);
1553
1554
0
        accum += sizeof(cmsFloat64Number)*(3 + T_EXTRA(info ->InputFormat));
1555
0
        return accum;
1556
0
    }
1557
0
}
1558
1559
static
1560
cmsUInt8Number* UnrollXYZFloatToFloat(_cmsTRANSFORM* info,
1561
                                      cmsFloat32Number wIn[],
1562
                                      cmsUInt8Number* accum,
1563
                                      cmsUInt32Number Stride)
1564
0
{
1565
0
    cmsFloat32Number* Pt = (cmsFloat32Number*) accum;
1566
1567
0
    if (T_PLANAR(info -> InputFormat)) {
1568
1569
0
        Stride /= PixelSize(info->InputFormat);
1570
1571
0
        wIn[0] = (cmsFloat32Number) (Pt[0] / MAX_ENCODEABLE_XYZ);
1572
0
        wIn[1] = (cmsFloat32Number) (Pt[Stride] / MAX_ENCODEABLE_XYZ);
1573
0
        wIn[2] = (cmsFloat32Number) (Pt[Stride*2] / MAX_ENCODEABLE_XYZ);
1574
1575
0
        return accum + sizeof(cmsFloat32Number);
1576
0
    }
1577
0
    else {
1578
1579
0
        wIn[0] = (cmsFloat32Number) (Pt[0] / MAX_ENCODEABLE_XYZ);
1580
0
        wIn[1] = (cmsFloat32Number) (Pt[1] / MAX_ENCODEABLE_XYZ);
1581
0
        wIn[2] = (cmsFloat32Number) (Pt[2] / MAX_ENCODEABLE_XYZ);
1582
1583
0
        accum += sizeof(cmsFloat32Number)*(3 + T_EXTRA(info ->InputFormat));
1584
0
        return accum;
1585
0
    }
1586
0
}
1587
1588
1589
cmsINLINE void lab4toFloat(cmsFloat32Number wIn[], cmsUInt16Number lab4[3])
1590
0
{        
1591
0
    cmsFloat32Number L = (cmsFloat32Number) lab4[0] / 655.35F;
1592
0
    cmsFloat32Number a = ((cmsFloat32Number) lab4[1] / 257.0F) - 128.0F;
1593
0
    cmsFloat32Number b = ((cmsFloat32Number) lab4[2] / 257.0F) - 128.0F;
1594
    
1595
0
    wIn[0] = (L / 100.0F);                    // from 0..100 to 0..1
1596
0
    wIn[1] = ((a + 128.0F) / 255.0F);         // form -128..+127 to 0..1
1597
0
    wIn[2] = ((b + 128.0F) / 255.0F);
1598
1599
0
}
1600
1601
static
1602
cmsUInt8Number* UnrollLabV2_8ToFloat(_cmsTRANSFORM* info,
1603
                                      cmsFloat32Number wIn[],
1604
                                      cmsUInt8Number* accum,
1605
                                      cmsUInt32Number Stride)
1606
0
{
1607
0
    cmsUInt16Number lab4[3];
1608
1609
0
    lab4[0] = FomLabV2ToLabV4(FROM_8_TO_16(*accum)); accum++;     // L
1610
0
    lab4[1] = FomLabV2ToLabV4(FROM_8_TO_16(*accum)); accum++;     // a
1611
0
    lab4[2] = FomLabV2ToLabV4(FROM_8_TO_16(*accum)); accum++;     // b
1612
1613
0
    lab4toFloat(wIn, lab4);
1614
1615
0
    return accum;
1616
1617
0
    cmsUNUSED_PARAMETER(info);
1618
0
    cmsUNUSED_PARAMETER(Stride);
1619
0
}
1620
1621
static
1622
cmsUInt8Number* UnrollALabV2_8ToFloat(_cmsTRANSFORM* info,
1623
                                      cmsFloat32Number wIn[],
1624
                                      cmsUInt8Number* accum,
1625
                                      cmsUInt32Number Stride)
1626
0
{
1627
0
    cmsUInt16Number lab4[3];
1628
1629
0
    accum++;  // A
1630
0
    lab4[0] = FomLabV2ToLabV4(FROM_8_TO_16(*accum)); accum++;     // L
1631
0
    lab4[1] = FomLabV2ToLabV4(FROM_8_TO_16(*accum)); accum++;     // a
1632
0
    lab4[2] = FomLabV2ToLabV4(FROM_8_TO_16(*accum)); accum++;     // b
1633
1634
0
    lab4toFloat(wIn, lab4);
1635
1636
0
    return accum;
1637
1638
0
    cmsUNUSED_PARAMETER(info);
1639
0
    cmsUNUSED_PARAMETER(Stride);
1640
0
}
1641
1642
static
1643
cmsUInt8Number* UnrollLabV2_16ToFloat(_cmsTRANSFORM* info,
1644
                                      cmsFloat32Number wIn[],
1645
                                      cmsUInt8Number* accum,
1646
                                      cmsUInt32Number Stride)
1647
0
{
1648
0
    cmsUInt16Number lab4[3];
1649
1650
0
    lab4[0] = FomLabV2ToLabV4(*(cmsUInt16Number*) accum); accum += 2;     // L
1651
0
    lab4[1] = FomLabV2ToLabV4(*(cmsUInt16Number*) accum); accum += 2;     // a
1652
0
    lab4[2] = FomLabV2ToLabV4(*(cmsUInt16Number*) accum); accum += 2;     // b
1653
1654
0
    lab4toFloat(wIn, lab4);
1655
1656
0
    return accum;
1657
1658
0
    cmsUNUSED_PARAMETER(info);
1659
0
    cmsUNUSED_PARAMETER(Stride);
1660
0
}
1661
1662
1663
// Packing routines -----------------------------------------------------------------------------------------------------------
1664
1665
1666
// Generic chunky for byte
1667
static
1668
cmsUInt8Number* PackChunkyBytes(CMSREGISTER _cmsTRANSFORM* info,
1669
                                CMSREGISTER cmsUInt16Number wOut[],
1670
                                CMSREGISTER cmsUInt8Number* output,
1671
                                CMSREGISTER cmsUInt32Number Stride)
1672
0
{
1673
0
    cmsUInt32Number nChan = T_CHANNELS(info->OutputFormat);
1674
0
    cmsUInt32Number DoSwap = T_DOSWAP(info->OutputFormat);
1675
0
    cmsUInt32Number Reverse = T_FLAVOR(info->OutputFormat);
1676
0
    cmsUInt32Number Extra = T_EXTRA(info->OutputFormat);
1677
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info->OutputFormat);
1678
0
    cmsUInt32Number Premul = T_PREMUL(info->OutputFormat);
1679
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
1680
0
    cmsUInt8Number* swap1;
1681
0
    cmsUInt16Number v = 0;
1682
0
    cmsUInt32Number i;
1683
0
    cmsUInt32Number alpha_factor = 0;
1684
1685
0
    swap1 = output;
1686
1687
0
    if (ExtraFirst) {
1688
        
1689
0
        if (Premul && Extra)
1690
0
            alpha_factor = _cmsToFixedDomain(FROM_8_TO_16(output[0]));
1691
1692
0
        output += Extra;
1693
0
    }
1694
0
    else
1695
0
    {
1696
0
        if (Premul && Extra)
1697
0
            alpha_factor = _cmsToFixedDomain(FROM_8_TO_16(output[nChan]));
1698
0
    }
1699
1700
0
    for (i=0; i < nChan; i++) {
1701
1702
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
1703
1704
0
        v = wOut[index];
1705
1706
0
        if (Reverse)
1707
0
            v = REVERSE_FLAVOR_16(v);
1708
1709
0
        if (Premul)
1710
0
        {
1711
0
            v = (cmsUInt16Number)((cmsUInt32Number)((cmsUInt32Number)v * alpha_factor + 0x8000) >> 16);            
1712
0
        }
1713
1714
0
        *output++ = FROM_16_TO_8(v);
1715
0
    }
1716
1717
0
    if (!ExtraFirst) {
1718
0
        output += Extra;
1719
0
    }
1720
1721
0
    if (Extra == 0 && SwapFirst) {
1722
1723
0
        memmove(swap1 + 1, swap1, nChan-1);
1724
0
        *swap1 = FROM_16_TO_8(v);
1725
0
    }
1726
1727
0
    return output;
1728
1729
0
    cmsUNUSED_PARAMETER(Stride);
1730
0
}
1731
1732
static
1733
cmsUInt8Number* PackChunkyWords(CMSREGISTER _cmsTRANSFORM* info,
1734
                                CMSREGISTER cmsUInt16Number wOut[],
1735
                                CMSREGISTER cmsUInt8Number* output,
1736
                                CMSREGISTER cmsUInt32Number Stride)
1737
0
{
1738
0
    cmsUInt32Number nChan = T_CHANNELS(info->OutputFormat);
1739
0
    cmsUInt32Number SwapEndian = T_ENDIAN16(info->OutputFormat);
1740
0
    cmsUInt32Number DoSwap = T_DOSWAP(info->OutputFormat);
1741
0
    cmsUInt32Number Reverse = T_FLAVOR(info->OutputFormat);
1742
0
    cmsUInt32Number Extra = T_EXTRA(info->OutputFormat);
1743
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info->OutputFormat);
1744
0
    cmsUInt32Number Premul = T_PREMUL(info->OutputFormat);
1745
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
1746
0
    cmsUInt16Number* swap1;
1747
0
    cmsUInt16Number v = 0;
1748
0
    cmsUInt32Number i;
1749
0
    cmsUInt32Number alpha_factor = 0;
1750
    
1751
0
    swap1 = (cmsUInt16Number*) output;
1752
1753
0
    if (ExtraFirst) {
1754
1755
0
        if (Premul && Extra)
1756
0
            alpha_factor = _cmsToFixedDomain(*(cmsUInt16Number*) output);
1757
1758
0
        output += Extra * sizeof(cmsUInt16Number);
1759
0
    }
1760
0
    else
1761
0
    {
1762
0
        if (Premul && Extra)
1763
0
            alpha_factor = _cmsToFixedDomain(((cmsUInt16Number*) output)[nChan]);
1764
0
    }
1765
1766
0
    for (i=0; i < nChan; i++) {
1767
1768
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
1769
1770
0
        v = wOut[index];
1771
1772
0
        if (SwapEndian)
1773
0
            v = CHANGE_ENDIAN(v);
1774
1775
0
        if (Reverse)
1776
0
            v = REVERSE_FLAVOR_16(v);
1777
1778
0
        if (Premul)
1779
0
        {
1780
0
            v = (cmsUInt16Number)((cmsUInt32Number)((cmsUInt32Number)v * alpha_factor + 0x8000) >> 16);
1781
0
        }
1782
1783
0
        *(cmsUInt16Number*) output = v;
1784
1785
0
        output += sizeof(cmsUInt16Number);
1786
0
    }
1787
1788
0
    if (!ExtraFirst) {
1789
0
        output += Extra * sizeof(cmsUInt16Number);
1790
0
    }
1791
1792
0
    if (Extra == 0 && SwapFirst) {
1793
1794
0
        memmove(swap1 + 1, swap1, (nChan-1)* sizeof(cmsUInt16Number));
1795
0
        *swap1 = v;
1796
0
    }
1797
1798
0
    return output;
1799
1800
0
    cmsUNUSED_PARAMETER(Stride);
1801
0
}
1802
1803
1804
1805
static
1806
cmsUInt8Number* PackPlanarBytes(CMSREGISTER _cmsTRANSFORM* info,
1807
                                CMSREGISTER cmsUInt16Number wOut[],
1808
                                CMSREGISTER cmsUInt8Number* output,
1809
                                CMSREGISTER cmsUInt32Number Stride)
1810
0
{
1811
0
    cmsUInt32Number nChan = T_CHANNELS(info->OutputFormat);
1812
0
    cmsUInt32Number DoSwap = T_DOSWAP(info->OutputFormat);
1813
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info->OutputFormat);
1814
0
    cmsUInt32Number Reverse = T_FLAVOR(info->OutputFormat);
1815
0
    cmsUInt32Number Extra = T_EXTRA(info->OutputFormat);
1816
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
1817
0
    cmsUInt32Number Premul = T_PREMUL(info->OutputFormat);
1818
0
    cmsUInt32Number i;
1819
0
    cmsUInt8Number* Init = output;
1820
0
    cmsUInt32Number alpha_factor = 0;
1821
1822
1823
0
    if (ExtraFirst) {
1824
1825
0
        if (Premul && Extra)
1826
0
            alpha_factor = _cmsToFixedDomain(FROM_8_TO_16(output[0]));
1827
1828
0
        output += Extra * Stride;
1829
0
    }
1830
0
    else
1831
0
    {
1832
0
        if (Premul && Extra)
1833
0
            alpha_factor = _cmsToFixedDomain(FROM_8_TO_16(output[nChan * Stride]));
1834
0
    }
1835
1836
1837
0
    for (i=0; i < nChan; i++) {
1838
1839
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
1840
0
        cmsUInt16Number v = wOut[index];
1841
1842
0
        if (Reverse)
1843
0
            v = REVERSE_FLAVOR_16(v);
1844
1845
0
        if (Premul)
1846
0
        {
1847
0
            v = (cmsUInt16Number)((cmsUInt32Number)((cmsUInt32Number)v * alpha_factor + 0x8000) >> 16);
1848
0
        }
1849
1850
0
        *(cmsUInt8Number*)output = FROM_16_TO_8(v);
1851
1852
0
        output += Stride;
1853
0
    }
1854
1855
0
    return (Init + 1);
1856
1857
0
    cmsUNUSED_PARAMETER(Stride);
1858
0
}
1859
1860
1861
static
1862
cmsUInt8Number* PackPlanarWords(CMSREGISTER _cmsTRANSFORM* info,
1863
                                CMSREGISTER cmsUInt16Number wOut[],
1864
                                CMSREGISTER cmsUInt8Number* output,
1865
                                CMSREGISTER cmsUInt32Number Stride)
1866
0
{
1867
0
    cmsUInt32Number nChan = T_CHANNELS(info->OutputFormat);
1868
0
    cmsUInt32Number DoSwap = T_DOSWAP(info->OutputFormat);
1869
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info->OutputFormat);
1870
0
    cmsUInt32Number Reverse = T_FLAVOR(info->OutputFormat);
1871
0
    cmsUInt32Number Extra = T_EXTRA(info->OutputFormat);
1872
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
1873
0
    cmsUInt32Number Premul = T_PREMUL(info->OutputFormat);
1874
0
    cmsUInt32Number SwapEndian = T_ENDIAN16(info->OutputFormat);
1875
0
    cmsUInt32Number i;
1876
0
    cmsUInt8Number* Init = output;
1877
0
    cmsUInt16Number v;
1878
0
    cmsUInt32Number alpha_factor = 0;
1879
1880
0
    if (ExtraFirst) {
1881
1882
0
        if (Premul && Extra)
1883
0
            alpha_factor = _cmsToFixedDomain(((cmsUInt16Number*) output)[0]);
1884
1885
0
        output += Extra * Stride;
1886
0
    }
1887
0
    else
1888
0
    {
1889
0
        if (Premul && Extra)
1890
0
            alpha_factor = _cmsToFixedDomain(((cmsUInt16Number*)output)[nChan * Stride]);
1891
0
    }
1892
1893
0
    for (i=0; i < nChan; i++) {
1894
1895
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
1896
1897
0
        v = wOut[index];
1898
1899
0
        if (SwapEndian)
1900
0
            v = CHANGE_ENDIAN(v);
1901
1902
0
        if (Reverse)
1903
0
            v =  REVERSE_FLAVOR_16(v);
1904
1905
0
        if (Premul)
1906
0
        {
1907
0
            v = (cmsUInt16Number)((cmsUInt32Number)((cmsUInt32Number)v * alpha_factor + 0x8000) >> 16);
1908
0
        }
1909
1910
0
        *(cmsUInt16Number*) output = v;
1911
0
        output += Stride;
1912
0
    }
1913
1914
0
    return (Init + sizeof(cmsUInt16Number));
1915
0
}
1916
1917
// CMYKcm (unrolled for speed)
1918
1919
static
1920
cmsUInt8Number* Pack6Bytes(CMSREGISTER _cmsTRANSFORM* info,
1921
                           CMSREGISTER cmsUInt16Number wOut[],
1922
                           CMSREGISTER cmsUInt8Number* output,
1923
                           CMSREGISTER cmsUInt32Number Stride)
1924
0
{
1925
0
    *output++ = FROM_16_TO_8(wOut[0]);
1926
0
    *output++ = FROM_16_TO_8(wOut[1]);
1927
0
    *output++ = FROM_16_TO_8(wOut[2]);
1928
0
    *output++ = FROM_16_TO_8(wOut[3]);
1929
0
    *output++ = FROM_16_TO_8(wOut[4]);
1930
0
    *output++ = FROM_16_TO_8(wOut[5]);
1931
1932
0
    return output;
1933
1934
0
    cmsUNUSED_PARAMETER(info);
1935
0
    cmsUNUSED_PARAMETER(Stride);
1936
0
}
1937
1938
// KCMYcm
1939
1940
static
1941
cmsUInt8Number* Pack6BytesSwap(CMSREGISTER _cmsTRANSFORM* info,
1942
                               CMSREGISTER cmsUInt16Number wOut[],
1943
                               CMSREGISTER cmsUInt8Number* output,
1944
                               CMSREGISTER cmsUInt32Number Stride)
1945
0
{
1946
0
    *output++ = FROM_16_TO_8(wOut[5]);
1947
0
    *output++ = FROM_16_TO_8(wOut[4]);
1948
0
    *output++ = FROM_16_TO_8(wOut[3]);
1949
0
    *output++ = FROM_16_TO_8(wOut[2]);
1950
0
    *output++ = FROM_16_TO_8(wOut[1]);
1951
0
    *output++ = FROM_16_TO_8(wOut[0]);
1952
1953
0
    return output;
1954
1955
0
    cmsUNUSED_PARAMETER(info);
1956
0
    cmsUNUSED_PARAMETER(Stride);
1957
0
}
1958
1959
// CMYKcm
1960
static
1961
cmsUInt8Number* Pack6Words(CMSREGISTER _cmsTRANSFORM* info,
1962
                           CMSREGISTER cmsUInt16Number wOut[],
1963
                           CMSREGISTER cmsUInt8Number* output,
1964
                           CMSREGISTER cmsUInt32Number Stride)
1965
0
{
1966
0
    *(cmsUInt16Number*) output = wOut[0];
1967
0
    output+= 2;
1968
0
    *(cmsUInt16Number*) output = wOut[1];
1969
0
    output+= 2;
1970
0
    *(cmsUInt16Number*) output = wOut[2];
1971
0
    output+= 2;
1972
0
    *(cmsUInt16Number*) output = wOut[3];
1973
0
    output+= 2;
1974
0
    *(cmsUInt16Number*) output = wOut[4];
1975
0
    output+= 2;
1976
0
    *(cmsUInt16Number*) output = wOut[5];
1977
0
    output+= 2;
1978
1979
0
    return output;
1980
1981
0
    cmsUNUSED_PARAMETER(info);
1982
0
    cmsUNUSED_PARAMETER(Stride);
1983
0
}
1984
1985
// KCMYcm
1986
static
1987
cmsUInt8Number* Pack6WordsSwap(CMSREGISTER _cmsTRANSFORM* info,
1988
                               CMSREGISTER cmsUInt16Number wOut[],
1989
                               CMSREGISTER cmsUInt8Number* output,
1990
                               CMSREGISTER cmsUInt32Number Stride)
1991
0
{
1992
0
    *(cmsUInt16Number*) output = wOut[5];
1993
0
    output+= 2;
1994
0
    *(cmsUInt16Number*) output = wOut[4];
1995
0
    output+= 2;
1996
0
    *(cmsUInt16Number*) output = wOut[3];
1997
0
    output+= 2;
1998
0
    *(cmsUInt16Number*) output = wOut[2];
1999
0
    output+= 2;
2000
0
    *(cmsUInt16Number*) output = wOut[1];
2001
0
    output+= 2;
2002
0
    *(cmsUInt16Number*) output = wOut[0];
2003
0
    output+= 2;
2004
2005
0
    return output;
2006
2007
0
    cmsUNUSED_PARAMETER(info);
2008
0
    cmsUNUSED_PARAMETER(Stride);
2009
0
}
2010
2011
2012
static
2013
cmsUInt8Number* Pack4Bytes(CMSREGISTER _cmsTRANSFORM* info,
2014
                           CMSREGISTER cmsUInt16Number wOut[],
2015
                           CMSREGISTER cmsUInt8Number* output,
2016
                           CMSREGISTER cmsUInt32Number Stride)
2017
0
{
2018
0
    *output++ = FROM_16_TO_8(wOut[0]);
2019
0
    *output++ = FROM_16_TO_8(wOut[1]);
2020
0
    *output++ = FROM_16_TO_8(wOut[2]);
2021
0
    *output++ = FROM_16_TO_8(wOut[3]);
2022
2023
0
    return output;
2024
2025
0
    cmsUNUSED_PARAMETER(info);
2026
0
    cmsUNUSED_PARAMETER(Stride);
2027
0
}
2028
2029
static
2030
cmsUInt8Number* Pack4BytesReverse(CMSREGISTER _cmsTRANSFORM* info,
2031
                                  CMSREGISTER cmsUInt16Number wOut[],
2032
                                  CMSREGISTER cmsUInt8Number* output,
2033
                                  CMSREGISTER cmsUInt32Number Stride)
2034
0
{
2035
0
    *output++ = REVERSE_FLAVOR_8(FROM_16_TO_8(wOut[0]));
2036
0
    *output++ = REVERSE_FLAVOR_8(FROM_16_TO_8(wOut[1]));
2037
0
    *output++ = REVERSE_FLAVOR_8(FROM_16_TO_8(wOut[2]));
2038
0
    *output++ = REVERSE_FLAVOR_8(FROM_16_TO_8(wOut[3]));
2039
2040
0
    return output;
2041
2042
0
    cmsUNUSED_PARAMETER(info);
2043
0
    cmsUNUSED_PARAMETER(Stride);
2044
0
}
2045
2046
2047
static
2048
cmsUInt8Number* Pack4BytesSwapFirst(CMSREGISTER _cmsTRANSFORM* info,
2049
                                    CMSREGISTER cmsUInt16Number wOut[],
2050
                                    CMSREGISTER cmsUInt8Number* output,
2051
                                    CMSREGISTER cmsUInt32Number Stride)
2052
0
{
2053
0
    *output++ = FROM_16_TO_8(wOut[3]);
2054
0
    *output++ = FROM_16_TO_8(wOut[0]);
2055
0
    *output++ = FROM_16_TO_8(wOut[1]);
2056
0
    *output++ = FROM_16_TO_8(wOut[2]);
2057
2058
0
    return output;
2059
2060
0
    cmsUNUSED_PARAMETER(info);
2061
0
    cmsUNUSED_PARAMETER(Stride);
2062
0
}
2063
2064
// ABGR
2065
static
2066
cmsUInt8Number* Pack4BytesSwap(CMSREGISTER _cmsTRANSFORM* info,
2067
                               CMSREGISTER cmsUInt16Number wOut[],
2068
                               CMSREGISTER cmsUInt8Number* output,
2069
                               CMSREGISTER cmsUInt32Number Stride)
2070
0
{
2071
0
    *output++ = FROM_16_TO_8(wOut[3]);
2072
0
    *output++ = FROM_16_TO_8(wOut[2]);
2073
0
    *output++ = FROM_16_TO_8(wOut[1]);
2074
0
    *output++ = FROM_16_TO_8(wOut[0]);
2075
2076
0
    return output;
2077
2078
0
    cmsUNUSED_PARAMETER(info);
2079
0
    cmsUNUSED_PARAMETER(Stride);
2080
0
}
2081
2082
static
2083
cmsUInt8Number* Pack4BytesSwapSwapFirst(CMSREGISTER _cmsTRANSFORM* info,
2084
                                        CMSREGISTER cmsUInt16Number wOut[],
2085
                                        CMSREGISTER cmsUInt8Number* output,
2086
                                        CMSREGISTER cmsUInt32Number Stride)
2087
0
{
2088
0
    *output++ = FROM_16_TO_8(wOut[2]);
2089
0
    *output++ = FROM_16_TO_8(wOut[1]);
2090
0
    *output++ = FROM_16_TO_8(wOut[0]);
2091
0
    *output++ = FROM_16_TO_8(wOut[3]);
2092
2093
0
    return output;
2094
2095
0
    cmsUNUSED_PARAMETER(info);
2096
0
    cmsUNUSED_PARAMETER(Stride);
2097
0
}
2098
2099
static
2100
cmsUInt8Number* Pack4Words(CMSREGISTER _cmsTRANSFORM* info,
2101
                           CMSREGISTER cmsUInt16Number wOut[],
2102
                           CMSREGISTER cmsUInt8Number* output,
2103
                           CMSREGISTER cmsUInt32Number Stride)
2104
0
{
2105
0
    *(cmsUInt16Number*) output = wOut[0];
2106
0
    output+= 2;
2107
0
    *(cmsUInt16Number*) output = wOut[1];
2108
0
    output+= 2;
2109
0
    *(cmsUInt16Number*) output = wOut[2];
2110
0
    output+= 2;
2111
0
    *(cmsUInt16Number*) output = wOut[3];
2112
0
    output+= 2;
2113
2114
0
    return output;
2115
2116
0
    cmsUNUSED_PARAMETER(info);
2117
0
    cmsUNUSED_PARAMETER(Stride);
2118
0
}
2119
2120
static
2121
cmsUInt8Number* Pack4WordsReverse(CMSREGISTER _cmsTRANSFORM* info,
2122
                                  CMSREGISTER cmsUInt16Number wOut[],
2123
                                  CMSREGISTER cmsUInt8Number* output,
2124
                                  CMSREGISTER cmsUInt32Number Stride)
2125
0
{
2126
0
    *(cmsUInt16Number*) output = REVERSE_FLAVOR_16(wOut[0]);
2127
0
    output+= 2;
2128
0
    *(cmsUInt16Number*) output = REVERSE_FLAVOR_16(wOut[1]);
2129
0
    output+= 2;
2130
0
    *(cmsUInt16Number*) output = REVERSE_FLAVOR_16(wOut[2]);
2131
0
    output+= 2;
2132
0
    *(cmsUInt16Number*) output = REVERSE_FLAVOR_16(wOut[3]);
2133
0
    output+= 2;
2134
2135
0
    return output;
2136
2137
0
    cmsUNUSED_PARAMETER(info);
2138
0
    cmsUNUSED_PARAMETER(Stride);
2139
0
}
2140
2141
// ABGR
2142
static
2143
cmsUInt8Number* Pack4WordsSwap(CMSREGISTER _cmsTRANSFORM* info,
2144
                               CMSREGISTER cmsUInt16Number wOut[],
2145
                               CMSREGISTER cmsUInt8Number* output,
2146
                               CMSREGISTER cmsUInt32Number Stride)
2147
0
{
2148
0
    *(cmsUInt16Number*) output = wOut[3];
2149
0
    output+= 2;
2150
0
    *(cmsUInt16Number*) output = wOut[2];
2151
0
    output+= 2;
2152
0
    *(cmsUInt16Number*) output = wOut[1];
2153
0
    output+= 2;
2154
0
    *(cmsUInt16Number*) output = wOut[0];
2155
0
    output+= 2;
2156
2157
0
    return output;
2158
2159
0
    cmsUNUSED_PARAMETER(info);
2160
0
    cmsUNUSED_PARAMETER(Stride);
2161
0
}
2162
2163
// CMYK
2164
static
2165
cmsUInt8Number* Pack4WordsBigEndian(CMSREGISTER _cmsTRANSFORM* info,
2166
                                    CMSREGISTER cmsUInt16Number wOut[],
2167
                                    CMSREGISTER cmsUInt8Number* output,
2168
                                    CMSREGISTER cmsUInt32Number Stride)
2169
0
{
2170
0
    *(cmsUInt16Number*) output = CHANGE_ENDIAN(wOut[0]);
2171
0
    output+= 2;
2172
0
    *(cmsUInt16Number*) output = CHANGE_ENDIAN(wOut[1]);
2173
0
    output+= 2;
2174
0
    *(cmsUInt16Number*) output = CHANGE_ENDIAN(wOut[2]);
2175
0
    output+= 2;
2176
0
    *(cmsUInt16Number*) output = CHANGE_ENDIAN(wOut[3]);
2177
0
    output+= 2;
2178
2179
0
    return output;
2180
2181
0
    cmsUNUSED_PARAMETER(info);
2182
0
    cmsUNUSED_PARAMETER(Stride);
2183
0
}
2184
2185
2186
static
2187
cmsUInt8Number* PackLabV2_8(CMSREGISTER _cmsTRANSFORM* info,
2188
                            CMSREGISTER cmsUInt16Number wOut[],
2189
                            CMSREGISTER cmsUInt8Number* output,
2190
                            CMSREGISTER cmsUInt32Number Stride)
2191
0
{
2192
0
    *output++ = FROM_16_TO_8(FomLabV4ToLabV2(wOut[0]));
2193
0
    *output++ = FROM_16_TO_8(FomLabV4ToLabV2(wOut[1]));
2194
0
    *output++ = FROM_16_TO_8(FomLabV4ToLabV2(wOut[2]));
2195
2196
0
    return output;
2197
2198
0
    cmsUNUSED_PARAMETER(info);
2199
0
    cmsUNUSED_PARAMETER(Stride);
2200
0
}
2201
2202
static
2203
cmsUInt8Number* PackALabV2_8(CMSREGISTER _cmsTRANSFORM* info,
2204
                             CMSREGISTER cmsUInt16Number wOut[],
2205
                             CMSREGISTER cmsUInt8Number* output,
2206
                             CMSREGISTER cmsUInt32Number Stride)
2207
0
{
2208
0
    output++;
2209
0
    *output++ = FROM_16_TO_8(FomLabV4ToLabV2(wOut[0]));
2210
0
    *output++ = FROM_16_TO_8(FomLabV4ToLabV2(wOut[1]));
2211
0
    *output++ = FROM_16_TO_8(FomLabV4ToLabV2(wOut[2]));
2212
2213
0
    return output;
2214
2215
0
    cmsUNUSED_PARAMETER(info);
2216
0
    cmsUNUSED_PARAMETER(Stride);
2217
0
}
2218
2219
static
2220
cmsUInt8Number* PackLabV2_16(CMSREGISTER _cmsTRANSFORM* info,
2221
                             CMSREGISTER cmsUInt16Number wOut[],
2222
                             CMSREGISTER cmsUInt8Number* output,
2223
                             CMSREGISTER cmsUInt32Number Stride)
2224
0
{
2225
0
    *(cmsUInt16Number*) output = FomLabV4ToLabV2(wOut[0]);
2226
0
    output += 2;
2227
0
    *(cmsUInt16Number*) output = FomLabV4ToLabV2(wOut[1]);
2228
0
    output += 2;
2229
0
    *(cmsUInt16Number*) output = FomLabV4ToLabV2(wOut[2]);
2230
0
    output += 2;
2231
2232
0
    return output;
2233
2234
0
    cmsUNUSED_PARAMETER(info);
2235
0
    cmsUNUSED_PARAMETER(Stride);
2236
0
}
2237
2238
static
2239
cmsUInt8Number* Pack3Bytes(CMSREGISTER _cmsTRANSFORM* info,
2240
                           CMSREGISTER cmsUInt16Number wOut[],
2241
                           CMSREGISTER cmsUInt8Number* output,
2242
                           CMSREGISTER cmsUInt32Number Stride)
2243
0
{
2244
0
    *output++ = FROM_16_TO_8(wOut[0]);
2245
0
    *output++ = FROM_16_TO_8(wOut[1]);
2246
0
    *output++ = FROM_16_TO_8(wOut[2]);
2247
2248
0
    return output;
2249
2250
0
    cmsUNUSED_PARAMETER(info);
2251
0
    cmsUNUSED_PARAMETER(Stride);
2252
0
}
2253
2254
static
2255
cmsUInt8Number* Pack3BytesOptimized(CMSREGISTER _cmsTRANSFORM* info,
2256
                                    CMSREGISTER cmsUInt16Number wOut[],
2257
                                    CMSREGISTER cmsUInt8Number* output,
2258
                                    CMSREGISTER cmsUInt32Number Stride)
2259
0
{
2260
0
    *output++ = (wOut[0] & 0xFFU);
2261
0
    *output++ = (wOut[1] & 0xFFU);
2262
0
    *output++ = (wOut[2] & 0xFFU);
2263
2264
0
    return output;
2265
2266
0
    cmsUNUSED_PARAMETER(info);
2267
0
    cmsUNUSED_PARAMETER(Stride);
2268
0
}
2269
2270
static
2271
cmsUInt8Number* Pack3BytesSwap(CMSREGISTER _cmsTRANSFORM* info,
2272
                               CMSREGISTER cmsUInt16Number wOut[],
2273
                               CMSREGISTER cmsUInt8Number* output,
2274
                               CMSREGISTER cmsUInt32Number Stride)
2275
0
{
2276
0
    *output++ = FROM_16_TO_8(wOut[2]);
2277
0
    *output++ = FROM_16_TO_8(wOut[1]);
2278
0
    *output++ = FROM_16_TO_8(wOut[0]);
2279
2280
0
    return output;
2281
2282
0
    cmsUNUSED_PARAMETER(info);
2283
0
    cmsUNUSED_PARAMETER(Stride);
2284
0
}
2285
2286
static
2287
cmsUInt8Number* Pack3BytesSwapOptimized(CMSREGISTER _cmsTRANSFORM* info,
2288
                                        CMSREGISTER cmsUInt16Number wOut[],
2289
                                        CMSREGISTER cmsUInt8Number* output,
2290
                                        CMSREGISTER cmsUInt32Number Stride)
2291
0
{
2292
0
    *output++ = (wOut[2] & 0xFFU);
2293
0
    *output++ = (wOut[1] & 0xFFU);
2294
0
    *output++ = (wOut[0] & 0xFFU);
2295
2296
0
    return output;
2297
2298
0
    cmsUNUSED_PARAMETER(info);
2299
0
    cmsUNUSED_PARAMETER(Stride);
2300
0
}
2301
2302
2303
static
2304
cmsUInt8Number* Pack3Words(CMSREGISTER _cmsTRANSFORM* info,
2305
                           CMSREGISTER cmsUInt16Number wOut[],
2306
                           CMSREGISTER cmsUInt8Number* output,
2307
                           CMSREGISTER cmsUInt32Number Stride)
2308
0
{
2309
0
    *(cmsUInt16Number*) output = wOut[0];
2310
0
    output+= 2;
2311
0
    *(cmsUInt16Number*) output = wOut[1];
2312
0
    output+= 2;
2313
0
    *(cmsUInt16Number*) output = wOut[2];
2314
0
    output+= 2;
2315
2316
0
    return output;
2317
2318
0
    cmsUNUSED_PARAMETER(info);
2319
0
    cmsUNUSED_PARAMETER(Stride);
2320
0
}
2321
2322
static
2323
cmsUInt8Number* Pack3WordsSwap(CMSREGISTER _cmsTRANSFORM* info,
2324
                               CMSREGISTER cmsUInt16Number wOut[],
2325
                               CMSREGISTER cmsUInt8Number* output,
2326
                               CMSREGISTER cmsUInt32Number Stride)
2327
0
{
2328
0
    *(cmsUInt16Number*) output = wOut[2];
2329
0
    output+= 2;
2330
0
    *(cmsUInt16Number*) output = wOut[1];
2331
0
    output+= 2;
2332
0
    *(cmsUInt16Number*) output = wOut[0];
2333
0
    output+= 2;
2334
2335
0
    return output;
2336
2337
0
    cmsUNUSED_PARAMETER(info);
2338
0
    cmsUNUSED_PARAMETER(Stride);
2339
0
}
2340
2341
static
2342
cmsUInt8Number* Pack3WordsBigEndian(CMSREGISTER _cmsTRANSFORM* info,
2343
                                    CMSREGISTER cmsUInt16Number wOut[],
2344
                                    CMSREGISTER cmsUInt8Number* output,
2345
                                    CMSREGISTER cmsUInt32Number Stride)
2346
0
{
2347
0
    *(cmsUInt16Number*) output = CHANGE_ENDIAN(wOut[0]);
2348
0
    output+= 2;
2349
0
    *(cmsUInt16Number*) output = CHANGE_ENDIAN(wOut[1]);
2350
0
    output+= 2;
2351
0
    *(cmsUInt16Number*) output = CHANGE_ENDIAN(wOut[2]);
2352
0
    output+= 2;
2353
2354
0
    return output;
2355
2356
0
    cmsUNUSED_PARAMETER(info);
2357
0
    cmsUNUSED_PARAMETER(Stride);
2358
0
}
2359
2360
static
2361
cmsUInt8Number* Pack3BytesAndSkip1(CMSREGISTER _cmsTRANSFORM* info,
2362
                                   CMSREGISTER cmsUInt16Number wOut[],
2363
                                   CMSREGISTER cmsUInt8Number* output,
2364
                                   CMSREGISTER cmsUInt32Number Stride)
2365
0
{
2366
0
    *output++ = FROM_16_TO_8(wOut[0]);
2367
0
    *output++ = FROM_16_TO_8(wOut[1]);
2368
0
    *output++ = FROM_16_TO_8(wOut[2]);
2369
0
    output++;
2370
2371
0
    return output;
2372
2373
0
    cmsUNUSED_PARAMETER(info);
2374
0
    cmsUNUSED_PARAMETER(Stride);
2375
0
}
2376
2377
static
2378
cmsUInt8Number* Pack3BytesAndSkip1Optimized(CMSREGISTER _cmsTRANSFORM* info,
2379
                                            CMSREGISTER cmsUInt16Number wOut[],
2380
                                            CMSREGISTER cmsUInt8Number* output,
2381
                                            CMSREGISTER cmsUInt32Number Stride)
2382
0
{
2383
0
    *output++ = (wOut[0] & 0xFFU);
2384
0
    *output++ = (wOut[1] & 0xFFU);
2385
0
    *output++ = (wOut[2] & 0xFFU);
2386
0
    output++;
2387
2388
0
    return output;
2389
2390
0
    cmsUNUSED_PARAMETER(info);
2391
0
    cmsUNUSED_PARAMETER(Stride);
2392
0
}
2393
2394
2395
static
2396
cmsUInt8Number* Pack3BytesAndSkip1SwapFirst(CMSREGISTER _cmsTRANSFORM* info,
2397
                                            CMSREGISTER cmsUInt16Number wOut[],
2398
                                            CMSREGISTER cmsUInt8Number* output,
2399
                                            CMSREGISTER cmsUInt32Number Stride)
2400
0
{
2401
0
    output++;
2402
0
    *output++ = FROM_16_TO_8(wOut[0]);
2403
0
    *output++ = FROM_16_TO_8(wOut[1]);
2404
0
    *output++ = FROM_16_TO_8(wOut[2]);
2405
2406
0
    return output;
2407
2408
0
    cmsUNUSED_PARAMETER(info);
2409
0
    cmsUNUSED_PARAMETER(Stride);
2410
0
}
2411
2412
static
2413
cmsUInt8Number* Pack3BytesAndSkip1SwapFirstOptimized(CMSREGISTER _cmsTRANSFORM* info,
2414
                                                     CMSREGISTER cmsUInt16Number wOut[],
2415
                                                     CMSREGISTER cmsUInt8Number* output,
2416
                                                     CMSREGISTER cmsUInt32Number Stride)
2417
0
{
2418
0
    output++;
2419
0
    *output++ = (wOut[0] & 0xFFU);
2420
0
    *output++ = (wOut[1] & 0xFFU);
2421
0
    *output++ = (wOut[2] & 0xFFU);
2422
2423
0
    return output;
2424
2425
0
    cmsUNUSED_PARAMETER(info);
2426
0
    cmsUNUSED_PARAMETER(Stride);
2427
0
}
2428
2429
static
2430
cmsUInt8Number* Pack3BytesAndSkip1Swap(CMSREGISTER _cmsTRANSFORM* info,
2431
                                       CMSREGISTER cmsUInt16Number wOut[],
2432
                                       CMSREGISTER cmsUInt8Number* output,
2433
                                       CMSREGISTER cmsUInt32Number Stride)
2434
0
{
2435
0
    output++;
2436
0
    *output++ = FROM_16_TO_8(wOut[2]);
2437
0
    *output++ = FROM_16_TO_8(wOut[1]);
2438
0
    *output++ = FROM_16_TO_8(wOut[0]);
2439
2440
0
    return output;
2441
2442
0
    cmsUNUSED_PARAMETER(info);
2443
0
    cmsUNUSED_PARAMETER(Stride);
2444
0
}
2445
2446
static
2447
cmsUInt8Number* Pack3BytesAndSkip1SwapOptimized(CMSREGISTER _cmsTRANSFORM* info,
2448
                                                CMSREGISTER cmsUInt16Number wOut[],
2449
                                                CMSREGISTER cmsUInt8Number* output,
2450
                                                CMSREGISTER cmsUInt32Number Stride)
2451
0
{
2452
0
    output++;
2453
0
    *output++ = (wOut[2] & 0xFFU);
2454
0
    *output++ = (wOut[1] & 0xFFU);
2455
0
    *output++ = (wOut[0] & 0xFFU);
2456
2457
0
    return output;
2458
2459
0
    cmsUNUSED_PARAMETER(info);
2460
0
    cmsUNUSED_PARAMETER(Stride);
2461
0
}
2462
2463
2464
static
2465
cmsUInt8Number* Pack3BytesAndSkip1SwapSwapFirst(CMSREGISTER _cmsTRANSFORM* info,
2466
                                                CMSREGISTER cmsUInt16Number wOut[],
2467
                                                CMSREGISTER cmsUInt8Number* output,
2468
                                                CMSREGISTER cmsUInt32Number Stride)
2469
0
{
2470
0
    *output++ = FROM_16_TO_8(wOut[2]);
2471
0
    *output++ = FROM_16_TO_8(wOut[1]);
2472
0
    *output++ = FROM_16_TO_8(wOut[0]);
2473
0
    output++;
2474
2475
0
    return output;
2476
2477
0
    cmsUNUSED_PARAMETER(info);
2478
0
    cmsUNUSED_PARAMETER(Stride);
2479
0
}
2480
2481
static
2482
cmsUInt8Number* Pack3BytesAndSkip1SwapSwapFirstOptimized(CMSREGISTER _cmsTRANSFORM* info,
2483
                                                         CMSREGISTER cmsUInt16Number wOut[],
2484
                                                         CMSREGISTER cmsUInt8Number* output,
2485
                                                         CMSREGISTER cmsUInt32Number Stride)
2486
0
{
2487
0
    *output++ = (wOut[2] & 0xFFU);
2488
0
    *output++ = (wOut[1] & 0xFFU);
2489
0
    *output++ = (wOut[0] & 0xFFU);
2490
0
    output++;
2491
2492
0
    return output;
2493
2494
0
    cmsUNUSED_PARAMETER(info);
2495
0
    cmsUNUSED_PARAMETER(Stride);
2496
0
}
2497
2498
static
2499
cmsUInt8Number* Pack3WordsAndSkip1(CMSREGISTER _cmsTRANSFORM* info,
2500
                                   CMSREGISTER cmsUInt16Number wOut[],
2501
                                   CMSREGISTER cmsUInt8Number* output,
2502
                                   CMSREGISTER cmsUInt32Number Stride)
2503
0
{
2504
0
    *(cmsUInt16Number*) output = wOut[0];
2505
0
    output+= 2;
2506
0
    *(cmsUInt16Number*) output = wOut[1];
2507
0
    output+= 2;
2508
0
    *(cmsUInt16Number*) output = wOut[2];
2509
0
    output+= 2;
2510
0
    output+= 2;
2511
2512
0
    return output;
2513
2514
0
    cmsUNUSED_PARAMETER(info);
2515
0
    cmsUNUSED_PARAMETER(Stride);
2516
0
}
2517
2518
static
2519
cmsUInt8Number* Pack3WordsAndSkip1Swap(CMSREGISTER _cmsTRANSFORM* info,
2520
                                       CMSREGISTER cmsUInt16Number wOut[],
2521
                                       CMSREGISTER cmsUInt8Number* output,
2522
                                       CMSREGISTER cmsUInt32Number Stride)
2523
0
{
2524
0
    output+= 2;
2525
0
    *(cmsUInt16Number*) output = wOut[2];
2526
0
    output+= 2;
2527
0
    *(cmsUInt16Number*) output = wOut[1];
2528
0
    output+= 2;
2529
0
    *(cmsUInt16Number*) output = wOut[0];
2530
0
    output+= 2;
2531
2532
0
    return output;
2533
2534
0
    cmsUNUSED_PARAMETER(info);
2535
0
    cmsUNUSED_PARAMETER(Stride);
2536
0
}
2537
2538
2539
static
2540
cmsUInt8Number* Pack3WordsAndSkip1SwapFirst(CMSREGISTER _cmsTRANSFORM* info,
2541
                                            CMSREGISTER cmsUInt16Number wOut[],
2542
                                            CMSREGISTER cmsUInt8Number* output,
2543
                                            CMSREGISTER cmsUInt32Number Stride)
2544
0
{
2545
0
    output+= 2;
2546
0
    *(cmsUInt16Number*) output = wOut[0];
2547
0
    output+= 2;
2548
0
    *(cmsUInt16Number*) output = wOut[1];
2549
0
    output+= 2;
2550
0
    *(cmsUInt16Number*) output = wOut[2];
2551
0
    output+= 2;
2552
2553
0
    return output;
2554
2555
0
    cmsUNUSED_PARAMETER(info);
2556
0
    cmsUNUSED_PARAMETER(Stride);
2557
0
}
2558
2559
2560
static
2561
cmsUInt8Number* Pack3WordsAndSkip1SwapSwapFirst(CMSREGISTER _cmsTRANSFORM* info,
2562
                                                CMSREGISTER cmsUInt16Number wOut[],
2563
                                                CMSREGISTER cmsUInt8Number* output,
2564
                                                CMSREGISTER cmsUInt32Number Stride)
2565
0
{
2566
0
    *(cmsUInt16Number*) output = wOut[2];
2567
0
    output+= 2;
2568
0
    *(cmsUInt16Number*) output = wOut[1];
2569
0
    output+= 2;
2570
0
    *(cmsUInt16Number*) output = wOut[0];
2571
0
    output+= 2;
2572
0
    output+= 2;
2573
2574
0
    return output;
2575
2576
0
    cmsUNUSED_PARAMETER(info);
2577
0
    cmsUNUSED_PARAMETER(Stride);
2578
0
}
2579
2580
2581
2582
static
2583
cmsUInt8Number* Pack1Byte(CMSREGISTER _cmsTRANSFORM* info,
2584
                          CMSREGISTER cmsUInt16Number wOut[],
2585
                          CMSREGISTER cmsUInt8Number* output,
2586
                          CMSREGISTER cmsUInt32Number Stride)
2587
0
{
2588
0
    *output++ = FROM_16_TO_8(wOut[0]);
2589
2590
0
    return output;
2591
2592
0
    cmsUNUSED_PARAMETER(info);
2593
0
    cmsUNUSED_PARAMETER(Stride);
2594
0
}
2595
2596
2597
static
2598
cmsUInt8Number* Pack1ByteReversed(CMSREGISTER _cmsTRANSFORM* info,
2599
                                  CMSREGISTER cmsUInt16Number wOut[],
2600
                                  CMSREGISTER cmsUInt8Number* output,
2601
                                  CMSREGISTER cmsUInt32Number Stride)
2602
0
{
2603
0
    *output++ = FROM_16_TO_8(REVERSE_FLAVOR_16(wOut[0]));
2604
2605
0
    return output;
2606
2607
0
    cmsUNUSED_PARAMETER(info);
2608
0
    cmsUNUSED_PARAMETER(Stride);
2609
0
}
2610
2611
2612
static
2613
cmsUInt8Number* Pack1ByteSkip1(CMSREGISTER _cmsTRANSFORM* info,
2614
                               CMSREGISTER cmsUInt16Number wOut[],
2615
                               CMSREGISTER cmsUInt8Number* output,
2616
                               CMSREGISTER cmsUInt32Number Stride)
2617
0
{
2618
0
    *output++ = FROM_16_TO_8(wOut[0]);
2619
0
    output++;
2620
2621
0
    return output;
2622
2623
0
    cmsUNUSED_PARAMETER(info);
2624
0
    cmsUNUSED_PARAMETER(Stride);
2625
0
}
2626
2627
2628
static
2629
cmsUInt8Number* Pack1ByteSkip1SwapFirst(CMSREGISTER _cmsTRANSFORM* info,
2630
                                        CMSREGISTER cmsUInt16Number wOut[],
2631
                                        CMSREGISTER cmsUInt8Number* output,
2632
                                        CMSREGISTER cmsUInt32Number Stride)
2633
0
{
2634
0
    output++;
2635
0
    *output++ = FROM_16_TO_8(wOut[0]);
2636
2637
0
    return output;
2638
2639
0
    cmsUNUSED_PARAMETER(info);
2640
0
    cmsUNUSED_PARAMETER(Stride);
2641
0
}
2642
2643
static
2644
cmsUInt8Number* Pack1Word(CMSREGISTER _cmsTRANSFORM* info,
2645
                          CMSREGISTER cmsUInt16Number wOut[],
2646
                          CMSREGISTER cmsUInt8Number* output,
2647
                          CMSREGISTER cmsUInt32Number Stride)
2648
0
{
2649
0
    *(cmsUInt16Number*) output = wOut[0];
2650
0
    output+= 2;
2651
2652
0
    return output;
2653
2654
0
    cmsUNUSED_PARAMETER(info);
2655
0
    cmsUNUSED_PARAMETER(Stride);
2656
0
}
2657
2658
2659
static
2660
cmsUInt8Number* Pack1WordReversed(CMSREGISTER _cmsTRANSFORM* info,
2661
                                  CMSREGISTER cmsUInt16Number wOut[],
2662
                                  CMSREGISTER cmsUInt8Number* output,
2663
                                  CMSREGISTER cmsUInt32Number Stride)
2664
0
{
2665
0
    *(cmsUInt16Number*) output = REVERSE_FLAVOR_16(wOut[0]);
2666
0
    output+= 2;
2667
2668
0
    return output;
2669
2670
0
    cmsUNUSED_PARAMETER(info);
2671
0
    cmsUNUSED_PARAMETER(Stride);
2672
0
}
2673
2674
static
2675
cmsUInt8Number* Pack1WordBigEndian(CMSREGISTER _cmsTRANSFORM* info,
2676
                                   CMSREGISTER cmsUInt16Number wOut[],
2677
                                   CMSREGISTER cmsUInt8Number* output,
2678
                                   CMSREGISTER cmsUInt32Number Stride)
2679
0
{
2680
0
    *(cmsUInt16Number*) output = CHANGE_ENDIAN(wOut[0]);
2681
0
    output+= 2;
2682
2683
0
    return output;
2684
2685
0
    cmsUNUSED_PARAMETER(info);
2686
0
    cmsUNUSED_PARAMETER(Stride);
2687
0
}
2688
2689
2690
static
2691
cmsUInt8Number* Pack1WordSkip1(CMSREGISTER _cmsTRANSFORM* info,
2692
                               CMSREGISTER cmsUInt16Number wOut[],
2693
                               CMSREGISTER cmsUInt8Number* output,
2694
                               CMSREGISTER cmsUInt32Number Stride)
2695
0
{
2696
0
    *(cmsUInt16Number*) output = wOut[0];
2697
0
    output+= 4;
2698
2699
0
    return output;
2700
2701
0
    cmsUNUSED_PARAMETER(info);
2702
0
    cmsUNUSED_PARAMETER(Stride);
2703
0
}
2704
2705
static
2706
cmsUInt8Number* Pack1WordSkip1SwapFirst(CMSREGISTER _cmsTRANSFORM* info,
2707
                                        CMSREGISTER cmsUInt16Number wOut[],
2708
                                        CMSREGISTER cmsUInt8Number* output,
2709
                                        CMSREGISTER cmsUInt32Number Stride)
2710
0
{
2711
0
    output += 2;
2712
0
    *(cmsUInt16Number*) output = wOut[0];
2713
0
    output+= 2;
2714
2715
0
    return output;
2716
2717
0
    cmsUNUSED_PARAMETER(info);
2718
0
    cmsUNUSED_PARAMETER(Stride);
2719
0
}
2720
2721
2722
// Unencoded Float values -- don't try optimize speed
2723
static
2724
cmsUInt8Number* PackLabDoubleFrom16(CMSREGISTER _cmsTRANSFORM* info,
2725
                                    CMSREGISTER cmsUInt16Number wOut[],
2726
                                    CMSREGISTER cmsUInt8Number* output,
2727
                                    CMSREGISTER cmsUInt32Number Stride)
2728
0
{
2729
2730
0
    if (T_PLANAR(info -> OutputFormat)) {
2731
2732
0
        cmsCIELab  Lab;
2733
0
        cmsFloat64Number* Out = (cmsFloat64Number*) output;
2734
0
        cmsLabEncoded2Float(&Lab, wOut);
2735
2736
0
        Out[0]        = Lab.L;
2737
0
        Out[Stride]   = Lab.a;
2738
0
        Out[Stride*2] = Lab.b;
2739
2740
0
        return output + sizeof(cmsFloat64Number);
2741
0
    }
2742
0
    else {
2743
2744
0
        cmsLabEncoded2Float((cmsCIELab*) output, wOut);
2745
0
        return output + (sizeof(cmsCIELab) + T_EXTRA(info ->OutputFormat) * sizeof(cmsFloat64Number));
2746
0
    }
2747
0
}
2748
2749
2750
static
2751
cmsUInt8Number* PackLabFloatFrom16(CMSREGISTER _cmsTRANSFORM* info,
2752
                                    CMSREGISTER cmsUInt16Number wOut[],
2753
                                    CMSREGISTER cmsUInt8Number* output,
2754
                                    CMSREGISTER cmsUInt32Number Stride)
2755
0
{
2756
0
    cmsCIELab  Lab;
2757
0
    cmsLabEncoded2Float(&Lab, wOut);
2758
2759
0
    if (T_PLANAR(info -> OutputFormat)) {
2760
       
2761
0
        cmsFloat32Number* Out = (cmsFloat32Number*) output;
2762
    
2763
0
        Stride /= PixelSize(info->OutputFormat);
2764
2765
0
        Out[0]        = (cmsFloat32Number)Lab.L;
2766
0
        Out[Stride]   = (cmsFloat32Number)Lab.a;
2767
0
        Out[Stride*2] = (cmsFloat32Number)Lab.b;
2768
2769
0
        return output + sizeof(cmsFloat32Number);
2770
0
    }
2771
0
    else {
2772
2773
0
       ((cmsFloat32Number*) output)[0] = (cmsFloat32Number) Lab.L;
2774
0
       ((cmsFloat32Number*) output)[1] = (cmsFloat32Number) Lab.a;
2775
0
       ((cmsFloat32Number*) output)[2] = (cmsFloat32Number) Lab.b;
2776
2777
0
        return output + (3 + T_EXTRA(info ->OutputFormat)) * sizeof(cmsFloat32Number);
2778
0
    }
2779
0
}
2780
2781
static
2782
cmsUInt8Number* PackXYZDoubleFrom16(CMSREGISTER _cmsTRANSFORM* Info,
2783
                                    CMSREGISTER cmsUInt16Number wOut[],
2784
                                    CMSREGISTER cmsUInt8Number* output,
2785
                                    CMSREGISTER cmsUInt32Number Stride)
2786
0
{
2787
0
    if (T_PLANAR(Info -> OutputFormat)) {
2788
2789
0
        cmsCIEXYZ XYZ;
2790
0
        cmsFloat64Number* Out = (cmsFloat64Number*) output;
2791
0
        cmsXYZEncoded2Float(&XYZ, wOut);
2792
2793
0
        Stride /= PixelSize(Info->OutputFormat);
2794
2795
0
        Out[0]        = XYZ.X;
2796
0
        Out[Stride]   = XYZ.Y;
2797
0
        Out[Stride*2] = XYZ.Z;
2798
2799
0
        return output + sizeof(cmsFloat64Number);
2800
2801
0
    }
2802
0
    else {
2803
2804
0
        cmsXYZEncoded2Float((cmsCIEXYZ*) output, wOut);
2805
2806
0
        return output + (sizeof(cmsCIEXYZ) + T_EXTRA(Info ->OutputFormat) * sizeof(cmsFloat64Number));
2807
0
    }
2808
0
}
2809
2810
static
2811
cmsUInt8Number* PackXYZFloatFrom16(CMSREGISTER _cmsTRANSFORM* Info,
2812
                                   CMSREGISTER cmsUInt16Number wOut[],
2813
                                   CMSREGISTER cmsUInt8Number* output,
2814
                                   CMSREGISTER cmsUInt32Number Stride)
2815
0
{
2816
0
    if (T_PLANAR(Info -> OutputFormat)) {
2817
2818
0
        cmsCIEXYZ XYZ;
2819
0
        cmsFloat32Number* Out = (cmsFloat32Number*) output;
2820
0
        cmsXYZEncoded2Float(&XYZ, wOut);
2821
2822
0
        Stride /= PixelSize(Info->OutputFormat);
2823
2824
0
        Out[0]        = (cmsFloat32Number) XYZ.X;
2825
0
        Out[Stride]   = (cmsFloat32Number) XYZ.Y;
2826
0
        Out[Stride*2] = (cmsFloat32Number) XYZ.Z;
2827
2828
0
        return output + sizeof(cmsFloat32Number);
2829
2830
0
    }
2831
0
    else {
2832
2833
0
        cmsCIEXYZ XYZ;
2834
0
        cmsFloat32Number* Out = (cmsFloat32Number*) output;
2835
0
        cmsXYZEncoded2Float(&XYZ, wOut);
2836
2837
0
        Out[0] = (cmsFloat32Number) XYZ.X;
2838
0
        Out[1] = (cmsFloat32Number) XYZ.Y;
2839
0
        Out[2] = (cmsFloat32Number) XYZ.Z;
2840
2841
0
        return output + (3 * sizeof(cmsFloat32Number) + T_EXTRA(Info ->OutputFormat) * sizeof(cmsFloat32Number));
2842
0
    }
2843
0
}
2844
2845
static
2846
cmsUInt8Number* PackDoubleFrom16(CMSREGISTER _cmsTRANSFORM* info,
2847
                                CMSREGISTER cmsUInt16Number wOut[],
2848
                                CMSREGISTER cmsUInt8Number* output,
2849
                                CMSREGISTER cmsUInt32Number Stride)
2850
0
{
2851
0
    cmsUInt32Number nChan      = T_CHANNELS(info -> OutputFormat);
2852
0
    cmsUInt32Number DoSwap     = T_DOSWAP(info ->OutputFormat);
2853
0
    cmsUInt32Number Reverse    = T_FLAVOR(info ->OutputFormat);
2854
0
    cmsUInt32Number Extra      = T_EXTRA(info -> OutputFormat);
2855
0
    cmsUInt32Number SwapFirst  = T_SWAPFIRST(info -> OutputFormat);
2856
0
    cmsUInt32Number Planar     = T_PLANAR(info -> OutputFormat);
2857
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
2858
0
    cmsFloat64Number maximum = IsInkSpace(info ->OutputFormat) ? 655.35 : 65535.0;
2859
0
    cmsFloat64Number v = 0;
2860
0
    cmsFloat64Number* swap1 = (cmsFloat64Number*) output;
2861
0
    cmsUInt32Number i, start = 0;
2862
2863
0
    Stride /= PixelSize(info->OutputFormat);
2864
2865
0
    if (ExtraFirst)
2866
0
        start = Extra;
2867
2868
0
    for (i=0; i < nChan; i++) {
2869
2870
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
2871
2872
0
        v = (cmsFloat64Number) wOut[index] / maximum;
2873
2874
0
        if (Reverse)
2875
0
            v = maximum - v;
2876
2877
0
        if (Planar)
2878
0
            ((cmsFloat64Number*) output)[(i + start)  * Stride]= v;
2879
0
        else
2880
0
            ((cmsFloat64Number*) output)[i + start] = v;
2881
0
    }
2882
2883
2884
0
    if (Extra == 0 && SwapFirst) {
2885
2886
0
         memmove(swap1 + 1, swap1, (nChan-1)* sizeof(cmsFloat64Number));
2887
0
        *swap1 = v;
2888
0
    }
2889
2890
0
    if (T_PLANAR(info -> OutputFormat))
2891
0
        return output + sizeof(cmsFloat64Number);
2892
0
    else
2893
0
        return output + (nChan + Extra) * sizeof(cmsFloat64Number);
2894
2895
0
}
2896
2897
2898
static
2899
cmsUInt8Number* PackFloatFrom16(CMSREGISTER _cmsTRANSFORM* info,
2900
                                CMSREGISTER cmsUInt16Number wOut[],
2901
                                CMSREGISTER cmsUInt8Number* output,
2902
                                CMSREGISTER cmsUInt32Number Stride)
2903
0
{
2904
0
       cmsUInt32Number nChan      = T_CHANNELS(info->OutputFormat);
2905
0
       cmsUInt32Number DoSwap     = T_DOSWAP(info->OutputFormat);
2906
0
       cmsUInt32Number Reverse    = T_FLAVOR(info->OutputFormat);
2907
0
       cmsUInt32Number Extra      = T_EXTRA(info->OutputFormat);
2908
0
       cmsUInt32Number SwapFirst  = T_SWAPFIRST(info->OutputFormat);
2909
0
       cmsUInt32Number Planar     = T_PLANAR(info->OutputFormat);
2910
0
       cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
2911
0
       cmsFloat64Number maximum = IsInkSpace(info->OutputFormat) ? 655.35 : 65535.0;
2912
0
       cmsFloat64Number v = 0;
2913
0
       cmsFloat32Number* swap1 = (cmsFloat32Number*)output;
2914
0
       cmsUInt32Number i, start = 0;
2915
2916
0
       Stride /= PixelSize(info->OutputFormat);
2917
2918
0
       if (ExtraFirst)
2919
0
              start = Extra;
2920
2921
0
       for (i = 0; i < nChan; i++) {
2922
2923
0
              cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
2924
2925
0
              v = (cmsFloat64Number)wOut[index] / maximum;
2926
2927
0
              if (Reverse)
2928
0
                     v = maximum - v;
2929
2930
0
              if (Planar)
2931
0
                     ((cmsFloat32Number*)output)[(i + start) * Stride] = (cmsFloat32Number)v;
2932
0
              else
2933
0
                     ((cmsFloat32Number*)output)[i + start] = (cmsFloat32Number)v;
2934
0
       }
2935
2936
       
2937
0
       if (Extra == 0 && SwapFirst) {
2938
2939
0
              memmove(swap1 + 1, swap1, (nChan - 1)* sizeof(cmsFloat32Number));
2940
0
              *swap1 = (cmsFloat32Number)v;
2941
0
       }
2942
2943
0
       if (T_PLANAR(info->OutputFormat))
2944
0
              return output + sizeof(cmsFloat32Number);
2945
0
       else
2946
0
              return output + (nChan + Extra) * sizeof(cmsFloat32Number);
2947
0
}
2948
2949
2950
2951
// --------------------------------------------------------------------------------------------------------
2952
2953
static
2954
cmsUInt8Number* PackBytesFromFloat(_cmsTRANSFORM* info,
2955
                                    cmsFloat32Number wOut[],
2956
                                    cmsUInt8Number* output,
2957
                                    cmsUInt32Number Stride)
2958
0
{
2959
0
    cmsUInt32Number nChan = T_CHANNELS(info->OutputFormat);
2960
0
    cmsUInt32Number DoSwap = T_DOSWAP(info->OutputFormat);
2961
0
    cmsUInt32Number Reverse = T_FLAVOR(info->OutputFormat);
2962
0
    cmsUInt32Number Extra = T_EXTRA(info->OutputFormat);
2963
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info->OutputFormat);
2964
0
    cmsUInt32Number Planar = T_PLANAR(info->OutputFormat);
2965
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;    
2966
0
    cmsUInt8Number* swap1 = (cmsUInt8Number*)output;
2967
0
    cmsFloat64Number v = 0;
2968
0
    cmsUInt8Number vv = 0;
2969
0
    cmsUInt32Number i, start = 0;
2970
    
2971
0
    if (ExtraFirst)
2972
0
        start = Extra;
2973
2974
0
    for (i = 0; i < nChan; i++) {
2975
2976
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
2977
2978
0
        v = wOut[index] * 65535.0;
2979
2980
0
        if (Reverse)
2981
0
            v = 65535.0 - v;
2982
        
2983
0
        vv =  FROM_16_TO_8(_cmsQuickSaturateWord(v));
2984
2985
0
        if (Planar)
2986
0
            ((cmsUInt8Number*)output)[(i + start) * Stride] = vv;
2987
0
        else
2988
0
            ((cmsUInt8Number*)output)[i + start] = vv;
2989
0
    }
2990
2991
2992
0
    if (Extra == 0 && SwapFirst) {
2993
2994
0
        memmove(swap1 + 1, swap1, (nChan - 1) * sizeof(cmsUInt8Number));
2995
0
        *swap1 = vv;
2996
0
    }
2997
2998
0
    if (T_PLANAR(info->OutputFormat))
2999
0
        return output + sizeof(cmsUInt8Number);
3000
0
    else
3001
0
        return output + (nChan + Extra) * sizeof(cmsUInt8Number);
3002
0
}
3003
3004
static
3005
cmsUInt8Number* PackWordsFromFloat(_cmsTRANSFORM* info,
3006
                                    cmsFloat32Number wOut[],
3007
                                    cmsUInt8Number* output,
3008
                                    cmsUInt32Number Stride)
3009
0
{
3010
0
    cmsUInt32Number nChan = T_CHANNELS(info->OutputFormat);
3011
0
    cmsUInt32Number DoSwap = T_DOSWAP(info->OutputFormat);
3012
0
    cmsUInt32Number Reverse = T_FLAVOR(info->OutputFormat);
3013
0
    cmsUInt32Number Extra = T_EXTRA(info->OutputFormat);
3014
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info->OutputFormat);
3015
0
    cmsUInt32Number Planar = T_PLANAR(info->OutputFormat);
3016
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;    
3017
0
    cmsUInt16Number* swap1 = (cmsUInt16Number*)output;
3018
0
    cmsFloat64Number v = 0;
3019
0
    cmsUInt16Number vv = 0;
3020
0
    cmsUInt32Number i, start = 0;
3021
    
3022
0
    if (ExtraFirst)
3023
0
        start = Extra;
3024
3025
0
    Stride /= 2;
3026
0
    for (i = 0; i < nChan; i++) {
3027
3028
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
3029
3030
0
        v = wOut[index] * 65535.0;
3031
3032
0
        if (Reverse)
3033
0
            v = 65535.0 - v;
3034
3035
0
        vv = _cmsQuickSaturateWord(v);
3036
3037
0
        if (Planar)
3038
0
            ((cmsUInt16Number*)output)[(i + start) * Stride] = vv;
3039
0
        else
3040
0
            ((cmsUInt16Number*)output)[i + start] = vv;
3041
0
    }
3042
3043
0
    if (Extra == 0 && SwapFirst) {
3044
3045
0
        memmove(swap1 + 1, swap1, (nChan - 1) * sizeof(cmsUInt16Number));
3046
0
        *swap1 = vv;
3047
0
    }
3048
3049
0
    if (T_PLANAR(info->OutputFormat))
3050
0
        return output + sizeof(cmsUInt16Number);
3051
0
    else
3052
0
        return output + (nChan + Extra) * sizeof(cmsUInt16Number);
3053
0
}
3054
3055
3056
static
3057
cmsUInt8Number* PackFloatsFromFloat(_cmsTRANSFORM* info,
3058
                                    cmsFloat32Number wOut[],
3059
                                    cmsUInt8Number* output,
3060
                                    cmsUInt32Number Stride)
3061
0
{
3062
0
       cmsUInt32Number nChan = T_CHANNELS(info->OutputFormat);
3063
0
       cmsUInt32Number DoSwap = T_DOSWAP(info->OutputFormat);
3064
0
       cmsUInt32Number Reverse = T_FLAVOR(info->OutputFormat);
3065
0
       cmsUInt32Number Extra = T_EXTRA(info->OutputFormat);
3066
0
       cmsUInt32Number SwapFirst = T_SWAPFIRST(info->OutputFormat);
3067
0
       cmsUInt32Number Planar = T_PLANAR(info->OutputFormat);
3068
0
       cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
3069
0
       cmsFloat64Number maximum = IsInkSpace(info->OutputFormat) ? 100.0 : 1.0;
3070
0
       cmsFloat32Number* swap1 = (cmsFloat32Number*)output;
3071
0
       cmsFloat64Number v = 0;
3072
0
       cmsUInt32Number i, start = 0;
3073
3074
0
       Stride /= PixelSize(info->OutputFormat);
3075
3076
0
       if (ExtraFirst)
3077
0
              start = Extra;
3078
3079
0
       for (i = 0; i < nChan; i++) {
3080
3081
0
              cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
3082
3083
0
              v = wOut[index] * maximum;
3084
3085
0
              if (Reverse)
3086
0
                     v = maximum - v;
3087
3088
0
              if (Planar)
3089
0
                     ((cmsFloat32Number*)output)[(i + start) * Stride] = (cmsFloat32Number)v;
3090
0
              else
3091
0
                     ((cmsFloat32Number*)output)[i + start] = (cmsFloat32Number)v;
3092
0
       }
3093
3094
3095
0
       if (Extra == 0 && SwapFirst) {
3096
3097
0
              memmove(swap1 + 1, swap1, (nChan - 1)* sizeof(cmsFloat32Number));
3098
0
              *swap1 = (cmsFloat32Number)v;
3099
0
       }
3100
3101
0
       if (T_PLANAR(info->OutputFormat))
3102
0
              return output + sizeof(cmsFloat32Number);
3103
0
       else
3104
0
              return output + (nChan + Extra) * sizeof(cmsFloat32Number);
3105
0
}
3106
3107
static
3108
cmsUInt8Number* PackDoublesFromFloat(_cmsTRANSFORM* info,
3109
                                    cmsFloat32Number wOut[],
3110
                                    cmsUInt8Number* output,
3111
                                    cmsUInt32Number Stride)
3112
0
{
3113
0
       cmsUInt32Number nChan      = T_CHANNELS(info->OutputFormat);
3114
0
       cmsUInt32Number DoSwap     = T_DOSWAP(info->OutputFormat);
3115
0
       cmsUInt32Number Reverse    = T_FLAVOR(info->OutputFormat);
3116
0
       cmsUInt32Number Extra      = T_EXTRA(info->OutputFormat);
3117
0
       cmsUInt32Number SwapFirst  = T_SWAPFIRST(info->OutputFormat);
3118
0
       cmsUInt32Number Planar     = T_PLANAR(info->OutputFormat);
3119
0
       cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
3120
0
       cmsFloat64Number maximum = IsInkSpace(info->OutputFormat) ? 100.0 : 1.0;
3121
0
       cmsFloat64Number v = 0;
3122
0
       cmsFloat64Number* swap1 = (cmsFloat64Number*)output;
3123
0
       cmsUInt32Number i, start = 0;
3124
3125
0
       Stride /= PixelSize(info->OutputFormat);
3126
3127
0
       if (ExtraFirst)
3128
0
              start = Extra;
3129
3130
0
       for (i = 0; i < nChan; i++) {
3131
3132
0
              cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
3133
3134
0
              v = wOut[index] * maximum;
3135
3136
0
              if (Reverse)
3137
0
                     v = maximum - v;
3138
3139
0
              if (Planar)
3140
0
                     ((cmsFloat64Number*)output)[(i + start) * Stride] = v;
3141
0
              else
3142
0
                     ((cmsFloat64Number*)output)[i + start] = v;
3143
0
       }
3144
3145
0
       if (Extra == 0 && SwapFirst) {
3146
3147
0
              memmove(swap1 + 1, swap1, (nChan - 1)* sizeof(cmsFloat64Number));
3148
0
              *swap1 = v;
3149
0
       }
3150
3151
3152
0
       if (T_PLANAR(info->OutputFormat))
3153
0
              return output + sizeof(cmsFloat64Number);
3154
0
       else
3155
0
              return output + (nChan + Extra) * sizeof(cmsFloat64Number);
3156
3157
0
}
3158
3159
static
3160
cmsUInt8Number* PackLabFloatFromFloat(_cmsTRANSFORM* Info,
3161
                                      cmsFloat32Number wOut[],
3162
                                      cmsUInt8Number* output,
3163
                                      cmsUInt32Number Stride)
3164
0
{
3165
0
    cmsFloat32Number* Out = (cmsFloat32Number*) output;
3166
3167
0
    if (T_PLANAR(Info -> OutputFormat)) {
3168
3169
0
        Stride /= PixelSize(Info->OutputFormat);
3170
3171
0
        Out[0]        = (cmsFloat32Number) (wOut[0] * 100.0);
3172
0
        Out[Stride]   = (cmsFloat32Number) (wOut[1] * 255.0 - 128.0);
3173
0
        Out[Stride*2] = (cmsFloat32Number) (wOut[2] * 255.0 - 128.0);
3174
3175
0
        return output + sizeof(cmsFloat32Number);
3176
0
    }
3177
0
    else {
3178
3179
0
        Out[0] = (cmsFloat32Number) (wOut[0] * 100.0);
3180
0
        Out[1] = (cmsFloat32Number) (wOut[1] * 255.0 - 128.0);
3181
0
        Out[2] = (cmsFloat32Number) (wOut[2] * 255.0 - 128.0);
3182
3183
0
        return output + (sizeof(cmsFloat32Number)*3 + T_EXTRA(Info ->OutputFormat) * sizeof(cmsFloat32Number));
3184
0
    }
3185
3186
0
}
3187
3188
3189
static
3190
cmsUInt8Number* PackLabDoubleFromFloat(_cmsTRANSFORM* Info,
3191
                                       cmsFloat32Number wOut[],
3192
                                       cmsUInt8Number* output,
3193
                                       cmsUInt32Number Stride)
3194
0
{
3195
0
    cmsFloat64Number* Out = (cmsFloat64Number*) output;
3196
3197
0
    if (T_PLANAR(Info -> OutputFormat)) {
3198
3199
0
        Stride /= PixelSize(Info->OutputFormat);
3200
3201
0
        Out[0]        = (cmsFloat64Number) (wOut[0] * 100.0);
3202
0
        Out[Stride]   = (cmsFloat64Number) (wOut[1] * 255.0 - 128.0);
3203
0
        Out[Stride*2] = (cmsFloat64Number) (wOut[2] * 255.0 - 128.0);
3204
3205
0
        return output + sizeof(cmsFloat64Number);
3206
0
    }
3207
0
    else {
3208
3209
0
        Out[0] = (cmsFloat64Number) (wOut[0] * 100.0);
3210
0
        Out[1] = (cmsFloat64Number) (wOut[1] * 255.0 - 128.0);
3211
0
        Out[2] = (cmsFloat64Number) (wOut[2] * 255.0 - 128.0);
3212
3213
0
        return output + (sizeof(cmsFloat64Number)*3 + T_EXTRA(Info ->OutputFormat) * sizeof(cmsFloat64Number));
3214
0
    }
3215
3216
0
}
3217
3218
3219
static
3220
cmsUInt8Number* PackEncodedBytesLabV2FromFloat(_cmsTRANSFORM* Info,
3221
                                           cmsFloat32Number wOut[],
3222
                                           cmsUInt8Number* output,
3223
                                           cmsUInt32Number Stride)
3224
0
{    
3225
0
    cmsCIELab Lab;
3226
0
    cmsUInt16Number wlab[3];
3227
3228
0
    Lab.L = (cmsFloat64Number)(wOut[0] * 100.0);
3229
0
    Lab.a = (cmsFloat64Number)(wOut[1] * 255.0 - 128.0);
3230
0
    Lab.b = (cmsFloat64Number)(wOut[2] * 255.0 - 128.0);
3231
3232
0
    cmsFloat2LabEncoded(wlab, &Lab);
3233
    
3234
0
    if (T_PLANAR(Info -> OutputFormat)) {
3235
3236
0
        Stride /= PixelSize(Info->OutputFormat);       
3237
    
3238
0
        output[0]        = wlab[0] >> 8;
3239
0
        output[Stride]   = wlab[1] >> 8;
3240
0
        output[Stride*2] = wlab[2] >> 8;
3241
3242
0
        return output + 1;
3243
0
    }
3244
0
    else {
3245
3246
0
        output[0] = wlab[0] >> 8;
3247
0
        output[1] = wlab[1] >> 8;
3248
0
        output[2] = wlab[2] >> 8;
3249
3250
0
        return output + (3 + T_EXTRA(Info ->OutputFormat));
3251
0
    }
3252
0
}
3253
3254
static
3255
cmsUInt8Number* PackEncodedWordsLabV2FromFloat(_cmsTRANSFORM* Info,
3256
                                           cmsFloat32Number wOut[],
3257
                                           cmsUInt8Number* output,
3258
                                           cmsUInt32Number Stride)
3259
0
{    
3260
0
    cmsCIELab Lab;
3261
0
    cmsUInt16Number wlab[3];
3262
3263
0
    Lab.L = (cmsFloat64Number)(wOut[0] * 100.0);
3264
0
    Lab.a = (cmsFloat64Number)(wOut[1] * 255.0 - 128.0);
3265
0
    Lab.b = (cmsFloat64Number)(wOut[2] * 255.0 - 128.0);
3266
3267
0
    cmsFloat2LabEncodedV2(wlab, &Lab);
3268
    
3269
0
    if (T_PLANAR(Info -> OutputFormat)) {
3270
3271
0
        Stride /= PixelSize(Info->OutputFormat);       
3272
    
3273
0
        ((cmsUInt16Number*) output)[0]        = wlab[0];
3274
0
        ((cmsUInt16Number*) output)[Stride]   = wlab[1];
3275
0
        ((cmsUInt16Number*) output)[Stride*2] = wlab[2];
3276
3277
0
        return output + sizeof(cmsUInt16Number);
3278
0
    }
3279
0
    else {
3280
3281
0
         ((cmsUInt16Number*) output)[0] = wlab[0];
3282
0
         ((cmsUInt16Number*) output)[1] = wlab[1];
3283
0
         ((cmsUInt16Number*) output)[2] = wlab[2];
3284
3285
0
        return output + (3 + T_EXTRA(Info ->OutputFormat)) * sizeof(cmsUInt16Number);
3286
0
    }
3287
0
}
3288
3289
3290
// From 0..1 range to 0..MAX_ENCODEABLE_XYZ
3291
static
3292
cmsUInt8Number* PackXYZFloatFromFloat(_cmsTRANSFORM* Info,
3293
                                      cmsFloat32Number wOut[],
3294
                                      cmsUInt8Number* output,
3295
                                      cmsUInt32Number Stride)
3296
0
{
3297
0
    cmsFloat32Number* Out = (cmsFloat32Number*) output;
3298
3299
0
    if (T_PLANAR(Info -> OutputFormat)) {
3300
3301
0
        Stride /= PixelSize(Info->OutputFormat);
3302
3303
0
        Out[0]        = (cmsFloat32Number) (wOut[0] * MAX_ENCODEABLE_XYZ);
3304
0
        Out[Stride]   = (cmsFloat32Number) (wOut[1] * MAX_ENCODEABLE_XYZ);
3305
0
        Out[Stride*2] = (cmsFloat32Number) (wOut[2] * MAX_ENCODEABLE_XYZ);
3306
3307
0
        return output + sizeof(cmsFloat32Number);
3308
0
    }
3309
0
    else {
3310
3311
0
        Out[0] = (cmsFloat32Number) (wOut[0] * MAX_ENCODEABLE_XYZ);
3312
0
        Out[1] = (cmsFloat32Number) (wOut[1] * MAX_ENCODEABLE_XYZ);
3313
0
        Out[2] = (cmsFloat32Number) (wOut[2] * MAX_ENCODEABLE_XYZ);
3314
3315
0
        return output + (sizeof(cmsFloat32Number)*3 + T_EXTRA(Info ->OutputFormat) * sizeof(cmsFloat32Number));
3316
0
    }
3317
3318
0
}
3319
3320
// Same, but convert to double
3321
static
3322
cmsUInt8Number* PackXYZDoubleFromFloat(_cmsTRANSFORM* Info,
3323
                                       cmsFloat32Number wOut[],
3324
                                       cmsUInt8Number* output,
3325
                                       cmsUInt32Number Stride)
3326
0
{
3327
0
    cmsFloat64Number* Out = (cmsFloat64Number*) output;
3328
3329
0
    if (T_PLANAR(Info -> OutputFormat)) {
3330
3331
0
        Stride /= PixelSize(Info->OutputFormat);
3332
3333
0
        Out[0]        = (cmsFloat64Number) (wOut[0] * MAX_ENCODEABLE_XYZ);
3334
0
        Out[Stride]   = (cmsFloat64Number) (wOut[1] * MAX_ENCODEABLE_XYZ);
3335
0
        Out[Stride*2] = (cmsFloat64Number) (wOut[2] * MAX_ENCODEABLE_XYZ);
3336
3337
0
        return output + sizeof(cmsFloat64Number);
3338
0
    }
3339
0
    else {
3340
3341
0
        Out[0] = (cmsFloat64Number) (wOut[0] * MAX_ENCODEABLE_XYZ);
3342
0
        Out[1] = (cmsFloat64Number) (wOut[1] * MAX_ENCODEABLE_XYZ);
3343
0
        Out[2] = (cmsFloat64Number) (wOut[2] * MAX_ENCODEABLE_XYZ);
3344
3345
0
        return output + (sizeof(cmsFloat64Number)*3 + T_EXTRA(Info ->OutputFormat) * sizeof(cmsFloat64Number));
3346
0
    }
3347
3348
0
}
3349
3350
3351
// ----------------------------------------------------------------------------------------------------------------
3352
3353
#ifndef CMS_NO_HALF_SUPPORT 
3354
3355
// Decodes an stream of half floats to wIn[] described by input format
3356
3357
static
3358
cmsUInt8Number* UnrollHalfTo16(CMSREGISTER _cmsTRANSFORM* info,
3359
                                CMSREGISTER cmsUInt16Number wIn[],
3360
                                CMSREGISTER cmsUInt8Number* accum,
3361
                                CMSREGISTER cmsUInt32Number Stride)
3362
0
{
3363
3364
0
    cmsUInt32Number nChan      = T_CHANNELS(info -> InputFormat);
3365
0
    cmsUInt32Number DoSwap     = T_DOSWAP(info ->InputFormat);
3366
0
    cmsUInt32Number Reverse    = T_FLAVOR(info ->InputFormat);
3367
0
    cmsUInt32Number SwapFirst  = T_SWAPFIRST(info -> InputFormat);
3368
0
    cmsUInt32Number Extra      = T_EXTRA(info -> InputFormat);
3369
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
3370
0
    cmsUInt32Number Planar     = T_PLANAR(info -> InputFormat);
3371
0
    cmsFloat32Number v;
3372
0
    cmsUInt32Number i, start = 0;
3373
0
    cmsFloat32Number maximum = IsInkSpace(info ->InputFormat) ? 655.35F : 65535.0F;
3374
3375
3376
0
    Stride /= PixelSize(info->OutputFormat);
3377
3378
0
    if (ExtraFirst)
3379
0
            start = Extra;
3380
3381
0
    for (i=0; i < nChan; i++) {
3382
3383
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
3384
3385
0
        if (Planar)
3386
0
            v = _cmsHalf2Float ( ((cmsUInt16Number*) accum)[(i + start) * Stride] );
3387
0
        else
3388
0
            v = _cmsHalf2Float ( ((cmsUInt16Number*) accum)[i + start] ) ;
3389
3390
0
        if (Reverse) v = maximum - v;
3391
3392
0
        wIn[index] = _cmsQuickSaturateWord((cmsFloat64Number) v * maximum);
3393
0
    }
3394
3395
3396
0
    if (Extra == 0 && SwapFirst) {
3397
0
        cmsUInt16Number tmp = wIn[0];
3398
3399
0
        memmove(&wIn[0], &wIn[1], (nChan-1) * sizeof(cmsUInt16Number));
3400
0
        wIn[nChan-1] = tmp;
3401
0
    }
3402
3403
0
    if (T_PLANAR(info -> InputFormat))
3404
0
        return accum + sizeof(cmsUInt16Number);
3405
0
    else
3406
0
        return accum + (nChan + Extra) * sizeof(cmsUInt16Number);
3407
0
}
3408
3409
// Decodes an stream of half floats to wIn[] described by input format
3410
3411
static
3412
cmsUInt8Number* UnrollHalfToFloat(_cmsTRANSFORM* info,
3413
                                    cmsFloat32Number wIn[],
3414
                                    cmsUInt8Number* accum,
3415
                                    cmsUInt32Number Stride)
3416
0
{
3417
3418
0
    cmsUInt32Number nChan      = T_CHANNELS(info -> InputFormat);
3419
0
    cmsUInt32Number DoSwap     = T_DOSWAP(info ->InputFormat);
3420
0
    cmsUInt32Number Reverse    = T_FLAVOR(info ->InputFormat);
3421
0
    cmsUInt32Number SwapFirst  = T_SWAPFIRST(info -> InputFormat);
3422
0
    cmsUInt32Number Extra      = T_EXTRA(info -> InputFormat);
3423
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
3424
0
    cmsUInt32Number Planar     = T_PLANAR(info -> InputFormat);
3425
0
    cmsFloat32Number v;
3426
0
    cmsUInt32Number i, start = 0;
3427
0
    cmsFloat32Number maximum = IsInkSpace(info ->InputFormat) ? 100.0F : 1.0F;
3428
3429
0
    Stride /= PixelSize(info->InputFormat);
3430
3431
0
    if (ExtraFirst)
3432
0
            start = Extra;
3433
3434
0
    for (i=0; i < nChan; i++) {
3435
3436
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
3437
3438
0
        if (Planar)
3439
0
            v =  _cmsHalf2Float ( ((cmsUInt16Number*) accum)[(i + start) * Stride] );
3440
0
        else
3441
0
            v =  _cmsHalf2Float ( ((cmsUInt16Number*) accum)[i + start] ) ;
3442
3443
0
        v /= maximum;
3444
3445
0
        wIn[index] = Reverse ? 1 - v : v;
3446
0
    }
3447
3448
3449
0
    if (Extra == 0 && SwapFirst) {
3450
0
        cmsFloat32Number tmp = wIn[0];
3451
3452
0
        memmove(&wIn[0], &wIn[1], (nChan-1) * sizeof(cmsFloat32Number));
3453
0
        wIn[nChan-1] = tmp;
3454
0
    }
3455
3456
0
    if (T_PLANAR(info -> InputFormat))
3457
0
        return accum + sizeof(cmsUInt16Number);
3458
0
    else
3459
0
        return accum + (nChan + Extra) * sizeof(cmsUInt16Number);
3460
0
}
3461
3462
3463
static
3464
cmsUInt8Number* PackHalfFrom16(CMSREGISTER _cmsTRANSFORM* info,
3465
                                CMSREGISTER cmsUInt16Number wOut[],
3466
                                CMSREGISTER cmsUInt8Number* output,
3467
                                CMSREGISTER cmsUInt32Number Stride)
3468
0
{
3469
0
       cmsUInt32Number nChan      = T_CHANNELS(info->OutputFormat);
3470
0
       cmsUInt32Number DoSwap     = T_DOSWAP(info->OutputFormat);
3471
0
       cmsUInt32Number Reverse    = T_FLAVOR(info->OutputFormat);
3472
0
       cmsUInt32Number Extra      = T_EXTRA(info->OutputFormat);
3473
0
       cmsUInt32Number SwapFirst  = T_SWAPFIRST(info->OutputFormat);
3474
0
       cmsUInt32Number Planar     = T_PLANAR(info->OutputFormat);
3475
0
       cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
3476
0
       cmsFloat32Number maximum = IsInkSpace(info->OutputFormat) ? 655.35F : 65535.0F;
3477
0
       cmsFloat32Number v = 0;
3478
0
       cmsUInt16Number* swap1 = (cmsUInt16Number*)output;
3479
0
       cmsUInt32Number i, start = 0;
3480
3481
0
       Stride /= PixelSize(info->OutputFormat);
3482
3483
0
       if (ExtraFirst)
3484
0
              start = Extra;
3485
3486
0
       for (i = 0; i < nChan; i++) {
3487
3488
0
              cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
3489
3490
0
              v = (cmsFloat32Number)wOut[index] / maximum;
3491
3492
0
              if (Reverse)
3493
0
                     v = maximum - v;
3494
3495
0
              if (Planar)
3496
0
                     ((cmsUInt16Number*)output)[(i + start) * Stride] = _cmsFloat2Half(v);
3497
0
              else
3498
0
                     ((cmsUInt16Number*)output)[i + start] = _cmsFloat2Half(v);
3499
0
       }
3500
3501
3502
0
       if (Extra == 0 && SwapFirst) {
3503
3504
0
              memmove(swap1 + 1, swap1, (nChan - 1)* sizeof(cmsUInt16Number));
3505
0
              *swap1 = _cmsFloat2Half(v);
3506
0
       }
3507
3508
0
       if (T_PLANAR(info->OutputFormat))
3509
0
              return output + sizeof(cmsUInt16Number);
3510
0
       else
3511
0
              return output + (nChan + Extra) * sizeof(cmsUInt16Number);
3512
0
}
3513
3514
3515
3516
static
3517
cmsUInt8Number* PackHalfFromFloat(_cmsTRANSFORM* info,
3518
                                    cmsFloat32Number wOut[],
3519
                                    cmsUInt8Number* output,
3520
                                    cmsUInt32Number Stride)
3521
0
{
3522
0
       cmsUInt32Number nChan      = T_CHANNELS(info->OutputFormat);
3523
0
       cmsUInt32Number DoSwap     = T_DOSWAP(info->OutputFormat);
3524
0
       cmsUInt32Number Reverse    = T_FLAVOR(info->OutputFormat);
3525
0
       cmsUInt32Number Extra      = T_EXTRA(info->OutputFormat);
3526
0
       cmsUInt32Number SwapFirst  = T_SWAPFIRST(info->OutputFormat);
3527
0
       cmsUInt32Number Planar     = T_PLANAR(info->OutputFormat);
3528
0
       cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
3529
0
       cmsFloat32Number maximum = IsInkSpace(info->OutputFormat) ? 100.0F : 1.0F;
3530
0
       cmsUInt16Number* swap1 = (cmsUInt16Number*)output;
3531
0
       cmsFloat32Number v = 0;
3532
0
       cmsUInt32Number i, start = 0;
3533
3534
0
       Stride /= PixelSize(info->OutputFormat);
3535
3536
0
       if (ExtraFirst)
3537
0
              start = Extra;
3538
3539
0
       for (i = 0; i < nChan; i++) {
3540
3541
0
           cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
3542
3543
0
              v = wOut[index] * maximum;
3544
3545
0
              if (Reverse)
3546
0
                     v = maximum - v;
3547
3548
0
              if (Planar)
3549
0
                     ((cmsUInt16Number*)output)[(i + start)* Stride] = _cmsFloat2Half(v);
3550
0
              else
3551
0
                     ((cmsUInt16Number*)output)[i + start] = _cmsFloat2Half(v);
3552
0
       }
3553
3554
3555
0
       if (Extra == 0 && SwapFirst) {
3556
3557
0
              memmove(swap1 + 1, swap1, (nChan - 1)* sizeof(cmsUInt16Number));
3558
0
              *swap1 = (cmsUInt16Number)_cmsFloat2Half(v);
3559
0
       }
3560
3561
0
       if (T_PLANAR(info->OutputFormat))
3562
0
              return output + sizeof(cmsUInt16Number);
3563
0
       else
3564
0
              return output + (nChan + Extra)* sizeof(cmsUInt16Number);
3565
0
}
3566
3567
#endif
3568
3569
// ----------------------------------------------------------------------------------------------------------------
3570
3571
3572
static const cmsFormatters16 InputFormatters16[] = {
3573
3574
    //    Type                                          Mask                  Function
3575
    //  ----------------------------   ------------------------------------  ----------------------------
3576
    { TYPE_Lab_DBL,                                 ANYPLANAR|ANYEXTRA,   UnrollLabDoubleTo16},
3577
    { TYPE_XYZ_DBL,                                 ANYPLANAR|ANYEXTRA,   UnrollXYZDoubleTo16},
3578
    { TYPE_Lab_FLT,                                 ANYPLANAR|ANYEXTRA,   UnrollLabFloatTo16},
3579
    { TYPE_XYZ_FLT,                                 ANYPLANAR|ANYEXTRA,   UnrollXYZFloatTo16},
3580
    { TYPE_GRAY_DBL,                                                 0,   UnrollDouble1Chan},
3581
    { FLOAT_SH(1)|BYTES_SH(0), ANYCHANNELS|ANYPLANAR|ANYSWAPFIRST|ANYFLAVOR|
3582
                                             ANYSWAP|ANYEXTRA|ANYSPACE,   UnrollDoubleTo16},
3583
    { FLOAT_SH(1)|BYTES_SH(4), ANYCHANNELS|ANYPLANAR|ANYSWAPFIRST|ANYFLAVOR|
3584
                                             ANYSWAP|ANYEXTRA|ANYSPACE,   UnrollFloatTo16},
3585
#ifndef CMS_NO_HALF_SUPPORT 
3586
    { FLOAT_SH(1)|BYTES_SH(2), ANYCHANNELS|ANYPLANAR|ANYSWAPFIRST|ANYFLAVOR|
3587
                                            ANYEXTRA|ANYSWAP|ANYSPACE,   UnrollHalfTo16},
3588
#endif
3589
3590
    { CHANNELS_SH(1)|BYTES_SH(1),                              ANYSPACE,  Unroll1Byte},
3591
    { CHANNELS_SH(1)|BYTES_SH(1)|EXTRA_SH(1),                  ANYSPACE,  Unroll1ByteSkip1},
3592
    { CHANNELS_SH(1)|BYTES_SH(1)|EXTRA_SH(2),                  ANYSPACE,  Unroll1ByteSkip2},
3593
    { CHANNELS_SH(1)|BYTES_SH(1)|FLAVOR_SH(1),                 ANYSPACE,  Unroll1ByteReversed},
3594
    { COLORSPACE_SH(PT_MCH2)|CHANNELS_SH(2)|BYTES_SH(1),              0,  Unroll2Bytes},
3595
3596
    { TYPE_LabV2_8,                                                   0,  UnrollLabV2_8 },
3597
    { TYPE_ALabV2_8,                                                  0,  UnrollALabV2_8 },
3598
    { TYPE_LabV2_16,                                                  0,  UnrollLabV2_16 },
3599
3600
    { CHANNELS_SH(3)|BYTES_SH(1),                              ANYSPACE,  Unroll3Bytes},
3601
    { CHANNELS_SH(3)|BYTES_SH(1)|DOSWAP_SH(1),                 ANYSPACE,  Unroll3BytesSwap},
3602
    { CHANNELS_SH(3)|EXTRA_SH(1)|BYTES_SH(1)|DOSWAP_SH(1),     ANYSPACE,  Unroll3BytesSkip1Swap},
3603
    { CHANNELS_SH(3)|EXTRA_SH(1)|BYTES_SH(1)|SWAPFIRST_SH(1),  ANYSPACE,  Unroll3BytesSkip1SwapFirst},
3604
3605
    { CHANNELS_SH(3)|EXTRA_SH(1)|BYTES_SH(1)|DOSWAP_SH(1)|SWAPFIRST_SH(1),  
3606
                                                               ANYSPACE,  Unroll3BytesSkip1SwapSwapFirst},
3607
3608
    { CHANNELS_SH(4)|BYTES_SH(1),                              ANYSPACE,  Unroll4Bytes},
3609
    { CHANNELS_SH(4)|BYTES_SH(1)|FLAVOR_SH(1),                 ANYSPACE,  Unroll4BytesReverse},
3610
    { CHANNELS_SH(4)|BYTES_SH(1)|SWAPFIRST_SH(1),              ANYSPACE,  Unroll4BytesSwapFirst},
3611
    { CHANNELS_SH(4)|BYTES_SH(1)|DOSWAP_SH(1),                 ANYSPACE,  Unroll4BytesSwap},
3612
    { CHANNELS_SH(4)|BYTES_SH(1)|DOSWAP_SH(1)|SWAPFIRST_SH(1), ANYSPACE,  Unroll4BytesSwapSwapFirst},
3613
3614
    { BYTES_SH(1)|PLANAR_SH(1), ANYFLAVOR|ANYSWAPFIRST|ANYPREMUL|
3615
                                   ANYSWAP|ANYEXTRA|ANYCHANNELS|ANYSPACE, UnrollPlanarBytes},
3616
3617
    { BYTES_SH(1),    ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYPREMUL|
3618
                                           ANYEXTRA|ANYCHANNELS|ANYSPACE, UnrollChunkyBytes},
3619
    
3620
    { CHANNELS_SH(1)|BYTES_SH(2),                              ANYSPACE,  Unroll1Word},
3621
    { CHANNELS_SH(1)|BYTES_SH(2)|FLAVOR_SH(1),                 ANYSPACE,  Unroll1WordReversed},
3622
    { CHANNELS_SH(1)|BYTES_SH(2)|EXTRA_SH(3),                  ANYSPACE,  Unroll1WordSkip3},
3623
3624
    { CHANNELS_SH(2)|BYTES_SH(2),                              ANYSPACE,  Unroll2Words},
3625
    { CHANNELS_SH(3)|BYTES_SH(2),                              ANYSPACE,  Unroll3Words},
3626
    { CHANNELS_SH(4)|BYTES_SH(2),                              ANYSPACE,  Unroll4Words},
3627
3628
    { CHANNELS_SH(3)|BYTES_SH(2)|DOSWAP_SH(1),                 ANYSPACE,  Unroll3WordsSwap},
3629
    { CHANNELS_SH(3)|BYTES_SH(2)|EXTRA_SH(1)|SWAPFIRST_SH(1),  ANYSPACE,  Unroll3WordsSkip1SwapFirst},
3630
    { CHANNELS_SH(3)|BYTES_SH(2)|EXTRA_SH(1)|DOSWAP_SH(1),     ANYSPACE,  Unroll3WordsSkip1Swap},
3631
    { CHANNELS_SH(4)|BYTES_SH(2)|FLAVOR_SH(1),                 ANYSPACE,  Unroll4WordsReverse},
3632
    { CHANNELS_SH(4)|BYTES_SH(2)|SWAPFIRST_SH(1),              ANYSPACE,  Unroll4WordsSwapFirst},
3633
    { CHANNELS_SH(4)|BYTES_SH(2)|DOSWAP_SH(1),                 ANYSPACE,  Unroll4WordsSwap},
3634
    { CHANNELS_SH(4)|BYTES_SH(2)|DOSWAP_SH(1)|SWAPFIRST_SH(1), ANYSPACE,  Unroll4WordsSwapSwapFirst},
3635
3636
3637
    { BYTES_SH(2)|PLANAR_SH(1),  ANYFLAVOR|ANYSWAP|ANYENDIAN|ANYEXTRA|ANYCHANNELS|ANYSPACE,  UnrollPlanarWords},
3638
    { BYTES_SH(2),  ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYENDIAN|ANYEXTRA|ANYCHANNELS|ANYSPACE,  UnrollAnyWords},
3639
3640
    { BYTES_SH(2)|PLANAR_SH(1),  ANYFLAVOR|ANYSWAP|ANYENDIAN|ANYEXTRA|ANYCHANNELS|ANYSPACE|PREMUL_SH(1),  UnrollPlanarWordsPremul},
3641
    { BYTES_SH(2),  ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYENDIAN|ANYEXTRA|ANYCHANNELS|ANYSPACE|PREMUL_SH(1),  UnrollAnyWordsPremul}
3642
3643
};
3644
3645
3646
3647
static const cmsFormattersFloat InputFormattersFloat[] = {
3648
3649
    //    Type                                          Mask                  Function
3650
    //  ----------------------------   ------------------------------------  ----------------------------
3651
    {     TYPE_Lab_DBL,                                ANYPLANAR|ANYEXTRA,   UnrollLabDoubleToFloat},
3652
    {     TYPE_Lab_FLT,                                ANYPLANAR|ANYEXTRA,   UnrollLabFloatToFloat},
3653
3654
    {     TYPE_XYZ_DBL,                                ANYPLANAR|ANYEXTRA,   UnrollXYZDoubleToFloat},
3655
    {     TYPE_XYZ_FLT,                                ANYPLANAR|ANYEXTRA,   UnrollXYZFloatToFloat},
3656
3657
    {     FLOAT_SH(1)|BYTES_SH(4), ANYPLANAR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|
3658
                                            ANYPREMUL|ANYCHANNELS|ANYSPACE,  UnrollFloatsToFloat},
3659
3660
    {     FLOAT_SH(1)|BYTES_SH(0), ANYPLANAR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|
3661
                                              ANYCHANNELS|ANYSPACE|ANYPREMUL, UnrollDoublesToFloat},
3662
3663
    {     TYPE_LabV2_8,                                                   0,  UnrollLabV2_8ToFloat },
3664
    {     TYPE_ALabV2_8,                                                  0,  UnrollALabV2_8ToFloat },
3665
    {     TYPE_LabV2_16,                                                  0,  UnrollLabV2_16ToFloat },
3666
3667
    {     BYTES_SH(1),              ANYPLANAR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|
3668
                                                        ANYCHANNELS|ANYSPACE, Unroll8ToFloat},
3669
3670
    {     BYTES_SH(2),              ANYPLANAR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|
3671
                                                        ANYCHANNELS|ANYSPACE, Unroll16ToFloat},
3672
#ifndef CMS_NO_HALF_SUPPORT 
3673
    {     FLOAT_SH(1)|BYTES_SH(2), ANYPLANAR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|
3674
                                                        ANYCHANNELS|ANYSPACE, UnrollHalfToFloat},
3675
#endif
3676
};
3677
3678
3679
// Bit fields set to one in the mask are not compared
3680
static
3681
cmsFormatter _cmsGetStockInputFormatter(cmsUInt32Number dwInput, cmsUInt32Number dwFlags)
3682
0
{
3683
0
    cmsUInt32Number i;
3684
0
    cmsFormatter fr;
3685
3686
0
    switch (dwFlags) {
3687
3688
0
    case CMS_PACK_FLAGS_16BITS: {
3689
0
        for (i=0; i < sizeof(InputFormatters16) / sizeof(cmsFormatters16); i++) {
3690
0
            const cmsFormatters16* f = InputFormatters16 + i;
3691
3692
0
            if ((dwInput & ~f ->Mask) == f ->Type) {
3693
0
                fr.Fmt16 = f ->Frm;
3694
0
                return fr;
3695
0
            }
3696
0
        }
3697
0
    }
3698
0
    break;
3699
3700
0
    case CMS_PACK_FLAGS_FLOAT: {
3701
0
        for (i=0; i < sizeof(InputFormattersFloat) / sizeof(cmsFormattersFloat); i++) {
3702
0
            const cmsFormattersFloat* f = InputFormattersFloat + i;
3703
3704
0
            if ((dwInput & ~f ->Mask) == f ->Type) {
3705
0
                fr.FmtFloat = f ->Frm;
3706
0
                return fr;
3707
0
            }
3708
0
        }
3709
0
    }
3710
0
    break;
3711
3712
0
    default:;
3713
3714
0
    }
3715
3716
0
    fr.Fmt16 = NULL;
3717
0
    return fr;
3718
0
}
3719
3720
static const cmsFormatters16 OutputFormatters16[] = {
3721
    //    Type                                          Mask                  Function
3722
    //  ----------------------------   ------------------------------------  ----------------------------
3723
3724
    { TYPE_Lab_DBL,                                      ANYPLANAR|ANYEXTRA,  PackLabDoubleFrom16},
3725
    { TYPE_XYZ_DBL,                                      ANYPLANAR|ANYEXTRA,  PackXYZDoubleFrom16},
3726
3727
    { TYPE_Lab_FLT,                                      ANYPLANAR|ANYEXTRA,  PackLabFloatFrom16},
3728
    { TYPE_XYZ_FLT,                                      ANYPLANAR|ANYEXTRA,  PackXYZFloatFrom16},
3729
    
3730
    { FLOAT_SH(1)|BYTES_SH(0),      ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|
3731
                                    ANYCHANNELS|ANYPLANAR|ANYEXTRA|ANYSPACE,  PackDoubleFrom16},
3732
    { FLOAT_SH(1)|BYTES_SH(4),      ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|
3733
                                    ANYCHANNELS|ANYPLANAR|ANYEXTRA|ANYSPACE,  PackFloatFrom16},
3734
#ifndef CMS_NO_HALF_SUPPORT 
3735
    { FLOAT_SH(1)|BYTES_SH(2),      ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|
3736
                                    ANYCHANNELS|ANYPLANAR|ANYEXTRA|ANYSPACE,  PackHalfFrom16},
3737
#endif
3738
3739
    { CHANNELS_SH(1)|BYTES_SH(1),                                  ANYSPACE,  Pack1Byte},
3740
    { CHANNELS_SH(1)|BYTES_SH(1)|EXTRA_SH(1),                      ANYSPACE,  Pack1ByteSkip1},
3741
    { CHANNELS_SH(1)|BYTES_SH(1)|EXTRA_SH(1)|SWAPFIRST_SH(1),      ANYSPACE,  Pack1ByteSkip1SwapFirst},
3742
3743
    { CHANNELS_SH(1)|BYTES_SH(1)|FLAVOR_SH(1),                     ANYSPACE,  Pack1ByteReversed},
3744
3745
    { TYPE_LabV2_8,                                                       0,  PackLabV2_8 },
3746
    { TYPE_ALabV2_8,                                                      0,  PackALabV2_8 },
3747
    { TYPE_LabV2_16,                                                      0,  PackLabV2_16 },
3748
3749
    { CHANNELS_SH(3)|BYTES_SH(1)|OPTIMIZED_SH(1),                  ANYSPACE,  Pack3BytesOptimized},
3750
    { CHANNELS_SH(3)|BYTES_SH(1)|EXTRA_SH(1)|OPTIMIZED_SH(1),      ANYSPACE,  Pack3BytesAndSkip1Optimized},
3751
    { CHANNELS_SH(3)|BYTES_SH(1)|EXTRA_SH(1)|SWAPFIRST_SH(1)|OPTIMIZED_SH(1),
3752
                                                                   ANYSPACE,  Pack3BytesAndSkip1SwapFirstOptimized},
3753
    { CHANNELS_SH(3)|BYTES_SH(1)|EXTRA_SH(1)|DOSWAP_SH(1)|SWAPFIRST_SH(1)|OPTIMIZED_SH(1),
3754
                                                                   ANYSPACE,  Pack3BytesAndSkip1SwapSwapFirstOptimized},
3755
    { CHANNELS_SH(3)|BYTES_SH(1)|DOSWAP_SH(1)|EXTRA_SH(1)|OPTIMIZED_SH(1),
3756
                                                                   ANYSPACE,  Pack3BytesAndSkip1SwapOptimized},
3757
    { CHANNELS_SH(3)|BYTES_SH(1)|DOSWAP_SH(1)|OPTIMIZED_SH(1),     ANYSPACE,  Pack3BytesSwapOptimized},
3758
3759
3760
3761
    { CHANNELS_SH(3)|BYTES_SH(1),                                  ANYSPACE,  Pack3Bytes},
3762
    { CHANNELS_SH(3)|BYTES_SH(1)|EXTRA_SH(1),                      ANYSPACE,  Pack3BytesAndSkip1},
3763
    { CHANNELS_SH(3)|BYTES_SH(1)|EXTRA_SH(1)|SWAPFIRST_SH(1),      ANYSPACE,  Pack3BytesAndSkip1SwapFirst},
3764
    { CHANNELS_SH(3)|BYTES_SH(1)|EXTRA_SH(1)|DOSWAP_SH(1)|SWAPFIRST_SH(1),
3765
                                                                   ANYSPACE,  Pack3BytesAndSkip1SwapSwapFirst},
3766
    { CHANNELS_SH(3)|BYTES_SH(1)|DOSWAP_SH(1)|EXTRA_SH(1),         ANYSPACE,  Pack3BytesAndSkip1Swap},
3767
    { CHANNELS_SH(3)|BYTES_SH(1)|DOSWAP_SH(1),                     ANYSPACE,  Pack3BytesSwap},
3768
    { CHANNELS_SH(4)|BYTES_SH(1),                                  ANYSPACE,  Pack4Bytes},
3769
    { CHANNELS_SH(4)|BYTES_SH(1)|FLAVOR_SH(1),                     ANYSPACE,  Pack4BytesReverse},
3770
    { CHANNELS_SH(4)|BYTES_SH(1)|SWAPFIRST_SH(1),                  ANYSPACE,  Pack4BytesSwapFirst},
3771
    { CHANNELS_SH(4)|BYTES_SH(1)|DOSWAP_SH(1),                     ANYSPACE,  Pack4BytesSwap},
3772
    { CHANNELS_SH(4)|BYTES_SH(1)|DOSWAP_SH(1)|SWAPFIRST_SH(1),     ANYSPACE,  Pack4BytesSwapSwapFirst},
3773
    { CHANNELS_SH(6)|BYTES_SH(1),                                  ANYSPACE,  Pack6Bytes},
3774
    { CHANNELS_SH(6)|BYTES_SH(1)|DOSWAP_SH(1),                     ANYSPACE,  Pack6BytesSwap},
3775
3776
    { BYTES_SH(1),    ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|ANYCHANNELS|
3777
                                                          ANYSPACE|ANYPREMUL, PackChunkyBytes},
3778
3779
    { BYTES_SH(1)|PLANAR_SH(1),    ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|
3780
                                              ANYCHANNELS|ANYSPACE|ANYPREMUL, PackPlanarBytes},
3781
        
3782
3783
    { CHANNELS_SH(1)|BYTES_SH(2),                                  ANYSPACE,  Pack1Word},
3784
    { CHANNELS_SH(1)|BYTES_SH(2)|EXTRA_SH(1),                      ANYSPACE,  Pack1WordSkip1},
3785
    { CHANNELS_SH(1)|BYTES_SH(2)|EXTRA_SH(1)|SWAPFIRST_SH(1),      ANYSPACE,  Pack1WordSkip1SwapFirst},
3786
    { CHANNELS_SH(1)|BYTES_SH(2)|FLAVOR_SH(1),                     ANYSPACE,  Pack1WordReversed},
3787
    { CHANNELS_SH(1)|BYTES_SH(2)|ENDIAN16_SH(1),                   ANYSPACE,  Pack1WordBigEndian},
3788
    { CHANNELS_SH(3)|BYTES_SH(2),                                  ANYSPACE,  Pack3Words},
3789
    { CHANNELS_SH(3)|BYTES_SH(2)|DOSWAP_SH(1),                     ANYSPACE,  Pack3WordsSwap},
3790
    { CHANNELS_SH(3)|BYTES_SH(2)|ENDIAN16_SH(1),                   ANYSPACE,  Pack3WordsBigEndian},
3791
    { CHANNELS_SH(3)|BYTES_SH(2)|EXTRA_SH(1),                      ANYSPACE,  Pack3WordsAndSkip1},
3792
    { CHANNELS_SH(3)|BYTES_SH(2)|EXTRA_SH(1)|DOSWAP_SH(1),         ANYSPACE,  Pack3WordsAndSkip1Swap},
3793
    { CHANNELS_SH(3)|BYTES_SH(2)|EXTRA_SH(1)|SWAPFIRST_SH(1),      ANYSPACE,  Pack3WordsAndSkip1SwapFirst},
3794
3795
    { CHANNELS_SH(3)|BYTES_SH(2)|EXTRA_SH(1)|DOSWAP_SH(1)|SWAPFIRST_SH(1),
3796
                                                                   ANYSPACE,  Pack3WordsAndSkip1SwapSwapFirst},
3797
3798
    { CHANNELS_SH(4)|BYTES_SH(2),                                  ANYSPACE,  Pack4Words},
3799
    { CHANNELS_SH(4)|BYTES_SH(2)|FLAVOR_SH(1),                     ANYSPACE,  Pack4WordsReverse},
3800
    { CHANNELS_SH(4)|BYTES_SH(2)|DOSWAP_SH(1),                     ANYSPACE,  Pack4WordsSwap},
3801
    { CHANNELS_SH(4)|BYTES_SH(2)|ENDIAN16_SH(1),                   ANYSPACE,  Pack4WordsBigEndian},
3802
3803
    { CHANNELS_SH(6)|BYTES_SH(2),                                  ANYSPACE,  Pack6Words},
3804
    { CHANNELS_SH(6)|BYTES_SH(2)|DOSWAP_SH(1),                     ANYSPACE,  Pack6WordsSwap},
3805
3806
    { BYTES_SH(2),                  ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYENDIAN|
3807
                                     ANYEXTRA|ANYCHANNELS|ANYSPACE|ANYPREMUL, PackChunkyWords},
3808
    { BYTES_SH(2)|PLANAR_SH(1),     ANYFLAVOR|ANYENDIAN|ANYSWAP|ANYEXTRA|
3809
                                     ANYCHANNELS|ANYSPACE|ANYPREMUL,          PackPlanarWords}
3810
    
3811
};
3812
3813
3814
static const cmsFormattersFloat OutputFormattersFloat[] = {
3815
    //    Type                                          Mask                                 Function
3816
    //  ----------------------------   ---------------------------------------------------  ----------------------------
3817
    {     TYPE_Lab_FLT,                                                ANYPLANAR|ANYEXTRA,   PackLabFloatFromFloat},
3818
    {     TYPE_XYZ_FLT,                                                ANYPLANAR|ANYEXTRA,   PackXYZFloatFromFloat},
3819
3820
    {     TYPE_Lab_DBL,                                                ANYPLANAR|ANYEXTRA,   PackLabDoubleFromFloat},
3821
    {     TYPE_XYZ_DBL,                                                ANYPLANAR|ANYEXTRA,   PackXYZDoubleFromFloat},
3822
3823
    {     TYPE_LabV2_8,                                                ANYPLANAR|ANYEXTRA,   PackEncodedBytesLabV2FromFloat},
3824
    {     TYPE_LabV2_16,                                               ANYPLANAR|ANYEXTRA,   PackEncodedWordsLabV2FromFloat},
3825
3826
    {     FLOAT_SH(1)|BYTES_SH(4), ANYPLANAR|
3827
                             ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|ANYCHANNELS|ANYSPACE,   PackFloatsFromFloat },
3828
    {     FLOAT_SH(1)|BYTES_SH(0), ANYPLANAR|
3829
                             ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|ANYCHANNELS|ANYSPACE,   PackDoublesFromFloat },
3830
3831
    {     BYTES_SH(2), ANYPLANAR|
3832
                             ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|ANYCHANNELS|ANYSPACE,   PackWordsFromFloat },
3833
3834
    {     BYTES_SH(1), ANYPLANAR|
3835
                             ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|ANYCHANNELS|ANYSPACE,   PackBytesFromFloat },
3836
3837
#ifndef CMS_NO_HALF_SUPPORT 
3838
    {     FLOAT_SH(1)|BYTES_SH(2),                                   
3839
                             ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|ANYCHANNELS|ANYSPACE,   PackHalfFromFloat },
3840
#endif
3841
3842
};
3843
3844
3845
// Bit fields set to one in the mask are not compared
3846
static
3847
cmsFormatter _cmsGetStockOutputFormatter(cmsUInt32Number dwInput, cmsUInt32Number dwFlags)
3848
0
{
3849
0
    cmsUInt32Number i;
3850
0
    cmsFormatter fr;
3851
3852
    // Optimization is only a hint
3853
0
    dwInput &= ~OPTIMIZED_SH(1);
3854
3855
0
    switch (dwFlags)
3856
0
    {
3857
3858
0
     case CMS_PACK_FLAGS_16BITS: {
3859
3860
0
        for (i=0; i < sizeof(OutputFormatters16) / sizeof(cmsFormatters16); i++) {
3861
0
            const cmsFormatters16* f = OutputFormatters16 + i;
3862
3863
0
            if ((dwInput & ~f ->Mask) == f ->Type) {
3864
0
                fr.Fmt16 = f ->Frm;
3865
0
                return fr;
3866
0
            }
3867
0
        }
3868
0
        }
3869
0
        break;
3870
3871
0
    case CMS_PACK_FLAGS_FLOAT: {
3872
3873
0
        for (i=0; i < sizeof(OutputFormattersFloat) / sizeof(cmsFormattersFloat); i++) {
3874
0
            const cmsFormattersFloat* f = OutputFormattersFloat + i;
3875
3876
0
            if ((dwInput & ~f ->Mask) == f ->Type) {
3877
0
                fr.FmtFloat = f ->Frm;
3878
0
                return fr;
3879
0
            }
3880
0
        }
3881
0
        }
3882
0
        break;
3883
3884
0
    default:;
3885
3886
0
    }
3887
3888
0
    fr.Fmt16 = NULL;
3889
0
    return fr;
3890
0
}
3891
3892
3893
typedef struct _cms_formatters_factory_list {
3894
3895
    cmsFormatterFactory Factory;
3896
    struct _cms_formatters_factory_list *Next;
3897
3898
} cmsFormattersFactoryList;
3899
3900
_cmsFormattersPluginChunkType _cmsFormattersPluginChunk = { NULL };
3901
3902
3903
// Duplicates the zone of memory used by the plug-in in the new context
3904
static
3905
void DupFormatterFactoryList(struct _cmsContext_struct* ctx, 
3906
                                               const struct _cmsContext_struct* src)
3907
0
{
3908
0
   _cmsFormattersPluginChunkType newHead = { NULL };
3909
0
   cmsFormattersFactoryList*  entry;
3910
0
   cmsFormattersFactoryList*  Anterior = NULL;
3911
0
   _cmsFormattersPluginChunkType* head = (_cmsFormattersPluginChunkType*) src->chunks[FormattersPlugin];
3912
3913
0
     _cmsAssert(head != NULL);
3914
3915
   // Walk the list copying all nodes
3916
0
   for (entry = head->FactoryList;
3917
0
       entry != NULL;
3918
0
       entry = entry ->Next) {
3919
3920
0
           cmsFormattersFactoryList *newEntry = ( cmsFormattersFactoryList *) _cmsSubAllocDup(ctx ->MemPool, entry, sizeof(cmsFormattersFactoryList));
3921
3922
0
           if (newEntry == NULL) 
3923
0
               return;
3924
3925
           // We want to keep the linked list order, so this is a little bit tricky
3926
0
           newEntry -> Next = NULL;
3927
0
           if (Anterior)
3928
0
               Anterior -> Next = newEntry;
3929
3930
0
           Anterior = newEntry;
3931
3932
0
           if (newHead.FactoryList == NULL)
3933
0
               newHead.FactoryList = newEntry;
3934
0
   }
3935
3936
0
   ctx ->chunks[FormattersPlugin] = _cmsSubAllocDup(ctx->MemPool, &newHead, sizeof(_cmsFormattersPluginChunkType));
3937
0
}
3938
3939
// The interpolation plug-in memory chunk allocator/dup
3940
void _cmsAllocFormattersPluginChunk(struct _cmsContext_struct* ctx, 
3941
                                    const struct _cmsContext_struct* src)
3942
0
{
3943
0
      _cmsAssert(ctx != NULL);
3944
3945
0
     if (src != NULL) {
3946
        
3947
         // Duplicate the LIST
3948
0
         DupFormatterFactoryList(ctx, src);
3949
0
     }
3950
0
     else {
3951
0
          static _cmsFormattersPluginChunkType FormattersPluginChunk = { NULL };
3952
0
          ctx ->chunks[FormattersPlugin] = _cmsSubAllocDup(ctx ->MemPool, &FormattersPluginChunk, sizeof(_cmsFormattersPluginChunkType));
3953
0
     }
3954
0
}
3955
3956
3957
3958
// Formatters management
3959
cmsBool  _cmsRegisterFormattersPlugin(cmsContext ContextID, cmsPluginBase* Data)
3960
0
{
3961
0
    _cmsFormattersPluginChunkType* ctx = ( _cmsFormattersPluginChunkType*) _cmsContextGetClientChunk(ContextID, FormattersPlugin);
3962
0
    cmsPluginFormatters* Plugin = (cmsPluginFormatters*) Data;
3963
0
    cmsFormattersFactoryList* fl ;
3964
3965
    // Reset to built-in defaults
3966
0
    if (Data == NULL) {
3967
3968
0
          ctx ->FactoryList = NULL;
3969
0
          return TRUE;
3970
0
    }
3971
3972
0
    fl = (cmsFormattersFactoryList*) _cmsPluginMalloc(ContextID, sizeof(cmsFormattersFactoryList));
3973
0
    if (fl == NULL) return FALSE;
3974
3975
0
    fl ->Factory    = Plugin ->FormattersFactory;
3976
3977
0
    fl ->Next = ctx -> FactoryList;
3978
0
    ctx ->FactoryList = fl;
3979
3980
0
    return TRUE;
3981
0
}
3982
3983
cmsFormatter CMSEXPORT _cmsGetFormatter(cmsContext ContextID,
3984
                                        cmsUInt32Number Type,         // Specific type, i.e. TYPE_RGB_8
3985
                                        cmsFormatterDirection Dir,
3986
                                        cmsUInt32Number dwFlags)
3987
0
{
3988
0
    _cmsFormattersPluginChunkType* ctx = ( _cmsFormattersPluginChunkType*) _cmsContextGetClientChunk(ContextID, FormattersPlugin);
3989
0
    cmsFormattersFactoryList* f;
3990
3991
0
    if (T_CHANNELS(Type) == 0) {
3992
0
        static const cmsFormatter nullFormatter = { 0 };
3993
0
        return nullFormatter;
3994
0
    }
3995
3996
0
    for (f =ctx->FactoryList; f != NULL; f = f ->Next) {
3997
3998
0
        cmsFormatter fn = f ->Factory(Type, Dir, dwFlags);
3999
0
        if (fn.Fmt16 != NULL) return fn;
4000
0
    }
4001
4002
    // Revert to default
4003
0
    if (Dir == cmsFormatterInput)
4004
0
        return _cmsGetStockInputFormatter(Type, dwFlags);
4005
0
    else
4006
0
        return _cmsGetStockOutputFormatter(Type, dwFlags);
4007
0
}
4008
4009
4010
// Return whatever given formatter refers to float values
4011
cmsBool  _cmsFormatterIsFloat(cmsUInt32Number Type)
4012
0
{
4013
0
    return T_FLOAT(Type) ? TRUE : FALSE;
4014
0
}
4015
4016
// Return whatever given formatter refers to 8 bits
4017
cmsBool  _cmsFormatterIs8bit(cmsUInt32Number Type)
4018
0
{
4019
0
    cmsUInt32Number Bytes = T_BYTES(Type);
4020
4021
0
    return (Bytes == 1);
4022
0
}
4023
4024
// Build a suitable formatter for the colorspace of this profile
4025
cmsUInt32Number CMSEXPORT cmsFormatterForColorspaceOfProfile(cmsHPROFILE hProfile, cmsUInt32Number nBytes, cmsBool lIsFloat)
4026
0
{
4027
4028
0
    cmsColorSpaceSignature ColorSpace      = cmsGetColorSpace(hProfile);
4029
0
    cmsUInt32Number        ColorSpaceBits  = (cmsUInt32Number) _cmsLCMScolorSpace(ColorSpace);
4030
0
    cmsInt32Number         nOutputChans    = cmsChannelsOfColorSpace(ColorSpace);
4031
0
    cmsUInt32Number        Float           = lIsFloat ? 1U : 0;
4032
4033
    // Unsupported color space?
4034
0
    if (nOutputChans < 0) return 0;
4035
4036
    // Fix float spaces
4037
0
    nBytes &= 7;
4038
4039
    // Create a fake formatter for result
4040
0
    return FLOAT_SH(Float) | COLORSPACE_SH(ColorSpaceBits) | BYTES_SH(nBytes) | CHANNELS_SH(nOutputChans);
4041
0
}
4042
4043
// Build a suitable formatter for the colorspace of this profile
4044
cmsUInt32Number CMSEXPORT cmsFormatterForPCSOfProfile(cmsHPROFILE hProfile, cmsUInt32Number nBytes, cmsBool lIsFloat)
4045
0
{
4046
4047
0
    cmsColorSpaceSignature ColorSpace = cmsGetPCS(hProfile);
4048
4049
0
    cmsUInt32Number ColorSpaceBits = (cmsUInt32Number) _cmsLCMScolorSpace(ColorSpace);
4050
0
    cmsInt32Number  nOutputChans = cmsChannelsOfColorSpace(ColorSpace);
4051
0
    cmsUInt32Number Float = lIsFloat ? 1U : 0;
4052
4053
    // Unsupported color space?
4054
0
    if (nOutputChans < 0) return 0;
4055
4056
    // Fix float spaces
4057
0
    nBytes &= 7;
4058
4059
    // Create a fake formatter for result
4060
0
    return FLOAT_SH(Float) | COLORSPACE_SH(ColorSpaceBits) | BYTES_SH(nBytes) | CHANNELS_SH(nOutputChans);
4061
0
}
4062