OpenJPH
Open-source implementation of JPEG2000 Part-15
ojph_params.cpp
Go to the documentation of this file.
1//***************************************************************************/
2// This software is released under the 2-Clause BSD license, included
3// below.
4//
5// Copyright (c) 2019, Aous Naman
6// Copyright (c) 2019, Kakadu Software Pty Ltd, Australia
7// Copyright (c) 2019, The University of New South Wales, Australia
8//
9// Redistribution and use in source and binary forms, with or without
10// modification, are permitted provided that the following conditions are
11// met:
12//
13// 1. Redistributions of source code must retain the above copyright
14// notice, this list of conditions and the following disclaimer.
15//
16// 2. Redistributions in binary form must reproduce the above copyright
17// notice, this list of conditions and the following disclaimer in the
18// documentation and/or other materials provided with the distribution.
19//
20// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
21// IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
22// TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
23// PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
24// HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
25// SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
26// TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
27// PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
28// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
29// NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
30// SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
31//***************************************************************************/
32// This file is part of the OpenJPH software implementation.
33// File: ojph_params.cpp
34// Author: Aous Naman
35// Date: 28 August 2019
36//***************************************************************************/
37
38#define _USE_MATH_DEFINES
39#include <cmath>
40
41#include "ojph_base.h"
42#include "ojph_file.h"
43#include "ojph_params.h"
44
45#include "ojph_params_local.h"
46#include "ojph_message.h"
47
48namespace ojph {
49
51 //
52 //
53 //
54 //
55 //
57
60 {
61 state->Xsiz = dims.x;
62 state->Ysiz = dims.y;
63 }
64
67 {
68 state->XTsiz = s.w;
69 state->YTsiz = s.h;
70 }
71
74 { // WARNING need to check if these are valid
75 state->XOsiz = offset.x;
76 state->YOsiz = offset.y;
77 }
78
81 { // WARNING need to check if these are valid
82 state->XTOsiz = offset.x;
83 state->YTOsiz = offset.y;
84 }
85
88 {
89 state->set_num_components(num_comps);
90 }
91
93 void param_siz::set_component(ui32 comp_num, const point& downsampling,
94 ui32 bit_depth, bool is_signed)
95 {
96 state->set_comp_info(comp_num, downsampling, bit_depth, is_signed);
97 }
98
101 {
102 return point(state->Xsiz, state->Ysiz);
103 }
104
107 {
108 return point(state->XOsiz, state->YOsiz);
109 }
110
113 {
114 return size(state->XTsiz, state->YTsiz);
115 }
116
119 {
120 return point(state->XTOsiz, state->YTOsiz);
121 }
122
125 {
126 return state->Csiz;
127 }
128
131 {
132 return state->get_bit_depth(comp_num);
133 }
134
136 bool param_siz::is_signed(ui32 comp_num) const
137 {
138 return state->is_signed(comp_num);
139 }
140
143 {
144 return state->get_downsampling(comp_num);
145 }
146
149 {
150 return state->get_recon_width(comp_num);
151 }
152
155 {
156 return state->get_recon_height(comp_num);
157 }
158
160 //
161 //
162 //
163 //
164 //
166
168 void param_cod::set_num_decomposition(ui32 num_decompositions)
169 {
170 if (num_decompositions > 32)
171 OJPH_ERROR(0x00050001,
172 "maximum number of decompositions cannot exceed 32");
173 state->SPcod.num_decomp = (ui8)num_decompositions;
174 }
175
178 {
179 ui32 log_width = 31 - count_leading_zeros(width);
180 ui32 log_height = 31 - count_leading_zeros(height);
181 if (width == 0 || width != (1u << log_width)
182 || height == 0 || height != (1u << log_height)
183 || log_width < 2 || log_height < 2
184 || log_width + log_height > 12)
185 OJPH_ERROR(0x00050011, "incorrect code block dimensions");
186 state->SPcod.block_width = (ui8)(log_width - 2);
187 state->SPcod.block_height = (ui8)(log_height - 2);
188 }
189
191 void param_cod::set_precinct_size(int num_levels, size* precinct_size)
192 {
193 if (num_levels == 0 || precinct_size == NULL)
194 state->Scod &= 0xFE;
195 else
196 {
197 state->Scod |= 1;
198 for (int i = 0; i <= state->SPcod.num_decomp; ++i)
199 {
200 size t = precinct_size[i < num_levels ? i : num_levels - 1];
201
202 ui32 PPx = 31 - count_leading_zeros(t.w);
203 ui32 PPy = 31 - count_leading_zeros(t.h);
204 if (t.w == 0 || t.h == 0)
205 OJPH_ERROR(0x00050021, "precinct width or height cannot be 0");
206 if (t.w != (1u<<PPx) || t.h != (1u<<PPy))
207 OJPH_ERROR(0x00050022,
208 "precinct width and height should be a power of 2");
209 if (PPx > 15 || PPy > 15)
210 OJPH_ERROR(0x00050023, "precinct size is too large");
211 if (i > 0 && (PPx == 0 || PPy == 0))
212 OJPH_ERROR(0x00050024, "precinct size is too small");
213 state->SPcod.precinct_size[i] = (ui8)(PPx | (PPy << 4));
214 }
215 }
216 }
217
219 void param_cod::set_progression_order(const char *name)
220 {
221 int prog_order = 0;
222 size_t len = strlen(name);
223 if (len == 4)
224 {
225 if (strncmp(name, OJPH_PO_STRING_LRCP, 4) == 0)
226 prog_order = OJPH_PO_LRCP;
227 else if (strncmp(name, OJPH_PO_STRING_RLCP, 4) == 0)
228 prog_order = OJPH_PO_RLCP;
229 else if (strncmp(name, OJPH_PO_STRING_RPCL, 4) == 0)
230 prog_order = OJPH_PO_RPCL;
231 else if (strncmp(name, OJPH_PO_STRING_PCRL, 4) == 0)
232 prog_order = OJPH_PO_PCRL;
233 else if (strncmp(name, OJPH_PO_STRING_CPRL, 4) == 0)
234 prog_order = OJPH_PO_CPRL;
235 else
236 OJPH_ERROR(0x00050031, "unknown progression order");
237 }
238 else
239 OJPH_ERROR(0x00050032, "improper progression order");
240
241
242 state->SGCod.prog_order = (ui8)prog_order;
243 }
244
246 void param_cod::set_color_transform(bool color_transform)
247 {
248 state->employ_color_transform(color_transform ? 1 : 0);
249 }
250
252 void param_cod::set_reversible(bool reversible)
253 {
254 state->set_reversible(reversible);
255 }
256
259 {
260 local::param_cod *p = state->get_coc(component_idx);
261 if (p == state) // no COC segment marker for this component
262 p = state->add_coc_object(component_idx);
263 return param_coc(p);
264 }
265
268 {
270 }
271
274 {
275 return state->get_block_dims();
276 }
277
280 {
281 return state->get_log_block_dims();
282 }
283
286 {
287 return state->is_reversible();
288 }
289
292 {
293 return state->get_precinct_size(level_num);
294 }
295
298 {
299 return state->get_log_precinct_size(level_num);
300 }
301
304 {
305 return state->SGCod.prog_order;
306 }
307
310 {
312 return OJPH_PO_STRING_LRCP;
313 else if (state->SGCod.prog_order == OJPH_PO_RLCP)
314 return OJPH_PO_STRING_RLCP;
315 else if (state->SGCod.prog_order == OJPH_PO_RPCL)
316 return OJPH_PO_STRING_RPCL;
317 else if (state->SGCod.prog_order == OJPH_PO_PCRL)
318 return OJPH_PO_STRING_PCRL;
319 else if (state->SGCod.prog_order == OJPH_PO_CPRL)
320 return OJPH_PO_STRING_CPRL;
321 else
322 assert(0);
323 return "";
324 }
325
328 {
329 return state->SGCod.num_layers;
330 }
331
334 {
336 }
337
340 {
341 return state->packets_may_use_sop();
342 }
343
346 {
347 return state->packets_use_eph();
348 }
349
352 {
354 }
355
357 //
358 //
359 //
360 //
361 //
363
365 void param_coc::set_num_decomposition(ui32 num_decompositions)
366 { ojph::param_cod(state).set_num_decomposition(num_decompositions); }
367
370 { ojph::param_cod(state).set_block_dims(width, height); }
371
373 void param_coc::set_precinct_size(int num_levels, size* precinct_size)
374 { ojph::param_cod(state).set_precinct_size(num_levels, precinct_size); }
375
377 void param_coc::set_reversible(bool reversible)
378 { ojph::param_cod(state).set_reversible(reversible); }
379
383
387
391
394 { return ojph::param_cod(state).is_reversible(); }
395
398 { return ojph::param_cod(state).get_precinct_size(level_num); }
399
402 { return ojph::param_cod(state).get_log_precinct_size(level_num); }
403
407
408
410 //
411 //
412 //
413 //
414 //
416
419 {
420 state->set_delta(delta);
421 }
422
424 void param_qcd::set_irrev_quant(ui32 comp_idx, float delta)
425 {
426 state->set_delta(comp_idx, delta);
427 }
428
430 //
431 //
432 //
433 //
434 //
436
439 {
440 state->set_nonlinear_transform(comp_num, nl_type);
441 }
442
444 bool param_nlt::get_nonlinear_transform(ui32 comp_num, ui8& bit_depth,
445 bool& is_signed, ui8& nl_type) const
446 {
447 return state->get_nonlinear_transform(comp_num, bit_depth, is_signed,
448 nl_type);
449 }
450
452 //
453 //
454 //
455 //
456 //
458
460 void comment_exchange::set_string(const char* str)
461 {
462 size_t t = strlen(str);
463 if (len > 65531)
464 OJPH_ERROR(0x000500C1,
465 "COM marker string length cannot be larger than 65531");
466 this->data = str;
467 this->len = (ui16)t;
468 this->Rcom = 1;
469 }
470
472 void comment_exchange::set_data(const char* data, ui16 len)
473 {
474 if (len > 65531)
475 OJPH_ERROR(0x000500C2,
476 "COM marker string length cannot be larger than 65531");
477 this->data = data;
478 this->len = len;
479 this->Rcom = 0;
480 }
481
483 //
484 //
485 // LOCAL
486 //
487 //
489
490 namespace local {
491
493 static inline
495 {
496 return (ui16)((t << 8) | (t >> 8));
497 }
498
500 static inline
502 {
503 ui32 u = swap_byte((ui16)(t & 0xFFFFu));
504 u <<= 16;
505 u |= swap_byte((ui16)(t >> 16));
506 return u;
507 }
508
510 static inline
512 {
513 ui64 u = swap_byte((ui32)(t & 0xFFFFFFFFu));
514 u <<= 32;
515 u |= swap_byte((ui32)(t >> 32));
516 return u;
517 }
518
520 //
521 //
522 //
523 //
524 //
526
528 //static
530 {
531 public:
532 static float get_gain_l(ui32 num_decomp, bool reversible)
533 { return reversible ? gain_5x3_l[num_decomp] : gain_9x7_l[num_decomp]; }
534 static float get_gain_h(ui32 num_decomp, bool reversible)
535 { return reversible ? gain_5x3_h[num_decomp] : gain_9x7_h[num_decomp]; }
536
537 private:
538 static const float gain_9x7_l[34];
539 static const float gain_9x7_h[34];
540 static const float gain_5x3_l[34];
541 static const float gain_5x3_h[34];
542 };
543
545 const float sqrt_energy_gains::gain_9x7_l[34] = { 1.0000e+00f,
546 1.4021e+00f, 2.0304e+00f, 2.9012e+00f, 4.1153e+00f, 5.8245e+00f,
547 8.2388e+00f, 1.1652e+01f, 1.6479e+01f, 2.3304e+01f, 3.2957e+01f,
548 4.6609e+01f, 6.5915e+01f, 9.3217e+01f, 1.3183e+02f, 1.8643e+02f,
549 2.6366e+02f, 3.7287e+02f, 5.2732e+02f, 7.4574e+02f, 1.0546e+03f,
550 1.4915e+03f, 2.1093e+03f, 2.9830e+03f, 4.2185e+03f, 5.9659e+03f,
551 8.4371e+03f, 1.1932e+04f, 1.6874e+04f, 2.3864e+04f, 3.3748e+04f,
552 4.7727e+04f, 6.7496e+04f, 9.5454e+04f };
553 const float sqrt_energy_gains::gain_9x7_h[34] = { 1.4425e+00f,
554 1.9669e+00f, 2.8839e+00f, 4.1475e+00f, 5.8946e+00f, 8.3472e+00f,
555 1.1809e+01f, 1.6701e+01f, 2.3620e+01f, 3.3403e+01f, 4.7240e+01f,
556 6.6807e+01f, 9.4479e+01f, 1.3361e+02f, 1.8896e+02f, 2.6723e+02f,
557 3.7792e+02f, 5.3446e+02f, 7.5583e+02f, 1.0689e+03f, 1.5117e+03f,
558 2.1378e+03f, 3.0233e+03f, 4.2756e+03f, 6.0467e+03f, 8.5513e+03f,
559 1.2093e+04f, 1.7103e+04f, 2.4187e+04f, 3.4205e+04f, 4.8373e+04f,
560 6.8410e+04f, 9.6747e+04f, 1.3682e+05f };
561 const float sqrt_energy_gains::gain_5x3_l[34] = { 1.0000e+00f,
562 1.2247e+00f, 1.3229e+00f, 1.5411e+00f, 1.7139e+00f, 1.9605e+00f,
563 2.2044e+00f, 2.5047e+00f, 2.8277e+00f, 3.2049e+00f, 3.6238e+00f,
564 4.1033e+00f, 4.6423e+00f, 5.2548e+00f, 5.9462e+00f, 6.7299e+00f,
565 7.6159e+00f, 8.6193e+00f, 9.7544e+00f, 1.1039e+01f, 1.2493e+01f,
566 1.4139e+01f, 1.6001e+01f, 1.8108e+01f, 2.0493e+01f, 2.3192e+01f,
567 2.6246e+01f, 2.9702e+01f, 3.3614e+01f, 3.8041e+01f, 4.3051e+01f,
568 4.8721e+01f, 5.5138e+01f, 6.2399e+01f };
569 const float sqrt_energy_gains::gain_5x3_h[34] = { 1.0458e+00f,
570 1.3975e+00f, 1.4389e+00f, 1.7287e+00f, 1.8880e+00f, 2.1841e+00f,
571 2.4392e+00f, 2.7830e+00f, 3.1341e+00f, 3.5576e+00f, 4.0188e+00f,
572 4.5532e+00f, 5.1494e+00f, 5.8301e+00f, 6.5963e+00f, 7.4663e+00f,
573 8.4489e+00f, 9.5623e+00f, 1.0821e+01f, 1.2247e+01f, 1.3860e+01f,
574 1.5685e+01f, 1.7751e+01f, 2.0089e+01f, 2.2735e+01f, 2.5729e+01f,
575 2.9117e+01f, 3.2952e+01f, 3.7292e+01f, 4.2203e+01f, 4.7761e+01f,
576 5.4051e+01f, 6.1170e+01f, 6.9226e+01f };
577
579 //static
581 {
582 public:
583 static float get_bibo_gain_l(ui32 num_decomp, bool reversible)
584 { return reversible ? gain_5x3_l[num_decomp] : gain_9x7_l[num_decomp]; }
585 static float get_bibo_gain_h(ui32 num_decomp, bool reversible)
586 { return reversible ? gain_5x3_h[num_decomp] : gain_9x7_h[num_decomp]; }
587
588 private:
589 static const float gain_9x7_l[34];
590 static const float gain_9x7_h[34];
591 static const float gain_5x3_l[34];
592 static const float gain_5x3_h[34];
593 };
594
596 const float bibo_gains::gain_9x7_l[34] = { 1.0000e+00f, 1.3803e+00f,
597 1.3328e+00f, 1.3067e+00f, 1.3028e+00f, 1.3001e+00f, 1.2993e+00f,
598 1.2992e+00f, 1.2992e+00f, 1.2992e+00f, 1.2992e+00f, 1.2992e+00f,
599 1.2992e+00f, 1.2992e+00f, 1.2992e+00f, 1.2992e+00f, 1.2992e+00f,
600 1.2992e+00f, 1.2992e+00f, 1.2992e+00f, 1.2992e+00f, 1.2992e+00f,
601 1.2992e+00f, 1.2992e+00f, 1.2992e+00f, 1.2992e+00f, 1.2992e+00f,
602 1.2992e+00f, 1.2992e+00f, 1.2992e+00f, 1.2992e+00f, 1.2992e+00f,
603 1.2992e+00f, 1.2992e+00f };
604 const float bibo_gains::gain_9x7_h[34] = { 1.2976e+00f, 1.3126e+00f,
605 1.2757e+00f, 1.2352e+00f, 1.2312e+00f, 1.2285e+00f, 1.2280e+00f,
606 1.2278e+00f, 1.2278e+00f, 1.2278e+00f, 1.2278e+00f, 1.2278e+00f,
607 1.2278e+00f, 1.2278e+00f, 1.2278e+00f, 1.2278e+00f, 1.2278e+00f,
608 1.2278e+00f, 1.2278e+00f, 1.2278e+00f, 1.2278e+00f, 1.2278e+00f,
609 1.2278e+00f, 1.2278e+00f, 1.2278e+00f, 1.2278e+00f, 1.2278e+00f,
610 1.2278e+00f, 1.2278e+00f, 1.2278e+00f, 1.2278e+00f, 1.2278e+00f,
611 1.2278e+00f, 1.2278e+00f };
612 const float bibo_gains::gain_5x3_l[34] = { 1.0000e+00f, 1.5000e+00f,
613 1.6250e+00f, 1.6875e+00f, 1.6963e+00f, 1.7067e+00f, 1.7116e+00f,
614 1.7129e+00f, 1.7141e+00f, 1.7145e+00f, 1.7151e+00f, 1.7152e+00f,
615 1.7155e+00f, 1.7155e+00f, 1.7156e+00f, 1.7156e+00f, 1.7156e+00f,
616 1.7156e+00f, 1.7156e+00f, 1.7156e+00f, 1.7156e+00f, 1.7156e+00f,
617 1.7156e+00f, 1.7156e+00f, 1.7156e+00f, 1.7156e+00f, 1.7156e+00f,
618 1.7156e+00f, 1.7156e+00f, 1.7156e+00f, 1.7156e+00f, 1.7156e+00f,
619 1.7156e+00f, 1.7156e+00f };
620 const float bibo_gains::gain_5x3_h[34] = { 2.0000e+00f, 2.5000e+00f,
621 2.7500e+00f, 2.8047e+00f, 2.8198e+00f, 2.8410e+00f, 2.8558e+00f,
622 2.8601e+00f, 2.8628e+00f, 2.8656e+00f, 2.8662e+00f, 2.8667e+00f,
623 2.8669e+00f, 2.8670e+00f, 2.8671e+00f, 2.8671e+00f, 2.8671e+00f,
624 2.8671e+00f, 2.8671e+00f, 2.8671e+00f, 2.8671e+00f, 2.8671e+00f,
625 2.8671e+00f, 2.8671e+00f, 2.8671e+00f, 2.8671e+00f, 2.8671e+00f,
626 2.8671e+00f, 2.8671e+00f, 2.8671e+00f, 2.8671e+00f, 2.8671e+00f,
627 2.8671e+00f, 2.8671e+00f };
628
629
631 //
632 //
633 //
634 //
635 //
637
640 {
641 //marker size excluding header
642 Lsiz = (ui16)(38 + 3 * Csiz);
643
644 ui8 buf[4];
645 bool result = true;
646
647 *(ui16*)buf = JP2K_MARKER::SIZ;
648 *(ui16*)buf = swap_byte(*(ui16*)buf);
649 result &= file->write(&buf, 2) == 2;
650 *(ui16*)buf = swap_byte(Lsiz);
651 result &= file->write(&buf, 2) == 2;
652 *(ui16*)buf = swap_byte(Rsiz);
653 result &= file->write(&buf, 2) == 2;
654 *(ui32*)buf = swap_byte(Xsiz);
655 result &= file->write(&buf, 4) == 4;
656 *(ui32*)buf = swap_byte(Ysiz);
657 result &= file->write(&buf, 4) == 4;
658 *(ui32*)buf = swap_byte(XOsiz);
659 result &= file->write(&buf, 4) == 4;
660 *(ui32*)buf = swap_byte(YOsiz);
661 result &= file->write(&buf, 4) == 4;
662 *(ui32*)buf = swap_byte(XTsiz);
663 result &= file->write(&buf, 4) == 4;
664 *(ui32*)buf = swap_byte(YTsiz);
665 result &= file->write(&buf, 4) == 4;
666 *(ui32*)buf = swap_byte(XTOsiz);
667 result &= file->write(&buf, 4) == 4;
668 *(ui32*)buf = swap_byte(YTOsiz);
669 result &= file->write(&buf, 4) == 4;
670 *(ui16*)buf = swap_byte(Csiz);
671 result &= file->write(&buf, 2) == 2;
672 for (int c = 0; c < Csiz; ++c)
673 {
674 buf[0] = cptr[c].SSiz;
675 buf[1] = cptr[c].XRsiz;
676 buf[2] = cptr[c].YRsiz;
677 result &= file->write(&buf, 3) == 3;
678 }
679
680 return result;
681 }
682
685 {
686 if (file->read(&Lsiz, 2) != 2)
687 OJPH_ERROR(0x00050041, "error reading SIZ marker");
689 int num_comps = (Lsiz - 38) / 3;
690 if (Lsiz != 38 + 3 * num_comps)
691 OJPH_ERROR(0x00050042, "error in SIZ marker length");
692 if (file->read(&Rsiz, 2) != 2)
693 OJPH_ERROR(0x00050043, "error reading SIZ marker");
695 if ((Rsiz & 0x4000) == 0)
696 OJPH_ERROR(0x00050044,
697 "Rsiz bit 14 is not set (this is not a JPH file)");
698 if ((Rsiz & 0x8000) != 0 && (Rsiz & 0xD5F) != 0)
699 OJPH_WARN(0x00050001, "Rsiz in SIZ has unimplemented fields");
700 if (file->read(&Xsiz, 4) != 4)
701 OJPH_ERROR(0x00050045, "error reading SIZ marker");
703 if (file->read(&Ysiz, 4) != 4)
704 OJPH_ERROR(0x00050046, "error reading SIZ marker");
706 if (file->read(&XOsiz, 4) != 4)
707 OJPH_ERROR(0x00050047, "error reading SIZ marker");
709 if (file->read(&YOsiz, 4) != 4)
710 OJPH_ERROR(0x00050048, "error reading SIZ marker");
712 if (file->read(&XTsiz, 4) != 4)
713 OJPH_ERROR(0x00050049, "error reading SIZ marker");
715 if (file->read(&YTsiz, 4) != 4)
716 OJPH_ERROR(0x0005004A, "error reading SIZ marker");
718 if (file->read(&XTOsiz, 4) != 4)
719 OJPH_ERROR(0x0005004B, "error reading SIZ marker");
721 if (file->read(&YTOsiz, 4) != 4)
722 OJPH_ERROR(0x0005004C, "error reading SIZ marker");
724 if (file->read(&Csiz, 2) != 2)
725 OJPH_ERROR(0x0005004D, "error reading SIZ marker");
727 if (Csiz != num_comps)
728 OJPH_ERROR(0x0005004E, "Csiz does not match the SIZ marker size");
729 if (Csiz > old_Csiz)
730 {
731 if (cptr != store)
732 delete[] cptr;
733 cptr = new siz_comp_info[(ui32)num_comps];
734 old_Csiz = Csiz;
735 }
736 for (int c = 0; c < Csiz; ++c)
737 {
738 if (file->read(&cptr[c].SSiz, 1) != 1)
739 OJPH_ERROR(0x00050051, "error reading SIZ marker");
740 if (file->read(&cptr[c].XRsiz, 1) != 1)
741 OJPH_ERROR(0x00050052, "error reading SIZ marker");
742 if (file->read(&cptr[c].YRsiz, 1) != 1)
743 OJPH_ERROR(0x00050053, "error reading SIZ marker");
744 }
745
746 ws_kern_support_needed = (Rsiz & 0x20) != 0;
747 dfs_support_needed = (Rsiz & 0x80) != 0;
748 }
749
752 {
753 assert(comp_num < get_num_components());
754
755 point factor(1u << skipped_resolutions, 1u << skipped_resolutions);
756 const param_cod* cdp = cod->get_coc(comp_num);
757 if (dfs && cdp && cdp->is_dfs_defined()) {
758 const param_dfs* d = dfs->get_dfs(cdp->get_dfs_index());
760 }
761 factor.x *= (ui32)cptr[comp_num].XRsiz;
762 factor.y *= (ui32)cptr[comp_num].YRsiz;
763 return factor;
764 }
765
768 {
769 assert(comp_num < get_num_components());
770
771 point factor = get_recon_downsampling(comp_num);
772 point r;
773 r.x = ojph_div_ceil(Xsiz, factor.x) - ojph_div_ceil(XOsiz, factor.x);
774 r.y = ojph_div_ceil(Ysiz, factor.y) - ojph_div_ceil(YOsiz, factor.y);
775 return r;
776 }
777
778
780 //
781 //
782 //
783 //
784 //
786
789 {
790 //marker size excluding header
791 Lcap = 8;
792
793 char buf[4];
794 bool result = true;
795
796 *(ui16*)buf = JP2K_MARKER::CAP;
797 *(ui16*)buf = swap_byte(*(ui16*)buf);
798 result &= file->write(&buf, 2) == 2;
799 *(ui16*)buf = swap_byte(Lcap);
800 result &= file->write(&buf, 2) == 2;
801 *(ui32*)buf = swap_byte(Pcap);
802 result &= file->write(&buf, 4) == 4;
803
804 *(ui16*)buf = swap_byte(Ccap[0]);
805 result &= file->write(&buf, 2) == 2;
806
807 return result;
808 }
809
812 {
813 if (file->read(&Lcap, 2) != 2)
814 OJPH_ERROR(0x00050061, "error reading CAP marker");
816 if (file->read(&Pcap, 4) != 4)
817 OJPH_ERROR(0x00050062, "error reading CAP marker");
819 ui32 count = population_count(Pcap);
820 if (Pcap & 0xFFFDFFFF)
821 OJPH_ERROR(0x00050063,
822 "error Pcap in CAP has options that are not supported");
823 if ((Pcap & 0x00020000) == 0)
824 OJPH_ERROR(0x00050064,
825 "error Pcap should have its 15th MSB set, Pcap^15. "
826 " This is not a JPH file");
827 for (ui32 i = 0; i < count; ++i)
828 if (file->read(Ccap+i, 2) != 2)
829 OJPH_ERROR(0x00050065, "error reading CAP marker");
830 if (Lcap != 6 + 2 * count)
831 OJPH_ERROR(0x00050066, "error in CAP marker length");
832 }
833
835 //
836 //
837 //
838 //
839 //
841
844 {
845 if (SPcod.wavelet_trans <= 1)
847 else {
848 assert(atk != NULL);
849 return atk->is_reversible();
850 }
851 }
852
855 {
856 assert(type == COD_MAIN);
857
858 //marker size excluding header
859 Lcod = 12;
860 Lcod = (ui16)(Lcod + (Scod & 1 ? 1 + SPcod.num_decomp : 0));
861
862 ui8 buf[4];
863 bool result = true;
864
865 *(ui16*)buf = JP2K_MARKER::COD;
866 *(ui16*)buf = swap_byte(*(ui16*)buf);
867 result &= file->write(&buf, 2) == 2;
868 *(ui16*)buf = swap_byte(Lcod);
869 result &= file->write(&buf, 2) == 2;
870 *(ui8*)buf = Scod;
871 result &= file->write(&buf, 1) == 1;
872 *(ui8*)buf = SGCod.prog_order;
873 result &= file->write(&buf, 1) == 1;
874 *(ui16*)buf = swap_byte(SGCod.num_layers);
875 result &= file->write(&buf, 2) == 2;
876 *(ui8*)buf = SGCod.mc_trans;
877 result &= file->write(&buf, 1) == 1;
878 buf[0] = SPcod.num_decomp;
879 buf[1] = SPcod.block_width;
880 buf[2] = SPcod.block_height;
881 buf[3] = SPcod.block_style;
882 result &= file->write(&buf, 4) == 4;
883 *(ui8*)buf = SPcod.wavelet_trans;
884 result &= file->write(&buf, 1) == 1;
885 if (Scod & 1)
886 for (int i = 0; i <= SPcod.num_decomp; ++i)
887 {
888 *(ui8*)buf = SPcod.precinct_size[i];
889 result &= file->write(&buf, 1) == 1;
890 }
891
892 return result;
893 }
894
897 {
898 assert(type == COD_MAIN);
899 bool result = true;
900 param_cod *p = this->next;
901 while (p)
902 {
903 if (p->comp_idx < num_comps)
904 result &= p->internal_write_coc(file, num_comps);
905 p = p->next;
906 }
907 return result;
908 }
909
912 {
913 assert(type == COC_MAIN);
914
915 //marker size excluding header
916 Lcod = num_comps < 257 ? 9 : 10;
917 Lcod = (ui16)(Lcod + (Scod & 1 ? 1 + SPcod.num_decomp : 0));
918
919 ui8 buf[4];
920 bool result = true;
921
922 *(ui16*)buf = JP2K_MARKER::COC;
923 *(ui16*)buf = swap_byte(*(ui16*)buf);
924 result &= file->write(&buf, 2) == 2;
925 *(ui16*)buf = swap_byte(Lcod);
926 result &= file->write(&buf, 2) == 2;
927 if (num_comps < 257)
928 {
929 *(ui8*)buf = (ui8)comp_idx;
930 result &= file->write(&buf, 1) == 1;
931 }
932 else
933 {
934 *(ui16*)buf = swap_byte(comp_idx);
935 result &= file->write(&buf, 2) == 2;
936 }
937 *(ui8*)buf = Scod;
938 result &= file->write(&buf, 1) == 1;
939 buf[0] = SPcod.num_decomp;
940 buf[1] = SPcod.block_width;
941 buf[2] = SPcod.block_height;
942 buf[3] = SPcod.block_style;
943 result &= file->write(&buf, 4) == 4;
944 *(ui8*)buf = SPcod.wavelet_trans;
945 result &= file->write(&buf, 1) == 1;
946 if (Scod & 1)
947 for (int i = 0; i <= SPcod.num_decomp; ++i)
948 {
949 *(ui8*)buf = SPcod.precinct_size[i];
950 result &= file->write(&buf, 1) == 1;
951 }
952
953 return result;
954 }
955
958 {
959 assert(type == COD_MAIN);
960
961 if (file->read(&Lcod, 2) != 2)
962 OJPH_ERROR(0x00050071, "error reading COD segment");
964 if (file->read(&Scod, 1) != 1)
965 OJPH_ERROR(0x00050072, "error reading COD segment");
966 if (file->read(&SGCod.prog_order, 1) != 1)
967 OJPH_ERROR(0x00050073, "error reading COD segment");
968 if (file->read(&SGCod.num_layers, 2) != 2)
969 { OJPH_ERROR(0x00050074, "error reading COD segment"); }
970 else
972 if (file->read(&SGCod.mc_trans, 1) != 1)
973 OJPH_ERROR(0x00050075, "error reading COD segment");
974 if (file->read(&SPcod.num_decomp, 1) != 1)
975 OJPH_ERROR(0x00050076, "error reading COD segment");
976 if (file->read(&SPcod.block_width, 1) != 1)
977 OJPH_ERROR(0x00050077, "error reading COD segment");
978 if (file->read(&SPcod.block_height, 1) != 1)
979 OJPH_ERROR(0x00050078, "error reading COD segment");
980 if (file->read(&SPcod.block_style, 1) != 1)
981 OJPH_ERROR(0x00050079, "error reading COD segment");
982 if (file->read(&SPcod.wavelet_trans, 1) != 1)
983 OJPH_ERROR(0x0005007A, "error reading COD segment");
984 if (Scod & 1)
985 for (int i = 0; i <= SPcod.num_decomp; ++i)
986 if (file->read(&SPcod.precinct_size[i], 1) != 1)
987 OJPH_ERROR(0x0005007B, "error reading COD segment");
988 if (Lcod != 12 + ((Scod & 1) ? 1 + SPcod.num_decomp : 0))
989 OJPH_ERROR(0x0005007C, "error in COD segment length");
990 }
991
993 void param_cod::read_coc(infile_base* file, ui32 num_comps,
994 param_cod *top_cod)
995 {
996 assert(type == COC_MAIN);
997 assert(top_cod != NULL);
998
999 this->SGCod = top_cod->SGCod;
1000 this->top_cod = top_cod;
1001 if (file->read(&Lcod, 2) != 2)
1002 OJPH_ERROR(0x00050121, "error reading COC segment");
1003 Lcod = swap_byte(Lcod);
1004 if (num_comps < 257) {
1005 ui8 t;
1006 if (file->read(&t, 1) != 1)
1007 OJPH_ERROR(0x00050122, "error reading COC segment");
1008 comp_idx = t;
1009 }
1010 else {
1011 if (file->read(&comp_idx, 2) != 2)
1012 OJPH_ERROR(0x00050123, "error reading COC segment");
1014 }
1015 if (file->read(&Scod, 1) != 1)
1016 OJPH_ERROR(0x00050124, "error reading COC segment");
1017 if (Scod & 0xF8)
1018 OJPH_WARN(0x00050011,
1019 "Unsupported options in Scoc field of the COC segment");
1020 if (file->read(&SPcod.num_decomp, 1) != 1)
1021 OJPH_ERROR(0x00050125, "error reading COC segment");
1022 if (file->read(&SPcod.block_width, 1) != 1)
1023 OJPH_ERROR(0x00050126, "error reading COC segment");
1024 if (file->read(&SPcod.block_height, 1) != 1)
1025 OJPH_ERROR(0x00050127, "error reading COC segment");
1026 if (file->read(&SPcod.block_style, 1) != 1)
1027 OJPH_ERROR(0x00050128, "error reading COC segment");
1028 if (file->read(&SPcod.wavelet_trans, 1) != 1)
1029 OJPH_ERROR(0x00050129, "error reading COC segment");
1030 if (Scod & 1)
1031 for (int i = 0; i <= get_num_decompositions(); ++i)
1032 if (file->read(&SPcod.precinct_size[i], 1) != 1)
1033 OJPH_ERROR(0x0005012A, "error reading COC segment");
1034 ui32 t = 9;
1035 t += num_comps < 257 ? 0 : 1;
1036 t += (Scod & 1) ? 1 + get_num_decompositions() : 0;
1037 if (Lcod != t)
1038 OJPH_ERROR(0x0005012B, "error in COC segment length");
1039 }
1040
1043 {
1044 assert(type == COD_MAIN);
1045 this->atk = atk->get_atk(SPcod.wavelet_trans);
1046 if (this->atk == NULL)
1047 OJPH_ERROR(0x00050131, "A COD segment employs the DWT kernel "
1048 "atk = %d, but a corresponding ATK segment cannot be found.",
1050 param_cod *p = next;
1051 while (p)
1052 {
1053 p->atk = atk->get_atk(p->SPcod.wavelet_trans);
1054 if (p->atk == NULL)
1055 OJPH_ERROR(0x00050132, "A COC segment employs the DWT kernel "
1056 "atk = %d, but a corresponding ATK segment cannot be found",
1058 p = p->next;
1059 }
1060 }
1061
1063 const param_cod* param_cod::get_coc(ui32 comp_idx) const
1064 {
1065 assert(this->type == COD_MAIN || this->top_cod->type == COD_MAIN);
1066 const param_cod *p, *q;
1067 if (this->type == COD_MAIN)
1068 q = p = this;
1069 else
1070 q = p = this->top_cod;
1071 while (p && p->comp_idx != comp_idx)
1072 p = p->next;
1073 return p ? p : q;
1074 }
1075
1078 {
1079 // cast object to constant
1080 const param_cod* const_p = const_cast<const param_cod*>(this);
1081 // call using the constant object, then cast to non-const
1082 return const_cast<param_cod*>(const_p->get_coc(comp_idx));
1083 }
1084
1087 {
1088 assert(type == COD_MAIN);
1089 param_cod *p = this;
1090 while (p->next != NULL)
1091 p = p->next;
1092 p->next = new param_cod(this, (ui16)comp_idx);
1093 return p->next;
1094 }
1095
1097 //
1098 //
1099 //
1100 //
1101 //
1103
1105 void param_qcd::check_validity(const param_siz& siz, const param_cod& cod)
1106 {
1107 ui32 num_comps = siz.get_num_components();
1109
1110 // first check that all the component captured by QCD have the same
1111 // bit_depth and signedness
1112 bool all_same = true;
1113 bool other_comps_exist = false;
1114 ui32 first_comp = 0xFFFF; // an impossible component
1115 {
1116 ui32 num_decompositions = 0;
1117 ui32 bit_depth = 0;
1118 bool is_signed = false;
1119 ui32 wavelet_kern = param_cod::DWT_IRV97;
1120
1121 for (ui32 c = 0; c < num_comps; ++c)
1122 {
1123 if (get_qcc(c) == this) // no qcc defined for component c
1124 {
1125 const param_cod *p = cod.get_coc(c);
1126 if (bit_depth == 0) // first component captured by QCD
1127 {
1128 num_decompositions = p->get_num_decompositions();
1129 bit_depth = siz.get_bit_depth(c);
1130 is_signed = siz.is_signed(c);
1131 wavelet_kern = p->get_wavelet_kern();
1132 first_comp = c;
1133 }
1134 else
1135 {
1136 all_same = all_same
1137 && (num_decompositions == p->get_num_decompositions())
1138 && (bit_depth == siz.get_bit_depth(c))
1139 && (is_signed == siz.is_signed(c))
1140 && (wavelet_kern == p->get_wavelet_kern());
1141 }
1142 }
1143 else
1144 other_comps_exist = true;
1145 }
1146 }
1147
1148 // configure QCD according COD
1149 ui32 qcd_num_decompositions;
1150 ui32 qcd_bit_depth;
1151 bool qcd_is_signed;
1152 ui32 qcd_wavelet_kern;
1153 {
1154 ui32 qcd_component = first_comp != 0xFFFF ? first_comp : 0;
1155 bool employing_color_transform = cod.is_employing_color_transform();
1156 qcd_num_decompositions = cod.get_num_decompositions();
1157 qcd_bit_depth = siz.get_bit_depth(qcd_component);
1158 qcd_is_signed = siz.is_signed(qcd_component);
1159 qcd_wavelet_kern = cod.get_wavelet_kern();
1160 this->num_subbands = 1 + 3 * qcd_num_decompositions;
1161 if (qcd_wavelet_kern == param_cod::DWT_REV53)
1162 set_rev_quant(qcd_num_decompositions, qcd_bit_depth,
1163 qcd_component < 3 ? employing_color_transform : false);
1164 else if (qcd_wavelet_kern == param_cod::DWT_IRV97)
1165 {
1166 if (this->base_delta == -1.0f)
1167 this->base_delta = 1.0f / (float)(1 << qcd_bit_depth);
1168 set_irrev_quant(qcd_num_decompositions);
1169 }
1170 else
1171 assert(0);
1172 }
1173
1174 // if not all the same and captured by QCD, then create QCC for them
1175 if (!all_same)
1176 {
1177 bool employing_color_transform = cod.is_employing_color_transform();
1178 for (ui32 c = 0; c < num_comps; ++c)
1179 {
1180 const param_cod *cp = cod.get_coc(c);
1181 if (qcd_num_decompositions == cp->get_num_decompositions()
1182 && qcd_bit_depth == siz.get_bit_depth(c)
1183 && qcd_is_signed == siz.is_signed(c)
1184 && qcd_wavelet_kern == cp->get_wavelet_kern())
1185 continue; // captured by QCD
1186
1187 // Does not match QCD, must have QCC
1188 param_qcd *qp = get_qcc(c);
1189 if (qp == this) // no QCC was defined, create QCC
1190 qp = this->add_qcc_object(c);
1191
1192 ui32 num_decompositions = cp->get_num_decompositions();
1193 qp->num_subbands = 1 + 3 * num_decompositions;
1194 ui32 bit_depth = siz.get_bit_depth(c);
1196 qp->set_rev_quant(num_decompositions, bit_depth,
1197 c < 3 ? employing_color_transform : false);
1198 else if (cp->get_wavelet_kern() == param_cod::DWT_IRV97)
1199 {
1200 if (qp->base_delta == -1.0f)
1201 qp->base_delta = 1.0f / (float)(1 << bit_depth);
1202 qp->set_irrev_quant(num_decompositions);
1203 }
1204 else
1205 assert(0);
1206 }
1207 }
1208 else if (other_comps_exist) // Some are captured by QCD
1209 {
1210 bool employing_color_transform = cod.is_employing_color_transform();
1211 for (ui32 c = 0; c < num_comps; ++c)
1212 {
1213 param_qcd *qp = get_qcc(c);
1214 if (qp == this) // if captured by QCD continue
1215 continue;
1216 const param_cod *cp = cod.get_coc(c);
1217 ui32 num_decompositions = cp->get_num_decompositions();
1218 qp->num_subbands = 1 + 3 * num_decompositions;
1219 ui32 bit_depth = siz.get_bit_depth(c);
1221 qp->set_rev_quant(num_decompositions, bit_depth,
1222 c < 3 ? employing_color_transform : false);
1223 else if (cp->get_wavelet_kern() == param_cod::DWT_IRV97)
1224 {
1225 if (qp->base_delta == -1.0f)
1226 qp->base_delta = 1.0f / (float)(1 << bit_depth);
1227 qp->set_irrev_quant(num_decompositions);
1228 }
1229 else
1230 assert(0);
1231 }
1232 }
1233 }
1234
1236 void param_qcd::set_delta(ui32 comp_idx, float delta)
1237 {
1238 assert(type == QCD_MAIN);
1240 if (p == NULL)
1242 p->set_delta(delta);
1243 }
1244
1246 void param_qcd::set_rev_quant(ui32 num_decomps, ui32 bit_depth,
1247 bool is_employing_color_transform)
1248 {
1249 ui32 B = bit_depth;
1250 B += is_employing_color_transform ? 1 : 0; //1 bit for RCT
1251 int s = 0;
1252 double bibo_l = bibo_gains::get_bibo_gain_l(num_decomps, true);
1253 ui32 X = (ui32) ceil(log(bibo_l * bibo_l) / M_LN2);
1254 SPqcd.u8[s++] = (ui8)(B + X);
1255 ui32 max_B_plus_X = (ui32)(B + X);
1256 for (ui32 d = num_decomps; d > 0; --d)
1257 {
1258 double bibo_l = bibo_gains::get_bibo_gain_l(d, true);
1259 double bibo_h = bibo_gains::get_bibo_gain_h(d - 1, true);
1260 X = (ui32) ceil(log(bibo_h * bibo_l) / M_LN2);
1261 SPqcd.u8[s++] = (ui8)(B + X);
1262 max_B_plus_X = ojph_max(max_B_plus_X, B + X);
1263 SPqcd.u8[s++] = (ui8)(B + X);
1264 max_B_plus_X = ojph_max(max_B_plus_X, B + X);
1265 X = (ui32) ceil(log(bibo_h * bibo_h) / M_LN2);
1266 SPqcd.u8[s++] = (ui8)(B + X);
1267 max_B_plus_X = ojph_max(max_B_plus_X, B + X);
1268 }
1269
1270 if (max_B_plus_X > 38)
1271 OJPH_ERROR(0x00050151, "The specified combination of bit_depth, "
1272 "colour transform, and type of wavelet transform requires more than "
1273 "38 bits; it requires %d bits. This is beyond what is allowed in "
1274 "the JPEG2000 image coding format.", max_B_plus_X);
1275
1276 int guard_bits = ojph_max(1, (si32)max_B_plus_X - 31);
1277 Sqcd = (ui8)(guard_bits << 5);
1278 s = 0;
1279 SPqcd.u8[s] = encode_SPqcd((ui8)(SPqcd.u8[s] - guard_bits));
1280 s++;
1281 for (ui32 d = num_decomps; d > 0; --d)
1282 {
1283 SPqcd.u8[s] = encode_SPqcd((ui8)(SPqcd.u8[s] - guard_bits));
1284 s++;
1285 SPqcd.u8[s] = encode_SPqcd((ui8)(SPqcd.u8[s] - guard_bits));
1286 s++;
1287 SPqcd.u8[s] = encode_SPqcd((ui8)(SPqcd.u8[s] - guard_bits));
1288 s++;
1289 }
1290 }
1291
1294 {
1295 int guard_bits = 1;
1296 Sqcd = (ui8)((guard_bits<<5)|0x2);//one guard bit, scalar quantization
1297 int s = 0;
1298 float gain_l = sqrt_energy_gains::get_gain_l(num_decomps, false);
1299 float delta_b = base_delta / (gain_l * gain_l);
1300 int exp = 0, mantissa;
1301 while (delta_b < 1.0f)
1302 { exp++; delta_b *= 2.0f; }
1303 //with rounding, there is a risk of becoming equal to 1<<12
1304 // but that should not happen in reality
1305 mantissa = (int)round(delta_b * (float)(1<<11)) - (1<<11);
1306 mantissa = mantissa < (1<<11) ? mantissa : 0x7FF;
1307 SPqcd.u16[s++] = (ui16)((exp << 11) | mantissa);
1308 for (ui32 d = num_decomps; d > 0; --d)
1309 {
1310 float gain_l = sqrt_energy_gains::get_gain_l(d, false);
1311 float gain_h = sqrt_energy_gains::get_gain_h(d - 1, false);
1312
1313 delta_b = base_delta / (gain_l * gain_h);
1314
1315 int exp = 0, mantissa;
1316 while (delta_b < 1.0f)
1317 { exp++; delta_b *= 2.0f; }
1318 mantissa = (int)round(delta_b * (float)(1<<11)) - (1<<11);
1319 mantissa = mantissa < (1<<11) ? mantissa : 0x7FF;
1320 SPqcd.u16[s++] = (ui16)((exp << 11) | mantissa);
1321 SPqcd.u16[s++] = (ui16)((exp << 11) | mantissa);
1322
1323 delta_b = base_delta / (gain_h * gain_h);
1324
1325 exp = 0;
1326 while (delta_b < 1)
1327 { exp++; delta_b *= 2.0f; }
1328 mantissa = (int)round(delta_b * (float)(1<<11)) - (1<<11);
1329 mantissa = mantissa < (1<<11) ? mantissa : 0x7FF;
1330 SPqcd.u16[s++] = (ui16)((exp << 11) | mantissa);
1331 }
1332 }
1333
1336 {
1337 ui32 B = 0;
1338
1339 const param_qcd *p = this;
1340 while (p)
1341 {
1342 //this can be written better, but it is only executed once
1343 // this assumes a bi-directional wavelet (conventional DWT)
1344 ui32 num_decomps = (p->num_subbands - 1) / 3;
1345
1346 int irrev = p->Sqcd & 0x1F;
1347 if (irrev == 0) //reversible
1348 for (ui32 i = 0; i < p->num_subbands; ++i) {
1349 ui32 t = p->decode_SPqcd(p->SPqcd.u8[i]);
1350 t += p->get_num_guard_bits() - 1u;
1351 B = ojph_max(B, t);
1352 }
1353 else if (irrev == 2) //scalar expounded
1354 for (ui32 i = 0; i < p->num_subbands; ++i)
1355 {
1356 ui32 nb = num_decomps - (i ? (i - 1) / 3 : 0); //decompsition level
1357 ui32 t = (p->SPqcd.u16[i] >> 11) + p->get_num_guard_bits() - nb;
1358 B = ojph_max(B, t);
1359 }
1360 else
1361 assert(0);
1362
1363 p = p->next;
1364 }
1365
1366 return B;
1367 }
1368
1371 ui32 num_decompositions,
1372 ui32 resolution, ui32 subband) const
1373 {
1374 float arr[] = { 1.0f, 2.0f, 2.0f, 4.0f };
1375 assert((Sqcd & 0x1F) == 2);
1376
1377 ui32 idx;
1378 if (dfs != NULL && dfs->exists())
1379 idx = dfs->get_subband_idx(num_decompositions, resolution, subband);
1380 else
1381 idx = resolution ? (resolution - 1) * 3 + subband : 0;
1382 if (idx >= num_subbands) {
1383 OJPH_INFO(0x00050101, "Trying to access quantization step size for "
1384 "subband %d when the QCD/QCC marker segment specifies "
1385 "quantization step sizes for %d subbands only. To continue "
1386 "decoding, we are using the step size for subband %d, which can "
1387 "produce incorrect results",
1388 idx + 1, num_subbands, num_subbands - 1);
1389 idx = num_subbands - 1;
1390 }
1391 int eps = SPqcd.u16[idx] >> 11;
1392 float mantissa;
1393 mantissa = (float)((SPqcd.u16[idx] & 0x7FF) | 0x800) * arr[subband];
1394 mantissa /= (float)(1 << 11);
1395 mantissa /= (float)(1u << eps);
1396 return mantissa;
1397 }
1398
1401 {
1402 ui32 comp_idx = cod->get_comp_idx();
1403 ui32 precision = 0;
1404 const param_cod *main =
1406 if (main->is_employing_color_transform() && comp_idx < 3)
1407 {
1408 for (ui32 i = 0; i < 3; ++i) {
1409 const param_qcd* p = this->get_qcc(i);
1410 precision = ojph_max(precision, p->get_largest_Kmax());
1411 }
1412 }
1413 else {
1414 precision = get_largest_Kmax();
1415 }
1416 // ``precision'' now holds the largest K_max, which excludes the sign
1417 // bit.
1418 // + 1 for the sign bit
1419 // + 1 because my block decoder/encoder does not supports up to 30
1420 // bits (not 31), so we bump it by one more bit.
1421 return precision + 1 + 1;
1422 }
1423
1426 {
1427 return (Sqcd >> 5);
1428 }
1429
1431 ui32 param_qcd::get_Kmax(const param_dfs* dfs, ui32 num_decompositions,
1432 ui32 resolution, ui32 subband) const
1433 {
1434 ui32 idx;
1435 if (dfs != NULL && dfs->exists())
1436 idx = dfs->get_subband_idx(num_decompositions, resolution, subband);
1437 else
1438 idx = resolution ? (resolution - 1) * 3 + subband : 0;
1439 if (idx >= num_subbands) {
1440 OJPH_INFO(0x00050111, "Trying to access quantization step size for "
1441 "subband %d when the QCD/QCC marker segment specifies "
1442 "quantization step sizes for %d subbands only. To continue "
1443 "decoding, we are using the step size for subband %d, which can "
1444 "produce incorrect results",
1445 idx + 1, num_subbands, num_subbands - 1);
1446 idx = num_subbands - 1;
1447 }
1448
1449 int irrev = Sqcd & 0x1F;
1450 ui32 num_bits = 0;
1451 if (irrev == 0) // reversible; this is (10.22) from the J2K book
1452 {
1453 num_bits = decode_SPqcd(SPqcd.u8[idx]);
1454 num_bits = num_bits == 0 ? 0 : num_bits - 1;
1455 }
1456 else if (irrev == 1)
1457 assert(0);
1458 else if (irrev == 2) //scalar expounded
1459 num_bits = (SPqcd.u16[idx] >> 11) - 1;
1460 else
1461 assert(0);
1462
1463 return num_bits + get_num_guard_bits();
1464 }
1465
1468 {
1469 int irrev = Sqcd & 0x1F;
1470 ui32 num_bits = 0;
1471 if (irrev == 0) // reversible; this is (10.22) from the J2K book
1472 {
1473 for (ui32 i = 0; i < num_subbands; ++i) {
1474 ui32 t = decode_SPqcd(SPqcd.u8[i]);
1475 num_bits = ojph_max(num_bits, t == 0 ? 0 : t - 1);
1476 }
1477 }
1478 else if (irrev == 1)
1479 assert(0);
1480 else if (irrev == 2) //scalar expounded
1481 {
1482 for (ui32 i = 0; i < num_subbands; ++i) {
1483 ui32 t = (SPqcd.u16[i] >> 11) - 1;
1484 num_bits = ojph_max(num_bits, t);
1485 }
1486 }
1487 else
1488 assert(0);
1489
1490 return num_bits + get_num_guard_bits();
1491 }
1492
1495 {
1496 int irrev = Sqcd & 0x1F;
1497
1498 //marker size excluding header
1499 Lqcd = 3;
1500 if (irrev == 0)
1501 Lqcd = (ui16)(Lqcd + num_subbands);
1502 else if (irrev == 2)
1503 Lqcd = (ui16)(Lqcd + 2 * num_subbands);
1504 else
1505 assert(0);
1506
1507 char buf[4];
1508 bool result = true;
1509
1510 *(ui16*)buf = JP2K_MARKER::QCD;
1511 *(ui16*)buf = swap_byte(*(ui16*)buf);
1512 result &= file->write(&buf, 2) == 2;
1513 *(ui16*)buf = swap_byte(Lqcd);
1514 result &= file->write(&buf, 2) == 2;
1515 *(ui8*)buf = Sqcd;
1516 result &= file->write(&buf, 1) == 1;
1517
1518 if (irrev == 0)
1519 for (ui32 i = 0; i < num_subbands; ++i)
1520 {
1521 *(ui8*)buf = SPqcd.u8[i];
1522 result &= file->write(&buf, 1) == 1;
1523 }
1524 else if (irrev == 2)
1525 for (ui32 i = 0; i < num_subbands; ++i)
1526 {
1527 *(ui16*)buf = swap_byte(SPqcd.u16[i]);
1528 result &= file->write(&buf, 2) == 2;
1529 }
1530 else
1531 assert(0);
1532
1533 return result;
1534 }
1535
1538 {
1539 assert(type == QCD_MAIN);
1540 bool result = true;
1541 param_qcd *p = this->next;
1542 while (p)
1543 {
1544 if (p->enabled)
1545 result &= p->internal_write_qcc(file, num_comps);
1546 p = p->next;
1547 }
1548 return result;
1549 }
1550
1553 {
1554 int irrev = Sqcd & 0x1F;
1555
1556 //marker size excluding header
1557 Lqcd = (ui16)(4 + (num_comps < 257 ? 0 : 1));
1558 if (irrev == 0)
1559 Lqcd = (ui16)(Lqcd + num_subbands);
1560 else if (irrev == 2)
1561 Lqcd = (ui16)(Lqcd + 2 * num_subbands);
1562 else
1563 assert(0);
1564
1565 char buf[4];
1566 bool result = true;
1567
1568 *(ui16*)buf = JP2K_MARKER::QCC;
1569 *(ui16*)buf = swap_byte(*(ui16*)buf);
1570 result &= file->write(&buf, 2) == 2;
1571 *(ui16*)buf = swap_byte(Lqcd);
1572 result &= file->write(&buf, 2) == 2;
1573 if (num_comps < 257)
1574 {
1575 *(ui8*)buf = (ui8)comp_idx;
1576 result &= file->write(&buf, 1) == 1;
1577 }
1578 else
1579 {
1580 *(ui16*)buf = swap_byte(comp_idx);
1581 result &= file->write(&buf, 2) == 2;
1582 }
1583 *(ui8*)buf = Sqcd;
1584 result &= file->write(&buf, 1) == 1;
1585 if (irrev == 0)
1586 for (ui32 i = 0; i < num_subbands; ++i)
1587 {
1588 *(ui8*)buf = SPqcd.u8[i];
1589 result &= file->write(&buf, 1) == 1;
1590 }
1591 else if (irrev == 2)
1592 for (ui32 i = 0; i < num_subbands; ++i)
1593 {
1594 *(ui16*)buf = swap_byte(SPqcd.u16[i]);
1595 result &= file->write(&buf, 2) == 2;
1596 }
1597 else
1598 assert(0);
1599
1600 return result;
1601 }
1602
1605 {
1606 assert(type == QCD_MAIN && comp_idx == OJPH_QCD_DEFAULT);
1607 param_qcd *p = this->next;
1608 while (p)
1609 {
1610 assert(p->type == QCC_MAIN);
1611 p->enabled = p->comp_idx < num_comps;
1612 p = p->next;
1613 }
1614 }
1615
1618 {
1619 if (file->read(&Lqcd, 2) != 2)
1620 OJPH_ERROR(0x00050081, "error reading QCD marker");
1621 Lqcd = swap_byte(Lqcd);
1622 if (file->read(&Sqcd, 1) != 1)
1623 OJPH_ERROR(0x00050082, "error reading QCD marker");
1624 if ((Sqcd & 0x1F) == 0)
1625 {
1626 num_subbands = (Lqcd - 3);
1627 if (Lqcd != 3 + num_subbands)
1628 OJPH_ERROR(0x00050083, "wrong Lqcd value in QCD marker");
1629 for (ui32 i = 0; i < num_subbands; ++i)
1630 if (file->read(&SPqcd.u8[i], 1) != 1)
1631 OJPH_ERROR(0x00050084, "error reading QCD marker");
1632 }
1633 else if ((Sqcd & 0x1F) == 1)
1634 {
1635 num_subbands = 0;
1636 OJPH_ERROR(0x00050089,
1637 "Scalar derived quantization is not supported yet in QCD marker");
1638 if (Lqcd != 5)
1639 OJPH_ERROR(0x00050085, "wrong Lqcd value in QCD marker");
1640 }
1641 else if ((Sqcd & 0x1F) == 2)
1642 {
1643 num_subbands = (Lqcd - 3) / 2;
1644 if (Lqcd != 3 + 2 * num_subbands)
1645 OJPH_ERROR(0x00050086, "wrong Lqcd value in QCD marker");
1646 for (ui32 i = 0; i < num_subbands; ++i)
1647 {
1648 if (file->read(&SPqcd.u16[i], 2) != 2)
1649 OJPH_ERROR(0x00050087, "error reading QCD marker");
1650 SPqcd.u16[i] = swap_byte(SPqcd.u16[i]);
1651 }
1652 }
1653 else
1654 OJPH_ERROR(0x00050088, "wrong Sqcd value in QCD marker");
1655 }
1656
1658 void param_qcd::read_qcc(infile_base *file, ui32 num_comps)
1659 {
1660 if (file->read(&Lqcd, 2) != 2)
1661 OJPH_ERROR(0x000500A1, "error reading QCC marker");
1662 Lqcd = swap_byte(Lqcd);
1663 if (num_comps < 257)
1664 {
1665 ui8 v;
1666 if (file->read(&v, 1) != 1)
1667 OJPH_ERROR(0x000500A2, "error reading QCC marker");
1668 comp_idx = v;
1669 }
1670 else
1671 {
1672 if (file->read(&comp_idx, 2) != 2)
1673 OJPH_ERROR(0x000500A3, "error reading QCC marker");
1675 }
1676 if (file->read(&Sqcd, 1) != 1)
1677 OJPH_ERROR(0x000500A4, "error reading QCC marker");
1678 ui32 offset = num_comps < 257 ? 4 : 5;
1679 if ((Sqcd & 0x1F) == 0)
1680 {
1681 num_subbands = (Lqcd - offset);
1682 if (Lqcd != offset + num_subbands)
1683 OJPH_ERROR(0x000500A5, "wrong Lqcd value in QCC marker");
1684 for (ui32 i = 0; i < num_subbands; ++i)
1685 if (file->read(&SPqcd.u8[i], 1) != 1)
1686 OJPH_ERROR(0x000500A6, "error reading QCC marker");
1687 }
1688 else if ((Sqcd & 0x1F) == 1)
1689 {
1690 num_subbands = 0;
1691 OJPH_ERROR(0x000500AB,
1692 "Scalar derived quantization is not supported yet in QCC marker");
1693 if (Lqcd != offset)
1694 OJPH_ERROR(0x000500A7, "wrong Lqcc value in QCC marker");
1695 }
1696 else if ((Sqcd & 0x1F) == 2)
1697 {
1698 num_subbands = (Lqcd - offset) / 2;
1699 if (Lqcd != offset + 2 * num_subbands)
1700 OJPH_ERROR(0x000500A8, "wrong Lqcc value in QCC marker");
1701 for (ui32 i = 0; i < num_subbands; ++i)
1702 {
1703 if (file->read(&SPqcd.u16[i], 2) != 2)
1704 OJPH_ERROR(0x000500A9, "error reading QCC marker");
1705 SPqcd.u16[i] = swap_byte(SPqcd.u16[i]);
1706 }
1707 }
1708 else
1709 OJPH_ERROR(0x000500AA, "wrong Sqcc value in QCC marker");
1710 }
1711
1714 {
1715 // cast object to constant
1716 const param_qcd* const_p = const_cast<const param_qcd*>(this);
1717 // call using the constant object, then cast to non-const
1718 return const_cast<param_qcd*>(const_p->get_qcc(comp_idx));
1719 }
1720
1722 const param_qcd* param_qcd::get_qcc(ui32 comp_idx) const
1723 {
1724 assert(this->type == QCD_MAIN || this->top_qcd->type == QCD_MAIN);
1725 const param_qcd *p, *q;
1726 if (this->type == QCD_MAIN)
1727 q = p = this;
1728 else
1729 q = p = this->top_qcd;
1730 while (p && p->comp_idx != comp_idx)
1731 p = p->next;
1732 return p ? p : q;
1733 }
1734
1737 {
1738 assert(type == QCD_MAIN);
1739 param_qcd *p = this;
1740 while (p->next != NULL)
1741 p = p->next;
1742 p->next = new param_qcd(this, (ui16)comp_idx);
1743 return p->next;
1744 }
1745
1747 //
1748 //
1749 //
1750 //
1751 //
1753
1756 {
1757 if (is_any_enabled() == false)
1758 return;
1759
1760 if (this->enabled && this->Tnlt == nonlinearity::OJPH_NLT_NO_NLT)
1761 this->enabled = false;
1762
1763 if (this->enabled &&
1764 this->Tnlt == nonlinearity::OJPH_NLT_BINARY_COMPLEMENT_NLT)
1765 {
1766 bool all_same = true;
1767 ui32 num_comps = siz.get_num_components();
1768
1769 // first stage; find out if all components captured by the default
1770 // entry (ALL_COMPS) has the same bit_depth/signedness,
1771 // while doing this, set the BDnlt for components not captured by the
1772 // default entry (ALL_COMPS)
1773 ui32 bit_depth = 0; // unknown yet
1774 bool is_signed = false; // unknown yet
1775 for (ui32 c = 0; c < num_comps; ++c)
1776 { // captured by ALL_COMPS
1777 param_nlt* p = get_nlt_object(c);
1778 if (p == NULL || !p->enabled)
1779 {
1780 if (bit_depth != 0)
1781 {
1782 // we have seen an undefined component previously
1783 all_same = all_same && (bit_depth == siz.get_bit_depth(c));
1784 all_same = all_same && (is_signed == siz.is_signed(c));
1785 }
1786 else
1787 {
1788 // this is the first component which has not type 3 nlt definition
1789 bit_depth = siz.get_bit_depth(c);
1790 is_signed = siz.is_signed(c);
1791 }
1792 }
1793 else
1794 { // can be type 0 or type 3
1795 p->BDnlt = (ui8)(siz.get_bit_depth(c) - 1);
1796 p->BDnlt = (ui8)(p->BDnlt | (siz.is_signed(c) ? 0x80 : 0));
1797 }
1798 }
1799
1800 if (all_same && bit_depth != 0)
1801 { // all the same, and some components are captured by ALL_COMPS
1802 this->BDnlt = (ui8)(bit_depth - 1);
1803 this->BDnlt = (ui8)(this->BDnlt | (is_signed ? 0x80 : 0));
1804 }
1805 else if (!all_same)
1806 { // have different settings or no component is captured by ALL_COMPS
1807 this->enabled = false;
1808 for (ui32 c = 0; c < num_comps; ++c)
1809 {
1810 param_nlt* p = get_nlt_object(c);
1811 if (p == NULL || !p->enabled)
1812 { // captured by ALL_COMPS
1813 if (p == NULL)
1814 p = add_object(c);
1815 p->enabled = true;
1816 p->Tnlt = nonlinearity::OJPH_NLT_BINARY_COMPLEMENT_NLT;
1817 p->BDnlt = (ui8)(siz.get_bit_depth(c) - 1);
1818 p->BDnlt = (ui8)(p->BDnlt | (siz.is_signed(c) ? 0x80 : 0));
1819 }
1820 }
1821 }
1822 }
1823 else {
1824 // fill NLT segment markers with correct information
1825 ui32 num_comps = siz.get_num_components();
1826 for (ui32 c = 0; c < num_comps; ++c)
1827 { // captured by ALL_COMPS
1828 param_nlt* p = get_nlt_object(c);
1829 if (p != NULL && p->enabled)
1830 { // can be type 0 or type 3
1831 p->BDnlt = (ui8)(siz.get_bit_depth(c) - 1);
1832 p->BDnlt = (ui8)(p->BDnlt | (siz.is_signed(c) ? 0x80 : 0));
1833 }
1834 }
1835 }
1836
1838
1839 if (is_any_enabled() == true)
1841 }
1842
1845 {
1846 if (nl_type != ojph::param_nlt::OJPH_NLT_NO_NLT &&
1848 OJPH_ERROR(0x00050171, "Nonliearities other than type 0 "
1849 "(No Nonlinearity) or type 3 (Binary Binary Complement to Sign "
1850 "Magnitude Conversion) are not supported yet");
1851 param_nlt* p = get_nlt_object(comp_num);
1852 if (p == NULL)
1853 p = add_object(comp_num);
1854 p->Tnlt = nl_type;
1855 p->enabled = true;
1856 }
1857
1859 bool
1861 bool& is_signed, ui8& nl_type) const
1862 {
1863 assert(Cnlt == special_comp_num::ALL_COMPS);
1864 const param_nlt* p = get_nlt_object(comp_num);
1865 p = (p && p->enabled) ? p : this;
1866 if (p->enabled)
1867 {
1868 bit_depth = (ui8)((p->BDnlt & 0x7F) + 1);
1869 bit_depth = bit_depth <= 38 ? bit_depth : 38;
1870 is_signed = (p->BDnlt & 0x80) == 0x80;
1871 nl_type = (nonlinearity)p->Tnlt;
1872 return true;
1873 }
1874 return false;
1875 }
1876
1879 {
1880 if (is_any_enabled() == false)
1881 return true;
1882
1883 char buf[2];
1884 bool result = true;
1885 const param_nlt* p = this;
1886 while (p)
1887 {
1888 if (p->enabled)
1889 {
1890 *(ui16*)buf = JP2K_MARKER::NLT;
1891 *(ui16*)buf = swap_byte(*(ui16*)buf);
1892 result &= file->write(&buf, 2) == 2;
1893 *(ui16*)buf = swap_byte(p->Lnlt);
1894 result &= file->write(&buf, 2) == 2;
1895 *(ui16*)buf = swap_byte(p->Cnlt);
1896 result &= file->write(&buf, 2) == 2;
1897 result &= file->write(&p->BDnlt, 1) == 1;
1898 result &= file->write(&p->Tnlt, 1) == 1;
1899 }
1900 p = p->next;
1901 }
1902 return result;
1903 }
1904
1907 {
1908 ui8 buf[6];
1909
1910 if (file->read(buf, 6) != 6)
1911 OJPH_ERROR(0x00050141, "error reading NLT marker segment");
1912
1913 ui16 length = swap_byte(*(ui16*)buf);
1914 if (length != 6 || (buf[5] != 3 && buf[5] != 0)) // wrong length or type
1915 OJPH_ERROR(0x00050142, "Unsupported NLT type %d\n", buf[5]);
1916
1917 ui16 comp = swap_byte(*(ui16*)(buf + 2));
1918 param_nlt* p = get_nlt_object(comp);
1919 if (p == NULL)
1920 p = add_object(comp);
1921 p->enabled = true;
1922 p->Cnlt = comp;
1923 p->BDnlt = buf[4];
1924 p->Tnlt = buf[5];
1925 }
1926
1929 {
1930 // cast object to constant
1931 const param_nlt* const_p = const_cast<const param_nlt*>(this);
1932 // call using the constant object, then cast to non-const
1933 return const_cast<param_nlt*>(const_p->get_nlt_object(comp_num));
1934 }
1935
1938 {
1939 const param_nlt* p = this;
1940 while (p && p->Cnlt != comp_num)
1941 p = p->next;
1942 return p;
1943 }
1944
1947 {
1948 assert(comp_num != special_comp_num::ALL_COMPS);
1949 assert(Cnlt == special_comp_num::ALL_COMPS);
1950 param_nlt* p = this;
1951 while (p->next != NULL) {
1952 assert(p->Cnlt != comp_num);
1953 p = p->next;
1954 }
1955 p->next = new param_nlt;
1956 p->alloced_next = true;
1957 p = p->next;
1958 p->Cnlt = (ui16)comp_num;
1959 return p;
1960 }
1961
1964 {
1965 // check if any field is enabled
1966 const param_nlt* p = this;
1967 while (p && p->enabled == false)
1968 p = p->next;
1969 return (p != NULL);
1970 }
1971
1974 {
1975 param_nlt* p = this->next;
1976 while (p) {
1977 if (p->enabled == true && p->Cnlt >= num_comps) {
1978 p->enabled = false;
1979 OJPH_INFO(0x00050161, "The NLT marker segment for the "
1980 "non-existing component %d has been removed.", p->Cnlt);
1981 }
1982 p = p->next;
1983 }
1984 }
1985
1986
1988 //
1989 //
1990 //
1991 //
1992 //
1994
1996 bool param_sot::write(outfile_base *file, ui32 payload_len)
1997 {
1998 char buf[4];
1999 bool result = true;
2000
2001 this->Psot = payload_len + 14; //inc. SOT marker, field & SOD
2002
2003 *(ui16*)buf = JP2K_MARKER::SOT;
2004 *(ui16*)buf = swap_byte(*(ui16*)buf);
2005 result &= file->write(&buf, 2) == 2;
2006 *(ui16*)buf = swap_byte(Lsot);
2007 result &= file->write(&buf, 2) == 2;
2008 *(ui16*)buf = swap_byte(Isot);
2009 result &= file->write(&buf, 2) == 2;
2010 *(ui32*)buf = swap_byte(Psot);
2011 result &= file->write(&buf, 4) == 4;
2012 result &= file->write(&TPsot, 1) == 1;
2013 result &= file->write(&TNsot, 1) == 1;
2014
2015 return result;
2016 }
2017
2019 bool param_sot::write(outfile_base *file, ui32 payload_len,
2020 ui8 TPsot, ui8 TNsot)
2021 {
2022 char buf[4];
2023 bool result = true;
2024
2025 *(ui16*)buf = JP2K_MARKER::SOT;
2026 *(ui16*)buf = swap_byte(*(ui16*)buf);
2027 result &= file->write(&buf, 2) == 2;
2028 *(ui16*)buf = swap_byte(Lsot);
2029 result &= file->write(&buf, 2) == 2;
2030 *(ui16*)buf = swap_byte(Isot);
2031 result &= file->write(&buf, 2) == 2;
2032 *(ui32*)buf = swap_byte(payload_len + 14);
2033 result &= file->write(&buf, 4) == 4;
2034 result &= file->write(&TPsot, 1) == 1;
2035 result &= file->write(&TNsot, 1) == 1;
2036
2037 return result;
2038 }
2039
2041 bool param_sot::read(infile_base *file, bool resilient)
2042 {
2043 if (resilient)
2044 {
2045 if (file->read(&Lsot, 2) != 2)
2046 {
2047 OJPH_INFO(0x00050091, "error reading SOT marker");
2048 Lsot = 0; Isot = 0; Psot = 0; TPsot = 0; TNsot = 0;
2049 return false;
2050 }
2051 Lsot = swap_byte(Lsot);
2052 if (Lsot != 10)
2053 {
2054 OJPH_INFO(0x00050092, "error in SOT length");
2055 Lsot = 0; Isot = 0; Psot = 0; TPsot = 0; TNsot = 0;
2056 return false;
2057 }
2058 if (file->read(&Isot, 2) != 2)
2059 {
2060 OJPH_INFO(0x00050093, "error reading tile index");
2061 Lsot = 0; Isot = 0; Psot = 0; TPsot = 0; TNsot = 0;
2062 return false;
2063 }
2064 Isot = swap_byte(Isot);
2065 if (Isot == 0xFFFF)
2066 {
2067 OJPH_INFO(0x00050094, "tile index in SOT marker cannot be 0xFFFF");
2068 Lsot = 0; Isot = 0; Psot = 0; TPsot = 0; TNsot = 0;
2069 return false;
2070 }
2071 if (file->read(&Psot, 4) != 4)
2072 {
2073 OJPH_INFO(0x00050095, "error reading SOT marker");
2074 Lsot = 0; Isot = 0; Psot = 0; TPsot = 0; TNsot = 0;
2075 return false;
2076 }
2077 Psot = swap_byte(Psot);
2078 if (file->read(&TPsot, 1) != 1)
2079 {
2080 OJPH_INFO(0x00050096, "error reading SOT marker");
2081 Lsot = 0; Isot = 0; Psot = 0; TPsot = 0; TNsot = 0;
2082 return false;
2083 }
2084 if (file->read(&TNsot, 1) != 1)
2085 {
2086 OJPH_INFO(0x00050097, "error reading SOT marker");
2087 Lsot = 0; Isot = 0; Psot = 0; TPsot = 0; TNsot = 0;
2088 return false;
2089 }
2090 }
2091 else
2092 {
2093 if (file->read(&Lsot, 2) != 2)
2094 OJPH_ERROR(0x00050091, "error reading SOT marker");
2095 Lsot = swap_byte(Lsot);
2096 if (Lsot != 10)
2097 OJPH_ERROR(0x00050092, "error in SOT length");
2098 if (file->read(&Isot, 2) != 2)
2099 OJPH_ERROR(0x00050093, "error reading SOT tile index");
2100 Isot = swap_byte(Isot);
2101 if (Isot == 0xFFFF)
2102 OJPH_ERROR(0x00050094, "tile index in SOT marker cannot be 0xFFFF");
2103 if (file->read(&Psot, 4) != 4)
2104 OJPH_ERROR(0x00050095, "error reading SOT marker");
2105 Psot = swap_byte(Psot);
2106 if (file->read(&TPsot, 1) != 1)
2107 OJPH_ERROR(0x00050096, "error reading SOT marker");
2108 if (file->read(&TNsot, 1) != 1)
2109 OJPH_ERROR(0x00050097, "error reading SOT marker");
2110 }
2111 return true;
2112 }
2113
2115 //
2116 //
2117 //
2118 //
2119 //
2121
2123 void param_tlm::init(ui32 num_pairs, Ttlm_Ptlm_pair *store)
2124 {
2125 if (4 + 6 * num_pairs > 65535)
2126 OJPH_ERROR(0x000500B1, "Trying to allocate more than 65535 bytes for "
2127 "a TLM marker; this can be resolved by having more than "
2128 "one TLM marker, but the code does not support this. "
2129 "In any case, this limit means that we have 10922 "
2130 "tileparts or more, which is a huge number.");
2131 this->num_pairs = num_pairs;
2132 pairs = store;
2133 Ltlm = (ui16)(4 + 6 * num_pairs);
2134 Ztlm = 0;
2135 Stlm = 0x60;
2136 }
2137
2140 {
2141 assert(next_pair_index < num_pairs);
2142 pairs[next_pair_index].Ttlm = Ttlm;
2143 pairs[next_pair_index].Ptlm = Ptlm + 14;
2145 }
2146
2149 {
2150 assert(next_pair_index == num_pairs);
2151 char buf[4];
2152 bool result = true;
2153
2154 *(ui16*)buf = JP2K_MARKER::TLM;
2155 *(ui16*)buf = swap_byte(*(ui16*)buf);
2156 result &= file->write(&buf, 2) == 2;
2157 *(ui16*)buf = swap_byte(Ltlm);
2158 result &= file->write(&buf, 2) == 2;
2159 result &= file->write(&Ztlm, 1) == 1;
2160 result &= file->write(&Stlm, 1) == 1;
2161 for (ui32 i = 0; i < num_pairs; ++i)
2162 {
2163 *(ui16*)buf = swap_byte(pairs[i].Ttlm);
2164 result &= file->write(&buf, 2) == 2;
2165 *(ui32*)buf = swap_byte(pairs[i].Ptlm);
2166 result &= file->write(&buf, 4) == 4;
2167 }
2168 return result;
2169 }
2170
2172 //
2173 //
2174 //
2175 //
2176 //
2178
2180 const param_dfs* param_dfs::get_dfs(int index) const
2181 {
2182 const param_dfs* p = this;
2183 while (p && p->Sdfs != index)
2184 p = p->next;
2185 return p;
2186 }
2187
2190 {
2191 decomp_level = ojph_min(decomp_level, Ids);
2192 ui32 d = decomp_level - 1; // decomp_level starts from 1
2193 ui32 idx = d >> 2; // complete bytes
2194 ui32 bits = d & 0x3; // bit within the bytes
2195 ui32 val = (Ddfs[idx] >> (6 - 2 * bits)) & 0x3;
2196 return (dfs_dwt_type)val;
2197 }
2198
2201 ui32 subband) const
2202 {
2203 assert((resolution == 0 && subband == 0) ||
2204 (resolution > 0 && subband > 0 && subband < 4));
2205
2206 ui32 ns[4] = { 0, 3, 1, 1 };
2207
2208 ui32 idx = 0;
2209 if (resolution > 0)
2210 {
2211 idx = 0;
2212 ui32 i = 1;
2213 for (; i < resolution; ++i)
2214 idx += ns[get_dwt_type(num_decompositions - i + 1)];
2215 dfs_dwt_type t = get_dwt_type(num_decompositions - i + 1);
2216 idx += subband;
2217 if (t == VERT_DWT && subband == 2)
2218 --idx;
2219 }
2220
2221 return idx;
2222 }
2223
2225 point param_dfs::get_res_downsamp(ui32 skipped_resolutions) const
2226 {
2227 point factor(1, 1);
2228 ui32 decomp_level = 1;
2229 while (skipped_resolutions > 0)
2230 {
2231 param_dfs::dfs_dwt_type type = get_dwt_type(decomp_level);
2232 if (type == BIDIR_DWT)
2233 { factor.x *= 2; factor.y *= 2; }
2234 else if (type == HORZ_DWT)
2235 factor.x *= 2;
2236 else if (type == VERT_DWT)
2237 factor.y *= 2;
2238
2239 ++decomp_level;
2240 --skipped_resolutions;
2241 }
2242 return factor;
2243 }
2244
2247 {
2248 if (Ldfs != 0) { // this param_dfs is used
2249 param_dfs* p = this;
2250 while (p->next != NULL)
2251 p = p->next;
2252 p->next = new param_dfs;
2253 p = p->next;
2254 return p->read(file);
2255 }
2256
2257 if (file->read(&Ldfs, 2) != 2)
2258 OJPH_ERROR(0x000500D1, "error reading DFS-Ldfs parameter");
2259 Ldfs = swap_byte(Ldfs);
2260 if (file->read(&Sdfs, 2) != 2)
2261 OJPH_ERROR(0x000500D2, "error reading DFS-Sdfs parameter");
2262 Sdfs = swap_byte(Sdfs);
2263 if (Sdfs > 15)
2264 OJPH_ERROR(0x000500D3, "The DFS-Sdfs parameter is %d, which is "
2265 "larger than the permissible 15", Sdfs);
2266 ui8 t, l_Ids = 0;
2267 if (file->read(&l_Ids, 1) != 1)
2268 OJPH_ERROR(0x000500D4, "error reading DFS-Ids parameter");
2269 constexpr int max_Ddfs = sizeof(Ddfs) * 4;
2270 if (l_Ids > max_Ddfs)
2271 OJPH_INFO(0x000500D5, "The DFS-Ids parameter is %d; while this is "
2272 "valid, the number is unnessarily large -- you do not need more "
2273 "than %d. Please contact me regarding this issue.",
2274 l_Ids, max_Ddfs);
2275 Ids = l_Ids < max_Ddfs ? l_Ids : max_Ddfs;
2276 for (int i = 0; i < Ids; i += 4)
2277 if (file->read(&Ddfs[i / 4], 1) != 1)
2278 OJPH_ERROR(0x000500D6, "error reading DFS-Ddfs parameters");
2279 for (int i = Ids; i < l_Ids; i += 4)
2280 if (file->read(&t, 1) != 1)
2281 OJPH_ERROR(0x000500D7, "error reading DFS-Ddfs parameters");
2282 return true;
2283 }
2284
2286 //
2287 //
2288 //
2289 //
2290 //
2292
2294 const param_atk* param_atk::get_atk(int index) const
2295 {
2296 const param_atk* p = this;
2297 while (p && p->get_index() != index)
2298 p = p->next;
2299 return p;
2300 }
2301
2304 {
2305 int coeff_type = get_coeff_type();
2306 if (coeff_type == 0) { // 8bit
2307 ui8 v;
2308 if (file->read(&v, 1) != 1) return false;
2309 K = v;
2310 }
2311 else if (coeff_type == 1) { // 16bit
2312 ui16 v;
2313 if (file->read(&v, 2) != 2) return false;
2314 K = swap_byte(v);
2315 }
2316 else if (coeff_type == 2) { // float
2317 union {
2318 float f;
2319 ui32 i;
2320 } v;
2321 if (file->read(&v.i, 4) != 4) return false;
2322 v.i = swap_byte(v.i);
2323 K = v.f;
2324 }
2325 else if (coeff_type == 3) { // double
2326 union {
2327 double d;
2328 ui64 i;
2329 } v;
2330 if (file->read(&v.i, 8) != 8) return false;
2331 v.i = swap_byte(v.i);
2332 K = (float)v.d;
2333 }
2334 else if (coeff_type == 4) { // 128 bit float
2335 ui64 v, v1;
2336 if (file->read(&v, 8) != 8) return false;
2337 if (file->read(&v1, 8) != 8) return false; // v1 not needed
2338 v = swap_byte(v);
2339
2340 union {
2341 float f;
2342 ui32 i;
2343 } s;
2344 // convert the MSB of 128b float to 32b float
2345 // 32b float has 1 sign bit, 8 exponent (offset 127), 23 mantissa
2346 // 128b float has 1 sign bit, 15 exponent (offset 16383), 112 mantissa
2347 si32 e = (si32)((v >> 48) & 0x7FFF); // exponent
2348 e -= 16383;
2349 e += 127;
2350 e = e & 0xFF; // removes MSBs if negative
2351 e <<= 23; // move bits to their location
2352 s.i = 0;
2353 s.i |= ((ui32)(v >> 32) & 0x80000000); // copy sign bit
2354 s.i |= (ui32)e; // copy exponent
2355 s.i |= (ui32)((v >> 25) & 0x007FFFFF); // copy 23 mantissa
2356 K = s.f;
2357 }
2358 return true;
2359 }
2360
2361
2364 {
2365 int coeff_type = get_coeff_type();
2366 if (coeff_type == 0) {
2367 si8 v;
2368 if (file->read(&v, 1) != 1) return false;
2369 K = v;
2370 }
2371 else if (coeff_type == 1) {
2372 si16 v;
2373 if (file->read(&v, 2) != 2) return false;
2374 K = (si16)swap_byte((ui16)v);
2375 }
2376 else
2377 return false;
2378 return true;
2379 }
2380
2383 {
2384 if (Latk != 0) { // this param_atk is used
2385 param_atk *p = this;
2386 while (p->next != NULL)
2387 p = p->next;
2388 p->next = new param_atk;
2389 p->alloced_next = true;
2390 p = p->next;
2391 return p->read(file);
2392 }
2393
2394 if (file->read(&Latk, 2) != 2)
2395 OJPH_ERROR(0x000500E1, "error reading ATK-Latk parameter");
2396 Latk = swap_byte(Latk);
2397 if (file->read(&Satk, 2) != 2)
2398 OJPH_ERROR(0x000500E2, "error reading ATK-Satk parameter");
2399 Satk = swap_byte(Satk);
2400 if (is_m_init0() == false) // only even-indexed is supported
2401 OJPH_ERROR(0x000500E3, "ATK-Satk parameter sets m_init to 1, "
2402 "requiring odd-indexed subsequence in first reconstruction step, "
2403 "which is not supported yet.");
2404 if (is_whole_sample() == false) // ARB filter not supported
2405 OJPH_ERROR(0x000500E4, "ATK-Satk parameter specified ARB filter, "
2406 "which is not supported yet.");
2407 if (is_reversible() && get_coeff_type() >= 2) // reversible & float
2408 OJPH_ERROR(0x000500E5, "ATK-Satk parameter does not make sense. "
2409 "It employs floats with reversible filtering.");
2410 if (is_using_ws_extension() == false) // only sym. ext is supported
2411 OJPH_ERROR(0x000500E6, "ATK-Satk parameter requires constant "
2412 "boundary extension, which is not supported yet.");
2413 if (is_reversible() == false)
2414 if (read_coefficient(file, Katk) == false)
2415 OJPH_ERROR(0x000500E7, "error reading ATK-Katk parameter");
2416 if (file->read(&Natk, 1) != 1)
2417 OJPH_ERROR(0x000500E8, "error reading ATK-Natk parameter");
2418 if (Natk > max_steps) {
2419 if (d != d_store) // was this allocated -- very unlikely
2420 delete[] d;
2421 d = new lifting_step[Natk];
2422 max_steps = Natk;
2423 }
2424
2425 if (is_reversible())
2426 {
2427 for (int s = 0; s < Natk; ++s)
2428 {
2429 if (file->read(&d[s].rev.Eatk, 1) != 1)
2430 OJPH_ERROR(0x000500E9, "error reading ATK-Eatk parameter");
2431 if (file->read(&d[s].rev.Batk, 2) != 2)
2432 OJPH_ERROR(0x000500EA, "error reading ATK-Batk parameter");
2433 d[s].rev.Batk = (si16)swap_byte((ui16)d[s].rev.Batk);
2434 ui8 LCatk;
2435 if (file->read(&LCatk, 1) != 1)
2436 OJPH_ERROR(0x000500EB, "error reading ATK-LCatk parameter");
2437 if (LCatk == 0)
2438 OJPH_ERROR(0x000500EC, "Encountered a ATK-LCatk value of zero; "
2439 "something is wrong.");
2440 if (LCatk > 1)
2441 OJPH_ERROR(0x000500ED, "ATK-LCatk value greater than 1; "
2442 "that is, a multitap filter is not supported");
2443 if (read_coefficient(file, d[s].rev.Aatk) == false)
2444 OJPH_ERROR(0x000500EE, "Error reding ATK-Aatk parameter");
2445 }
2446 }
2447 else
2448 {
2449 for (int s = 0; s < Natk; ++s)
2450 {
2451 ui8 LCatk;
2452 if (file->read(&LCatk, 1) != 1)
2453 OJPH_ERROR(0x000500EF, "error reading ATK-LCatk parameter");
2454 if (LCatk == 0)
2455 OJPH_ERROR(0x000500F0, "Encountered a ATK-LCatk value of zero; "
2456 "something is wrong.");
2457 if (LCatk > 1)
2458 OJPH_ERROR(0x000500F1, "ATK-LCatk value greater than 1; "
2459 "that is, a multitap filter is not supported.");
2460 if (read_coefficient(file, d[s].irv.Aatk) == false)
2461 OJPH_ERROR(0x000500F2, "Error reding ATK-Aatk parameter");
2462 }
2463 }
2464
2465 return true;
2466 }
2467
2470 {
2471 Satk = 0x4a00; // illegal because ATK = 0
2472 Katk = (float)1.230174104914001;
2473 Natk = 4;
2474 // next is (A-4) in T.801 second line
2475 Latk = (ui16)(5 + Natk + sizeof(float) * (1 + Natk));
2476 d[0].irv.Aatk = (float)0.443506852043971;
2477 d[1].irv.Aatk = (float)0.882911075530934;
2478 d[2].irv.Aatk = (float)-0.052980118572961;
2479 d[3].irv.Aatk = (float)-1.586134342059924;
2480 }
2481
2484 {
2485 Satk = 0x5801; // illegal because ATK = 1
2486 Natk = 2;
2487 // next is (A-4) in T.801 fourth line
2488 Latk = (ui16)(5 + 2 * Natk + sizeof(ui8) * (Natk + Natk));
2489 d[0].rev.Aatk = 1;
2490 d[0].rev.Batk = 2;
2491 d[0].rev.Eatk = 2;
2492 d[1].rev.Aatk = -1;
2493 d[1].rev.Batk = 1;
2494 d[1].rev.Eatk = 1;
2495 }
2496
2497 } // !local namespace
2498} // !ojph namespace
int main(int argc, char *argv[])
void set_string(const char *str)
void set_data(const char *data, ui16 len)
virtual size_t read(void *ptr, size_t size)=0
static const float gain_5x3_l[34]
static float get_bibo_gain_l(ui32 num_decomp, bool reversible)
static const float gain_5x3_h[34]
static float get_bibo_gain_h(ui32 num_decomp, bool reversible)
static const float gain_9x7_h[34]
static const float gain_9x7_l[34]
static const float gain_5x3_l[34]
static const float gain_5x3_h[34]
static float get_gain_l(ui32 num_decomp, bool reversible)
static const float gain_9x7_l[34]
static float get_gain_h(ui32 num_decomp, bool reversible)
static const float gain_9x7_h[34]
virtual size_t write(const void *ptr, size_t size)=0
bool is_reversible() const
void set_precinct_size(int num_levels, size *precinct_size)
size get_block_dims() const
void set_reversible(bool reversible)
size get_precinct_size(ui32 level_num) const
ui32 get_num_decompositions() const
local::param_cod * state
Definition: ojph_params.h:154
size get_log_block_dims() const
size get_log_precinct_size(ui32 level_num) const
void set_num_decomposition(ui32 num_decompositions)
bool get_block_vertical_causality() const
void set_block_dims(ui32 width, ui32 height)
size get_block_dims() const
int get_progression_order() const
bool is_using_color_transform() const
param_coc get_coc(ui32 component_idx)
void set_num_decomposition(ui32 num_decompositions)
ui32 get_num_decompositions() const
size get_log_block_dims() const
bool packets_may_use_sop() const
size get_precinct_size(ui32 level_num) const
const char * get_progression_order_as_string() const
void set_precinct_size(int num_levels, size *precinct_size)
bool packets_use_eph() const
local::param_cod * state
Definition: ojph_params.h:131
bool is_reversible() const
void set_progression_order(const char *name)
bool get_block_vertical_causality() const
void set_block_dims(ui32 width, ui32 height)
size get_log_precinct_size(ui32 level_num) const
int get_num_layers() const
void set_color_transform(bool color_transform)
void set_reversible(bool reversible)
@ OJPH_NLT_BINARY_COMPLEMENT_NLT
Definition: ojph_params.h:252
bool get_nonlinear_transform(ui32 comp_num, ui8 &bit_depth, bool &is_signed, ui8 &nl_type) const
get the nonlinearity type associated with comp_num, which should be one from enum nonlinearity
local::param_nlt * state
Definition: ojph_params.h:286
void set_nonlinear_transform(ui32 comp_num, ui8 nl_type)
enables or disables type 3 nonlinearity for a component or the default setting
void set_irrev_quant(float delta)
Set the irreversible quantization base delta.
local::param_qcd * state
Definition: ojph_params.h:191
void set_tile_size(size s)
Definition: ojph_params.cpp:66
point get_image_extent() const
void set_component(ui32 comp_num, const point &downsampling, ui32 bit_depth, bool is_signed)
Definition: ojph_params.cpp:93
void set_num_components(ui32 num_comps)
Definition: ojph_params.cpp:87
ui32 get_bit_depth(ui32 comp_num) const
void set_tile_offset(point offset)
Definition: ojph_params.cpp:80
point get_image_offset() const
local::param_siz * state
Definition: ojph_params.h:99
void set_image_offset(point offset)
Definition: ojph_params.cpp:73
size get_tile_size() const
ui32 get_recon_height(ui32 comp_num) const
point get_downsampling(ui32 comp_num) const
void set_image_extent(point extent)
Definition: ojph_params.cpp:59
point get_tile_offset() const
ui32 get_recon_width(ui32 comp_num) const
bool is_signed(ui32 comp_num) const
ui32 get_num_components() const
static ui16 swap_byte(ui16 t)
const char OJPH_PO_STRING_PCRL[]
int8_t si8
Definition: ojph_defs.h:51
uint64_t ui64
Definition: ojph_defs.h:56
uint16_t ui16
Definition: ojph_defs.h:52
static ui32 population_count(ui32 val)
Definition: ojph_arch.h:152
const char OJPH_PO_STRING_RLCP[]
const char OJPH_PO_STRING_RPCL[]
const char OJPH_PO_STRING_CPRL[]
static ui32 count_leading_zeros(ui32 val)
Definition: ojph_arch.h:199
int32_t si32
Definition: ojph_defs.h:55
int16_t si16
Definition: ojph_defs.h:53
uint32_t ui32
Definition: ojph_defs.h:54
uint8_t ui8
Definition: ojph_defs.h:50
const char OJPH_PO_STRING_LRCP[]
#define ojph_max(a, b)
Definition: ojph_defs.h:73
#define ojph_div_ceil(a, b)
Definition: ojph_defs.h:70
#define ojph_min(a, b)
Definition: ojph_defs.h:76
#define OJPH_INFO(t,...)
MACROs to insert file and line number for info, warning, and error.
Definition: ojph_message.h:283
#define OJPH_ERROR(t,...)
Definition: ojph_message.h:287
#define OJPH_WARN(t,...)
Definition: ojph_message.h:285
const param_atk * get_atk(int index) const
bool read(infile_base *file)
bool read_coefficient(infile_base *file, float &K)
bool is_using_ws_extension() const
void read(infile_base *file)
bool write(outfile_base *file)
bool write(outfile_base *file)
const param_cod * get_coc(ui32 comp_idx) const
bool internal_write_coc(outfile_base *file, ui32 num_comps)
bool write_coc(outfile_base *file, ui32 num_comps)
void set_reversible(bool reversible)
bool is_employing_color_transform() const
void employ_color_transform(ui8 val)
bool get_block_vertical_causality() const
void read(infile_base *file)
size get_log_precinct_size(ui32 res_num) const
void read_coc(infile_base *file, ui32 num_comps, param_cod *top_cod)
ui8 get_num_decompositions() const
void update_atk(const param_atk *atk)
bool packets_may_use_sop() const
bool is_reversible() const
size get_precinct_size(ui32 res_num) const
param_cod(param_cod *top_cod=NULL, ui16 comp_idx=OJPH_COD_DEFAULT)
param_cod * add_coc_object(ui32 comp_idx)
bool read(infile_base *file)
dfs_dwt_type get_dwt_type(ui32 decomp_level) const
point get_res_downsamp(ui32 skipped_resolutions) const
ui32 get_subband_idx(ui32 num_decompositions, ui32 resolution, ui32 subband) const
const param_dfs * get_dfs(int index) const
bool write(outfile_base *file) const
param_nlt * add_object(ui32 comp_num)
void trim_non_existing_components(ui32 num_comps)
void read(infile_base *file)
ojph::param_nlt::nonlinearity nonlinearity
bool get_nonlinear_transform(ui32 comp_num, ui8 &bit_depth, bool &is_signed, ui8 &nl_type) const
const param_nlt * get_nlt_object(ui32 comp_num) const
void check_validity(param_siz &siz)
bool is_any_enabled() const
void set_nonlinear_transform(ui32 comp_num, ui8 nl_type)
ui8 encode_SPqcd(ui8 v) const
bool write_qcc(outfile_base *file, ui32 num_comps)
void set_rev_quant(ui32 num_decomps, ui32 bit_depth, bool is_employing_color_transform)
void set_irrev_quant(ui32 num_decomps)
ui32 get_largest_Kmax() const
ui32 get_num_guard_bits() const
float get_irrev_delta(const param_dfs *dfs, ui32 num_decompositions, ui32 resolution, ui32 subband) const
void set_delta(float delta)
void read_qcc(infile_base *file, ui32 num_comps)
void check_validity(const param_siz &siz, const param_cod &cod)
bool write(outfile_base *file)
ui32 propose_precision(const param_cod *cod) const
void read(infile_base *file)
param_qcd * add_qcc_object(ui32 comp_idx)
ui32 get_Kmax(const param_dfs *dfs, ui32 num_decompositions, ui32 resolution, ui32 subband) const
ui8 decode_SPqcd(ui8 v) const
param_qcd * get_qcc(ui32 comp_idx)
param_qcd(param_qcd *top_qcd=NULL, ui16 comp_idx=OJPH_QCD_DEFAULT)
union ojph::local::param_qcd::@6 SPqcd
void trim_non_existing_components(ui32 num_comps)
bool internal_write_qcc(outfile_base *file, ui32 num_comps)
ui32 get_bit_depth(ui32 comp_num) const
ui32 get_recon_height(ui32 comp_num) const
bool is_signed(ui32 comp_num) const
bool write(outfile_base *file)
point get_recon_downsampling(ui32 comp_num) const
void set_Rsiz_flag(ui16 flag)
point get_recon_size(ui32 comp_num) const
void set_comp_info(ui32 comp_num, const point &downsampling, ui32 bit_depth, bool is_signed)
point get_downsampling(ui32 comp_num) const
void read(infile_base *file)
void set_num_components(ui32 num_comps)
ui32 get_recon_width(ui32 comp_num) const
bool read(infile_base *file, bool resilient)
bool write(outfile_base *file, ui32 payload_len)
void set_next_pair(ui16 Ttlm, ui32 Ptlm)
bool write(outfile_base *file)
void init(ui32 num_pairs, Ttlm_Ptlm_pair *store)
ui32 w
Definition: ojph_base.h:50
ui32 h
Definition: ojph_base.h:51