Coverage Report

Created: 2026-11-06 11:29

next uncovered line (L), next uncovered region (R), next uncovered branch (B)
/work/workdir/UnpackedTarball/lcms2/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
0
{
1062
0
    switch (T_COLORSPACE(Type)) {
1063
1064
0
     case PT_CMY:
1065
0
     case PT_CMYK:
1066
0
     case PT_MCH5:
1067
0
     case PT_MCH6:
1068
0
     case PT_MCH7:
1069
0
     case PT_MCH8:
1070
0
     case PT_MCH9:
1071
0
     case PT_MCH10:
1072
0
     case PT_MCH11:
1073
0
     case PT_MCH12:
1074
0
     case PT_MCH13:
1075
0
     case PT_MCH14:
1076
0
     case PT_MCH15: return TRUE;
1077
1078
0
     default: return FALSE;
1079
0
    }
1080
0
}
1081
1082
// Return the size in bytes of a given formatter
1083
cmsINLINE cmsUInt32Number PixelSize(cmsUInt32Number Format)
1084
0
{
1085
0
    cmsUInt32Number fmt_bytes = T_BYTES(Format);
1086
1087
    // For double, the T_BYTES field is zero
1088
0
    if (fmt_bytes == 0)
1089
0
        return sizeof(cmsUInt64Number);
1090
1091
    // Otherwise, it is already correct for all formats
1092
0
    return fmt_bytes;
1093
0
}
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
0
{
1409
1410
0
    cmsUInt32Number nChan = T_CHANNELS(info->InputFormat);
1411
0
    cmsUInt32Number DoSwap = T_DOSWAP(info->InputFormat);
1412
0
    cmsUInt32Number Reverse = T_FLAVOR(info->InputFormat);
1413
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info->InputFormat);
1414
0
    cmsUInt32Number Extra = T_EXTRA(info->InputFormat);
1415
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
1416
0
    cmsUInt32Number Planar = T_PLANAR(info->InputFormat);
1417
0
    cmsUInt32Number Premul = T_PREMUL(info->InputFormat);
1418
0
    cmsFloat64Number v;
1419
0
    cmsUInt32Number i, start = 0;
1420
0
    cmsFloat64Number maximum = IsInkSpace(info ->InputFormat) ? 100.0 : 1.0;
1421
0
    cmsFloat64Number alpha_factor = 1.0;
1422
0
    cmsFloat64Number* ptr = (cmsFloat64Number*)accum;
1423
1424
0
    Stride /= PixelSize(info->InputFormat);
1425
1426
0
    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
0
    if (ExtraFirst)
1435
0
            start = Extra;
1436
1437
0
    for (i=0; i < nChan; i++) {
1438
1439
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
1440
1441
0
        if (Planar)
1442
0
            v = (cmsFloat64Number) ((cmsFloat64Number*) accum)[(i + start)  * Stride];
1443
0
        else
1444
0
            v = (cmsFloat64Number) ((cmsFloat64Number*) accum)[i + start];
1445
1446
1447
0
        if (Premul && alpha_factor > 0)
1448
0
            v /= alpha_factor;
1449
1450
0
        v /= maximum;
1451
1452
0
        wIn[index] = (cmsFloat32Number) (Reverse ? 1.0 - v : v);
1453
0
    }
1454
1455
1456
0
    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
0
    if (T_PLANAR(info -> InputFormat))
1464
0
        return accum + sizeof(cmsFloat64Number);
1465
0
    else
1466
0
        return accum + (nChan + Extra) * sizeof(cmsFloat64Number);
1467
0
}
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
0
{
1478
0
    cmsFloat64Number* Pt = (cmsFloat64Number*) accum;
1479
1480
0
    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
0
    else {
1491
1492
0
        wIn[0] = (cmsFloat32Number) (Pt[0] / 100.0);            // from 0..100 to 0..1
1493
0
        wIn[1] = (cmsFloat32Number) ((Pt[1] + 128) / 255.0);    // form -128..+127 to 0..1
1494
0
        wIn[2] = (cmsFloat32Number) ((Pt[2] + 128) / 255.0);
1495
1496
0
        accum += sizeof(cmsFloat64Number)*(3 + T_EXTRA(info ->InputFormat));
1497
0
        return accum;
1498
0
    }
1499
0
}
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
0
{
1538
0
    cmsFloat64Number* Pt = (cmsFloat64Number*) accum;
1539
1540
0
    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
0
    else {
1551
1552
0
        wIn[0] = (cmsFloat32Number) (Pt[0] / MAX_ENCODEABLE_XYZ);
1553
0
        wIn[1] = (cmsFloat32Number) (Pt[1] / MAX_ENCODEABLE_XYZ);
1554
0
        wIn[2] = (cmsFloat32Number) (Pt[2] / MAX_ENCODEABLE_XYZ);
1555
1556
0
        accum += sizeof(cmsFloat64Number)*(3 + T_EXTRA(info ->InputFormat));
1557
0
        return accum;
1558
0
    }
1559
0
}
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
        Stride /= PixelSize(info->OutputFormat);
2739
2740
0
        Out[0]        = Lab.L;
2741
0
        Out[Stride]   = Lab.a;
2742
0
        Out[Stride*2] = Lab.b;
2743
2744
0
        return output + sizeof(cmsFloat64Number);
2745
0
    }
2746
0
    else {
2747
2748
0
        cmsLabEncoded2Float((cmsCIELab*) output, wOut);
2749
0
        return output + (sizeof(cmsCIELab) + T_EXTRA(info ->OutputFormat) * sizeof(cmsFloat64Number));
2750
0
    }
2751
0
}
2752
2753
2754
static
2755
cmsUInt8Number* PackLabFloatFrom16(CMSREGISTER _cmsTRANSFORM* info,
2756
                                    CMSREGISTER cmsUInt16Number wOut[],
2757
                                    CMSREGISTER cmsUInt8Number* output,
2758
                                    CMSREGISTER cmsUInt32Number Stride)
2759
0
{
2760
0
    cmsCIELab  Lab;
2761
0
    cmsLabEncoded2Float(&Lab, wOut);
2762
2763
0
    if (T_PLANAR(info -> OutputFormat)) {
2764
       
2765
0
        cmsFloat32Number* Out = (cmsFloat32Number*) output;
2766
    
2767
0
        Stride /= PixelSize(info->OutputFormat);
2768
2769
0
        Out[0]        = (cmsFloat32Number)Lab.L;
2770
0
        Out[Stride]   = (cmsFloat32Number)Lab.a;
2771
0
        Out[Stride*2] = (cmsFloat32Number)Lab.b;
2772
2773
0
        return output + sizeof(cmsFloat32Number);
2774
0
    }
2775
0
    else {
2776
2777
0
       ((cmsFloat32Number*) output)[0] = (cmsFloat32Number) Lab.L;
2778
0
       ((cmsFloat32Number*) output)[1] = (cmsFloat32Number) Lab.a;
2779
0
       ((cmsFloat32Number*) output)[2] = (cmsFloat32Number) Lab.b;
2780
2781
0
        return output + (3 + T_EXTRA(info ->OutputFormat)) * sizeof(cmsFloat32Number);
2782
0
    }
2783
0
}
2784
2785
static
2786
cmsUInt8Number* PackXYZDoubleFrom16(CMSREGISTER _cmsTRANSFORM* Info,
2787
                                    CMSREGISTER cmsUInt16Number wOut[],
2788
                                    CMSREGISTER cmsUInt8Number* output,
2789
                                    CMSREGISTER cmsUInt32Number Stride)
2790
0
{
2791
0
    if (T_PLANAR(Info -> OutputFormat)) {
2792
2793
0
        cmsCIEXYZ XYZ;
2794
0
        cmsFloat64Number* Out = (cmsFloat64Number*) output;
2795
0
        cmsXYZEncoded2Float(&XYZ, wOut);
2796
2797
0
        Stride /= PixelSize(Info->OutputFormat);
2798
2799
0
        Out[0]        = XYZ.X;
2800
0
        Out[Stride]   = XYZ.Y;
2801
0
        Out[Stride*2] = XYZ.Z;
2802
2803
0
        return output + sizeof(cmsFloat64Number);
2804
2805
0
    }
2806
0
    else {
2807
2808
0
        cmsXYZEncoded2Float((cmsCIEXYZ*) output, wOut);
2809
2810
0
        return output + (sizeof(cmsCIEXYZ) + T_EXTRA(Info ->OutputFormat) * sizeof(cmsFloat64Number));
2811
0
    }
2812
0
}
2813
2814
static
2815
cmsUInt8Number* PackXYZFloatFrom16(CMSREGISTER _cmsTRANSFORM* Info,
2816
                                   CMSREGISTER cmsUInt16Number wOut[],
2817
                                   CMSREGISTER cmsUInt8Number* output,
2818
                                   CMSREGISTER cmsUInt32Number Stride)
2819
0
{
2820
0
    if (T_PLANAR(Info -> OutputFormat)) {
2821
2822
0
        cmsCIEXYZ XYZ;
2823
0
        cmsFloat32Number* Out = (cmsFloat32Number*) output;
2824
0
        cmsXYZEncoded2Float(&XYZ, wOut);
2825
2826
0
        Stride /= PixelSize(Info->OutputFormat);
2827
2828
0
        Out[0]        = (cmsFloat32Number) XYZ.X;
2829
0
        Out[Stride]   = (cmsFloat32Number) XYZ.Y;
2830
0
        Out[Stride*2] = (cmsFloat32Number) XYZ.Z;
2831
2832
0
        return output + sizeof(cmsFloat32Number);
2833
2834
0
    }
2835
0
    else {
2836
2837
0
        cmsCIEXYZ XYZ;
2838
0
        cmsFloat32Number* Out = (cmsFloat32Number*) output;
2839
0
        cmsXYZEncoded2Float(&XYZ, wOut);
2840
2841
0
        Out[0] = (cmsFloat32Number) XYZ.X;
2842
0
        Out[1] = (cmsFloat32Number) XYZ.Y;
2843
0
        Out[2] = (cmsFloat32Number) XYZ.Z;
2844
2845
0
        return output + (3 * sizeof(cmsFloat32Number) + T_EXTRA(Info ->OutputFormat) * sizeof(cmsFloat32Number));
2846
0
    }
2847
0
}
2848
2849
static
2850
cmsUInt8Number* PackDoubleFrom16(CMSREGISTER _cmsTRANSFORM* info,
2851
                                CMSREGISTER cmsUInt16Number wOut[],
2852
                                CMSREGISTER cmsUInt8Number* output,
2853
                                CMSREGISTER cmsUInt32Number Stride)
