Coverage Report

Created: 2026-09-13 07:02

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