2854
0
{
2855
0
    cmsUInt32Number nChan      = T_CHANNELS(info -> OutputFormat);
2856
0
    cmsUInt32Number DoSwap     = T_DOSWAP(info ->OutputFormat);
2857
0
    cmsUInt32Number Reverse    = T_FLAVOR(info ->OutputFormat);
2858
0
    cmsUInt32Number Extra      = T_EXTRA(info -> OutputFormat);
2859
0
    cmsUInt32Number SwapFirst  = T_SWAPFIRST(info -> OutputFormat);
2860
0
    cmsUInt32Number Planar     = T_PLANAR(info -> OutputFormat);
2861
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
2862
0
    cmsFloat64Number maximum = IsInkSpace(info ->OutputFormat) ? 655.35 : 65535.0;
2863
0
    cmsFloat64Number v = 0;
2864
0
    cmsFloat64Number* swap1 = (cmsFloat64Number*) output;
2865
0
    cmsUInt32Number i, start = 0;
2866
2867
0
    Stride /= PixelSize(info->OutputFormat);
2868
2869
0
    if (ExtraFirst)
2870
0
        start = Extra;
2871
2872
0
    for (i=0; i < nChan; i++) {
2873
2874
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
2875
2876
0
        v = (cmsFloat64Number) wOut[index] / maximum;
2877
2878
0
        if (Reverse)
2879
0
            v = maximum - v;
2880
2881
0
        if (Planar)
2882
0
            ((cmsFloat64Number*) output)[(i + start)  * Stride]= v;
2883
0
        else
2884
0
            ((cmsFloat64Number*) output)[i + start] = v;
2885
0
    }
2886
2887
2888
0
    if (Extra == 0 && SwapFirst) {
2889
2890
0
         memmove(swap1 + 1, swap1, (nChan-1)* sizeof(cmsFloat64Number));
2891
0
        *swap1 = v;
2892
0
    }
2893
2894
0
    if (T_PLANAR(info -> OutputFormat))
2895
0
        return output + sizeof(cmsFloat64Number);
2896
0
    else
2897
0
        return output + (nChan + Extra) * sizeof(cmsFloat64Number);
2898
2899
0
}
2900
2901
2902
static
2903
cmsUInt8Number* PackFloatFrom16(CMSREGISTER _cmsTRANSFORM* info,
2904
                                CMSREGISTER cmsUInt16Number wOut[],
2905
                                CMSREGISTER cmsUInt8Number* output,
2906
                                CMSREGISTER cmsUInt32Number Stride)
2907
0
{
2908
0
       cmsUInt32Number nChan      = T_CHANNELS(info->OutputFormat);
2909
0
       cmsUInt32Number DoSwap     = T_DOSWAP(info->OutputFormat);
2910
0
       cmsUInt32Number Reverse    = T_FLAVOR(info->OutputFormat);
2911
0
       cmsUInt32Number Extra      = T_EXTRA(info->OutputFormat);
2912
0
       cmsUInt32Number SwapFirst  = T_SWAPFIRST(info->OutputFormat);
2913
0
       cmsUInt32Number Planar     = T_PLANAR(info->OutputFormat);
2914
0
       cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
2915
0
       cmsFloat64Number maximum = IsInkSpace(info->OutputFormat) ? 655.35 : 65535.0;
2916
0
       cmsFloat64Number v = 0;
2917
0
       cmsFloat32Number* swap1 = (cmsFloat32Number*)output;
2918
0
       cmsUInt32Number i, start = 0;
2919
2920
0
       Stride /= PixelSize(info->OutputFormat);
2921
2922
0
       if (ExtraFirst)
2923
0
              start = Extra;
2924
2925
0
       for (i = 0; i < nChan; i++) {
2926
2927
0
              cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
2928
2929
0
              v = (cmsFloat64Number)wOut[index] / maximum;
2930
2931
0
              if (Reverse)
2932
0
                     v = maximum - v;
2933
2934
0
              if (Planar)
2935
0
                     ((cmsFloat32Number*)output)[(i + start) * Stride] = (cmsFloat32Number)v;
2936
0
              else
2937
0
                     ((cmsFloat32Number*)output)[i + start] = (cmsFloat32Number)v;
2938
0
       }
2939
2940
       
2941
0
       if (Extra == 0 && SwapFirst) {
2942
2943
0
              memmove(swap1 + 1, swap1, (nChan - 1)* sizeof(cmsFloat32Number));
2944
0
              *swap1 = (cmsFloat32Number)v;
2945
0
       }
2946
2947
0
       if (T_PLANAR(info->OutputFormat))
2948
0
              return output + sizeof(cmsFloat32Number);
2949
0
       else
2950
0
              return output + (nChan + Extra) * sizeof(cmsFloat32Number);
2951
0
}
2952
2953
2954
2955
// --------------------------------------------------------------------------------------------------------
2956
2957
static
2958
cmsUInt8Number* PackBytesFromFloat(_cmsTRANSFORM* info,
2959
                                    cmsFloat32Number wOut[],
2960
                                    cmsUInt8Number* output,
2961
                                    cmsUInt32Number Stride)
2962
0
{
2963
0
    cmsUInt32Number nChan = T_CHANNELS(info->OutputFormat);
2964
0
    cmsUInt32Number DoSwap = T_DOSWAP(info->OutputFormat);
2965
0
    cmsUInt32Number Reverse = T_FLAVOR(info->OutputFormat);
2966
0
    cmsUInt32Number Extra = T_EXTRA(info->OutputFormat);
2967
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info->OutputFormat);
2968
0
    cmsUInt32Number Planar = T_PLANAR(info->OutputFormat);
2969
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;    
2970
0
    cmsUInt8Number* swap1 = (cmsUInt8Number*)output;
2971
0
    cmsFloat64Number v = 0;
2972
0
    cmsUInt8Number vv = 0;
2973
0
    cmsUInt32Number i, start = 0;
2974
    
2975
0
    if (ExtraFirst)
2976
0
        start = Extra;
2977
2978
0
    for (i = 0; i < nChan; i++) {
2979
2980
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
2981
2982
0
        v = wOut[index] * 65535.0;
2983
2984
0
        if (Reverse)
2985
0
            v = 65535.0 - v;
2986
        
2987
0
        vv =  FROM_16_TO_8(_cmsQuickSaturateWord(v));
2988
2989
0
        if (Planar)
2990
0
            ((cmsUInt8Number*)output)[(i + start) * Stride] = vv;
2991
0
        else
2992
0
            ((cmsUInt8Number*)output)[i + start] = vv;
2993
0
    }
2994
2995
2996
0
    if (Extra == 0 && SwapFirst) {
2997
2998
0
        memmove(swap1 + 1, swap1, (nChan - 1) * sizeof(cmsUInt8Number));
2999
0
        *swap1 = vv;
3000
0
    }
3001
3002
0
    if (T_PLANAR(info->OutputFormat))
3003
0
        return output + sizeof(cmsUInt8Number);
3004
0
    else
3005
0
        return output + (nChan + Extra) * sizeof(cmsUInt8Number);
3006
0
}
3007
3008
static
3009
cmsUInt8Number* PackWordsFromFloat(_cmsTRANSFORM* info,
3010
                                    cmsFloat32Number wOut[],
3011
                                    cmsUInt8Number* output,
3012
                                    cmsUInt32Number Stride)
3013
0
{
3014
0
    cmsUInt32Number nChan = T_CHANNELS(info->OutputFormat);
3015
0
    cmsUInt32Number DoSwap = T_DOSWAP(info->OutputFormat);
3016
0
    cmsUInt32Number Reverse = T_FLAVOR(info->OutputFormat);
3017
0
    cmsUInt32Number Extra = T_EXTRA(info->OutputFormat);
3018
0
    cmsUInt32Number SwapFirst = T_SWAPFIRST(info->OutputFormat);
3019
0
    cmsUInt32Number Planar = T_PLANAR(info->OutputFormat);
3020
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;    
3021
0
    cmsUInt16Number* swap1 = (cmsUInt16Number*)output;
3022
0
    cmsFloat64Number v = 0;
3023
0
    cmsUInt16Number vv = 0;
3024
0
    cmsUInt32Number i, start = 0;
3025
    
3026
0
    if (ExtraFirst)
3027
0
        start = Extra;
3028
3029
0
    Stride /= 2;
3030
0
    for (i = 0; i < nChan; i++) {
3031
3032
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
3033
3034
0
        v = wOut[index] * 65535.0;
3035
3036
0
        if (Reverse)
3037
0
            v = 65535.0 - v;
3038
3039
0
        vv = _cmsQuickSaturateWord(v);
3040
3041
0
        if (Planar)
3042
0
            ((cmsUInt16Number*)output)[(i + start) * Stride] = vv;
3043
0
        else
3044
0
            ((cmsUInt16Number*)output)[i + start] = vv;
3045
0
    }
3046
3047
0
    if (Extra == 0 && SwapFirst) {
3048
3049
0
        memmove(swap1 + 1, swap1, (nChan - 1) * sizeof(cmsUInt16Number));
3050
0
        *swap1 = vv;
3051
0
    }
3052
3053
0
    if (T_PLANAR(info->OutputFormat))
3054
0
        return output + sizeof(cmsUInt16Number);
3055
0
    else
3056
0
        return output + (nChan + Extra) * sizeof(cmsUInt16Number);
3057
0
}
3058
3059
3060
static
3061
cmsUInt8Number* PackFloatsFromFloat(_cmsTRANSFORM* info,
3062
                                    cmsFloat32Number wOut[],
3063
                                    cmsUInt8Number* output,
3064
                                    cmsUInt32Number Stride)
3065
0
{
3066
0
       cmsUInt32Number nChan = T_CHANNELS(info->OutputFormat);
3067
0
       cmsUInt32Number DoSwap = T_DOSWAP(info->OutputFormat);
3068
0
       cmsUInt32Number Reverse = T_FLAVOR(info->OutputFormat);
3069
0
       cmsUInt32Number Extra = T_EXTRA(info->OutputFormat);
3070
0
       cmsUInt32Number SwapFirst = T_SWAPFIRST(info->OutputFormat);
3071
0
       cmsUInt32Number Planar = T_PLANAR(info->OutputFormat);
3072
0
       cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
3073
0
       cmsFloat64Number maximum = IsInkSpace(info->OutputFormat) ? 100.0 : 1.0;
3074
0
       cmsFloat32Number* swap1 = (cmsFloat32Number*)output;
3075
0
       cmsFloat64Number v = 0;
3076
0
       cmsUInt32Number i, start = 0;
3077
3078
0
       Stride /= PixelSize(info->OutputFormat);
3079
3080
0
       if (ExtraFirst)
3081
0
              start = Extra;
3082
3083
0
       for (i = 0; i < nChan; i++) {
3084
3085
0
              cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
3086
3087
0
              v = wOut[index] * maximum;
3088
3089
0
              if (Reverse)
3090
0
                     v = maximum - v;
3091
3092
0
              if (Planar)
3093
0
                     ((cmsFloat32Number*)output)[(i + start) * Stride] = (cmsFloat32Number)v;
3094
0
              else
3095
0
                     ((cmsFloat32Number*)output)[i + start] = (cmsFloat32Number)v;
3096
0
       }
3097
3098
3099
0
       if (Extra == 0 && SwapFirst) {
3100
3101
0
              memmove(swap1 + 1, swap1, (nChan - 1)* sizeof(cmsFloat32Number));
3102
0
              *swap1 = (cmsFloat32Number)v;
3103
0
       }
3104
3105
0
       if (T_PLANAR(info->OutputFormat))
3106
0
              return output + sizeof(cmsFloat32Number);
3107
0
       else
3108
0
              return output + (nChan + Extra) * sizeof(cmsFloat32Number);
3109
0
}
3110
3111
static
3112
cmsUInt8Number* PackDoublesFromFloat(_cmsTRANSFORM* info,
3113
                                    cmsFloat32Number wOut[],
3114
                                    cmsUInt8Number* output,
3115
                                    cmsUInt32Number Stride)
3116
0
{
3117
0
       cmsUInt32Number nChan      = T_CHANNELS(info->OutputFormat);
3118
0
       cmsUInt32Number DoSwap     = T_DOSWAP(info->OutputFormat);
3119
0
       cmsUInt32Number Reverse    = T_FLAVOR(info->OutputFormat);
3120
0
       cmsUInt32Number Extra      = T_EXTRA(info->OutputFormat);
3121
0
       cmsUInt32Number SwapFirst  = T_SWAPFIRST(info->OutputFormat);
3122
0
       cmsUInt32Number Planar     = T_PLANAR(info->OutputFormat);
3123
0
       cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
3124
0
       cmsFloat64Number maximum = IsInkSpace(info->OutputFormat) ? 100.0 : 1.0;
3125
0
       cmsFloat64Number v = 0;
3126
0
       cmsFloat64Number* swap1 = (cmsFloat64Number*)output;
3127
0
       cmsUInt32Number i, start = 0;
3128
3129
0
       Stride /= PixelSize(info->OutputFormat);
3130
3131
0
       if (ExtraFirst)
3132
0
              start = Extra;
3133
3134
0
       for (i = 0; i < nChan; i++) {
3135
3136
0
              cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
3137
3138
0
              v = wOut[index] * maximum;
3139
3140
0
              if (Reverse)
3141
0
                     v = maximum - v;
3142
3143
0
              if (Planar)
3144
0
                     ((cmsFloat64Number*)output)[(i + start) * Stride] = v;
3145
0
              else
3146
0
                     ((cmsFloat64Number*)output)[i + start] = v;
3147
0
       }
3148
3149
0
       if (Extra == 0 && SwapFirst) {
3150
3151
0
              memmove(swap1 + 1, swap1, (nChan - 1)* sizeof(cmsFloat64Number));
3152
0
              *swap1 = v;
3153
0
       }
3154
3155
3156
0
       if (T_PLANAR(info->OutputFormat))
3157
0
              return output + sizeof(cmsFloat64Number);
3158
0
       else
3159
0
              return output + (nChan + Extra) * sizeof(cmsFloat64Number);
3160
3161
0
}
3162
3163
static
3164
cmsUInt8Number* PackLabFloatFromFloat(_cmsTRANSFORM* Info,
3165
                                      cmsFloat32Number wOut[],
3166
                                      cmsUInt8Number* output,
3167
                                      cmsUInt32Number Stride)
3168
0
{
3169
0
    cmsFloat32Number* Out = (cmsFloat32Number*) output;
3170
3171
0
    if (T_PLANAR(Info -> OutputFormat)) {
3172
3173
0
        Stride /= PixelSize(Info->OutputFormat);
3174
3175
0
        Out[0]        = (cmsFloat32Number) (wOut[0] * 100.0);
3176
0
        Out[Stride]   = (cmsFloat32Number) (wOut[1] * 255.0 - 128.0);
3177
0
        Out[Stride*2] = (cmsFloat32Number) (wOut[2] * 255.0 - 128.0);
3178
3179
0
        return output + sizeof(cmsFloat32Number);
3180
0
    }
3181
0
    else {
3182
3183
0
        Out[0] = (cmsFloat32Number) (wOut[0] * 100.0);
3184
0
        Out[1] = (cmsFloat32Number) (wOut[1] * 255.0 - 128.0);
3185
0
        Out[2] = (cmsFloat32Number) (wOut[2] * 255.0 - 128.0);
3186
3187
0
        return output + (sizeof(cmsFloat32Number)*3 + T_EXTRA(Info ->OutputFormat) * sizeof(cmsFloat32Number));
3188
0
    }
3189
3190
0
}
3191
3192
3193
static
3194
cmsUInt8Number* PackLabDoubleFromFloat(_cmsTRANSFORM* Info,
3195
                                       cmsFloat32Number wOut[],
3196
                                       cmsUInt8Number* output,
3197
                                       cmsUInt32Number Stride)
3198
0
{
3199
0
    cmsFloat64Number* Out = (cmsFloat64Number*) output;
3200
3201
0
    if (T_PLANAR(Info -> OutputFormat)) {
3202
3203
0
        Stride /= PixelSize(Info->OutputFormat);
3204
3205
0
        Out[0]        = (cmsFloat64Number) (wOut[0] * 100.0);
3206
0
        Out[Stride]   = (cmsFloat64Number) (wOut[1] * 255.0 - 128.0);
3207
0
        Out[Stride*2] = (cmsFloat64Number) (wOut[2] * 255.0 - 128.0);
3208
3209
0
        return output + sizeof(cmsFloat64Number);
3210
0
    }
3211
0
    else {
3212
3213
0
        Out[0] = (cmsFloat64Number) (wOut[0] * 100.0);
3214
0
        Out[1] = (cmsFloat64Number) (wOut[1] * 255.0 - 128.0);
3215
0
        Out[2] = (cmsFloat64Number) (wOut[2] * 255.0 - 128.0);
3216
3217
0
        return output + (sizeof(cmsFloat64Number)*3 + T_EXTRA(Info ->OutputFormat) * sizeof(cmsFloat64Number));
3218
0
    }
3219
3220
0
}
3221
3222
3223
static
3224
cmsUInt8Number* PackEncodedBytesLabV2FromFloat(_cmsTRANSFORM* Info,
3225
                                           cmsFloat32Number wOut[],
3226
                                           cmsUInt8Number* output,
3227
                                           cmsUInt32Number Stride)
3228
0
{    
3229
0
    cmsCIELab Lab;
3230
0
    cmsUInt16Number wlab[3];
3231
3232
0
    Lab.L = (cmsFloat64Number)(wOut[0] * 100.0);
3233
0
    Lab.a = (cmsFloat64Number)(wOut[1] * 255.0 - 128.0);
3234
0
    Lab.b = (cmsFloat64Number)(wOut[2] * 255.0 - 128.0);
3235
3236
0
    cmsFloat2LabEncoded(wlab, &Lab);
3237
    
3238
0
    if (T_PLANAR(Info -> OutputFormat)) {
3239
3240
0
        Stride /= PixelSize(Info->OutputFormat);       
3241
    
3242
0
        output[0]        = wlab[0] >> 8;
3243
0
        output[Stride]   = wlab[1] >> 8;
3244
0
        output[Stride*2] = wlab[2] >> 8;
3245
3246
0
        return output + 1;
3247
0
    }
3248
0
    else {
3249
3250
0
        output[0] = wlab[0] >> 8;
3251
0
        output[1] = wlab[1] >> 8;
3252
0
        output[2] = wlab[2] >> 8;
3253
3254
0
        return output + (3 + T_EXTRA(Info ->OutputFormat));
3255
0
    }
3256
0
}
3257
3258
static
3259
cmsUInt8Number* PackEncodedWordsLabV2FromFloat(_cmsTRANSFORM* Info,
3260
                                           cmsFloat32Number wOut[],
3261
                                           cmsUInt8Number* output,
3262
                                           cmsUInt32Number Stride)
3263
0
{    
3264
0
    cmsCIELab Lab;
3265
0
    cmsUInt16Number wlab[3];
3266
3267
0
    Lab.L = (cmsFloat64Number)(wOut[0] * 100.0);
3268
0
    Lab.a = (cmsFloat64Number)(wOut[1] * 255.0 - 128.0);
3269
0
    Lab.b = (cmsFloat64Number)(wOut[2] * 255.0 - 128.0);
3270
3271
0
    cmsFloat2LabEncodedV2(wlab, &Lab);
3272
    
3273
0
    if (T_PLANAR(Info -> OutputFormat)) {
3274
3275
0
        Stride /= PixelSize(Info->OutputFormat);       
3276
    
3277
0
        ((cmsUInt16Number*) output)[0]        = wlab[0];
3278
0
        ((cmsUInt16Number*) output)[Stride]   = wlab[1];
3279
0
        ((cmsUInt16Number*) output)[Stride*2] = wlab[2];
3280
3281
0
        return output + sizeof(cmsUInt16Number);
3282
0
    }
3283
0
    else {
3284
3285
0
         ((cmsUInt16Number*) output)[0] = wlab[0];
3286
0
         ((cmsUInt16Number*) output)[1] = wlab[1];
3287
0
         ((cmsUInt16Number*) output)[2] = wlab[2];
3288
3289
0
        return output + (3 + T_EXTRA(Info ->OutputFormat)) * sizeof(cmsUInt16Number);
3290
0
    }
3291
0
}
3292
3293
3294
// From 0..1 range to 0..MAX_ENCODEABLE_XYZ
3295
static
3296
cmsUInt8Number* PackXYZFloatFromFloat(_cmsTRANSFORM* Info,
3297
                                      cmsFloat32Number wOut[],
3298
                                      cmsUInt8Number* output,
3299
                                      cmsUInt32Number Stride)
3300
0
{
3301
0
    cmsFloat32Number* Out = (cmsFloat32Number*) output;
3302
3303
0
    if (T_PLANAR(Info -> OutputFormat)) {
3304
3305
0
        Stride /= PixelSize(Info->OutputFormat);
3306
3307
0
        Out[0]        = (cmsFloat32Number) (wOut[0] * MAX_ENCODEABLE_XYZ);
3308
0
        Out[Stride]   = (cmsFloat32Number) (wOut[1] * MAX_ENCODEABLE_XYZ);
3309
0
        Out[Stride*2] = (cmsFloat32Number) (wOut[2] * MAX_ENCODEABLE_XYZ);
3310
3311
0
        return output + sizeof(cmsFloat32Number);
3312
0
    }
3313
0
    else {
3314
3315
0
        Out[0] = (cmsFloat32Number) (wOut[0] * MAX_ENCODEABLE_XYZ);
3316
0
        Out[1] = (cmsFloat32Number) (wOut[1] * MAX_ENCODEABLE_XYZ);
3317
0
        Out[2] = (cmsFloat32Number) (wOut[2] * MAX_ENCODEABLE_XYZ);
3318
3319
0
        return output + (sizeof(cmsFloat32Number)*3 + T_EXTRA(Info ->OutputFormat) * sizeof(cmsFloat32Number));
3320
0
    }
3321
3322
0
}
3323
3324
// Same, but convert to double
3325
static
3326
cmsUInt8Number* PackXYZDoubleFromFloat(_cmsTRANSFORM* Info,
3327
                                       cmsFloat32Number wOut[],
3328
                                       cmsUInt8Number* output,
3329
                                       cmsUInt32Number Stride)
3330
0
{
3331
0
    cmsFloat64Number* Out = (cmsFloat64Number*) output;
3332
3333
0
    if (T_PLANAR(Info -> OutputFormat)) {
3334
3335
0
        Stride /= PixelSize(Info->OutputFormat);
3336
3337
0
        Out[0]        = (cmsFloat64Number) (wOut[0] * MAX_ENCODEABLE_XYZ);
3338
0
        Out[Stride]   = (cmsFloat64Number) (wOut[1] * MAX_ENCODEABLE_XYZ);
3339
0
        Out[Stride*2] = (cmsFloat64Number) (wOut[2] * MAX_ENCODEABLE_XYZ);
3340
3341
0
        return output + sizeof(cmsFloat64Number);
3342
0
    }
3343
0
    else {
3344
3345
0
        Out[0] = (cmsFloat64Number) (wOut[0] * MAX_ENCODEABLE_XYZ);
3346
0
        Out[1] = (cmsFloat64Number) (wOut[1] * MAX_ENCODEABLE_XYZ);
3347
0
        Out[2] = (cmsFloat64Number) (wOut[2] * MAX_ENCODEABLE_XYZ);
3348
3349
0
        return output + (sizeof(cmsFloat64Number)*3 + T_EXTRA(Info ->OutputFormat) * sizeof(cmsFloat64Number));
3350
0
    }
3351
3352
0
}
3353
3354
3355
// ----------------------------------------------------------------------------------------------------------------
3356
3357
#ifndef CMS_NO_HALF_SUPPORT 
3358
3359
// Decodes an stream of half floats to wIn[] described by input format
3360
3361
static
3362
cmsUInt8Number* UnrollHalfTo16(CMSREGISTER _cmsTRANSFORM* info,
3363
                                CMSREGISTER cmsUInt16Number wIn[],
3364
                                CMSREGISTER cmsUInt8Number* accum,
3365
                                CMSREGISTER cmsUInt32Number Stride)
3366
0
{
3367
3368
0
    cmsUInt32Number nChan      = T_CHANNELS(info -> InputFormat);
3369
0
    cmsUInt32Number DoSwap     = T_DOSWAP(info ->InputFormat);
3370
0
    cmsUInt32Number Reverse    = T_FLAVOR(info ->InputFormat);
3371
0
    cmsUInt32Number SwapFirst  = T_SWAPFIRST(info -> InputFormat);
3372
0
    cmsUInt32Number Extra      = T_EXTRA(info -> InputFormat);
3373
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
3374
0
    cmsUInt32Number Planar     = T_PLANAR(info -> InputFormat);
3375
0
    cmsFloat32Number v;
3376
0
    cmsUInt32Number i, start = 0;
3377
0
    cmsFloat32Number maximum = IsInkSpace(info ->InputFormat) ? 655.35F : 65535.0F;
3378
3379
3380
0
    Stride /= PixelSize(info->InputFormat);
3381
3382
0
    if (ExtraFirst)
3383
0
            start = Extra;
3384
3385
0
    for (i=0; i < nChan; i++) {
3386
3387
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
3388
3389
0
        if (Planar)
3390
0
            v = _cmsHalf2Float ( ((cmsUInt16Number*) accum)[(i + start) * Stride] );
3391
0
        else
3392
0
            v = _cmsHalf2Float ( ((cmsUInt16Number*) accum)[i + start] ) ;
3393
3394
0
        if (Reverse) v = maximum - v;
3395
3396
0
        wIn[index] = _cmsQuickSaturateWord((cmsFloat64Number) v * maximum);
3397
0
    }
3398
3399
3400
0
    if (Extra == 0 && SwapFirst) {
3401
0
        cmsUInt16Number tmp = wIn[0];
3402
3403
0
        memmove(&wIn[0], &wIn[1], (nChan-1) * sizeof(cmsUInt16Number));
3404
0
        wIn[nChan-1] = tmp;
3405
0
    }
3406
3407
0
    if (T_PLANAR(info -> InputFormat))
3408
0
        return accum + sizeof(cmsUInt16Number);
3409
0
    else
3410
0
        return accum + (nChan + Extra) * sizeof(cmsUInt16Number);
3411
0
}
3412
3413
// Decodes an stream of half floats to wIn[] described by input format
3414
3415
static
3416
cmsUInt8Number* UnrollHalfToFloat(_cmsTRANSFORM* info,
3417
                                    cmsFloat32Number wIn[],
3418
                                    cmsUInt8Number* accum,
3419
                                    cmsUInt32Number Stride)
3420
0
{
3421
3422
0
    cmsUInt32Number nChan      = T_CHANNELS(info -> InputFormat);
3423
0
    cmsUInt32Number DoSwap     = T_DOSWAP(info ->InputFormat);
3424
0
    cmsUInt32Number Reverse    = T_FLAVOR(info ->InputFormat);
3425
0
    cmsUInt32Number SwapFirst  = T_SWAPFIRST(info -> InputFormat);
3426
0
    cmsUInt32Number Extra      = T_EXTRA(info -> InputFormat);
3427
0
    cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
3428
0
    cmsUInt32Number Planar     = T_PLANAR(info -> InputFormat);
3429
0
    cmsFloat32Number v;
3430
0
    cmsUInt32Number i, start = 0;
3431
0
    cmsFloat32Number maximum = IsInkSpace(info ->InputFormat) ? 100.0F : 1.0F;
3432
3433
0
    Stride /= PixelSize(info->InputFormat);
3434
3435
0
    if (ExtraFirst)
3436
0
            start = Extra;
3437
3438
0
    for (i=0; i < nChan; i++) {
3439
3440
0
        cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
3441
3442
0
        if (Planar)
3443
0
            v =  _cmsHalf2Float ( ((cmsUInt16Number*) accum)[(i + start) * Stride] );
3444
0
        else
3445
0
            v =  _cmsHalf2Float ( ((cmsUInt16Number*) accum)[i + start] ) ;
3446
3447
0
        v /= maximum;
3448
3449
0
        wIn[index] = Reverse ? 1 - v : v;
3450
0
    }
3451
3452
3453
0
    if (Extra == 0 && SwapFirst) {
3454
0
        cmsFloat32Number tmp = wIn[0];
3455
3456
0
        memmove(&wIn[0], &wIn[1], (nChan-1) * sizeof(cmsFloat32Number));
3457
0
        wIn[nChan-1] = tmp;
3458
0
    }
3459
3460
0
    if (T_PLANAR(info -> InputFormat))
3461
0
        return accum + sizeof(cmsUInt16Number);
3462
0
    else
3463
0
        return accum + (nChan + Extra) * sizeof(cmsUInt16Number);
3464
0
}
3465
3466
3467
static
3468
cmsUInt8Number* PackHalfFrom16(CMSREGISTER _cmsTRANSFORM* info,
3469
                                CMSREGISTER cmsUInt16Number wOut[],
3470
                                CMSREGISTER cmsUInt8Number* output,
3471
                                CMSREGISTER cmsUInt32Number Stride)
3472
0
{
3473
0
       cmsUInt32Number nChan      = T_CHANNELS(info->OutputFormat);
3474
0
       cmsUInt32Number DoSwap     = T_DOSWAP(info->OutputFormat);
3475
0
       cmsUInt32Number Reverse    = T_FLAVOR(info->OutputFormat);
3476
0
       cmsUInt32Number Extra      = T_EXTRA(info->OutputFormat);
3477
0
       cmsUInt32Number SwapFirst  = T_SWAPFIRST(info->OutputFormat);
3478
0
       cmsUInt32Number Planar     = T_PLANAR(info->OutputFormat);
3479
0
       cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
3480
0
       cmsFloat32Number maximum = IsInkSpace(info->OutputFormat) ? 655.35F : 65535.0F;
3481
0
       cmsFloat32Number v = 0;
3482
0
       cmsUInt16Number* swap1 = (cmsUInt16Number*)output;
3483
0
       cmsUInt32Number i, start = 0;
3484
3485
0
       Stride /= PixelSize(info->OutputFormat);
3486
3487
0
       if (ExtraFirst)
3488
0
              start = Extra;
3489
3490
0
       for (i = 0; i < nChan; i++) {
3491
3492
0
              cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
3493
3494
0
              v = (cmsFloat32Number)wOut[index] / maximum;
3495
3496
0
              if (Reverse)
3497
0
                     v = maximum - v;
3498
3499
0
              if (Planar)
3500
0
                     ((cmsUInt16Number*)output)[(i + start) * Stride] = _cmsFloat2Half(v);
3501
0
              else
3502
0
                     ((cmsUInt16Number*)output)[i + start] = _cmsFloat2Half(v);
3503
0
       }
3504
3505
3506
0
       if (Extra == 0 && SwapFirst) {
3507
3508
0
              memmove(swap1 + 1, swap1, (nChan - 1)* sizeof(cmsUInt16Number));
3509
0
              *swap1 = _cmsFloat2Half(v);
3510
0
       }
3511
3512
0
       if (T_PLANAR(info->OutputFormat))
3513
0
              return output + sizeof(cmsUInt16Number);
3514
0
       else
3515
0
              return output + (nChan + Extra) * sizeof(cmsUInt16Number);
3516
0
}
3517
3518
3519
3520
static
3521
cmsUInt8Number* PackHalfFromFloat(_cmsTRANSFORM* info,
3522
                                    cmsFloat32Number wOut[],
3523
                                    cmsUInt8Number* output,
3524
                                    cmsUInt32Number Stride)
3525
0
{
3526
0
       cmsUInt32Number nChan      = T_CHANNELS(info->OutputFormat);
3527
0
       cmsUInt32Number DoSwap     = T_DOSWAP(info->OutputFormat);
3528
0
       cmsUInt32Number Reverse    = T_FLAVOR(info->OutputFormat);
3529
0
       cmsUInt32Number Extra      = T_EXTRA(info->OutputFormat);
3530
0
       cmsUInt32Number SwapFirst  = T_SWAPFIRST(info->OutputFormat);
3531
0
       cmsUInt32Number Planar     = T_PLANAR(info->OutputFormat);
3532
0
       cmsUInt32Number ExtraFirst = DoSwap ^ SwapFirst;
3533
0
       cmsFloat32Number maximum = IsInkSpace(info->OutputFormat) ? 100.0F : 1.0F;
3534
0
       cmsUInt16Number* swap1 = (cmsUInt16Number*)output;
3535
0
       cmsFloat32Number v = 0;
3536
0
       cmsUInt32Number i, start = 0;
3537
3538
0
       Stride /= PixelSize(info->OutputFormat);
3539
3540
0
       if (ExtraFirst)
3541
0
              start = Extra;
3542
3543
0
       for (i = 0; i < nChan; i++) {
3544
3545
0
           cmsUInt32Number index = DoSwap ? (nChan - i - 1) : i;
3546
3547
0
              v = wOut[index] * maximum;
3548
3549
0
              if (Reverse)
3550
0
                     v = maximum - v;
3551
3552
0
              if (Planar)
3553
0
                     ((cmsUInt16Number*)output)[(i + start)* Stride] = _cmsFloat2Half(v);
3554
0
              else
3555
0
                     ((cmsUInt16Number*)output)[i + start] = _cmsFloat2Half(v);
3556
0
       }
3557
3558
3559
0
       if (Extra == 0 && SwapFirst) {
3560
3561
0
              memmove(swap1 + 1, swap1, (nChan - 1)* sizeof(cmsUInt16Number));
3562
0
              *swap1 = (cmsUInt16Number)_cmsFloat2Half(v);
3563
0
       }
3564
3565
0
       if (T_PLANAR(info->OutputFormat))
3566
0
              return output + sizeof(cmsUInt16Number);
3567
0
       else
3568
0
              return output + (nChan + Extra)* sizeof(cmsUInt16Number);
3569
0
}
3570
3571
#endif
3572
3573
// ----------------------------------------------------------------------------------------------------------------
3574
3575
3576
static const cmsFormatters16 InputFormatters16[] = {
3577
3578
    //    Type                                          Mask                  Function
3579
    //  ----------------------------   ------------------------------------  ----------------------------
3580
    { TYPE_Lab_DBL,                                 ANYPLANAR|ANYEXTRA,   UnrollLabDoubleTo16},
3581
    { TYPE_XYZ_DBL,                                 ANYPLANAR|ANYEXTRA,   UnrollXYZDoubleTo16},
3582
    { TYPE_Lab_FLT,                                 ANYPLANAR|ANYEXTRA,   UnrollLabFloatTo16},
3583
    { TYPE_XYZ_FLT,                                 ANYPLANAR|ANYEXTRA,   UnrollXYZFloatTo16},
3584
    { TYPE_GRAY_DBL,                                                 0,   UnrollDouble1Chan},
3585
    { FLOAT_SH(1)|BYTES_SH(0), ANYCHANNELS|ANYPLANAR|ANYSWAPFIRST|ANYFLAVOR|
3586
                                             ANYSWAP|ANYEXTRA|ANYSPACE,   UnrollDoubleTo16},
3587
    { FLOAT_SH(1)|BYTES_SH(4), ANYCHANNELS|ANYPLANAR|ANYSWAPFIRST|ANYFLAVOR|
3588
                                             ANYSWAP|ANYEXTRA|ANYSPACE,   UnrollFloatTo16},
3589
#ifndef CMS_NO_HALF_SUPPORT 
3590
    { FLOAT_SH(1)|BYTES_SH(2), ANYCHANNELS|ANYPLANAR|ANYSWAPFIRST|ANYFLAVOR|
3591
                                            ANYEXTRA|ANYSWAP|ANYSPACE,   UnrollHalfTo16},
3592
#endif
3593
3594
    { CHANNELS_SH(1)|BYTES_SH(1),                              ANYSPACE,  Unroll1Byte},
3595
    { CHANNELS_SH(1)|BYTES_SH(1)|EXTRA_SH(1),                  ANYSPACE,  Unroll1ByteSkip1},
3596
    { CHANNELS_SH(1)|BYTES_SH(1)|EXTRA_SH(2),                  ANYSPACE,  Unroll1ByteSkip2},
3597
    { CHANNELS_SH(1)|BYTES_SH(1)|FLAVOR_SH(1),                 ANYSPACE,  Unroll1ByteReversed},
3598
    { COLORSPACE_SH(PT_MCH2)|CHANNELS_SH(2)|BYTES_SH(1),              0,  Unroll2Bytes},
3599
3600
    { TYPE_LabV2_8,                                                   0,  UnrollLabV2_8 },
3601
    { TYPE_ALabV2_8,                                                  0,  UnrollALabV2_8 },
3602
    { TYPE_LabV2_16,                                                  0,  UnrollLabV2_16 },
3603
3604
    { CHANNELS_SH(3)|BYTES_SH(1),                              ANYSPACE,  Unroll3Bytes},
3605
    { CHANNELS_SH(3)|BYTES_SH(1)|DOSWAP_SH(1),                 ANYSPACE,  Unroll3BytesSwap},
3606
    { CHANNELS_SH(3)|EXTRA_SH(1)|BYTES_SH(1)|DOSWAP_SH(1),     ANYSPACE,  Unroll3BytesSkip1Swap},
3607
    { CHANNELS_SH(3)|EXTRA_SH(1)|BYTES_SH(1)|SWAPFIRST_SH(1),  ANYSPACE,  Unroll3BytesSkip1SwapFirst},
3608
3609
    { CHANNELS_SH(3)|EXTRA_SH(1)|BYTES_SH(1)|DOSWAP_SH(1)|SWAPFIRST_SH(1),  
3610
                                                               ANYSPACE,  Unroll3BytesSkip1SwapSwapFirst},
3611
3612
    { CHANNELS_SH(4)|BYTES_SH(1),                              ANYSPACE,  Unroll4Bytes},
3613
    { CHANNELS_SH(4)|BYTES_SH(1)|FLAVOR_SH(1),                 ANYSPACE,  Unroll4BytesReverse},
3614
    { CHANNELS_SH(4)|BYTES_SH(1)|SWAPFIRST_SH(1),              ANYSPACE,  Unroll4BytesSwapFirst},
3615
    { CHANNELS_SH(4)|BYTES_SH(1)|DOSWAP_SH(1),                 ANYSPACE,  Unroll4BytesSwap},
3616
    { CHANNELS_SH(4)|BYTES_SH(1)|DOSWAP_SH(1)|SWAPFIRST_SH(1), ANYSPACE,  Unroll4BytesSwapSwapFirst},
3617
3618
    { BYTES_SH(1)|PLANAR_SH(1), ANYFLAVOR|ANYSWAPFIRST|ANYPREMUL|
3619
                                   ANYSWAP|ANYEXTRA|ANYCHANNELS|ANYSPACE, UnrollPlanarBytes},
3620
3621
    { BYTES_SH(1),    ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYPREMUL|
3622
                                           ANYEXTRA|ANYCHANNELS|ANYSPACE, UnrollChunkyBytes},
3623
    
3624
    { CHANNELS_SH(1)|BYTES_SH(2),                              ANYSPACE,  Unroll1Word},
3625
    { CHANNELS_SH(1)|BYTES_SH(2)|FLAVOR_SH(1),                 ANYSPACE,  Unroll1WordReversed},
3626
    { CHANNELS_SH(1)|BYTES_SH(2)|EXTRA_SH(3),                  ANYSPACE,  Unroll1WordSkip3},
3627
3628
    { CHANNELS_SH(2)|BYTES_SH(2),                              ANYSPACE,  Unroll2Words},
3629
    { CHANNELS_SH(3)|BYTES_SH(2),                              ANYSPACE,  Unroll3Words},
3630
    { CHANNELS_SH(4)|BYTES_SH(2),                              ANYSPACE,  Unroll4Words},
3631
3632
    { CHANNELS_SH(3)|BYTES_SH(2)|DOSWAP_SH(1),                 ANYSPACE,  Unroll3WordsSwap},
3633
    { CHANNELS_SH(3)|BYTES_SH(2)|EXTRA_SH(1)|SWAPFIRST_SH(1),  ANYSPACE,  Unroll3WordsSkip1SwapFirst},
3634
    { CHANNELS_SH(3)|BYTES_SH(2)|EXTRA_SH(1)|DOSWAP_SH(1),     ANYSPACE,  Unroll3WordsSkip1Swap},
3635
    { CHANNELS_SH(4)|BYTES_SH(2)|FLAVOR_SH(1),                 ANYSPACE,  Unroll4WordsReverse},
3636
    { CHANNELS_SH(4)|BYTES_SH(2)|SWAPFIRST_SH(1),              ANYSPACE,  Unroll4WordsSwapFirst},
3637
    { CHANNELS_SH(4)|BYTES_SH(2)|DOSWAP_SH(1),                 ANYSPACE,  Unroll4WordsSwap},
3638
    { CHANNELS_SH(4)|BYTES_SH(2)|DOSWAP_SH(1)|SWAPFIRST_SH(1), ANYSPACE,  Unroll4WordsSwapSwapFirst},
3639
3640
3641
    { BYTES_SH(2)|PLANAR_SH(1),  ANYFLAVOR|ANYSWAP|ANYENDIAN|ANYEXTRA|ANYCHANNELS|ANYSPACE,  UnrollPlanarWords},
3642
    { BYTES_SH(2),  ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYENDIAN|ANYEXTRA|ANYCHANNELS|ANYSPACE,  UnrollAnyWords},
3643
3644
    { BYTES_SH(2)|PLANAR_SH(1),  ANYFLAVOR|ANYSWAP|ANYENDIAN|ANYEXTRA|ANYCHANNELS|ANYSPACE|PREMUL_SH(1),  UnrollPlanarWordsPremul},
3645
    { BYTES_SH(2),  ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYENDIAN|ANYEXTRA|ANYCHANNELS|ANYSPACE|PREMUL_SH(1),  UnrollAnyWordsPremul}
3646
3647
};
3648
3649
3650
3651
static const cmsFormattersFloat InputFormattersFloat[] = {
3652
3653
    //    Type                                          Mask                  Function
3654
    //  ----------------------------   ------------------------------------  ----------------------------
3655
    {     TYPE_Lab_DBL,                                ANYPLANAR|ANYEXTRA,   UnrollLabDoubleToFloat},
3656
    {     TYPE_Lab_FLT,                                ANYPLANAR|ANYEXTRA,   UnrollLabFloatToFloat},
3657
3658
    {     TYPE_XYZ_DBL,                                ANYPLANAR|ANYEXTRA,   UnrollXYZDoubleToFloat},
3659
    {     TYPE_XYZ_FLT,                                ANYPLANAR|ANYEXTRA,   UnrollXYZFloatToFloat},
3660
3661
    {     FLOAT_SH(1)|BYTES_SH(4), ANYPLANAR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|
3662
                                            ANYPREMUL|ANYCHANNELS|ANYSPACE,  UnrollFloatsToFloat},
3663
3664
    {     FLOAT_SH(1)|BYTES_SH(0), ANYPLANAR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|
3665
                                              ANYCHANNELS|ANYSPACE|ANYPREMUL, UnrollDoublesToFloat},
3666
3667
    {     TYPE_LabV2_8,                                                   0,  UnrollLabV2_8ToFloat },
3668
    {     TYPE_ALabV2_8,                                                  0,  UnrollALabV2_8ToFloat },
3669
    {     TYPE_LabV2_16,                                                  0,  UnrollLabV2_16ToFloat },
3670
3671
    {     BYTES_SH(1),              ANYPLANAR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|
3672
                                                        ANYCHANNELS|ANYSPACE, Unroll8ToFloat},
3673
3674
    {     BYTES_SH(2),              ANYPLANAR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|
3675
                                                        ANYCHANNELS|ANYSPACE, Unroll16ToFloat},
3676
#ifndef CMS_NO_HALF_SUPPORT 
3677
    {     FLOAT_SH(1)|BYTES_SH(2), ANYPLANAR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|
3678
                                                        ANYCHANNELS|ANYSPACE, UnrollHalfToFloat},
3679
#endif
3680
};
3681
3682
3683
// Bit fields set to one in the mask are not compared
3684
static
3685
cmsFormatter _cmsGetStockInputFormatter(cmsUInt32Number dwInput, cmsUInt32Number dwFlags)
3686
0
{
3687
0
    cmsUInt32Number i;
3688
0
    cmsFormatter fr;
3689
3690
0
    switch (dwFlags) {
3691
3692
0
    case CMS_PACK_FLAGS_16BITS: {
3693
0
        for (i=0; i < sizeof(InputFormatters16) / sizeof(cmsFormatters16); i++) {
3694
0
            const cmsFormatters16* f = InputFormatters16 + i;
3695
3696
0
            if ((dwInput & ~f ->Mask) == f ->Type) {
3697
0
                fr.Fmt16 = f ->Frm;
3698
0
                return fr;
3699
0
            }
3700
0
        }
3701
0
    }
3702
0
    break;
3703
3704
0
    case CMS_PACK_FLAGS_FLOAT: {
3705
0
        for (i=0; i < sizeof(InputFormattersFloat) / sizeof(cmsFormattersFloat); i++) {
3706
0
            const cmsFormattersFloat* f = InputFormattersFloat + i;
3707
3708
0
            if ((dwInput & ~f ->Mask) == f ->Type) {
3709
0
                fr.FmtFloat = f ->Frm;
3710
0
                return fr;
3711
0
            }
3712
0
        }
3713
0
    }
3714
0
    break;
3715
3716
0
    default:;
3717
3718
0
    }
3719
3720
0
    fr.Fmt16 = NULL;
3721
0
    return fr;
3722
0
}
3723
3724
static const cmsFormatters16 OutputFormatters16[] = {
3725
    //    Type                                          Mask                  Function
3726
    //  ----------------------------   ------------------------------------  ----------------------------
3727
3728
    { TYPE_Lab_DBL,                                      ANYPLANAR|ANYEXTRA,  PackLabDoubleFrom16},
3729
    { TYPE_XYZ_DBL,                                      ANYPLANAR|ANYEXTRA,  PackXYZDoubleFrom16},
3730
3731
    { TYPE_Lab_FLT,                                      ANYPLANAR|ANYEXTRA,  PackLabFloatFrom16},
3732
    { TYPE_XYZ_FLT,                                      ANYPLANAR|ANYEXTRA,  PackXYZFloatFrom16},
3733
    
3734
    { FLOAT_SH(1)|BYTES_SH(0),      ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|
3735
                                    ANYCHANNELS|ANYPLANAR|ANYEXTRA|ANYSPACE,  PackDoubleFrom16},
3736
    { FLOAT_SH(1)|BYTES_SH(4),      ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|
3737
                                    ANYCHANNELS|ANYPLANAR|ANYEXTRA|ANYSPACE,  PackFloatFrom16},
3738
#ifndef CMS_NO_HALF_SUPPORT 
3739
    { FLOAT_SH(1)|BYTES_SH(2),      ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|
3740
                                    ANYCHANNELS|ANYPLANAR|ANYEXTRA|ANYSPACE,  PackHalfFrom16},
3741
#endif
3742
3743
    { CHANNELS_SH(1)|BYTES_SH(1),                                  ANYSPACE,  Pack1Byte},
3744
    { CHANNELS_SH(1)|BYTES_SH(1)|EXTRA_SH(1),                      ANYSPACE,  Pack1ByteSkip1},
3745
    { CHANNELS_SH(1)|BYTES_SH(1)|EXTRA_SH(1)|SWAPFIRST_SH(1),      ANYSPACE,  Pack1ByteSkip1SwapFirst},
3746
3747
    { CHANNELS_SH(1)|BYTES_SH(1)|FLAVOR_SH(1),                     ANYSPACE,  Pack1ByteReversed},
3748
3749
    { TYPE_LabV2_8,                                                       0,  PackLabV2_8 },
3750
    { TYPE_ALabV2_8,                                                      0,  PackALabV2_8 },
3751
    { TYPE_LabV2_16,                                                      0,  PackLabV2_16 },
3752
3753
    { CHANNELS_SH(3)|BYTES_SH(1)|OPTIMIZED_SH(1),                  ANYSPACE,  Pack3BytesOptimized},
3754
    { CHANNELS_SH(3)|BYTES_SH(1)|EXTRA_SH(1)|OPTIMIZED_SH(1),      ANYSPACE,  Pack3BytesAndSkip1Optimized},
3755
    { CHANNELS_SH(3)|BYTES_SH(1)|EXTRA_SH(1)|SWAPFIRST_SH(1)|OPTIMIZED_SH(1),
3756
                                                                   ANYSPACE,  Pack3BytesAndSkip1SwapFirstOptimized},
3757
    { CHANNELS_SH(3)|BYTES_SH(1)|EXTRA_SH(1)|DOSWAP_SH(1)|SWAPFIRST_SH(1)|OPTIMIZED_SH(1),
3758
                                                                   ANYSPACE,  Pack3BytesAndSkip1SwapSwapFirstOptimized},
3759
    { CHANNELS_SH(3)|BYTES_SH(1)|DOSWAP_SH(1)|EXTRA_SH(1)|OPTIMIZED_SH(1),
3760
                                                                   ANYSPACE,  Pack3BytesAndSkip1SwapOptimized},
3761
    { CHANNELS_SH(3)|BYTES_SH(1)|DOSWAP_SH(1)|OPTIMIZED_SH(1),     ANYSPACE,  Pack3BytesSwapOptimized},
3762
3763
3764
3765
    { CHANNELS_SH(3)|BYTES_SH(1),                                  ANYSPACE,  Pack3Bytes},
3766
    { CHANNELS_SH(3)|BYTES_SH(1)|EXTRA_SH(1),                      ANYSPACE,  Pack3BytesAndSkip1},
3767
    { CHANNELS_SH(3)|BYTES_SH(1)|EXTRA_SH(1)|SWAPFIRST_SH(1),      ANYSPACE,  Pack3BytesAndSkip1SwapFirst},
3768
    { CHANNELS_SH(3)|BYTES_SH(1)|EXTRA_SH(1)|DOSWAP_SH(1)|SWAPFIRST_SH(1),
3769
                                                                   ANYSPACE,  Pack3BytesAndSkip1SwapSwapFirst},
3770
    { CHANNELS_SH(3)|BYTES_SH(1)|DOSWAP_SH(1)|EXTRA_SH(1),         ANYSPACE,  Pack3BytesAndSkip1Swap},
3771
    { CHANNELS_SH(3)|BYTES_SH(1)|DOSWAP_SH(1),                     ANYSPACE,  Pack3BytesSwap},
3772
    { CHANNELS_SH(4)|BYTES_SH(1),                                  ANYSPACE,  Pack4Bytes},
3773
    { CHANNELS_SH(4)|BYTES_SH(1)|FLAVOR_SH(1),                     ANYSPACE,  Pack4BytesReverse},
3774
    { CHANNELS_SH(4)|BYTES_SH(1)|SWAPFIRST_SH(1),                  ANYSPACE,  Pack4BytesSwapFirst},
3775
    { CHANNELS_SH(4)|BYTES_SH(1)|DOSWAP_SH(1),                     ANYSPACE,  Pack4BytesSwap},
3776
    { CHANNELS_SH(4)|BYTES_SH(1)|DOSWAP_SH(1)|SWAPFIRST_SH(1),     ANYSPACE,  Pack4BytesSwapSwapFirst},
3777
    { CHANNELS_SH(6)|BYTES_SH(1),                                  ANYSPACE,  Pack6Bytes},
3778
    { CHANNELS_SH(6)|BYTES_SH(1)|DOSWAP_SH(1),                     ANYSPACE,  Pack6BytesSwap},
3779
3780
    { BYTES_SH(1),    ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|ANYCHANNELS|
3781
                                                          ANYSPACE|ANYPREMUL, PackChunkyBytes},
3782
3783
    { BYTES_SH(1)|PLANAR_SH(1),    ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|
3784
                                              ANYCHANNELS|ANYSPACE|ANYPREMUL, PackPlanarBytes},
3785
        
3786
3787
    { CHANNELS_SH(1)|BYTES_SH(2),                                  ANYSPACE,  Pack1Word},
3788
    { CHANNELS_SH(1)|BYTES_SH(2)|EXTRA_SH(1),                      ANYSPACE,  Pack1WordSkip1},
3789
    { CHANNELS_SH(1)|BYTES_SH(2)|EXTRA_SH(1)|SWAPFIRST_SH(1),      ANYSPACE,  Pack1WordSkip1SwapFirst},
3790
    { CHANNELS_SH(1)|BYTES_SH(2)|FLAVOR_SH(1),                     ANYSPACE,  Pack1WordReversed},
3791
    { CHANNELS_SH(1)|BYTES_SH(2)|ENDIAN16_SH(1),                   ANYSPACE,  Pack1WordBigEndian},
3792
    { CHANNELS_SH(3)|BYTES_SH(2),                                  ANYSPACE,  Pack3Words},
3793
    { CHANNELS_SH(3)|BYTES_SH(2)|DOSWAP_SH(1),                     ANYSPACE,  Pack3WordsSwap},
3794
    { CHANNELS_SH(3)|BYTES_SH(2)|ENDIAN16_SH(1),                   ANYSPACE,  Pack3WordsBigEndian},
3795
    { CHANNELS_SH(3)|BYTES_SH(2)|EXTRA_SH(1),                      ANYSPACE,  Pack3WordsAndSkip1},
3796
    { CHANNELS_SH(3)|BYTES_SH(2)|EXTRA_SH(1)|DOSWAP_SH(1),         ANYSPACE,  Pack3WordsAndSkip1Swap},
3797
    { CHANNELS_SH(3)|BYTES_SH(2)|EXTRA_SH(1)|SWAPFIRST_SH(1),      ANYSPACE,  Pack3WordsAndSkip1SwapFirst},
3798
3799
    { CHANNELS_SH(3)|BYTES_SH(2)|EXTRA_SH(1)|DOSWAP_SH(1)|SWAPFIRST_SH(1),
3800
                                                                   ANYSPACE,  Pack3WordsAndSkip1SwapSwapFirst},
3801
3802
    { CHANNELS_SH(4)|BYTES_SH(2),                                  ANYSPACE,  Pack4Words},
3803
    { CHANNELS_SH(4)|BYTES_SH(2)|FLAVOR_SH(1),                     ANYSPACE,  Pack4WordsReverse},
3804
    { CHANNELS_SH(4)|BYTES_SH(2)|DOSWAP_SH(1),                     ANYSPACE,  Pack4WordsSwap},
3805
    { CHANNELS_SH(4)|BYTES_SH(2)|ENDIAN16_SH(1),                   ANYSPACE,  Pack4WordsBigEndian},
3806
3807
    { CHANNELS_SH(6)|BYTES_SH(2),                                  ANYSPACE,  Pack6Words},
3808
    { CHANNELS_SH(6)|BYTES_SH(2)|DOSWAP_SH(1),                     ANYSPACE,  Pack6WordsSwap},
3809
3810
    { BYTES_SH(2),                  ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYENDIAN|
3811
                                     ANYEXTRA|ANYCHANNELS|ANYSPACE|ANYPREMUL, PackChunkyWords},
3812
    { BYTES_SH(2)|PLANAR_SH(1),     ANYFLAVOR|ANYENDIAN|ANYSWAP|ANYEXTRA|
3813
                                     ANYCHANNELS|ANYSPACE|ANYPREMUL,          PackPlanarWords}
3814
    
3815
};
3816
3817
3818
static const cmsFormattersFloat OutputFormattersFloat[] = {
3819
    //    Type                                          Mask                                 Function
3820
    //  ----------------------------   ---------------------------------------------------  ----------------------------
3821
    {     TYPE_Lab_FLT,                                                ANYPLANAR|ANYEXTRA,   PackLabFloatFromFloat},
3822
    {     TYPE_XYZ_FLT,                                                ANYPLANAR|ANYEXTRA,   PackXYZFloatFromFloat},
3823
3824
    {     TYPE_Lab_DBL,                                                ANYPLANAR|ANYEXTRA,   PackLabDoubleFromFloat},
3825
    {     TYPE_XYZ_DBL,                                                ANYPLANAR|ANYEXTRA,   PackXYZDoubleFromFloat},
3826
3827
    {     TYPE_LabV2_8,                                                ANYPLANAR|ANYEXTRA,   PackEncodedBytesLabV2FromFloat},
3828
    {     TYPE_LabV2_16,                                               ANYPLANAR|ANYEXTRA,   PackEncodedWordsLabV2FromFloat},
3829
3830
    {     FLOAT_SH(1)|BYTES_SH(4), ANYPLANAR|
3831
                             ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|ANYCHANNELS|ANYSPACE,   PackFloatsFromFloat },
3832
    {     FLOAT_SH(1)|BYTES_SH(0), ANYPLANAR|
3833
                             ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|ANYCHANNELS|ANYSPACE,   PackDoublesFromFloat },
3834
3835
    {     BYTES_SH(2), ANYPLANAR|
3836
                             ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|ANYCHANNELS|ANYSPACE,   PackWordsFromFloat },
3837
3838
    {     BYTES_SH(1), ANYPLANAR|
3839
                             ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|ANYCHANNELS|ANYSPACE,   PackBytesFromFloat },
3840
3841
#ifndef CMS_NO_HALF_SUPPORT 
3842
    {     FLOAT_SH(1)|BYTES_SH(2),                                   
3843
                             ANYFLAVOR|ANYSWAPFIRST|ANYSWAP|ANYEXTRA|ANYCHANNELS|ANYSPACE,   PackHalfFromFloat },
3844
#endif
3845
3846
};
3847
3848
3849
// Bit fields set to one in the mask are not compared
3850
static
3851
cmsFormatter _cmsGetStockOutputFormatter(cmsUInt32Number dwInput, cmsUInt32Number dwFlags)
3852
0
{
3853
0
    cmsUInt32Number i;
3854
0
    cmsFormatter fr;
3855
3856
    // Optimization is only a hint
3857
0
    dwInput &= ~OPTIMIZED_SH(1);
3858
3859
0
    switch (dwFlags)
3860
0
    {
3861
3862
0
     case CMS_PACK_FLAGS_16BITS: {
3863
3864
0
        for (i=0; i < sizeof(OutputFormatters16) / sizeof(cmsFormatters16); i++) {
3865
0
            const cmsFormatters16* f = OutputFormatters16 + i;
3866
3867
0
            if ((dwInput & ~f ->Mask) == f ->Type) {
3868
0
                fr.Fmt16 = f ->Frm;
3869
0
                return fr;
3870
0
            }
3871
0
        }
3872
0
        }
3873
0
        break;
3874
3875
0
    case CMS_PACK_FLAGS_FLOAT: {
3876
3877
0
        for (i=0; i < sizeof(OutputFormattersFloat) / sizeof(cmsFormattersFloat); i++) {
3878
0
            const cmsFormattersFloat* f = OutputFormattersFloat + i;
3879
3880
0
            if ((dwInput & ~f ->Mask) == f ->Type) {
3881
0
                fr.FmtFloat = f ->Frm;
3882
0
                return fr;
3883
0
            }
3884
0
        }
3885
0
        }
3886
0
        break;
3887
3888
0
    default:;
3889
3890
0
    }
3891
3892
0
    fr.Fmt16 = NULL;
3893
0
    return fr;
3894
0
}
3895
3896
3897
typedef struct _cms_formatters_factory_list {
3898
3899
    cmsFormatterFactory Factory;
3900
    struct _cms_formatters_factory_list *Next;
3901
3902
} cmsFormattersFactoryList;
3903
3904
_cmsFormattersPluginChunkType _cmsFormattersPluginChunk = { NULL };
3905
3906
3907
// Duplicates the zone of memory used by the plug-in in the new context
3908
static
3909
void DupFormatterFactoryList(struct _cmsContext_struct* ctx, 
3910
                                               const struct _cmsContext_struct* src)
3911
0
{
3912
0
   _cmsFormattersPluginChunkType newHead = { NULL };
3913
0
   cmsFormattersFactoryList*  entry;
3914
0
   cmsFormattersFactoryList*  Anterior = NULL;
3915
0
   _cmsFormattersPluginChunkType* head = (_cmsFormattersPluginChunkType*) src->chunks[FormattersPlugin];
3916
3917
0
     _cmsAssert(head != NULL);
3918
3919
   // Walk the list copying all nodes
3920
0
   for (entry = head->FactoryList;
3921
0
       entry != NULL;
3922
0
       entry = entry ->Next) {
3923
3924
0
           cmsFormattersFactoryList *newEntry = ( cmsFormattersFactoryList *) _cmsSubAllocDup(ctx ->MemPool, entry, sizeof(cmsFormattersFactoryList));
3925
3926
0
           if (newEntry == NULL) 
3927
0
               return;
3928
3929
           // We want to keep the linked list order, so this is a little bit tricky
3930
0
           newEntry -> Next = NULL;
3931
0
           if (Anterior)
3932
0
               Anterior -> Next = newEntry;
3933
3934
0
           Anterior = newEntry;
3935
3936
0
           if (newHead.FactoryList == NULL)
3937
0
               newHead.FactoryList = newEntry;
3938
0
   }
3939
3940
0
   ctx ->chunks[FormattersPlugin] = _cmsSubAllocDup(ctx->MemPool, &newHead, sizeof(_cmsFormattersPluginChunkType));
3941
0
}
3942
3943
// The interpolation plug-in memory chunk allocator/dup
3944
void _cmsAllocFormattersPluginChunk(struct _cmsContext_struct* ctx, 
3945
                                    const struct _cmsContext_struct* src)
3946
0
{
3947
0
      _cmsAssert(ctx != NULL);
3948
3949
0
     if (src != NULL) {
3950
        
3951
         // Duplicate the LIST
3952
0
         DupFormatterFactoryList(ctx, src);
3953
0
     }
3954
0
     else {
3955
0
          static _cmsFormattersPluginChunkType FormattersPluginChunk = { NULL };
3956
0
          ctx ->chunks[FormattersPlugin] = _cmsSubAllocDup(ctx ->MemPool, &FormattersPluginChunk, sizeof(_cmsFormattersPluginChunkType));
3957
0
     }
3958
0
}
3959
3960
3961
3962
// Formatters management
3963
cmsBool  _cmsRegisterFormattersPlugin(cmsContext ContextID, cmsPluginBase* Data)
3964
0
{
3965
0
    _cmsFormattersPluginChunkType* ctx = ( _cmsFormattersPluginChunkType*) _cmsContextGetClientChunk(ContextID, FormattersPlugin);
3966
0
    cmsPluginFormatters* Plugin = (cmsPluginFormatters*) Data;
3967
0
    cmsFormattersFactoryList* fl ;
3968
3969
    // Reset to built-in defaults
3970
0
    if (Data == NULL) {
3971
3972
0
          ctx ->FactoryList = NULL;
3973
0
          return TRUE;
3974
0
    }
3975
3976
0
    fl = (cmsFormattersFactoryList*) _cmsPluginMalloc(ContextID, sizeof(cmsFormattersFactoryList));
3977
0
    if (fl == NULL) return FALSE;
3978
3979
0
    fl ->Factory    = Plugin ->FormattersFactory;
3980
3981
0
    fl ->Next = ctx -> FactoryList;
3982
0
    ctx ->FactoryList = fl;
3983
3984
0
    return TRUE;
3985
0
}
3986
3987
cmsFormatter CMSEXPORT _cmsGetFormatter(cmsContext ContextID,
3988
                                        cmsUInt32Number Type,         // Specific type, i.e. TYPE_RGB_8
3989
                                        cmsFormatterDirection Dir,
3990
                                        cmsUInt32Number dwFlags)
3991
0
{
3992
0
    _cmsFormattersPluginChunkType* ctx = ( _cmsFormattersPluginChunkType*) _cmsContextGetClientChunk(ContextID, FormattersPlugin);
3993
0
    cmsFormattersFactoryList* f;
3994
3995
0
    if (T_CHANNELS(Type) == 0) {
3996
0
        static const cmsFormatter nullFormatter = { 0 };
3997
0
        return nullFormatter;
3998
0
    }
3999
4000
0
    for (f =ctx->FactoryList; f != NULL; f = f ->Next) {
4001
4002
0
        cmsFormatter fn = f ->Factory(Type, Dir, dwFlags);
4003
0
        if (fn.Fmt16 != NULL) return fn;
4004
0
    }
4005
4006
    // Revert to default
4007
0
    if (Dir == cmsFormatterInput)
4008
0
        return _cmsGetStockInputFormatter(Type, dwFlags);
4009
0
    else
4010
0
        return _cmsGetStockOutputFormatter(Type, dwFlags);
4011
0
}
4012
4013
4014
// Return whatever given formatter refers to float values
4015
cmsBool  _cmsFormatterIsFloat(cmsUInt32Number Type)
4016
0
{
4017
0
    return T_FLOAT(Type) ? TRUE : FALSE;
4018
0
}
4019
4020
// Return whatever given formatter refers to 8 bits
4021
cmsBool  _cmsFormatterIs8bit(cmsUInt32Number Type)
4022
0
{
4023
0
    cmsUInt32Number Bytes = T_BYTES(Type);
4024
4025
0
    return (Bytes == 1);
4026
0
}
4027
4028
// Build a suitable formatter for the colorspace of this profile
4029
cmsUInt32Number CMSEXPORT cmsFormatterForColorspaceOfProfile(cmsHPROFILE hProfile, cmsUInt32Number nBytes, cmsBool lIsFloat)
4030
0
{
4031
4032
0
    cmsColorSpaceSignature ColorSpace      = cmsGetColorSpace(hProfile);
4033
0
    cmsUInt32Number        ColorSpaceBits  = (cmsUInt32Number) _cmsLCMScolorSpace(ColorSpace);
4034
0
    cmsInt32Number         nOutputChans    = cmsChannelsOfColorSpace(ColorSpace);
4035
0
    cmsUInt32Number        Float           = lIsFloat ? 1U : 0;
4036
4037
    // Unsupported color space?
4038
0
    if (nOutputChans < 0) return 0;
4039
4040
    // Fix float spaces
4041
0
    nBytes &= 7;
4042
4043
    // Create a fake formatter for result
4044
0
    return FLOAT_SH(Float) | COLORSPACE_SH(ColorSpaceBits) | BYTES_SH(nBytes) | CHANNELS_SH(nOutputChans);
4045
0
}
4046
4047
// Build a suitable formatter for the colorspace of this profile
4048
cmsUInt32Number CMSEXPORT cmsFormatterForPCSOfProfile(cmsHPROFILE hProfile, cmsUInt32Number nBytes, cmsBool lIsFloat)
4049
0
{
4050
4051
0
    cmsColorSpaceSignature ColorSpace = cmsGetPCS(hProfile);
4052
4053
0
    cmsUInt32Number ColorSpaceBits = (cmsUInt32Number) _cmsLCMScolorSpace(ColorSpace);
4054
0
    cmsInt32Number  nOutputChans = cmsChannelsOfColorSpace(ColorSpace);
4055
0
    cmsUInt32Number Float = lIsFloat ? 1U : 0;
4056
4057
    // Unsupported color space?
4058
0
    if (nOutputChans < 0) return 0;
4059
4060
    // Fix float spaces
4061
0
    nBytes &= 7;
4062
4063
    // Create a fake formatter for result
4064
0
    return FLOAT_SH(Float) | COLORSPACE_SH(ColorSpaceBits) | BYTES_SH(nBytes) | CHANNELS_SH(nOutputChans);
4065
0
}
4066