-/*\r
- * Copyright (c) 2001-2003, David Janssens\r
- * Copyright (c) 2002-2003, Yannick Verschueren\r
- * Copyright (c) 2003-2005, Francois Devaux and Antonin Descampe\r
- * Copyright (c) 2005, Herve Drolon, FreeImage Team\r
- * Copyright (c) 2002-2005, Communications and remote sensing Laboratory, Universite catholique de Louvain, Belgium\r
- * Copyright (c) 2006, M�nica D�ez, LPI-UVA, Spain\r
- * All rights reserved.\r
- *\r
- * Redistribution and use in source and binary forms, with or without\r
- * modification, are permitted provided that the following conditions\r
- * are met:\r
- * 1. Redistributions of source code must retain the above copyright\r
- * notice, this list of conditions and the following disclaimer.\r
- * 2. Redistributions in binary form must reproduce the above copyright\r
- * notice, this list of conditions and the following disclaimer in the\r
- * documentation and/or other materials provided with the distribution.\r
- *\r
- * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS `AS IS'\r
- * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE\r
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE\r
- * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE\r
- * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR\r
- * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF\r
- * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS\r
- * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN\r
- * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)\r
- * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE\r
- * POSSIBILITY OF SUCH DAMAGE.\r
- */\r
-\r
-#include "opj_includes.h"\r
-\r
-void tcd_dump(FILE *fd, opj_tcd_t *tcd, opj_tcd_volume_t * vol) {\r
- int tileno, compno, resno, bandno, precno, cblkno;\r
-\r
- fprintf(fd, "volume {\n");\r
- fprintf(fd, " tw=%d, th=%d, tl=%d, x0=%d x1=%d y0=%d y1=%d z0=%d z1=%d\n", \r
- vol->tw, vol->th, vol->tl, tcd->volume->x0, tcd->volume->x1, tcd->volume->y0, tcd->volume->y1, tcd->volume->z0, tcd->volume->z1);\r
-\r
- for (tileno = 0; tileno < vol->th * vol->tw * vol->tl; tileno++) {\r
- opj_tcd_tile_t *tile = &tcd->tcd_volume->tiles[tileno];\r
- fprintf(fd, " tile {\n");\r
- fprintf(fd, " x0=%d, y0=%d, z0=%d, x1=%d, y1=%d, z1=%d, numcomps=%d\n",\r
- tile->x0, tile->y0, tile->z0, tile->x1, tile->y1, tile->z1, tile->numcomps);\r
- for (compno = 0; compno < tile->numcomps; compno++) {\r
- opj_tcd_tilecomp_t *tilec = &tile->comps[compno];\r
- fprintf(fd, " tilecomp %d {\n",compno);\r
- fprintf(fd, " x0=%d, y0=%d, z0=%d, x1=%d, y1=%d, z1=%d, numresx=%d, numresy=%d, numresz=%d\n",\r
- tilec->x0, tilec->y0, tilec->z0, tilec->x1, tilec->y1, tilec->z1, tilec->numresolution[0], tilec->numresolution[1], tilec->numresolution[2]);\r
- for (resno = 0; resno < tilec->numresolution[0]; resno++) {\r
- opj_tcd_resolution_t *res = &tilec->resolutions[resno];\r
- fprintf(fd, " res %d{\n",resno);\r
- fprintf(fd," x0=%d, y0=%d, z0=%d, x1=%d, y1=%d, z1=%d, pw=%d, ph=%d, pl=%d, numbands=%d\n",\r
- res->x0, res->y0, res->z0, res->x1, res->y1, res->z1, res->prctno[0], res->prctno[1], res->prctno[2], res->numbands);\r
- for (bandno = 0; bandno < res->numbands; bandno++) {\r
- opj_tcd_band_t *band = &res->bands[bandno];\r
- fprintf(fd, " band %d{\n", bandno);\r
- fprintf(fd, " x0=%d, y0=%d, z0=%d, x1=%d, y1=%d, z1=%d, stepsize=%f, numbps=%d\n",\r
- band->x0, band->y0, band->z0, band->x1, band->y1, band->z1, band->stepsize, band->numbps);\r
- for (precno = 0; precno < (res->prctno[0] * res->prctno[1] * res->prctno[2]); precno++) {\r
- opj_tcd_precinct_t *prec = &band->precincts[precno];\r
- fprintf(fd, " prec %d{\n",precno);\r
- fprintf(fd, " x0=%d, y0=%d, z0=%d, x1=%d, y1=%d, z1=%d, cw=%d, ch=%d, cl=%d,\n",\r
- prec->x0, prec->y0, prec->z0, prec->x1, prec->y1, prec->z1, prec->cblkno[0], prec->cblkno[1], prec->cblkno[2]);\r
- for (cblkno = 0; cblkno < (prec->cblkno[0] * prec->cblkno[1] * prec->cblkno[2]); cblkno++) {\r
- opj_tcd_cblk_t *cblk = &prec->cblks[cblkno];\r
- fprintf(fd, " cblk %d{\n",cblkno);\r
- fprintf(fd, " x0=%d, y0=%d, z0=%d, x1=%d, y1=%d, z1=%d\n", cblk->x0, cblk->y0, cblk->z0, cblk->x1, cblk->y1, cblk->z1);\r
- fprintf(fd, " }\n");\r
- }\r
- fprintf(fd, " }\n");\r
- }\r
- fprintf(fd, " }\n");\r
- }\r
- fprintf(fd, " }\n");\r
- }\r
- fprintf(fd, " }\n");\r
- }\r
- fprintf(fd, " }\n");\r
- }\r
- fprintf(fd, "}\n");\r
-}\r
-\r
-void tilec_dump(FILE *fd, opj_tcd_tilecomp_t *tilec) {\r
-\r
- int i=0,k;\r
- int datalen;\r
- int *a;\r
-\r
- fprintf(fd, " tilecomp{\n");\r
- fprintf(fd, " x0=%d, y0=%d, z0=%d, x1=%d, y1=%d, z1=%d, numresx=%d, numresy=%d, numresz=%d\n",\r
- tilec->x0, tilec->y0, tilec->z0, tilec->x1, tilec->y1, tilec->z1, tilec->numresolution[0], tilec->numresolution[1], tilec->numresolution[2]);\r
- fprintf(fd, " data {\n");\r
- datalen = (tilec->z1 - tilec->z0) * (tilec->y1 - tilec->y0) * (tilec->x1 - tilec->x0);\r
- a = tilec->data;\r
- for (k = 0; k < datalen; k++) {\r
- if (!(k % tilec->x1)){\r
- fprintf(fd, "\n");\r
- }\r
- if (!(k % (tilec->y1 * tilec->x1))){\r
- fprintf(fd, "Slice %d\n",i++);\r
- }\r
- fprintf(fd," %d",a[k]);\r
- \r
- \r
- } \r
- fprintf(fd, " }\n");\r
- /*i=0;\r
- fprintf(fd, "Slice %d\n");\r
- if (tilec->prediction->prederr) {\r
- fprintf(fd, " prederror {\n");\r
- a = tilec->prediction->prederr;\r
- for (k = 0; k < datalen; k++) {\r
- fprintf(fd," %d",*(a++));\r
- if (!(k % (tilec->y1 - tilec->y0) * (tilec->x1 - tilec->x0))){\r
- fprintf(fd, "\n");fprintf(fd, "Slice %d\n",i++);\r
- }\r
- if (!(k % (tilec->x1 - tilec->x0))){\r
- fprintf(fd, "\n");\r
- }\r
- }\r
- }\r
- fprintf(fd, " }\n");*/\r
- fprintf(fd, "}\n");\r
-}\r
-\r
-/* ----------------------------------------------------------------------- */\r
-\r
-/**\r
-Create a new TCD handle\r
-*/\r
-opj_tcd_t* tcd_create(opj_common_ptr cinfo) {\r
- /* create the tcd structure */\r
- opj_tcd_t *tcd = (opj_tcd_t*)opj_malloc(sizeof(opj_tcd_t));\r
- if(!tcd) return NULL;\r
- tcd->cinfo = cinfo;\r
- tcd->tcd_volume = (opj_tcd_volume_t*)opj_malloc(sizeof(opj_tcd_volume_t));\r
- if(!tcd->tcd_volume) {\r
- opj_free(tcd);\r
- return NULL;\r
- }\r
-\r
- return tcd;\r
-}\r
-\r
-/**\r
-Destroy a previously created TCD handle\r
-*/\r
-void tcd_destroy(opj_tcd_t *tcd) {\r
- if(tcd) {\r
- opj_free(tcd->tcd_volume);\r
- opj_free(tcd);\r
- }\r
-}\r
-\r
-/* ----------------------------------------------------------------------- */\r
-void tcd_malloc_encode(opj_tcd_t *tcd, opj_volume_t * volume, opj_cp_t * cp, int curtileno) {\r
- int compno, resno, bandno, precno, cblkno, i, j;//, k;\r
-\r
- opj_tcd_tile_t *tile = NULL; /* pointer to tcd->tile */\r
- opj_tcd_tilecomp_t *tilec = NULL; /* pointer to tcd->tilec */\r
- opj_tcd_resolution_t *res = NULL; /* pointer to tcd->res */\r
- opj_tcd_band_t *band = NULL; /* pointer to tcd->band */\r
- opj_tcd_precinct_t *prc = NULL; /* pointer to tcd->prc */\r
- opj_tcd_cblk_t *cblk = NULL; /* pointer to tcd->cblk */\r
- opj_tcp_t *tcp = &cp->tcps[curtileno];\r
- int p,q,r;\r
-\r
- tcd->volume = volume;\r
- tcd->cp = cp;\r
- tcd->tcd_volume->tw = cp->tw;\r
- tcd->tcd_volume->th = cp->th;\r
- tcd->tcd_volume->tl = cp->tl;\r
- tcd->tcd_volume->tiles = (opj_tcd_tile_t *) opj_malloc(sizeof(opj_tcd_tile_t));\r
- tcd->tile = tcd->tcd_volume->tiles;\r
- tile = tcd->tile;\r
- \r
-\r
- /* p61 ISO/IEC IS15444-1 : 2002 */\r
- /* curtileno --> raster scanned index of tiles */\r
- /* p,q,r --> matricial index of tiles */\r
- p = curtileno % cp->tw; \r
- q = curtileno / cp->tw; \r
- r = curtileno / (cp->tw * cp->th); /* extension to 3-D */\r
-\r
- /* 4 borders of the tile rescale on the volume if necessary (B.3)*/\r
- tile->x0 = int_max(cp->tx0 + p * cp->tdx, volume->x0);\r
- tile->y0 = int_max(cp->ty0 + q * cp->tdy, volume->y0);\r
- tile->z0 = int_max(cp->tz0 + r * cp->tdz, volume->z0);\r
- tile->x1 = int_min(cp->tx0 + (p + 1) * cp->tdx, volume->x1);\r
- tile->y1 = int_min(cp->ty0 + (q + 1) * cp->tdy, volume->y1);\r
- tile->z1 = int_min(cp->tz0 + (r + 1) * cp->tdz, volume->z1);\r
- tile->numcomps = volume->numcomps;\r
-\r
- /* Modification of the RATE >> */\r
- for (j = 0; j < tcp->numlayers; j++) {\r
- if (tcp->rates[j] <= 1) {\r
- tcp->rates[j] = 0;\r
- } else {\r
- float num = (float) (tile->numcomps * (tile->x1 - tile->x0) * (tile->y1 - tile->y0) * (tile->z1 - tile->z0) * volume->comps[0].prec);\r
- float den = (float) (8 * volume->comps[0].dx * volume->comps[0].dy * volume->comps[0].dz);\r
- den = tcp->rates[j] * den;\r
- tcp->rates[j] = (num + den - 1) / den;\r
- }\r
- /*tcp->rates[j] = tcp->rates[j] ? int_ceildiv(\r
- tile->numcomps * (tile->x1 - tile->x0) * (tile->y1 - tile->y0) * (tile->z1 - tile->z0) * volume->comps[0].prec,\r
- (tcp->rates[j] * 8 * volume->comps[0].dx * volume->comps[0].dy * volume->comps[0].dz)) : 0;*/\r
- if (tcp->rates[j]) {\r
- if (j && tcp->rates[j] < tcp->rates[j - 1] + 10) {\r
- tcp->rates[j] = tcp->rates[j - 1] + 20;\r
- } else if (!j && tcp->rates[j] < 30){\r
- tcp->rates[j] = 30;\r
- }\r
- }\r
- }\r
- /* << Modification of the RATE */\r
-\r
- tile->comps = (opj_tcd_tilecomp_t *) opj_malloc(volume->numcomps * sizeof(opj_tcd_tilecomp_t));\r
- for (compno = 0; compno < tile->numcomps; compno++) {\r
- opj_tccp_t *tccp = &tcp->tccps[compno];\r
- int res_max;\r
- int prevnumbands = 0;\r
-\r
- /* opj_tcd_tilecomp_t *tilec=&tile->comps[compno]; */\r
- tcd->tilec = &tile->comps[compno];\r
- tilec = tcd->tilec;\r
-\r
- /* border of each tile component (global) (B.3) */\r
- tilec->x0 = int_ceildiv(tile->x0, volume->comps[compno].dx);\r
- tilec->y0 = int_ceildiv(tile->y0, volume->comps[compno].dy);\r
- tilec->z0 = int_ceildiv(tile->z0, volume->comps[compno].dz);\r
- tilec->x1 = int_ceildiv(tile->x1, volume->comps[compno].dx);\r
- tilec->y1 = int_ceildiv(tile->y1, volume->comps[compno].dy);\r
- tilec->z1 = int_ceildiv(tile->z1, volume->comps[compno].dz);\r
-\r
- tilec->data = (int *) opj_malloc((tilec->x1 - tilec->x0) * (tilec->y1 - tilec->y0) * (tilec->z1 - tilec->z0) * sizeof(int));\r
- \r
- res_max = 0;\r
- for (i = 0;i < 3; i++){\r
- tilec->numresolution[i] = tccp->numresolution[i];\r
- //Greater of 3 resolutions contains all information\r
- res_max = (tilec->numresolution[i] > res_max) ? tilec->numresolution[i] : res_max;\r
- }\r
- \r
-\r
- tilec->resolutions = (opj_tcd_resolution_t *) opj_malloc(res_max * sizeof(opj_tcd_resolution_t));\r
- for (resno = 0; resno < res_max; resno++) {\r
- \r
- int pdx, pdy, pdz;\r
- int tlprcxstart, tlprcystart, tlprczstart;\r
- int brprcxend, brprcyend, brprczend;\r
- int tlcbgxstart, tlcbgystart, tlcbgzstart;\r
- int brcbgxend, brcbgyend, brcbgzend;\r
- int cbgwidthexpn, cbgheightexpn, cbglengthexpn;\r
- int cblkwidthexpn, cblkheightexpn, cblklengthexpn;\r
-\r
- int diff = tccp->numresolution[0] - tccp->numresolution[2]; \r
- int levelnox = tilec->numresolution[0] - 1 - resno; \r
- int levelnoy = tilec->numresolution[1] - 1 - resno;\r
- int levelnoz = tilec->numresolution[2] - 1 - ((resno <= diff) ? 0 : (resno - diff));\r
- if (levelnoz < 0) levelnoz = 0;\r
-\r
- /* opj_tcd_resolution_t *res=&tilec->resolutions[resno]; */\r
- tcd->res = &tilec->resolutions[resno];\r
- res = tcd->res;\r
- \r
- /* border for each resolution level (global) (B.14)*/\r
- res->x0 = int_ceildivpow2(tilec->x0, levelnox);\r
- res->y0 = int_ceildivpow2(tilec->y0, levelnoy);\r
- res->z0 = int_ceildivpow2(tilec->z0, levelnoz);\r
- res->x1 = int_ceildivpow2(tilec->x1, levelnox);\r
- res->y1 = int_ceildivpow2(tilec->y1, levelnoy);\r
- res->z1 = int_ceildivpow2(tilec->z1, levelnoz);\r
- //if (res->z1 < 0)fprintf(stdout,"Res: %d %d/%d --> %d\n",resno,tilec->z1, levelnoz, int_ceildivpow2(tilec->z1, levelnoz));\r
-\r
- res->numbands = (resno == 0) ? 1 : (resno <= diff) ? 3 : 7; /* --> 3D */\r
-\r
- /* p. 30, table A-13, ISO/IEC IS154444-1 : 2002 */\r
- if (tccp->csty & J3D_CCP_CSTY_PRT) {\r
- pdx = tccp->prctsiz[0][resno];\r
- pdy = tccp->prctsiz[1][resno];\r
- pdz = tccp->prctsiz[2][resno];\r
- } else {\r
- pdx = 15;\r
- pdy = 15;\r
- pdz = 15;\r
- }\r
- \r
- /* p. 66, B.16, ISO/IEC IS15444-1 : 2002 */\r
- tlprcxstart = int_floordivpow2(res->x0, pdx) << pdx;\r
- tlprcystart = int_floordivpow2(res->y0, pdy) << pdy;\r
- tlprczstart = int_floordivpow2(res->z0, pdz) << pdz;\r
- brprcxend = int_ceildivpow2(res->x1, pdx) << pdx;\r
- brprcyend = int_ceildivpow2(res->y1, pdy) << pdy;\r
- brprczend = int_ceildivpow2(res->z1, pdz) << pdz;\r
- \r
- res->prctno[0] = (brprcxend - tlprcxstart) >> pdx;\r
- res->prctno[1] = (brprcyend - tlprcystart) >> pdy;\r
- res->prctno[2] = (brprczend - tlprczstart) >> pdz;\r
- if (res->prctno[2] == 0) res->prctno[2] = 1;\r
- \r
- /* p. 67, B.17 & B.18, ISO/IEC IS15444-1 : 2002 */\r
- if (resno == 0) {\r
- tlcbgxstart = tlprcxstart;\r
- tlcbgystart = tlprcystart;\r
- tlcbgzstart = tlprczstart;\r
- brcbgxend = brprcxend;\r
- brcbgyend = brprcyend;\r
- brcbgzend = brprczend;\r
- cbgwidthexpn = pdx;\r
- cbgheightexpn = pdy;\r
- cbglengthexpn = pdz;\r
- } else {\r
- tlcbgxstart = int_ceildivpow2(tlprcxstart, 1);\r
- tlcbgystart = int_ceildivpow2(tlprcystart, 1);\r
- tlcbgzstart = int_ceildivpow2(tlprczstart, 1);\r
- brcbgxend = int_ceildivpow2(brprcxend, 1);\r
- brcbgyend = int_ceildivpow2(brprcyend, 1);\r
- brcbgzend = int_ceildivpow2(brprczend, 1);\r
- cbgwidthexpn = pdx - 1;\r
- cbgheightexpn = pdy - 1;\r
- cbglengthexpn = pdz - 1;\r
- }\r
- \r
- cblkwidthexpn = int_min(tccp->cblk[0], cbgwidthexpn); //6\r
- cblkheightexpn = int_min(tccp->cblk[1], cbgheightexpn); //6\r
- cblklengthexpn = int_min(tccp->cblk[2], cbglengthexpn); //6\r
- \r
- res->bands = (opj_tcd_band_t *) opj_malloc(res->numbands * sizeof(opj_tcd_band_t));\r
- for (bandno = 0; bandno < res->numbands; bandno++) {\r
- int x0b, y0b, z0b, i;\r
- int gain, numbps;\r
- opj_stepsize_t *ss = NULL;\r
-\r
- tcd->band = &res->bands[bandno];\r
- band = tcd->band;\r
-\r
- band->bandno = (resno == 0) ? 0 : bandno + 1;\r
- /* Bandno: 0 - LLL 2 - LHL \r
- 1 - HLL 3 - HHL\r
- 4 - LLH 6 - LHH\r
- 5 - HLH 7 - HHH */\r
- x0b = (band->bandno == 1) || (band->bandno == 3) || (band->bandno == 5 ) || (band->bandno == 7 ) ? 1 : 0; \r
- y0b = (band->bandno == 2) || (band->bandno == 3) || (band->bandno == 6 ) || (band->bandno == 7 ) ? 1 : 0;\r
- z0b = (band->bandno == 4) || (band->bandno == 5) || (band->bandno == 6 ) || (band->bandno == 7 ) ? 1 : 0; \r
- \r
- /* p. 65, B.15, ISO/IEC IS15444-1 : 2002 */\r
- if (band->bandno == 0) {\r
- /* band border (global) */\r
- band->x0 = int_ceildivpow2(tilec->x0, levelnox);\r
- band->y0 = int_ceildivpow2(tilec->y0, levelnoy);\r
- band->z0 = int_ceildivpow2(tilec->z0, levelnoz);\r
- band->x1 = int_ceildivpow2(tilec->x1, levelnox);\r
- band->y1 = int_ceildivpow2(tilec->y1, levelnoy);\r
- band->z1 = int_ceildivpow2(tilec->z1, levelnoz);\r
- } else {\r
- band->x0 = int_ceildivpow2(tilec->x0 - (1 << levelnox) * x0b, levelnox + 1);\r
- band->y0 = int_ceildivpow2(tilec->y0 - (1 << levelnoy) * y0b, levelnoy + 1);\r
- band->z0 = int_ceildivpow2(tilec->z0 - (1 << levelnoz) * z0b, (resno <= diff) ? levelnoz : levelnoz + 1);\r
- band->x1 = int_ceildivpow2(tilec->x1 - (1 << levelnox) * x0b, levelnox + 1);\r
- band->y1 = int_ceildivpow2(tilec->y1 - (1 << levelnoy) * y0b, levelnoy + 1);\r
- band->z1 = int_ceildivpow2(tilec->z1 - (1 << levelnoz) * z0b, (resno <= diff) ? levelnoz : levelnoz + 1);\r
- }\r
- \r
- ss = &tccp->stepsizes[(resno == 0) ? 0 : (prevnumbands + bandno + 1)];\r
- if (bandno == (res->numbands - 1)) \r
- prevnumbands += (resno == 0) ? 0 : res->numbands;\r
- gain = dwt_getgain(band->bandno,tccp->reversible); \r
- numbps = volume->comps[compno].prec + gain;\r
- band->stepsize = (float)((1.0 + ss->mant / 2048.0) * pow(2.0, numbps - ss->expn));\r
- band->numbps = ss->expn + tccp->numgbits - 1; /* WHY -1 ? */\r
- \r
- band->precincts = (opj_tcd_precinct_t *) opj_malloc((res->prctno[0] * res->prctno[1] * res->prctno[2]) * sizeof(opj_tcd_precinct_t));\r
- \r
- for (i = 0; i < (res->prctno[0] * res->prctno[1] * res->prctno[2]); i++) {\r
- band->precincts[i].imsbtree = NULL;\r
- band->precincts[i].incltree = NULL;\r
- }\r
-\r
- for (precno = 0; precno < (res->prctno[0] * res->prctno[1] * res->prctno[2]); precno++) {\r
- int tlcblkxstart, tlcblkystart, tlcblkzstart, brcblkxend, brcblkyend, brcblkzend;\r
- int cbgxstart, cbgystart, cbgzstart, cbgxend, cbgyend, cbgzend;\r
-\r
- cbgxstart = tlcbgxstart + (precno % res->prctno[0]) * (1 << cbgwidthexpn);\r
- cbgystart = tlcbgystart + ((precno % (res->prctno[0] * res->prctno[1])) / res->prctno[0]) * (1 << cbgheightexpn);\r
- cbgzstart = tlcbgzstart + (precno / (res->prctno[0] * res->prctno[1])) * (1 << cbglengthexpn);\r
- cbgxend = cbgxstart + (1 << cbgwidthexpn);\r
- cbgyend = cbgystart + (1 << cbgheightexpn);\r
- cbgzend = cbgzstart + (1 << cbglengthexpn);\r
- \r
- tcd->prc = &band->precincts[precno];\r
- prc = tcd->prc;\r
-\r
- /* precinct size (global) */\r
- prc->x0 = int_max(cbgxstart, band->x0);\r
- prc->y0 = int_max(cbgystart, band->y0);\r
- prc->z0 = int_max(cbgzstart, band->z0);\r
- prc->x1 = int_min(cbgxend, band->x1);\r
- prc->y1 = int_min(cbgyend, band->y1);\r
- prc->z1 = int_min(cbgzend, band->z1);\r
- \r
- tlcblkxstart = int_floordivpow2(prc->x0, cblkwidthexpn) << cblkwidthexpn;\r
- tlcblkystart = int_floordivpow2(prc->y0, cblkheightexpn) << cblkheightexpn;\r
- tlcblkzstart = int_floordivpow2(prc->z0, cblklengthexpn) << cblklengthexpn;\r
- brcblkxend = int_ceildivpow2(prc->x1, cblkwidthexpn) << cblkwidthexpn;\r
- brcblkyend = int_ceildivpow2(prc->y1, cblkheightexpn) << cblkheightexpn;\r
- brcblkzend = int_ceildivpow2(prc->z1, cblklengthexpn) << cblklengthexpn;\r
- prc->cblkno[0] = (brcblkxend - tlcblkxstart) >> cblkwidthexpn;\r
- prc->cblkno[1] = (brcblkyend - tlcblkystart) >> cblkheightexpn;\r
- prc->cblkno[2] = (brcblkzend - tlcblkzstart) >> cblklengthexpn;\r
- prc->cblkno[2] = (prc->cblkno[2] == 0) ? 1 : prc->cblkno[2];\r
-\r
- prc->cblks = (opj_tcd_cblk_t *) opj_malloc((prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]) * sizeof(opj_tcd_cblk_t));\r
- prc->incltree = tgt_create(prc->cblkno[0], prc->cblkno[1], prc->cblkno[2]);\r
- prc->imsbtree = tgt_create(prc->cblkno[0], prc->cblkno[1], prc->cblkno[2]);\r
- //tgt_tree_dump(stdout,prc->incltree);\r
- for (cblkno = 0; cblkno < (prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]); cblkno++) {\r
- int cblkxstart = tlcblkxstart + (cblkno % prc->cblkno[0]) * (1 << cblkwidthexpn);\r
- int cblkystart = tlcblkystart + ((cblkno % (prc->cblkno[0] * prc->cblkno[1])) / prc->cblkno[0]) * (1 << cblkheightexpn);\r
- int cblkzstart = tlcblkzstart + (cblkno / (prc->cblkno[0] * prc->cblkno[1])) * (1 << cblklengthexpn);\r
- int cblkxend = cblkxstart + (1 << cblkwidthexpn);\r
- int cblkyend = cblkystart + (1 << cblkheightexpn);\r
- int cblkzend = cblkzstart + (1 << cblklengthexpn);\r
- int prec = ((tilec->bpp > 16) ? 3 : ((tilec->bpp > 8) ? 2 : 1));\r
- \r
- tcd->cblk = &prc->cblks[cblkno];\r
- cblk = tcd->cblk;\r
-\r
- /* code-block size (global) */\r
- cblk->x0 = int_max(cblkxstart, prc->x0);\r
- cblk->y0 = int_max(cblkystart, prc->y0);\r
- cblk->z0 = int_max(cblkzstart, prc->z0);\r
- cblk->x1 = int_min(cblkxend, prc->x1);\r
- cblk->y1 = int_min(cblkyend, prc->y1);\r
- cblk->z1 = int_min(cblkzend, prc->z1);\r
- } \r
- }\r
- }\r
- }\r
- }\r
- //tcd_dump(stdout, tcd, tcd->tcd_volume);\r
-\r
-}\r
-void tcd_init_encode(opj_tcd_t *tcd, opj_volume_t * volume, opj_cp_t * cp, int curtileno) {\r
- int compno, resno, bandno, precno, cblkno;\r
- int j, p, q, r;\r
-\r
- opj_tcd_tile_t *tile = NULL; /* pointer to tcd->tile */\r
- opj_tcd_tilecomp_t *tilec = NULL; /* pointer to tcd->tilec */\r
- opj_tcd_resolution_t *res = NULL; /* pointer to tcd->res */\r
- opj_tcd_band_t *band = NULL; /* pointer to tcd->band */\r
- opj_tcd_precinct_t *prc = NULL; /* pointer to tcd->prc */\r
- opj_tcd_cblk_t *cblk = NULL; /* pointer to tcd->cblk */\r
- opj_tcp_t *tcp = &cp->tcps[curtileno];\r
-\r
- tcd->tile = tcd->tcd_volume->tiles;\r
- tile = tcd->tile;\r
-\r
- /* p61 ISO/IEC IS15444-1 : 2002 */\r
- /* curtileno --> raster scanned index of tiles */\r
- /* p,q,r --> matricial index of tiles */\r
- p = curtileno % cp->tw; \r
- q = curtileno / cp->tw; \r
- r = curtileno / (cp->tw * cp->th); /* extension to 3-D */\r
- \r
- /* 4 borders of the tile rescale on the volume if necessary (B.3)*/\r
- tile->x0 = int_max(cp->tx0 + p * cp->tdx, volume->x0);\r
- tile->y0 = int_max(cp->ty0 + q * cp->tdy, volume->y0);\r
- tile->z0 = int_max(cp->tz0 + r * cp->tdz, volume->z0);\r
- tile->x1 = int_min(cp->tx0 + (p + 1) * cp->tdx, volume->x1);\r
- tile->y1 = int_min(cp->ty0 + (q + 1) * cp->tdy, volume->y1);\r
- tile->z1 = int_min(cp->tz0 + (r + 1) * cp->tdz, volume->z1);\r
- tile->numcomps = volume->numcomps;\r
-\r
- /* Modification of the RATE >> */\r
- for (j = 0; j < tcp->numlayers; j++) {\r
- if (tcp->rates[j] <= 1) {\r
- tcp->rates[j] = 0;\r
- } else {\r
- float num = (float) (tile->numcomps * (tile->x1 - tile->x0) * (tile->y1 - tile->y0) * (tile->z1 - tile->z0) * volume->comps[0].prec);\r
- float den = (float) (8 * volume->comps[0].dx * volume->comps[0].dy * volume->comps[0].dz);\r
- den = tcp->rates[j] * den;\r
- tcp->rates[j] = (num + den - 1) / den;\r
- }\r
- /*tcp->rates[j] = tcp->rates[j] ? int_ceildiv(\r
- tile->numcomps * (tile->x1 - tile->x0) * (tile->y1 - tile->y0) * (tile->z1 - tile->z0) * volume->comps[0].prec,\r
- (tcp->rates[j] * 8 * volume->comps[0].dx * volume->comps[0].dy * volume->comps[0].dz)) : 0;*/\r
- if (tcp->rates[j]) {\r
- if (j && tcp->rates[j] < tcp->rates[j - 1] + 10) {\r
- tcp->rates[j] = tcp->rates[j - 1] + 20;\r
- } else if (!j && tcp->rates[j] < 30){\r
- tcp->rates[j] = 30;\r
- }\r
- }\r
- }\r
- /* << Modification of the RATE */\r
-\r
- for (compno = 0; compno < tile->numcomps; compno++) {\r
- opj_tccp_t *tccp = &tcp->tccps[compno];\r
- int res_max, i;\r
- int prevnumbands = 0;\r
-\r
- /* opj_tcd_tilecomp_t *tilec=&tile->comps[compno]; */\r
- tcd->tilec = &tile->comps[compno];\r
- tilec = tcd->tilec;\r
-\r
- /* border of each tile component (global) (B.3) */\r
- tilec->x0 = int_ceildiv(tile->x0, volume->comps[compno].dx);\r
- tilec->y0 = int_ceildiv(tile->y0, volume->comps[compno].dy);\r
- tilec->z0 = int_ceildiv(tile->z0, volume->comps[compno].dz);\r
- tilec->x1 = int_ceildiv(tile->x1, volume->comps[compno].dx);\r
- tilec->y1 = int_ceildiv(tile->y1, volume->comps[compno].dy);\r
- tilec->z1 = int_ceildiv(tile->z1, volume->comps[compno].dz);\r
-\r
- tilec->data = (int *) opj_malloc((tilec->x1 - tilec->x0) * (tilec->y1 - tilec->y0) * (tilec->z1 - tilec->z0) * sizeof(int));\r
- \r
- res_max = 0;\r
- for (i = 0;i < 3; i++){\r
- tilec->numresolution[i] = tccp->numresolution[i];\r
- //Greater of 3 resolutions contains all information\r
- res_max = (tilec->numresolution[i] > res_max) ? tilec->numresolution[i] : res_max;\r
- }\r
-\r
- tilec->resolutions = (opj_tcd_resolution_t *) opj_malloc(res_max * sizeof(opj_tcd_resolution_t));\r
- for (resno = 0; resno < res_max; resno++) {\r
- int pdx, pdy, pdz;\r
- int tlprcxstart, tlprcystart, tlprczstart, brprcxend, brprcyend, brprczend;\r
- int tlcbgxstart, tlcbgystart, tlcbgzstart, brcbgxend, brcbgyend, brcbgzend;\r
- int cbgwidthexpn, cbgheightexpn, cbglengthexpn;\r
- int cblkwidthexpn, cblkheightexpn, cblklengthexpn;\r
- \r
- int levelnox = tilec->numresolution[0] - 1 - resno; \r
- int levelnoy = tilec->numresolution[1] - 1 - resno;\r
- int diff = tccp->numresolution[0] - tccp->numresolution[2]; \r
- int levelnoz = tilec->numresolution[2] - 1 - ((resno <= diff) ? 0 : (resno - diff));\r
- if (levelnoz < 0) levelnoz = 0;\r
-\r
- tcd->res = &tilec->resolutions[resno];\r
- res = tcd->res;\r
- \r
- /* border for each resolution level (global) (B.14)*/\r
- res->x0 = int_ceildivpow2(tilec->x0, levelnox);\r
- res->y0 = int_ceildivpow2(tilec->y0, levelnoy);\r
- res->z0 = int_ceildivpow2(tilec->z0, levelnoz);\r
- res->x1 = int_ceildivpow2(tilec->x1, levelnox);\r
- res->y1 = int_ceildivpow2(tilec->y1, levelnoy);\r
- res->z1 = int_ceildivpow2(tilec->z1, levelnoz);\r
-\r
- // res->numbands = resno == 0 ? 1 : 3; /* --> 2D */\r
- res->numbands = (resno == 0) ? 1 : (resno <= diff) ? 3 : 7; /* --> 3D */\r
-\r
- /* p. 30, table A-13, ISO/IEC IS154444-1 : 2002 */ \r
- if (tccp->csty & J3D_CCP_CSTY_PRT) {\r
- pdx = tccp->prctsiz[0][resno];\r
- pdy = tccp->prctsiz[1][resno];\r
- pdz = tccp->prctsiz[2][resno];\r
- } else {\r
- pdx = 15;\r
- pdy = 15;\r
- pdz = 15;\r
- }\r
- /* p. 66, B.16, ISO/IEC IS15444-1 : 2002 */\r
- tlprcxstart = int_floordivpow2(res->x0, pdx) << pdx;\r
- tlprcystart = int_floordivpow2(res->y0, pdy) << pdy;\r
- tlprczstart = int_floordivpow2(res->z0, pdz) << pdz;\r
- brprcxend = int_ceildivpow2(res->x1, pdx) << pdx;\r
- brprcyend = int_ceildivpow2(res->y1, pdy) << pdy;\r
- brprczend = int_ceildivpow2(res->z1, pdz) << pdz;\r
- \r
- res->prctno[0] = (brprcxend - tlprcxstart) >> pdx;\r
- res->prctno[1] = (brprcyend - tlprcystart) >> pdy;\r
- res->prctno[2] = (brprczend - tlprczstart) >> pdz;\r
- if (res->prctno[2] == 0) res->prctno[2] = 1;\r
-\r
- /* p. 67, B.17 & B.18, ISO/IEC IS15444-1 : 2002 */\r
- if (resno == 0) {\r
- tlcbgxstart = tlprcxstart;\r
- tlcbgystart = tlprcystart;\r
- tlcbgzstart = tlprczstart;\r
- brcbgxend = brprcxend;\r
- brcbgyend = brprcyend;\r
- brcbgzend = brprczend;\r
- cbgwidthexpn = pdx;\r
- cbgheightexpn = pdy;\r
- cbglengthexpn = pdz;\r
- } else {\r
- tlcbgxstart = int_ceildivpow2(tlprcxstart, 1);\r
- tlcbgystart = int_ceildivpow2(tlprcystart, 1);\r
- tlcbgzstart = int_ceildivpow2(tlprczstart, 1);\r
- brcbgxend = int_ceildivpow2(brprcxend, 1);\r
- brcbgyend = int_ceildivpow2(brprcyend, 1);\r
- brcbgzend = int_ceildivpow2(brprczend, 1);\r
- cbgwidthexpn = pdx - 1;\r
- cbgheightexpn = pdy - 1;\r
- cbglengthexpn = pdz - 1;\r
- }\r
- \r
- cblkwidthexpn = int_min(tccp->cblk[0], cbgwidthexpn);\r
- cblkheightexpn = int_min(tccp->cblk[1], cbgheightexpn);\r
- cblklengthexpn = int_min(tccp->cblk[2], cbglengthexpn);\r
- \r
- res->bands = (opj_tcd_band_t *) opj_malloc(res->numbands * sizeof(opj_tcd_band_t));\r
- for (bandno = 0; bandno < res->numbands; bandno++) {\r
- int x0b, y0b, z0b;\r
- int gain, numbps;\r
- opj_stepsize_t *ss = NULL;\r
-\r
- tcd->band = &res->bands[bandno];\r
- band = tcd->band;\r
-\r
- band->bandno = resno == 0 ? 0 : bandno + 1;\r
- /* Bandno: 0 - LLL 2 - LHL \r
- 1 - HLL 3 - HHL\r
- 4 - LLH 6 - LHH\r
- 5 - HLH 7 - HHH */\r
- x0b = (band->bandno == 1) || (band->bandno == 3) || (band->bandno == 5 ) || (band->bandno == 7 ) ? 1 : 0; \r
- y0b = (band->bandno == 2) || (band->bandno == 3) || (band->bandno == 6 ) || (band->bandno == 7 ) ? 1 : 0;\r
- z0b = (band->bandno == 4) || (band->bandno == 5) || (band->bandno == 6 ) || (band->bandno == 7 ) ? 1 : 0; \r
- \r
- /* p. 65, B.15, ISO/IEC IS15444-1 : 2002 */\r
- if (band->bandno == 0) {\r
- /* band border (global) */\r
- band->x0 = int_ceildivpow2(tilec->x0, levelnox);\r
- band->y0 = int_ceildivpow2(tilec->y0, levelnoy);\r
- band->z0 = int_ceildivpow2(tilec->z0, levelnoz);\r
- band->x1 = int_ceildivpow2(tilec->x1, levelnox);\r
- band->y1 = int_ceildivpow2(tilec->y1, levelnoy);\r
- band->z1 = int_ceildivpow2(tilec->z1, levelnoz);\r
- } else {\r
- band->x0 = int_ceildivpow2(tilec->x0 - (1 << levelnox) * x0b, levelnox + 1);\r
- band->y0 = int_ceildivpow2(tilec->y0 - (1 << levelnoy) * y0b, levelnoy + 1);\r
- band->z0 = int_ceildivpow2(tilec->z0 - (1 << levelnoz) * z0b, (resno <= diff) ? levelnoz : levelnoz + 1);\r
- band->x1 = int_ceildivpow2(tilec->x1 - (1 << levelnox) * x0b, levelnox + 1);\r
- band->y1 = int_ceildivpow2(tilec->y1 - (1 << levelnoy) * y0b, levelnoy + 1);\r
- band->z1 = int_ceildivpow2(tilec->z1 - (1 << levelnoz) * z0b, (resno <= diff) ? levelnoz : levelnoz + 1);\r
- }\r
- \r
- ss = &tccp->stepsizes[(resno == 0) ? 0 : (prevnumbands + bandno + 1)];\r
- if (bandno == (res->numbands - 1)) \r
- prevnumbands += (resno == 0) ? 0 : res->numbands;\r
- gain = dwt_getgain(band->bandno,tccp->reversible); \r
- numbps = volume->comps[compno].prec + gain;\r
- \r
- band->stepsize = (float)((1.0 + ss->mant / 2048.0) * pow(2.0, numbps - ss->expn));\r
- band->numbps = ss->expn + tccp->numgbits - 1; /* WHY -1 ? */\r
- \r
- for (precno = 0; precno < res->prctno[0] * res->prctno[1] * res->prctno[2]; precno++) {\r
- int tlcblkxstart, tlcblkystart, tlcblkzstart, brcblkxend, brcblkyend, brcblkzend;\r
-\r
- int cbgxstart = tlcbgxstart + (precno % res->prctno[0]) * (1 << cbgwidthexpn);\r
- int cbgystart = tlcbgystart + ((precno / (res->prctno[0] * res->prctno[1])) / res->prctno[0]) * (1 << cbgheightexpn);\r
- int cbgzstart = tlcbgzstart + (precno / (res->prctno[0] * res->prctno[1])) * (1 << cbglengthexpn);\r
- int cbgxend = cbgxstart + (1 << cbgwidthexpn);\r
- int cbgyend = cbgystart + (1 << cbgheightexpn);\r
- int cbgzend = cbgzstart + (1 << cbglengthexpn);\r
-\r
- /* opj_tcd_precinct_t *prc=&band->precincts[precno]; */\r
- tcd->prc = &band->precincts[precno];\r
- prc = tcd->prc;\r
-\r
- /* precinct size (global) */\r
- prc->x0 = int_max(cbgxstart, band->x0);\r
- prc->y0 = int_max(cbgystart, band->y0);\r
- prc->z0 = int_max(cbgzstart, band->z0);\r
- prc->x1 = int_min(cbgxend, band->x1);\r
- prc->y1 = int_min(cbgyend, band->y1);\r
- prc->z1 = int_min(cbgzend, band->z1);\r
-\r
- tlcblkxstart = int_floordivpow2(prc->x0, cblkwidthexpn) << cblkwidthexpn;\r
- tlcblkystart = int_floordivpow2(prc->y0, cblkheightexpn) << cblkheightexpn;\r
- tlcblkzstart = int_floordivpow2(prc->z0, cblklengthexpn) << cblklengthexpn;\r
- brcblkxend = int_ceildivpow2(prc->x1, cblkwidthexpn) << cblkwidthexpn;\r
- brcblkyend = int_ceildivpow2(prc->y1, cblkheightexpn) << cblkheightexpn;\r
- brcblkzend = int_ceildivpow2(prc->z1, cblklengthexpn) << cblklengthexpn;\r
- prc->cblkno[0] = (brcblkxend - tlcblkxstart) >> cblkwidthexpn;\r
- prc->cblkno[1] = (brcblkyend - tlcblkystart) >> cblkheightexpn;\r
- prc->cblkno[2] = (brcblkzend - tlcblkzstart) >> cblklengthexpn;\r
- prc->cblkno[2] = (prc->cblkno[2] == 0) ? 1 : prc->cblkno[2];\r
-\r
- opj_free(prc->cblks);\r
- prc->cblks = (opj_tcd_cblk_t *) opj_malloc((prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]) * sizeof(opj_tcd_cblk_t));\r
- prc->incltree = tgt_create(prc->cblkno[0], prc->cblkno[1], prc->cblkno[2]);\r
- prc->imsbtree = tgt_create(prc->cblkno[0], prc->cblkno[1], prc->cblkno[2]);\r
-\r
- for (cblkno = 0; cblkno < (prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]); cblkno++) {\r
- int cblkxstart = tlcblkxstart + (cblkno % prc->cblkno[0]) * (1 << cblkwidthexpn);\r
- int cblkystart = tlcblkystart + ((cblkno % (prc->cblkno[0] * prc->cblkno[1])) / prc->cblkno[0]) * (1 << cblkheightexpn);\r
- int cblkzstart = tlcblkzstart + (cblkno / (prc->cblkno[0] * prc->cblkno[1])) * (1 << cblklengthexpn);\r
- int cblkxend = cblkxstart + (1 << cblkwidthexpn);\r
- int cblkyend = cblkystart + (1 << cblkheightexpn);\r
- int cblkzend = cblkzstart + (1 << cblklengthexpn);\r
- int prec = ((tilec->bpp > 16) ? 3 : ((tilec->bpp > 8) ? 2 : 1));\r
-\r
- tcd->cblk = &prc->cblks[cblkno];\r
- cblk = tcd->cblk;\r
-\r
- /* code-block size (global) */\r
- cblk->x0 = int_max(cblkxstart, prc->x0);\r
- cblk->y0 = int_max(cblkystart, prc->y0);\r
- cblk->z0 = int_max(cblkzstart, prc->z0);\r
- cblk->x1 = int_min(cblkxend, prc->x1);\r
- cblk->y1 = int_min(cblkyend, prc->y1);\r
- cblk->z1 = int_min(cblkzend, prc->z1);\r
- }\r
- } /* precno */\r
- } /* bandno */\r
- } /* resno */\r
- } /* compno */\r
- //tcd_dump(stdout, tcd, tcd->tcd_volume);\r
-}\r
-\r
-\r
-void tcd_free_encode(opj_tcd_t *tcd) {\r
- int tileno, compno, resno, bandno, precno;\r
-\r
- opj_tcd_tile_t *tile = NULL; /* pointer to tcd->tile */\r
-// opj_tcd_slice_t *slice = NULL; /* pointer to tcd->slice */\r
- opj_tcd_tilecomp_t *tilec = NULL; /* pointer to tcd->tilec */\r
- opj_tcd_resolution_t *res = NULL; /* pointer to tcd->res */\r
- opj_tcd_band_t *band = NULL; /* pointer to tcd->band */\r
- opj_tcd_precinct_t *prc = NULL; /* pointer to tcd->prc */\r
-\r
- for (tileno = 0; tileno < 1; tileno++) {\r
- tcd->tile = tcd->tcd_volume->tiles;\r
- tile = tcd->tile;\r
-\r
- for (compno = 0; compno < tile->numcomps; compno++) {\r
- tcd->tilec = &tile->comps[compno];\r
- tilec = tcd->tilec;\r
-\r
- for (resno = 0; resno < tilec->numresolution[0]; resno++) {\r
- tcd->res = &tilec->resolutions[resno];\r
- res = tcd->res;\r
-\r
- for (bandno = 0; bandno < res->numbands; bandno++) {\r
- tcd->band = &res->bands[bandno];\r
- band = tcd->band;\r
-\r
- for (precno = 0; precno < res->prctno[0] * res->prctno[1] * res->prctno[2]; precno++) {\r
- tcd->prc = &band->precincts[precno];\r
- prc = tcd->prc;\r
-\r
- if (prc->incltree != NULL) {\r
- tgt_destroy(prc->incltree);\r
- prc->incltree = NULL;\r
- }\r
- if (prc->imsbtree != NULL) {\r
- tgt_destroy(prc->imsbtree);\r
- prc->imsbtree = NULL;\r
- }\r
- opj_free(prc->cblks);\r
- prc->cblks = NULL;\r
- } /* for (precno */\r
- opj_free(band->precincts);\r
- band->precincts = NULL;\r
- } /* for (bandno */\r
- } /* for (resno */\r
- opj_free(tilec->resolutions);\r
- tilec->resolutions = NULL;\r
- } /* for (compno */\r
- opj_free(tile->comps);\r
- tile->comps = NULL;\r
- } /* for (tileno */\r
- opj_free(tcd->tcd_volume->tiles);\r
- tcd->tcd_volume->tiles = NULL;\r
-}\r
-\r
-/* ----------------------------------------------------------------------- */\r
-void tcd_malloc_decode(opj_tcd_t *tcd, opj_volume_t * volume, opj_cp_t * cp) {\r
- int tileno, compno, resno, bandno, precno, cblkno, res_max,\r
- i, j, p, q, r;\r
- unsigned int x0 = 0, y0 = 0, z0 = 0, \r
- x1 = 0, y1 = 0, z1 = 0, \r
- w, h, l;\r
-\r
- tcd->volume = volume;\r
- tcd->cp = cp;\r
- tcd->tcd_volume->tw = cp->tw;\r
- tcd->tcd_volume->th = cp->th;\r
- tcd->tcd_volume->tl = cp->tl;\r
- tcd->tcd_volume->tiles = (opj_tcd_tile_t *) opj_malloc(cp->tw * cp->th * cp->tl * sizeof(opj_tcd_tile_t));\r
- \r
- for (i = 0; i < cp->tileno_size; i++) {\r
- opj_tcp_t *tcp = &(cp->tcps[cp->tileno[i]]);\r
- opj_tcd_tile_t *tile = &(tcd->tcd_volume->tiles[cp->tileno[i]]);\r
- \r
- /* p61 ISO/IEC IS15444-1 : 2002 */\r
- /* curtileno --> raster scanned index of tiles */\r
- /* p,q,r --> matricial index of tiles */\r
- tileno = cp->tileno[i];\r
- p = tileno % cp->tw; \r
- q = tileno / cp->tw; \r
- r = tileno / (cp->tw * cp->th); /* extension to 3-D */\r
-\r
- /* 4 borders of the tile rescale on the volume if necessary (B.3)*/\r
- tile->x0 = int_max(cp->tx0 + p * cp->tdx, volume->x0);\r
- tile->y0 = int_max(cp->ty0 + q * cp->tdy, volume->y0);\r
- tile->z0 = int_max(cp->tz0 + r * cp->tdz, volume->z0);\r
- tile->x1 = int_min(cp->tx0 + (p + 1) * cp->tdx, volume->x1);\r
- tile->y1 = int_min(cp->ty0 + (q + 1) * cp->tdy, volume->y1);\r
- tile->z1 = int_min(cp->tz0 + (r + 1) * cp->tdz, volume->z1);\r
- tile->numcomps = volume->numcomps; \r
- \r
- tile->comps = (opj_tcd_tilecomp_t *) opj_malloc(volume->numcomps * sizeof(opj_tcd_tilecomp_t));\r
- for (compno = 0; compno < tile->numcomps; compno++) {\r
- opj_tccp_t *tccp = &tcp->tccps[compno];\r
- opj_tcd_tilecomp_t *tilec = &tile->comps[compno];\r
- int prevnumbands = 0;\r
-\r
- /* border of each tile component (global) */\r
- tilec->x0 = int_ceildiv(tile->x0, volume->comps[compno].dx);\r
- tilec->y0 = int_ceildiv(tile->y0, volume->comps[compno].dy);\r
- tilec->z0 = int_ceildiv(tile->z0, volume->comps[compno].dz);\r
- tilec->x1 = int_ceildiv(tile->x1, volume->comps[compno].dx);\r
- tilec->y1 = int_ceildiv(tile->y1, volume->comps[compno].dy);\r
- tilec->z1 = int_ceildiv(tile->z1, volume->comps[compno].dz);\r
- \r
- tilec->data = (int *) opj_malloc((tilec->x1 - tilec->x0) * (tilec->y1 - tilec->y0) * (tilec->z1 - tilec->z0) * sizeof(int));\r
-\r
- res_max = 0;\r
- for (i = 0;i < 3; i++){\r
- tilec->numresolution[i] = tccp->numresolution[i];\r
- //Greater of 3 resolutions contains all information\r
- res_max = (tilec->numresolution[i] > res_max) ? tilec->numresolution[i] : res_max;\r
- }\r
-\r
- tilec->resolutions = (opj_tcd_resolution_t *) opj_malloc(res_max * sizeof(opj_tcd_resolution_t));\r
-\r
- for (resno = 0; resno < res_max; resno++) {\r
- opj_tcd_resolution_t *res = &tilec->resolutions[resno];\r
- int pdx, pdy, pdz;\r
- int tlprcxstart, tlprcystart, tlprczstart, brprcxend, brprcyend, brprczend;\r
- int tlcbgxstart, tlcbgystart, tlcbgzstart, brcbgxend, brcbgyend, brcbgzend;\r
- int cbgwidthexpn, cbgheightexpn, cbglengthexpn;\r
- int cblkwidthexpn, cblkheightexpn, cblklengthexpn;\r
- int levelnox = tilec->numresolution[0] - 1 - resno; \r
- int levelnoy = tilec->numresolution[1] - 1 - resno;\r
- int diff = tccp->numresolution[0] - tccp->numresolution[2]; \r
- int levelnoz = tilec->numresolution[2] - 1 - ((resno <= diff) ? 0 : (resno - diff));\r
- if (levelnoz < 0) levelnoz = 0;\r
-\r
- /* border for each resolution level (global) */\r
- res->x0 = int_ceildivpow2(tilec->x0, levelnox);\r
- res->y0 = int_ceildivpow2(tilec->y0, levelnoy);\r
- res->z0 = int_ceildivpow2(tilec->z0, levelnoz);\r
- res->x1 = int_ceildivpow2(tilec->x1, levelnox);\r
- res->y1 = int_ceildivpow2(tilec->y1, levelnoy);\r
- res->z1 = int_ceildivpow2(tilec->z1, levelnoz);\r
- res->numbands = (resno == 0) ? 1 : (resno <= diff) ? 3 : 7; /* --> 3D */\r
- \r
- /* p. 30, table A-13, ISO/IEC IS154444-1 : 2002 */\r
- if (tccp->csty & J3D_CCP_CSTY_PRT) {\r
- pdx = tccp->prctsiz[0][resno];\r
- pdy = tccp->prctsiz[1][resno];\r
- pdz = tccp->prctsiz[2][resno];\r
- } else {\r
- pdx = 15;\r
- pdy = 15;\r
- pdz = 15;\r
- }\r
- \r
- /* p. 66, B.16, ISO/IEC IS15444-1 : 2002 */\r
- tlprcxstart = int_floordivpow2(res->x0, pdx) << pdx;\r
- tlprcystart = int_floordivpow2(res->y0, pdy) << pdy;\r
- tlprczstart = int_floordivpow2(res->z0, pdz) << pdz;\r
- brprcxend = int_ceildivpow2(res->x1, pdx) << pdx;\r
- brprcyend = int_ceildivpow2(res->y1, pdy) << pdy;\r
- brprczend = int_ceildivpow2(res->z1, pdz) << pdz;\r
- \r
- res->prctno[0] = (brprcxend - tlprcxstart) >> pdx;\r
- res->prctno[1] = (brprcyend - tlprcystart) >> pdy;\r
- res->prctno[2] = (brprczend - tlprczstart) >> pdz;\r
- \r
- /* p. 67, B.17 & B.18, ISO/IEC IS15444-1 : 2002 */\r
- if (resno == 0) {\r
- tlcbgxstart = tlprcxstart;//0\r
- tlcbgystart = tlprcystart;\r
- tlcbgzstart = tlprczstart;\r
- brcbgxend = brprcxend;//1\r
- brcbgyend = brprcyend;\r
- brcbgzend = brprczend;\r
- cbgwidthexpn = pdx; //15\r
- cbgheightexpn = pdy;\r
- cbglengthexpn = pdz;\r
- } else {\r
- tlcbgxstart = int_ceildivpow2(tlprcxstart, 1);\r
- tlcbgystart = int_ceildivpow2(tlprcystart, 1);\r
- tlcbgzstart = int_ceildivpow2(tlprczstart, 1);\r
- brcbgxend = int_ceildivpow2(brprcxend, 1);\r
- brcbgyend = int_ceildivpow2(brprcyend, 1);\r
- brcbgzend = int_ceildivpow2(brprczend, 1);\r
- cbgwidthexpn = pdx - 1;\r
- cbgheightexpn = pdy - 1;\r
- cbglengthexpn = pdz - 1;\r
- }\r
- \r
- cblkwidthexpn = int_min(tccp->cblk[0], cbgwidthexpn); //6\r
- cblkheightexpn = int_min(tccp->cblk[1], cbgheightexpn); //6\r
- cblklengthexpn = int_min(tccp->cblk[2], cbglengthexpn); //6\r
-\r
- res->bands = (opj_tcd_band_t *) opj_malloc(res->numbands * sizeof(opj_tcd_band_t));\r
- for (bandno = 0; bandno < res->numbands; bandno++) {\r
- int x0b, y0b, z0b;\r
- int gain, numbps;\r
- opj_stepsize_t *ss = NULL;\r
-\r
- opj_tcd_band_t *band = &res->bands[bandno];\r
- band->bandno = resno == 0 ? 0 : bandno + 1;\r
- /* Bandno: 0 - LLL 2 - LHL \r
- 1 - HLL 3 - HHL\r
- 4 - LLH 6 - LHH\r
- 5 - HLH 7 - HHH */\r
- x0b = (band->bandno == 1) || (band->bandno == 3) || (band->bandno == 5 ) || (band->bandno == 7 ) ? 1 : 0; \r
- y0b = (band->bandno == 2) || (band->bandno == 3) || (band->bandno == 6 ) || (band->bandno == 7 ) ? 1 : 0;\r
- z0b = (band->bandno == 4) || (band->bandno == 5) || (band->bandno == 6 ) || (band->bandno == 7 ) ? 1 : 0; \r
- \r
- /* p. 65, B.15, ISO/IEC IS15444-1 : 2002 */\r
- if (band->bandno == 0) {\r
- /* band border (global) */\r
- band->x0 = int_ceildivpow2(tilec->x0, levelnox);\r
- band->y0 = int_ceildivpow2(tilec->y0, levelnoy);\r
- band->z0 = int_ceildivpow2(tilec->z0, levelnoz);\r
- band->x1 = int_ceildivpow2(tilec->x1, levelnox);\r
- band->y1 = int_ceildivpow2(tilec->y1, levelnoy);\r
- band->z1 = int_ceildivpow2(tilec->z1, levelnoz);\r
- } else {\r
- band->x0 = int_ceildivpow2(tilec->x0 - (1 << levelnox) * x0b, levelnox + 1);\r
- band->y0 = int_ceildivpow2(tilec->y0 - (1 << levelnoy) * y0b, levelnoy + 1);\r
- band->z0 = int_ceildivpow2(tilec->z0 - (1 << levelnoz) * z0b, (resno <= diff) ? levelnoz : levelnoz + 1);\r
- band->x1 = int_ceildivpow2(tilec->x1 - (1 << levelnox) * x0b, levelnox + 1);\r
- band->y1 = int_ceildivpow2(tilec->y1 - (1 << levelnoy) * y0b, levelnoy + 1);\r
- band->z1 = int_ceildivpow2(tilec->z1 - (1 << levelnoz) * z0b, (resno <= diff) ? levelnoz : levelnoz + 1);\r
- } \r
-\r
- ss = &tccp->stepsizes[(resno == 0) ? 0 : (prevnumbands + bandno + 1)];\r
- if (bandno == (res->numbands - 1)) \r
- prevnumbands += (resno == 0) ? 0 : res->numbands;\r
- gain = dwt_getgain(band->bandno,tccp->reversible); \r
- numbps = volume->comps[compno].prec + gain;\r
-\r
- band->stepsize = (float)((1.0 + ss->mant / 2048.0) * pow(2.0, numbps - ss->expn));\r
- band->numbps = ss->expn + tccp->numgbits - 1; /* WHY -1 ? */\r
- \r
- band->precincts = (opj_tcd_precinct_t *) opj_malloc(res->prctno[0] * res->prctno[1] * res->prctno[2] * sizeof(opj_tcd_precinct_t));\r
- \r
- for (precno = 0; precno < res->prctno[0] * res->prctno[1] * res->prctno[2]; precno++) {\r
- int tlcblkxstart, tlcblkystart, tlcblkzstart, brcblkxend, brcblkyend, brcblkzend;\r
-\r
- int cbgxstart = tlcbgxstart + (precno % res->prctno[0]) * (1 << cbgwidthexpn);\r
- int cbgystart = tlcbgystart + (precno / res->prctno[0]) * (1 << cbgheightexpn);\r
- int cbgzstart = tlcbgzstart + (precno / (res->prctno[0] * res->prctno[1])) * (1 << cbglengthexpn);\r
- int cbgxend = cbgxstart + (1 << cbgwidthexpn);\r
- int cbgyend = cbgystart + (1 << cbgheightexpn);\r
- int cbgzend = cbgzstart + (1 << cbglengthexpn);\r
-\r
- opj_tcd_precinct_t *prc = &band->precincts[precno];\r
- /* precinct size (global) */\r
- prc->x0 = int_max(cbgxstart, band->x0);\r
- prc->y0 = int_max(cbgystart, band->y0);\r
- prc->z0 = int_max(cbgzstart, band->z0);\r
- prc->x1 = int_min(cbgxend, band->x1);\r
- prc->y1 = int_min(cbgyend, band->y1);\r
- prc->z1 = int_min(cbgzend, band->z1);\r
-\r
- tlcblkxstart = int_floordivpow2(prc->x0, cblkwidthexpn) << cblkwidthexpn;\r
- tlcblkystart = int_floordivpow2(prc->y0, cblkheightexpn) << cblkheightexpn;\r
- tlcblkzstart = int_floordivpow2(prc->z0, cblklengthexpn) << cblklengthexpn;\r
- brcblkxend = int_ceildivpow2(prc->x1, cblkwidthexpn) << cblkwidthexpn;\r
- brcblkyend = int_ceildivpow2(prc->y1, cblkheightexpn) << cblkheightexpn;\r
- brcblkzend = int_ceildivpow2(prc->z1, cblklengthexpn) << cblklengthexpn;\r
- prc->cblkno[0] = (brcblkxend - tlcblkxstart) >> cblkwidthexpn;\r
- prc->cblkno[1] = (brcblkyend - tlcblkystart) >> cblkheightexpn;\r
- prc->cblkno[2] = (brcblkzend - tlcblkzstart) >> cblklengthexpn;\r
- prc->cblkno[2] = (prc->cblkno[2] == 0) ? 1 : prc->cblkno[2];\r
-\r
- prc->cblks = (opj_tcd_cblk_t *) opj_malloc((prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]) * sizeof(opj_tcd_cblk_t));\r
- prc->incltree = tgt_create(prc->cblkno[0], prc->cblkno[1], prc->cblkno[2]);\r
- prc->imsbtree = tgt_create(prc->cblkno[0], prc->cblkno[1], prc->cblkno[2]);\r
- \r
- for (cblkno = 0; cblkno < prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]; cblkno++) {\r
- int cblkxstart = tlcblkxstart + (cblkno % prc->cblkno[0]) * (1 << cblkwidthexpn);\r
- int cblkystart = tlcblkystart + ((cblkno % (prc->cblkno[0] * prc->cblkno[1])) / prc->cblkno[0]) * (1 << cblkheightexpn);\r
- int cblkzstart = tlcblkzstart + (cblkno / (prc->cblkno[0] * prc->cblkno[1])) * (1 << cblklengthexpn);\r
- int cblkxend = cblkxstart + (1 << cblkwidthexpn);\r
- int cblkyend = cblkystart + (1 << cblkheightexpn);\r
- int cblkzend = cblkzstart + (1 << cblklengthexpn);\r
- int prec = ((tilec->bpp > 16) ? 3 : ((tilec->bpp > 8) ? 2 : 1));\r
- /* code-block size (global) */\r
- opj_tcd_cblk_t *cblk = &prc->cblks[cblkno];\r
- \r
- /* code-block size (global) */\r
- cblk->x0 = int_max(cblkxstart, prc->x0);\r
- cblk->y0 = int_max(cblkystart, prc->y0);\r
- cblk->z0 = int_max(cblkzstart, prc->z0);\r
- cblk->x1 = int_min(cblkxend, prc->x1);\r
- cblk->y1 = int_min(cblkyend, prc->y1);\r
- cblk->z1 = int_min(cblkzend, prc->z1);\r
- }\r
- } /* precno */\r
- } /* bandno */\r
- } /* resno */\r
- } /* compno */\r
- } /* i = 0..cp->tileno_size */\r
-\r
- //tcd_dump(stdout, tcd, tcd->tcd_volume);\r
-\r
- /* \r
- Allocate place to store the decoded data = final volume\r
- Place limited by the tile really present in the codestream \r
- */\r
- \r
- for (i = 0; i < volume->numcomps; i++) {\r
- for (j = 0; j < cp->tileno_size; j++) {\r
- tileno = cp->tileno[j];\r
- x0 = (j == 0) ? tcd->tcd_volume->tiles[tileno].comps[i].x0 : int_min(x0,(unsigned int) tcd->tcd_volume->tiles[tileno].comps[i].x0);\r
- y0 = (j == 0) ? tcd->tcd_volume->tiles[tileno].comps[i].y0 : int_min(y0,(unsigned int) tcd->tcd_volume->tiles[tileno].comps[i].y0);\r
- z0 = (j == 0) ? tcd->tcd_volume->tiles[tileno].comps[i].z0 : int_min(z0,(unsigned int) tcd->tcd_volume->tiles[tileno].comps[i].z0);\r
- x1 = (j == 0) ? tcd->tcd_volume->tiles[tileno].comps[i].x1 : int_max(x1,(unsigned int) tcd->tcd_volume->tiles[tileno].comps[i].x1);\r
- y1 = (j == 0) ? tcd->tcd_volume->tiles[tileno].comps[i].y1 : int_max(y1,(unsigned int) tcd->tcd_volume->tiles[tileno].comps[i].y1);\r
- z1 = (j == 0) ? tcd->tcd_volume->tiles[tileno].comps[i].z1 : int_max(z1,(unsigned int) tcd->tcd_volume->tiles[tileno].comps[i].z1);\r
- }\r
- \r
- w = x1 - x0;\r
- h = y1 - y0;\r
- l = z1 - z0;\r
- \r
- volume->comps[i].data = (int *) opj_malloc(w * h * l * sizeof(int));\r
- volume->comps[i].w = w;\r
- volume->comps[i].h = h;\r
- volume->comps[i].l = l;\r
- volume->comps[i].x0 = x0;\r
- volume->comps[i].y0 = y0;\r
- volume->comps[i].z0 = z0;\r
- volume->comps[i].bigendian = cp->bigendian;\r
- }\r
-}\r
-\r
-void tcd_free_decode(opj_tcd_t *tcd) {\r
- int tileno,compno,resno,bandno,precno;\r
-\r
- opj_tcd_volume_t *tcd_volume = tcd->tcd_volume;\r
- \r
- for (tileno = 0; tileno < tcd_volume->tw * tcd_volume->th * tcd_volume->tl; tileno++) {\r
- opj_tcd_tile_t *tile = &tcd_volume->tiles[tileno];\r
- for (compno = 0; compno < tile->numcomps; compno++) {\r
- opj_tcd_tilecomp_t *tilec = &tile->comps[compno];\r
- for (resno = 0; resno < tilec->numresolution[0]; resno++) {\r
- opj_tcd_resolution_t *res = &tilec->resolutions[resno];\r
- for (bandno = 0; bandno < res->numbands; bandno++) {\r
- opj_tcd_band_t *band = &res->bands[bandno];\r
- for (precno = 0; precno < res->prctno[1] * res->prctno[0] * res->prctno[2]; precno++) {\r
- opj_tcd_precinct_t *prec = &band->precincts[precno];\r
- if (prec->cblks != NULL) opj_free(prec->cblks);\r
- if (prec->imsbtree != NULL) tgt_destroy(prec->imsbtree);\r
- if (prec->incltree != NULL) tgt_destroy(prec->incltree);\r
- /*for (treeno = 0; treeno < prec->numtrees; treeno++){\r
- if (prec->imsbtree[treeno] != NULL) tgt_destroy(prec->imsbtree[treeno]);\r
- if (prec->incltree[treeno] != NULL) tgt_destroy(prec->incltree[treeno]);\r
- }*/\r
- }\r
- if (band->precincts != NULL) opj_free(band->precincts);\r
- }\r
- }\r
- if (tilec->resolutions != NULL) opj_free(tilec->resolutions);\r
- }\r
- if (tile->comps != NULL) opj_free(tile->comps);\r
- }\r
-\r
- if (tcd_volume->tiles != NULL) opj_free(tcd_volume->tiles);\r
-}\r
-\r
-\r
-\r
-/* ----------------------------------------------------------------------- */\r
-void tcd_makelayer_fixed(opj_tcd_t *tcd, int layno, int final) {\r
- int compno, resno, bandno, precno, cblkno;\r
- int value; /*, matrice[tcd_tcp->numlayers][tcd_tile->comps[0].numresolution[0]][3]; */\r
- int matrice[10][10][3];\r
- int i, j, k;\r
-\r
- opj_cp_t *cp = tcd->cp;\r
- opj_tcd_tile_t *tcd_tile = tcd->tcd_tile;\r
- opj_tcp_t *tcd_tcp = tcd->tcp;\r
-\r
- /*matrice=(int*)opj_malloc(tcd_tcp->numlayers*tcd_tile->comps[0].numresolution[0]*3*sizeof(int)); */\r
- \r
- for (compno = 0; compno < tcd_tile->numcomps; compno++) {\r
- opj_tcd_tilecomp_t *tilec = &tcd_tile->comps[compno];\r
- for (i = 0; i < tcd_tcp->numlayers; i++) {\r
- for (j = 0; j < tilec->numresolution[0]; j++) {\r
- for (k = 0; k < 3; k++) {\r
- matrice[i][j][k] =\r
- (int) (cp->matrice[i * tilec->numresolution[0] * 3 + j * 3 + k] \r
- * (float) (tcd->volume->comps[compno].prec / 16.0));\r
- }\r
- }\r
- }\r
- \r
- for (resno = 0; resno < tilec->numresolution[0]; resno++) {\r
- opj_tcd_resolution_t *res = &tilec->resolutions[resno];\r
- for (bandno = 0; bandno < res->numbands; bandno++) {\r
- opj_tcd_band_t *band = &res->bands[bandno];\r
- for (precno = 0; precno < res->prctno[0] * res->prctno[1] * res->prctno[2]; precno++) {\r
- opj_tcd_precinct_t *prc = &band->precincts[precno];\r
- for (cblkno = 0; cblkno < prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]; cblkno++) {\r
- opj_tcd_cblk_t *cblk = &prc->cblks[cblkno];\r
- opj_tcd_layer_t *layer = &cblk->layers[layno];\r
- int n;\r
- int imsb = tcd->volume->comps[compno].prec - cblk->numbps; /* number of bit-plan equal to zero */\r
- /* Correction of the matrix of coefficient to include the IMSB information */\r
- if (layno == 0) {\r
- value = matrice[layno][resno][bandno];\r
- if (imsb >= value) {\r
- value = 0;\r
- } else {\r
- value -= imsb;\r
- }\r
- } else {\r
- value = matrice[layno][resno][bandno] - matrice[layno - 1][resno][bandno];\r
- if (imsb >= matrice[layno - 1][resno][bandno]) {\r
- value -= (imsb - matrice[layno - 1][resno][bandno]);\r
- if (value < 0) {\r
- value = 0;\r
- }\r
- }\r
- }\r
- \r
- if (layno == 0) {\r
- cblk->numpassesinlayers = 0;\r
- }\r
- \r
- n = cblk->numpassesinlayers;\r
- if (cblk->numpassesinlayers == 0) {\r
- if (value != 0) {\r
- n = 3 * value - 2 + cblk->numpassesinlayers;\r
- } else {\r
- n = cblk->numpassesinlayers;\r
- }\r
- } else {\r
- n = 3 * value + cblk->numpassesinlayers;\r
- }\r
- \r
- layer->numpasses = n - cblk->numpassesinlayers;\r
- \r
- if (!layer->numpasses)\r
- continue;\r
- \r
- if (cblk->numpassesinlayers == 0) {\r
- layer->len = cblk->passes[n - 1].rate;\r
- layer->data = cblk->data;\r
- } else {\r
- layer->len = cblk->passes[n - 1].rate - cblk->passes[cblk->numpassesinlayers - 1].rate;\r
- layer->data = cblk->data + cblk->passes[cblk->numpassesinlayers - 1].rate;\r
- }\r
- if (final)\r
- cblk->numpassesinlayers = n;\r
- }\r
- }\r
- }\r
- }\r
- }\r
-}\r
-\r
-void tcd_rateallocate_fixed(opj_tcd_t *tcd) {\r
- int layno;\r
- for (layno = 0; layno < tcd->tcp->numlayers; layno++) {\r
- tcd_makelayer_fixed(tcd, layno, 1);\r
- }\r
-}\r
-\r
-void tcd_makelayer(opj_tcd_t *tcd, int layno, double thresh, int final) {\r
- int compno, resno, bandno, precno, cblkno, passno;\r
- \r
- opj_tcd_tile_t *tcd_tile = tcd->tcd_tile;\r
-\r
- tcd_tile->distolayer[layno] = 0; /* fixed_quality */\r
- \r
- for (compno = 0; compno < tcd_tile->numcomps; compno++) {\r
- opj_tcd_tilecomp_t *tilec = &tcd_tile->comps[compno];\r
- for (resno = 0; resno < tilec->numresolution[0]; resno++) {\r
- opj_tcd_resolution_t *res = &tilec->resolutions[resno];\r
- for (bandno = 0; bandno < res->numbands; bandno++) {\r
- opj_tcd_band_t *band = &res->bands[bandno];\r
- for (precno = 0; precno < res->prctno[0] * res->prctno[1] * res->prctno[2]; precno++) {\r
- opj_tcd_precinct_t *prc = &band->precincts[precno];\r
- for (cblkno = 0; cblkno < prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]; cblkno++) {\r
- opj_tcd_cblk_t *cblk = &prc->cblks[cblkno];\r
- opj_tcd_layer_t *layer = &cblk->layers[layno];\r
- \r
- int n;\r
- if (layno == 0) {\r
- cblk->numpassesinlayers = 0;\r
- }\r
- n = cblk->numpassesinlayers;\r
- for (passno = cblk->numpassesinlayers; passno < cblk->totalpasses; passno++) {\r
- int dr;\r
- double dd;\r
- opj_tcd_pass_t *pass = &cblk->passes[passno];\r
- if (n == 0) {\r
- dr = pass->rate;\r
- dd = pass->distortiondec;\r
- } else {\r
- dr = pass->rate - cblk->passes[n - 1].rate;\r
- dd = pass->distortiondec - cblk->passes[n - 1].distortiondec;\r
- }\r
- if (!dr) {\r
- if (dd)\r
- n = passno + 1;\r
- continue;\r
- }\r
- if (dd / dr >= thresh){\r
- n = passno + 1;\r
- }\r
- }\r
- layer->numpasses = n - cblk->numpassesinlayers;\r
- \r
- if (!layer->numpasses) {\r
- layer->disto = 0;\r
- continue;\r
- }\r
- if (cblk->numpassesinlayers == 0) {\r
- layer->len = cblk->passes[n - 1].rate;\r
- layer->data = cblk->data;\r
- layer->disto = cblk->passes[n - 1].distortiondec;\r
- } else {\r
- layer->len = cblk->passes[n - 1].rate - cblk->passes[cblk->numpassesinlayers - 1].rate;\r
- layer->data = cblk->data + cblk->passes[cblk->numpassesinlayers - 1].rate;\r
- layer->disto = cblk->passes[n - 1].distortiondec - cblk->passes[cblk->numpassesinlayers - 1].distortiondec;\r
- }\r
- \r
- tcd_tile->distolayer[layno] += layer->disto; /* fixed_quality */\r
- \r
- if (final)\r
- cblk->numpassesinlayers = n;\r
-\r
- // fprintf(stdout,"MakeLayer : %d %f %d %d \n",layer->len, layer->disto, layer->numpasses, n);\r
- }\r
- }\r
- }\r
- }\r
- }\r
-}\r
-\r
-bool tcd_rateallocate(opj_tcd_t *tcd, unsigned char *dest, int len, opj_volume_info_t * volume_info) {\r
- int compno, resno, bandno, precno, cblkno, passno, layno;\r
- double min, max;\r
- double cumdisto[100]; /* fixed_quality */\r
- const double K = 1; /* 1.1; // fixed_quality */\r
- double maxSE = 0;\r
-\r
- opj_cp_t *cp = tcd->cp;\r
- opj_tcd_tile_t *tcd_tile = tcd->tcd_tile;\r
- opj_tcp_t *tcd_tcp = tcd->tcp;\r
-\r
- min = DBL_MAX;\r
- max = 0;\r
- \r
- tcd_tile->nbpix = 0; /* fixed_quality */\r
- \r
- for (compno = 0; compno < tcd_tile->numcomps; compno++) {\r
- opj_tcd_tilecomp_t *tilec = &tcd_tile->comps[compno];\r
- tilec->nbpix = 0;\r
- for (resno = 0; resno < tilec->numresolution[0]; resno++) {\r
- opj_tcd_resolution_t *res = &tilec->resolutions[resno];\r
- for (bandno = 0; bandno < res->numbands; bandno++) {\r
- opj_tcd_band_t *band = &res->bands[bandno];\r
- for (precno = 0; precno < res->prctno[0] * res->prctno[1] * res->prctno[2]; precno++) {\r
- opj_tcd_precinct_t *prc = &band->precincts[precno];\r
- for (cblkno = 0; cblkno < prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]; cblkno++) {\r
- opj_tcd_cblk_t *cblk = &prc->cblks[cblkno];\r
- for (passno = 0; passno < cblk->totalpasses; passno++) {\r
- opj_tcd_pass_t *pass = &cblk->passes[passno];\r
- int dr;\r
- double dd, rdslope;\r
- if (passno == 0) {\r
- dr = pass->rate;\r
- dd = pass->distortiondec;\r
- } else {\r
- dr = pass->rate - cblk->passes[passno - 1].rate;\r
- dd = pass->distortiondec - cblk->passes[passno - 1].distortiondec;\r
- }\r
- if (dr == 0) {\r
- continue;\r
- }\r
- rdslope = dd / dr;\r
- if (rdslope < min) {\r
- min = rdslope;\r
- }\r
- if (rdslope > max) {\r
- max = rdslope;\r
- }\r
-\r
- } /* passno */\r
- \r
- /* fixed_quality */\r
- tcd_tile->nbpix += ((cblk->x1 - cblk->x0) * (cblk->y1 - cblk->y0) * (cblk->z1 - cblk->z0));\r
- tilec->nbpix += ((cblk->x1 - cblk->x0) * (cblk->y1 - cblk->y0) * (cblk->z1 - cblk->z0));\r
- } /* cbklno */ \r
- } /* precno */\r
- } /* bandno */\r
- } /* resno */\r
- \r
- maxSE += (((double)(1 << tcd->volume->comps[compno].prec) - 1.0) \r
- * ((double)(1 << tcd->volume->comps[compno].prec) -1.0)) \r
- * ((double)(tilec->nbpix));\r
- } /* compno */\r
- \r
- /* add antonin index */\r
- if(volume_info && volume_info->index_on) {\r
- opj_tile_info_t *info_TL = &volume_info->tile[tcd->tcd_tileno];\r
- info_TL->nbpix = tcd_tile->nbpix;\r
- info_TL->distotile = tcd_tile->distotile;\r
- info_TL->thresh = (double *) opj_malloc(tcd_tcp->numlayers * sizeof(double));\r
- }\r
- /* dda */\r
- \r
- for (layno = 0; layno < tcd_tcp->numlayers; layno++) {\r
- double lo = min;\r
- double hi = max;\r
- int success = 0;\r
- int maxlen = tcd_tcp->rates[layno] ? int_min(((int) tcd_tcp->rates[layno]), len) : len;\r
- double goodthresh;\r
- double distotarget; /* fixed_quality */\r
- int i = 0;\r
- \r
- /* fixed_quality */\r
- distotarget = tcd_tile->distotile - ((K * maxSE) / pow((float)10, tcd_tcp->distoratio[layno] / 10));\r
- \r
- if ((tcd_tcp->rates[layno]) || (cp->disto_alloc==0)) {\r
- opj_t2_t *t2 = t2_create(tcd->cinfo, tcd->volume, cp);\r
- int oldl = 0, oldoldl = 0;\r
- for (i = 0; i < 128; i++) {\r
- double thresh = (lo + hi) / 2;\r
- int l = 0;\r
- double distoachieved = 0; /* fixed_quality -q */\r
- \r
- tcd_makelayer(tcd, layno, thresh, 0);\r
- \r
- if (cp->fixed_quality) { /* fixed_quality -q */\r
- distoachieved = (layno == 0) ? tcd_tile->distolayer[0] : cumdisto[layno - 1] + tcd_tile->distolayer[layno];\r
- if (distoachieved < distotarget) {\r
- hi = thresh; \r
- continue;\r
- }\r
- lo = thresh;\r
- } else { /* disto_alloc -r, fixed_alloc -f */\r
- l = t2_encode_packets(t2, tcd->tcd_tileno, tcd_tile, layno + 1, dest, maxlen, volume_info);\r
- //fprintf(stdout, "layno %d i %d len=%d max=%d \n",layno,i,l,maxlen);\r
- if (l == -999) {\r
- lo = thresh; \r
- continue;\r
- } else if (l == oldl && oldl == oldoldl && tcd_tile->distolayer[layno] > 0.0 && i>32)\r
- break;\r
- hi = thresh;\r
- oldoldl = oldl;\r
- oldl = l;\r
- }\r
- success = 1;\r
- goodthresh = thresh;\r
- } \r
- t2_destroy(t2);\r
- } else {\r
- success = 1;\r
- goodthresh = min;\r
- }\r
- if (!success) {\r
- return false;\r
- }\r
- \r
- if(volume_info && volume_info->index_on) { /* Threshold for Marcela Index */\r
- volume_info->tile[tcd->tcd_tileno].thresh[layno] = goodthresh;\r
- }\r
- tcd_makelayer(tcd, layno, goodthresh, 1);\r
- \r
- /* fixed_quality */\r
- cumdisto[layno] = (layno == 0) ? tcd_tile->distolayer[0] : cumdisto[layno - 1] + tcd_tile->distolayer[layno]; \r
- }\r
-\r
- return true;\r
-}\r
-\r
-/* ----------------------------------------------------------------------- */\r
-int tcd_encode_tile(opj_tcd_t *tcd, int tileno, unsigned char *dest, int len, opj_volume_info_t * volume_info) {\r
- int compno;\r
- int l, i, npck = 0;\r
- double encoding_time;\r
- \r
- opj_tcd_tile_t *tile = NULL;\r
- opj_tcp_t *tcd_tcp = NULL;\r
- opj_cp_t *cp = NULL;\r
-\r
- opj_tcp_t *tcp = &tcd->cp->tcps[0];\r
- opj_tccp_t *tccp = &tcp->tccps[0];\r
- opj_volume_t *volume = tcd->volume;\r
- opj_t2_t *t2 = NULL; /* T2 component */\r
-\r
- tcd->tcd_tileno = tileno; /* current encoded/decoded tile */\r
- \r
- tcd->tcd_tile = tcd->tcd_volume->tiles; /* tile information */\r
- tile = tcd->tcd_tile;\r
- \r
- tcd->tcp = &tcd->cp->tcps[tileno]; /* coding/decoding params of tileno */ \r
- tcd_tcp = tcd->tcp;\r
- \r
- cp = tcd->cp; /* coding parameters */\r
-\r
- /* INDEX >> */\r
- if(volume_info && volume_info->index_on) {\r
- opj_tcd_tilecomp_t *tilec_idx = &tile->comps[0]; /* based on component 0 */\r
- for (i = 0; i < tilec_idx->numresolution[0]; i++) {\r
- opj_tcd_resolution_t *res_idx = &tilec_idx->resolutions[i];\r
-\r
- volume_info->tile[tileno].prctno[0][i] = res_idx->prctno[0];\r
- volume_info->tile[tileno].prctno[1][i] = res_idx->prctno[1];\r
- volume_info->tile[tileno].prctno[2][i] = res_idx->prctno[2];\r
-\r
- npck += res_idx->prctno[0] * res_idx->prctno[1] * res_idx->prctno[2];\r
-\r
- volume_info->tile[tileno].prctsiz[0][i] = tccp->prctsiz[0][i];\r
- volume_info->tile[tileno].prctsiz[1][i] = tccp->prctsiz[1][i];\r
- volume_info->tile[tileno].prctsiz[2][i] = tccp->prctsiz[2][i];\r
- }\r
- volume_info->tile[tileno].packet = (opj_packet_info_t *) opj_malloc(volume_info->comp * volume_info->layer * npck * sizeof(opj_packet_info_t));\r
- }\r
- /* << INDEX */\r
- \r
- /*---------------TILE-------------------*/\r
- encoding_time = opj_clock(); /* time needed to encode a tile */\r
- \r
- for (compno = 0; compno < tile->numcomps; compno++) {\r
- int x, y, z;\r
- opj_tcd_tilecomp_t *tilec = &tile->comps[compno];\r
- \r
- int adjust;\r
- int offset_x = int_ceildiv(volume->x0, volume->comps[compno].dx); //ceil(x0 / subsampling_dx)\r
- int offset_y = int_ceildiv(volume->y0, volume->comps[compno].dy);\r
- int offset_z = int_ceildiv(volume->z0, volume->comps[compno].dz);\r
- \r
- int tw = tilec->x1 - tilec->x0;\r
- int w = int_ceildiv(volume->x1 - volume->x0, volume->comps[compno].dx);\r
- int th = tilec->y1 - tilec->y0;\r
- int h = int_ceildiv(volume->y1 - volume->y0, volume->comps[compno].dy);\r
- int tl = tilec->z1 - tilec->z0;\r
- int l = int_ceildiv(volume->z1 - volume->z0, volume->comps[compno].dz);\r
-\r
- \r
- \r
- /* extract tile data from volume.comps[0].data to tile.comps[0].data */\r
- //fprintf(stdout,"[INFO] Extract tile data\n");\r
- if (tcd->cp->transform_format == TRF_3D_RLS || tcd->cp->transform_format == TRF_3D_LSE) {\r
- adjust = 0;\r
- } else {\r
- adjust = volume->comps[compno].sgnd ? 0 : 1 << (volume->comps[compno].prec - 1); //sign=='+' --> 2^(prec-1)\r
- if (volume->comps[compno].dcoffset != 0){\r
- adjust += volume->comps[compno].dcoffset;\r
- fprintf(stdout,"[INFO] DC Offset applied: DCO = %d -> adjust = %d\n",volume->comps[compno].dcoffset,adjust);\r
- }\r
- } \r
-\r
- if (tcd_tcp->tccps[compno].reversible == 1) { //IF perfect reconstruction (DWT.5-3)\r
- for (z = tilec->z0; z < tilec->z1; z++) {\r
- for (y = tilec->y0; y < tilec->y1; y++) {\r
- /* start of the src tile scanline */\r
- int *data = &volume->comps[compno].data[(tilec->x0 - offset_x) + (y - offset_y) * w + (z - offset_z) * w * h];\r
- /* start of the dst tile scanline */\r
- int *tile_data = &tilec->data[(y - tilec->y0) * tw + (z - tilec->z0) * tw * th];\r
- for (x = tilec->x0; x < tilec->x1; x++) {\r
- *tile_data++ = *data++ - adjust;\r
- }\r
- }\r
- }\r
- } else if (tcd_tcp->tccps[compno].reversible == 0) { //IF not (DWT.9-7)\r
- for (z = tilec->z0; z < tilec->z1; z++) {\r
- for (y = tilec->y0; y < tilec->y1; y++) {\r
- /* start of the src tile scanline */\r
- int *data = &volume->comps[compno].data[(tilec->x0 - offset_x) + (y - offset_y) * w + (z - offset_z) * w * h];\r
- /* start of the dst tile scanline */\r
- int *tile_data = &tilec->data[(y - tilec->y0) * tw + (z - tilec->z0) * tw * th];\r
- for (x = tilec->x0; x < tilec->x1; x++) {\r
- *tile_data++ = (*data++ - adjust) << 13;\r
- }\r
- }\r
- }\r
- }\r
- \r
- }\r
-\r
- /*----------------MCT-------------------*/\r
- if (tcd_tcp->mct) {\r
- int samples = (tile->comps[0].x1 - tile->comps[0].x0) * (tile->comps[0].y1 - tile->comps[0].y0) * (tile->comps[0].z1 - tile->comps[0].z0);\r
- fprintf(stdout,"[INFO] Tcd_encode_tile: mct\n");\r
- if (tcd_tcp->tccps[0].reversible == 0) {\r
- mct_encode_real(tile->comps[0].data, tile->comps[1].data, tile->comps[2].data, samples);\r
- } else {\r
- mct_encode(tile->comps[0].data, tile->comps[1].data, tile->comps[2].data, samples);\r
- }\r
- }\r
- /*----------------TRANSFORM---------------------------------*/\r
- fprintf(stdout,"[INFO] Tcd_encode_tile: Transform\n");\r
- for (compno = 0; compno < tile->numcomps; compno++) {\r
- opj_tcd_tilecomp_t *tilec = &tile->comps[compno];\r
- dwt_encode(tilec, tcd_tcp->tccps[compno].dwtid);\r
- } \r
-\r
- /*-------------------ENTROPY CODING-----------------------------*/\r
- fprintf(stdout,"[INFO] Tcd_encode_tile: Entropy coding\n");\r
- if ((cp->encoding_format == ENCOD_2EB)||(cp->encoding_format == ENCOD_3EB))\r
- {\r
- if (cp->encoding_format == ENCOD_2EB) {\r
- opj_t1_t *t1 = NULL;\r
- t1 = t1_create(tcd->cinfo);\r
- t1_encode_cblks(t1, tile, tcd_tcp);\r
- t1_destroy(t1); \r
- } else if (cp->encoding_format == ENCOD_3EB) {\r
- opj_t1_3d_t *t1 = NULL; \r
- t1 = t1_3d_create(tcd->cinfo);\r
- t1_3d_encode_cblks(t1, tile, tcd_tcp);\r
- t1_3d_destroy(t1); \r
- }\r
- /*-----------RATE-ALLOCATE------------------*/\r
- /* INDEX */\r
- if(volume_info) {\r
- volume_info->index_write = 0;\r
- }\r
- if (cp->disto_alloc || cp->fixed_quality) { \r
- fprintf(stdout,"[INFO] Tcd_encode_tile: Rate-allocate\n");\r
- tcd_rateallocate(tcd, dest, len, volume_info); /* Normal Rate/distortion allocation */\r
- } else {/* fixed_alloc */\r
- fprintf(stdout,"[INFO] Tcd_encode_tile: Rate-allocate fixed\n");\r
- tcd_rateallocate_fixed(tcd); /* Fixed layer allocation */\r
- }\r
-\r
- /*--------------TIER2------------------*/\r
- /* INDEX */\r
- if(volume_info) {\r
- volume_info->index_write = 1;\r
- }\r
- fprintf(stdout,"[INFO] Tcd_encode_tile: Tier - 2\n");\r
- t2 = t2_create(tcd->cinfo, volume, cp);\r
- l = t2_encode_packets(t2, tileno, tile, tcd_tcp->numlayers, dest, len, volume_info);\r
- t2_destroy(t2);\r
- } else if ((cp->encoding_format == ENCOD_2GR)||(cp->encoding_format == ENCOD_3GR)) {\r
- /*if(volume_info) {\r
- volume_info->index_write = 1;\r
- }\r
- gr = golomb_create(tcd->cinfo, volume, cp);\r
- l = golomb_encode(gr, tileno, tile, dest, len, volume_info);\r
- golomb_destroy(gr);*/\r
- }\r
-\r
- \r
- /*---------------CLEAN-------------------*/\r
- fprintf(stdout,"[INFO] Tcd_encode_tile: %d bytes coded\n",l);\r
- encoding_time = opj_clock() - encoding_time;\r
- opj_event_msg(tcd->cinfo, EVT_INFO, "- tile encoded in %f s\n", encoding_time);\r
- \r
- /* cleaning memory */\r
- for (compno = 0; compno < tile->numcomps; compno++) {\r
- tcd->tilec = &tile->comps[compno];\r
- opj_free(tcd->tilec->data);\r
- }\r
- \r
- if (l == -999){\r
- fprintf(stdout,"[ERROR] Unable to perform T2 tier. Return -999.\n");\r
- return 0;\r
- }\r
-\r
- return l;\r
-}\r
-\r
-\r
-bool tcd_decode_tile(opj_tcd_t *tcd, unsigned char *src, int len, int tileno) {\r
- int l, i;\r
- int compno, eof = 0;\r
- double tile_time, t1_time, dwt_time;\r
-\r
- opj_tcd_tile_t *tile = NULL;\r
- opj_t2_t *t2 = NULL; /* T2 component */\r
- \r
- tcd->tcd_tileno = tileno;\r
- tcd->tcd_tile = &(tcd->tcd_volume->tiles[tileno]);\r
- tcd->tcp = &(tcd->cp->tcps[tileno]);\r
- tile = tcd->tcd_tile;\r
- \r
- tile_time = opj_clock(); /* time needed to decode a tile */\r
- opj_event_msg(tcd->cinfo, EVT_INFO, "tile %d / %d\n", tileno + 1, tcd->cp->tw * tcd->cp->th * tcd->cp->tl);\r
-\r
- if ((tcd->cp->encoding_format == ENCOD_2EB) || (tcd->cp->encoding_format == ENCOD_3EB)) {\r
- /*--------------TIER2------------------*/\r
- t2 = t2_create(tcd->cinfo, tcd->volume, tcd->cp);\r
- l = t2_decode_packets(t2, src, len, tileno, tile);\r
- t2_destroy(t2);\r
- opj_event_msg(tcd->cinfo, EVT_INFO, "Tcd_decode_tile: %d bytes decoded\n",l);\r
- \r
- if (l == -999) {\r
- eof = 1;\r
- opj_event_msg(tcd->cinfo, EVT_ERROR, "Tcd_decode_tile: incomplete bistream\n");\r
- }\r
- \r
- /*------------------TIER1-----------------*/\r
- opj_event_msg(tcd->cinfo, EVT_INFO, "Tcd_decode_tile: Entropy decoding %d \n",tcd->cp->encoding_format);\r
- t1_time = opj_clock(); /* time needed to decode a tile */\r
- if (tcd->cp->encoding_format == ENCOD_2EB) {\r
- opj_t1_t *t1 = NULL; /* T1 component */\r
- t1 = t1_create(tcd->cinfo);\r
- t1_decode_cblks(t1, tile, tcd->tcp);\r
- t1_destroy(t1);\r
- }else if (tcd->cp->encoding_format == ENCOD_3EB) {\r
- opj_t1_3d_t *t1 = NULL; /* T1 component */\r
- t1 = t1_3d_create(tcd->cinfo);\r
- t1_3d_decode_cblks(t1, tile, tcd->tcp);\r
- t1_3d_destroy(t1);\r
- }\r
-\r
- t1_time = opj_clock() - t1_time;\r
- #ifdef VERBOSE\r
- opj_event_msg(tcd->cinfo, EVT_INFO, "- tier-1 took %f s\n", t1_time);\r
- #endif\r
- } else if ((tcd->cp->encoding_format == ENCOD_2GR)||(tcd->cp->encoding_format == ENCOD_3GR)) {\r
- opj_event_msg(tcd->cinfo, EVT_INFO, "Tcd_decode_tile: Entropy decoding -- Does nothing :-D\n");\r
- /*\r
- gr = golomb_create(tcd->cinfo, tcd->volume, tcd->cp);\r
- l = golomb_decode(gr, tileno, tile, src, len);\r
- golomb_destroy(gr);\r
- if (l == -999) {\r
- eof = 1;\r
- opj_event_msg(tcd->cinfo, EVT_ERROR, "Tcd_decode_tile: incomplete bistream\n");\r
- }\r
- */\r
- } \r
-\r
- /*----------------DWT---------------------*/\r
- fprintf(stdout,"[INFO] Tcd_decode_tile: Inverse DWT\n");\r
- dwt_time = opj_clock(); /* time needed to decode a tile */\r
- for (compno = 0; compno < tile->numcomps; compno++) {\r
- opj_tcd_tilecomp_t *tilec = &tile->comps[compno];\r
- int stops[3], dwtid[3];\r
- \r
- for (i = 0; i < 3; i++) {\r
- if (tcd->cp->reduce[i] != 0) \r
- tcd->volume->comps[compno].resno_decoded[i] = tile->comps[compno].numresolution[i] - tcd->cp->reduce[i] - 1;\r
- stops[i] = tilec->numresolution[i] - 1 - tcd->volume->comps[compno].resno_decoded[i];\r
- if (stops[i] < 0) stops[i]=0;\r
- dwtid[i] = tcd->cp->tcps->tccps[compno].dwtid[i];\r
- }\r
- \r
- dwt_decode(tilec, stops, dwtid);\r
-\r
- for (i = 0; i < 3; i++) {\r
- if (tile->comps[compno].numresolution[i] > 0) {\r
- tcd->volume->comps[compno].factor[i] = tile->comps[compno].numresolution[i] - (tcd->volume->comps[compno].resno_decoded[i] + 1);\r
- if ( (tcd->volume->comps[compno].factor[i]) < 0 )\r
- tcd->volume->comps[compno].factor[i] = 0;\r
- }\r
- }\r
- }\r
- dwt_time = opj_clock() - dwt_time;\r
- #ifdef VERBOSE\r
- opj_event_msg(tcd->cinfo, EVT_INFO, "- dwt took %f s\n", dwt_time);\r
- #endif\r
-\r
- /*----------------MCT-------------------*/\r
- \r
- if (tcd->tcp->mct) {\r
- if (tcd->tcp->tccps[0].reversible == 1) {\r
- mct_decode(tile->comps[0].data, tile->comps[1].data, tile->comps[2].data, \r
- (tile->comps[0].x1 - tile->comps[0].x0) * (tile->comps[0].y1 - tile->comps[0].y0) * (tile->comps[0].z1 - tile->comps[0].z0));\r
- } else {\r
- mct_decode_real(tile->comps[0].data, tile->comps[1].data, tile->comps[2].data, \r
- (tile->comps[0].x1 - tile->comps[0].x0) * (tile->comps[0].y1 - tile->comps[0].y0)* (tile->comps[0].z1 - tile->comps[0].z0));\r
- }\r
- }\r
- \r
- /*---------------TILE-------------------*/\r
- \r
- for (compno = 0; compno < tile->numcomps; compno++) {\r
- opj_tcd_tilecomp_t *tilec = &tile->comps[compno];\r
- opj_tcd_resolution_t *res = &tilec->resolutions[tcd->volume->comps[compno].resno_decoded[0]];\r
- int adjust;\r
- int minval = tcd->volume->comps[compno].sgnd ? -(1 << (tcd->volume->comps[compno].prec - 1)) : 0;\r
- int maxval = tcd->volume->comps[compno].sgnd ? (1 << (tcd->volume->comps[compno].prec - 1)) - 1 : (1 << tcd->volume->comps[compno].prec) - 1;\r
- \r
- int tw = tilec->x1 - tilec->x0;\r
- int w = tcd->volume->comps[compno].w;\r
- int th = tilec->y1 - tilec->y0;\r
- int h = tcd->volume->comps[compno].h;\r
-\r
- int i, j, k;\r
- int offset_x = int_ceildivpow2(tcd->volume->comps[compno].x0, tcd->volume->comps[compno].factor[0]);\r
- int offset_y = int_ceildivpow2(tcd->volume->comps[compno].y0, tcd->volume->comps[compno].factor[1]);\r
- int offset_z = int_ceildivpow2(tcd->volume->comps[compno].z0, tcd->volume->comps[compno].factor[2]);\r
- \r
- if (tcd->cp->transform_format == TRF_3D_RLS || tcd->cp->transform_format == TRF_3D_LSE) {\r
- adjust = 0;\r
- } else {\r
- adjust = tcd->volume->comps[compno].sgnd ? 0 : 1 << (tcd->volume->comps[compno].prec - 1); //sign=='+' --> 2^(prec-1)\r
- if (tcd->volume->comps[compno].dcoffset != 0){\r
- adjust += tcd->volume->comps[compno].dcoffset;\r
- fprintf(stdout,"[INFO] DC Offset applied: DCO = %d -> adjust = %d\n",tcd->volume->comps[compno].dcoffset,adjust);\r
- }\r
- }\r
-\r
- for (k = res->z0; k < res->z1; k++) {\r
- for (j = res->y0; j < res->y1; j++) {\r
- for (i = res->x0; i < res->x1; i++) {\r
- int v;\r
- float tmp = (float)((tilec->data[i - res->x0 + (j - res->y0) * tw + (k - res->z0) * tw * th]) / 8192.0);\r
-\r
- if (tcd->tcp->tccps[compno].reversible == 1) {\r
- v = tilec->data[i - res->x0 + (j - res->y0) * tw + (k - res->z0) * tw * th];\r
- } else {\r
- int tmp2 = ((int) (floor(fabs(tmp)))) + ((int) floor(fabs(tmp*2))%2);\r
- v = ((tmp < 0) ? -tmp2:tmp2);\r
- }\r
- v += adjust;\r
- \r
- tcd->volume->comps[compno].data[(i - offset_x) + (j - offset_y) * w + (k - offset_z) * w * h] = int_clamp(v, minval, maxval);\r
- }\r
- }\r
- }\r
- }\r
- \r
- tile_time = opj_clock() - tile_time; /* time needed to decode a tile */\r
- opj_event_msg(tcd->cinfo, EVT_INFO, "- tile decoded in %f s\n", tile_time);\r
- \r
- for (compno = 0; compno < tile->numcomps; compno++) {\r
- opj_free(tcd->tcd_volume->tiles[tileno].comps[compno].data);\r
- tcd->tcd_volume->tiles[tileno].comps[compno].data = NULL;\r
- }\r
- \r
- if (eof) {\r
- return false;\r
- }\r
- \r
- return true;\r
-}\r
-\r
+/*
+ * The copyright in this software is being made available under the 2-clauses
+ * BSD License, included below. This software may be subject to other third
+ * party and contributor rights, including patent rights, and no such rights
+ * are granted under this license.
+ *
+ * Copyright (c) 2001-2003, David Janssens
+ * Copyright (c) 2002-2003, Yannick Verschueren
+ * Copyright (c) 2003-2005, Francois Devaux and Antonin Descampe
+ * Copyright (c) 2005, Herve Drolon, FreeImage Team
+ * Copyright (c) 2002-2005, Communications and remote sensing Laboratory, Universite catholique de Louvain, Belgium
+ * Copyright (c) 2006, M�nica D�ez, LPI-UVA, Spain
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ * notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ * notice, this list of conditions and the following disclaimer in the
+ * documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS `AS IS'
+ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+ * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+ * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+ * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+ * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+ * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "opj_includes.h"
+
+void tcd_dump(FILE *fd, opj_tcd_t *tcd, opj_tcd_volume_t * vol) {
+ int tileno, compno, resno, bandno, precno, cblkno;
+
+ fprintf(fd, "volume {\n");
+ fprintf(fd, " tw=%d, th=%d, tl=%d, x0=%d x1=%d y0=%d y1=%d z0=%d z1=%d\n",
+ vol->tw, vol->th, vol->tl, tcd->volume->x0, tcd->volume->x1, tcd->volume->y0, tcd->volume->y1, tcd->volume->z0, tcd->volume->z1);
+
+ for (tileno = 0; tileno < vol->th * vol->tw * vol->tl; tileno++) {
+ opj_tcd_tile_t *tile = &tcd->tcd_volume->tiles[tileno];
+ fprintf(fd, " tile {\n");
+ fprintf(fd, " x0=%d, y0=%d, z0=%d, x1=%d, y1=%d, z1=%d, numcomps=%d\n",
+ tile->x0, tile->y0, tile->z0, tile->x1, tile->y1, tile->z1, tile->numcomps);
+ for (compno = 0; compno < tile->numcomps; compno++) {
+ opj_tcd_tilecomp_t *tilec = &tile->comps[compno];
+ fprintf(fd, " tilecomp %d {\n",compno);
+ fprintf(fd, " x0=%d, y0=%d, z0=%d, x1=%d, y1=%d, z1=%d, numresx=%d, numresy=%d, numresz=%d\n",
+ tilec->x0, tilec->y0, tilec->z0, tilec->x1, tilec->y1, tilec->z1, tilec->numresolution[0], tilec->numresolution[1], tilec->numresolution[2]);
+ for (resno = 0; resno < tilec->numresolution[0]; resno++) {
+ opj_tcd_resolution_t *res = &tilec->resolutions[resno];
+ fprintf(fd, " res %d{\n",resno);
+ fprintf(fd," x0=%d, y0=%d, z0=%d, x1=%d, y1=%d, z1=%d, pw=%d, ph=%d, pl=%d, numbands=%d\n",
+ res->x0, res->y0, res->z0, res->x1, res->y1, res->z1, res->prctno[0], res->prctno[1], res->prctno[2], res->numbands);
+ for (bandno = 0; bandno < res->numbands; bandno++) {
+ opj_tcd_band_t *band = &res->bands[bandno];
+ fprintf(fd, " band %d{\n", bandno);
+ fprintf(fd, " x0=%d, y0=%d, z0=%d, x1=%d, y1=%d, z1=%d, stepsize=%f, numbps=%d\n",
+ band->x0, band->y0, band->z0, band->x1, band->y1, band->z1, band->stepsize, band->numbps);
+ for (precno = 0; precno < (res->prctno[0] * res->prctno[1] * res->prctno[2]); precno++) {
+ opj_tcd_precinct_t *prec = &band->precincts[precno];
+ fprintf(fd, " prec %d{\n",precno);
+ fprintf(fd, " x0=%d, y0=%d, z0=%d, x1=%d, y1=%d, z1=%d, cw=%d, ch=%d, cl=%d,\n",
+ prec->x0, prec->y0, prec->z0, prec->x1, prec->y1, prec->z1, prec->cblkno[0], prec->cblkno[1], prec->cblkno[2]);
+ for (cblkno = 0; cblkno < (prec->cblkno[0] * prec->cblkno[1] * prec->cblkno[2]); cblkno++) {
+ opj_tcd_cblk_t *cblk = &prec->cblks[cblkno];
+ fprintf(fd, " cblk %d{\n",cblkno);
+ fprintf(fd, " x0=%d, y0=%d, z0=%d, x1=%d, y1=%d, z1=%d\n", cblk->x0, cblk->y0, cblk->z0, cblk->x1, cblk->y1, cblk->z1);
+ fprintf(fd, " }\n");
+ }
+ fprintf(fd, " }\n");
+ }
+ fprintf(fd, " }\n");
+ }
+ fprintf(fd, " }\n");
+ }
+ fprintf(fd, " }\n");
+ }
+ fprintf(fd, " }\n");
+ }
+ fprintf(fd, "}\n");
+}
+
+static void tilec_dump(FILE *fd, opj_tcd_tilecomp_t *tilec) {
+
+ int i=0,k;
+ int datalen;
+ int *a;
+
+ fprintf(fd, " tilecomp{\n");
+ fprintf(fd, " x0=%d, y0=%d, z0=%d, x1=%d, y1=%d, z1=%d, numresx=%d, numresy=%d, numresz=%d\n",
+ tilec->x0, tilec->y0, tilec->z0, tilec->x1, tilec->y1, tilec->z1, tilec->numresolution[0], tilec->numresolution[1], tilec->numresolution[2]);
+ fprintf(fd, " data {\n");
+ datalen = (tilec->z1 - tilec->z0) * (tilec->y1 - tilec->y0) * (tilec->x1 - tilec->x0);
+ a = tilec->data;
+ for (k = 0; k < datalen; k++) {
+ if (!(k % tilec->x1)){
+ fprintf(fd, "\n");
+ }
+ if (!(k % (tilec->y1 * tilec->x1))){
+ fprintf(fd, "Slice %d\n",i++);
+ }
+ fprintf(fd," %d",a[k]);
+
+
+ }
+ fprintf(fd, " }\n");
+ /*i=0;
+ fprintf(fd, "Slice %d\n");
+ if (tilec->prediction->prederr) {
+ fprintf(fd, " prederror {\n");
+ a = tilec->prediction->prederr;
+ for (k = 0; k < datalen; k++) {
+ fprintf(fd," %d",*(a++));
+ if (!(k % (tilec->y1 - tilec->y0) * (tilec->x1 - tilec->x0))){
+ fprintf(fd, "\n");fprintf(fd, "Slice %d\n",i++);
+ }
+ if (!(k % (tilec->x1 - tilec->x0))){
+ fprintf(fd, "\n");
+ }
+ }
+ }
+ fprintf(fd, " }\n");*/
+ fprintf(fd, "}\n");
+}
+
+/* ----------------------------------------------------------------------- */
+
+/**
+Create a new TCD handle
+*/
+opj_tcd_t* tcd_create(opj_common_ptr cinfo) {
+ /* create the tcd structure */
+ opj_tcd_t *tcd = (opj_tcd_t*)opj_malloc(sizeof(opj_tcd_t));
+ if(!tcd) return NULL;
+ tcd->cinfo = cinfo;
+ tcd->tcd_volume = (opj_tcd_volume_t*)opj_malloc(sizeof(opj_tcd_volume_t));
+ if(!tcd->tcd_volume) {
+ opj_free(tcd);
+ return NULL;
+ }
+
+ return tcd;
+}
+
+/**
+Destroy a previously created TCD handle
+*/
+void tcd_destroy(opj_tcd_t *tcd) {
+ if(tcd) {
+ opj_free(tcd->tcd_volume);
+ opj_free(tcd);
+ }
+}
+
+/* ----------------------------------------------------------------------- */
+void tcd_malloc_encode(opj_tcd_t *tcd, opj_volume_t * volume, opj_cp_t * cp, int curtileno) {
+ int compno, resno, bandno, precno, cblkno, i, j;/*, k;*/
+
+ opj_tcd_tile_t *tile = NULL; /* pointer to tcd->tile */
+ opj_tcd_tilecomp_t *tilec = NULL; /* pointer to tcd->tilec */
+ opj_tcd_resolution_t *res = NULL; /* pointer to tcd->res */
+ opj_tcd_band_t *band = NULL; /* pointer to tcd->band */
+ opj_tcd_precinct_t *prc = NULL; /* pointer to tcd->prc */
+ opj_tcd_cblk_t *cblk = NULL; /* pointer to tcd->cblk */
+ opj_tcp_t *tcp = &cp->tcps[curtileno];
+ int p,q,r;
+
+ tcd->volume = volume;
+ tcd->cp = cp;
+ tcd->tcd_volume->tw = cp->tw;
+ tcd->tcd_volume->th = cp->th;
+ tcd->tcd_volume->tl = cp->tl;
+ tcd->tcd_volume->tiles = (opj_tcd_tile_t *) opj_malloc(sizeof(opj_tcd_tile_t));
+ tcd->tile = tcd->tcd_volume->tiles;
+ tile = tcd->tile;
+
+
+ /* p61 ISO/IEC IS15444-1 : 2002 */
+ /* curtileno --> raster scanned index of tiles */
+ /* p,q,r --> matricial index of tiles */
+ p = curtileno % cp->tw;
+ q = curtileno / cp->tw;
+ r = curtileno / (cp->tw * cp->th); /* extension to 3-D */
+
+ /* 4 borders of the tile rescale on the volume if necessary (B.3)*/
+ tile->x0 = int_max(cp->tx0 + p * cp->tdx, volume->x0);
+ tile->y0 = int_max(cp->ty0 + q * cp->tdy, volume->y0);
+ tile->z0 = int_max(cp->tz0 + r * cp->tdz, volume->z0);
+ tile->x1 = int_min(cp->tx0 + (p + 1) * cp->tdx, volume->x1);
+ tile->y1 = int_min(cp->ty0 + (q + 1) * cp->tdy, volume->y1);
+ tile->z1 = int_min(cp->tz0 + (r + 1) * cp->tdz, volume->z1);
+ tile->numcomps = volume->numcomps;
+
+ /* Modification of the RATE >> */
+ for (j = 0; j < tcp->numlayers; j++) {
+ if (tcp->rates[j] <= 1) {
+ tcp->rates[j] = 0;
+ } else {
+ float num = (float) (tile->numcomps * (tile->x1 - tile->x0) * (tile->y1 - tile->y0) * (tile->z1 - tile->z0) * volume->comps[0].prec);
+ float den = (float) (8 * volume->comps[0].dx * volume->comps[0].dy * volume->comps[0].dz);
+ den = tcp->rates[j] * den;
+ tcp->rates[j] = (num + den - 1) / den;
+ }
+ /*tcp->rates[j] = tcp->rates[j] ? int_ceildiv(
+ tile->numcomps * (tile->x1 - tile->x0) * (tile->y1 - tile->y0) * (tile->z1 - tile->z0) * volume->comps[0].prec,
+ (tcp->rates[j] * 8 * volume->comps[0].dx * volume->comps[0].dy * volume->comps[0].dz)) : 0;*/
+ if (tcp->rates[j]) {
+ if (j && tcp->rates[j] < tcp->rates[j - 1] + 10) {
+ tcp->rates[j] = tcp->rates[j - 1] + 20;
+ } else if (!j && tcp->rates[j] < 30){
+ tcp->rates[j] = 30;
+ }
+ }
+ }
+ /* << Modification of the RATE */
+
+ tile->comps = (opj_tcd_tilecomp_t *) opj_malloc(volume->numcomps * sizeof(opj_tcd_tilecomp_t));
+ for (compno = 0; compno < tile->numcomps; compno++) {
+ opj_tccp_t *tccp = &tcp->tccps[compno];
+ int res_max;
+ int prevnumbands = 0;
+
+ /* opj_tcd_tilecomp_t *tilec=&tile->comps[compno]; */
+ tcd->tilec = &tile->comps[compno];
+ tilec = tcd->tilec;
+
+ /* border of each tile component (global) (B.3) */
+ tilec->x0 = int_ceildiv(tile->x0, volume->comps[compno].dx);
+ tilec->y0 = int_ceildiv(tile->y0, volume->comps[compno].dy);
+ tilec->z0 = int_ceildiv(tile->z0, volume->comps[compno].dz);
+ tilec->x1 = int_ceildiv(tile->x1, volume->comps[compno].dx);
+ tilec->y1 = int_ceildiv(tile->y1, volume->comps[compno].dy);
+ tilec->z1 = int_ceildiv(tile->z1, volume->comps[compno].dz);
+
+ tilec->data = (int *) opj_malloc((tilec->x1 - tilec->x0) * (tilec->y1 - tilec->y0) * (tilec->z1 - tilec->z0) * sizeof(int));
+
+ res_max = 0;
+ for (i = 0;i < 3; i++){
+ tilec->numresolution[i] = tccp->numresolution[i];
+ /*Greater of 3 resolutions contains all information*/
+ res_max = (tilec->numresolution[i] > res_max) ? tilec->numresolution[i] : res_max;
+ }
+
+
+ tilec->resolutions = (opj_tcd_resolution_t *) opj_malloc(res_max * sizeof(opj_tcd_resolution_t));
+ for (resno = 0; resno < res_max; resno++) {
+
+ int pdx, pdy, pdz;
+ int tlprcxstart, tlprcystart, tlprczstart;
+ int brprcxend, brprcyend, brprczend;
+ int tlcbgxstart, tlcbgystart, tlcbgzstart;
+ int brcbgxend, brcbgyend, brcbgzend;
+ int cbgwidthexpn, cbgheightexpn, cbglengthexpn;
+ int cblkwidthexpn, cblkheightexpn, cblklengthexpn;
+
+ int diff = tccp->numresolution[0] - tccp->numresolution[2];
+ int levelnox = tilec->numresolution[0] - 1 - resno;
+ int levelnoy = tilec->numresolution[1] - 1 - resno;
+ int levelnoz = tilec->numresolution[2] - 1 - ((resno <= diff) ? 0 : (resno - diff));
+ if (levelnoz < 0) levelnoz = 0;
+
+ /* opj_tcd_resolution_t *res=&tilec->resolutions[resno]; */
+ tcd->res = &tilec->resolutions[resno];
+ res = tcd->res;
+
+ /* border for each resolution level (global) (B.14)*/
+ res->x0 = int_ceildivpow2(tilec->x0, levelnox);
+ res->y0 = int_ceildivpow2(tilec->y0, levelnoy);
+ res->z0 = int_ceildivpow2(tilec->z0, levelnoz);
+ res->x1 = int_ceildivpow2(tilec->x1, levelnox);
+ res->y1 = int_ceildivpow2(tilec->y1, levelnoy);
+ res->z1 = int_ceildivpow2(tilec->z1, levelnoz);
+ /*if (res->z1 < 0)fprintf(stdout,"Res: %d %d/%d --> %d\n",resno,tilec->z1, levelnoz, int_ceildivpow2(tilec->z1, levelnoz));*/
+
+ res->numbands = (resno == 0) ? 1 : (resno <= diff) ? 3 : 7; /* --> 3D */
+
+ /* p. 30, table A-13, ISO/IEC IS154444-1 : 2002 */
+ if (tccp->csty & J3D_CCP_CSTY_PRT) {
+ pdx = tccp->prctsiz[0][resno];
+ pdy = tccp->prctsiz[1][resno];
+ pdz = tccp->prctsiz[2][resno];
+ } else {
+ pdx = 15;
+ pdy = 15;
+ pdz = 15;
+ }
+
+ /* p. 66, B.16, ISO/IEC IS15444-1 : 2002 */
+ tlprcxstart = int_floordivpow2(res->x0, pdx) << pdx;
+ tlprcystart = int_floordivpow2(res->y0, pdy) << pdy;
+ tlprczstart = int_floordivpow2(res->z0, pdz) << pdz;
+ brprcxend = int_ceildivpow2(res->x1, pdx) << pdx;
+ brprcyend = int_ceildivpow2(res->y1, pdy) << pdy;
+ brprczend = int_ceildivpow2(res->z1, pdz) << pdz;
+
+ res->prctno[0] = (brprcxend - tlprcxstart) >> pdx;
+ res->prctno[1] = (brprcyend - tlprcystart) >> pdy;
+ res->prctno[2] = (brprczend - tlprczstart) >> pdz;
+ if (res->prctno[2] == 0) res->prctno[2] = 1;
+
+ /* p. 67, B.17 & B.18, ISO/IEC IS15444-1 : 2002 */
+ if (resno == 0) {
+ tlcbgxstart = tlprcxstart;
+ tlcbgystart = tlprcystart;
+ tlcbgzstart = tlprczstart;
+ brcbgxend = brprcxend;
+ brcbgyend = brprcyend;
+ brcbgzend = brprczend;
+ cbgwidthexpn = pdx;
+ cbgheightexpn = pdy;
+ cbglengthexpn = pdz;
+ } else {
+ tlcbgxstart = int_ceildivpow2(tlprcxstart, 1);
+ tlcbgystart = int_ceildivpow2(tlprcystart, 1);
+ tlcbgzstart = int_ceildivpow2(tlprczstart, 1);
+ brcbgxend = int_ceildivpow2(brprcxend, 1);
+ brcbgyend = int_ceildivpow2(brprcyend, 1);
+ brcbgzend = int_ceildivpow2(brprczend, 1);
+ cbgwidthexpn = pdx - 1;
+ cbgheightexpn = pdy - 1;
+ cbglengthexpn = pdz - 1;
+ }
+
+ cblkwidthexpn = int_min(tccp->cblk[0], cbgwidthexpn); /*6*/
+ cblkheightexpn = int_min(tccp->cblk[1], cbgheightexpn); /*6*/
+ cblklengthexpn = int_min(tccp->cblk[2], cbglengthexpn); /*6*/
+
+ res->bands = (opj_tcd_band_t *) opj_malloc(res->numbands * sizeof(opj_tcd_band_t));
+ for (bandno = 0; bandno < res->numbands; bandno++) {
+ int x0b, y0b, z0b, i;
+ int gain, numbps;
+ opj_stepsize_t *ss = NULL;
+
+ tcd->band = &res->bands[bandno];
+ band = tcd->band;
+
+ band->bandno = (resno == 0) ? 0 : bandno + 1;
+ /* Bandno: 0 - LLL 2 - LHL
+ 1 - HLL 3 - HHL
+ 4 - LLH 6 - LHH
+ 5 - HLH 7 - HHH */
+ x0b = (band->bandno == 1) || (band->bandno == 3) || (band->bandno == 5 ) || (band->bandno == 7 ) ? 1 : 0;
+ y0b = (band->bandno == 2) || (band->bandno == 3) || (band->bandno == 6 ) || (band->bandno == 7 ) ? 1 : 0;
+ z0b = (band->bandno == 4) || (band->bandno == 5) || (band->bandno == 6 ) || (band->bandno == 7 ) ? 1 : 0;
+
+ /* p. 65, B.15, ISO/IEC IS15444-1 : 2002 */
+ if (band->bandno == 0) {
+ /* band border (global) */
+ band->x0 = int_ceildivpow2(tilec->x0, levelnox);
+ band->y0 = int_ceildivpow2(tilec->y0, levelnoy);
+ band->z0 = int_ceildivpow2(tilec->z0, levelnoz);
+ band->x1 = int_ceildivpow2(tilec->x1, levelnox);
+ band->y1 = int_ceildivpow2(tilec->y1, levelnoy);
+ band->z1 = int_ceildivpow2(tilec->z1, levelnoz);
+ } else {
+ band->x0 = int_ceildivpow2(tilec->x0 - (1 << levelnox) * x0b, levelnox + 1);
+ band->y0 = int_ceildivpow2(tilec->y0 - (1 << levelnoy) * y0b, levelnoy + 1);
+ band->z0 = int_ceildivpow2(tilec->z0 - (1 << levelnoz) * z0b, (resno <= diff) ? levelnoz : levelnoz + 1);
+ band->x1 = int_ceildivpow2(tilec->x1 - (1 << levelnox) * x0b, levelnox + 1);
+ band->y1 = int_ceildivpow2(tilec->y1 - (1 << levelnoy) * y0b, levelnoy + 1);
+ band->z1 = int_ceildivpow2(tilec->z1 - (1 << levelnoz) * z0b, (resno <= diff) ? levelnoz : levelnoz + 1);
+ }
+
+ ss = &tccp->stepsizes[(resno == 0) ? 0 : (prevnumbands + bandno + 1)];
+ if (bandno == (res->numbands - 1))
+ prevnumbands += (resno == 0) ? 0 : res->numbands;
+ gain = dwt_getgain(band->bandno,tccp->reversible);
+ numbps = volume->comps[compno].prec + gain;
+ band->stepsize = (float)((1.0 + ss->mant / 2048.0) * pow(2.0, numbps - ss->expn));
+ band->numbps = ss->expn + tccp->numgbits - 1; /* WHY -1 ? */
+
+ band->precincts = (opj_tcd_precinct_t *) opj_malloc((res->prctno[0] * res->prctno[1] * res->prctno[2]) * sizeof(opj_tcd_precinct_t));
+
+ for (i = 0; i < (res->prctno[0] * res->prctno[1] * res->prctno[2]); i++) {
+ band->precincts[i].imsbtree = NULL;
+ band->precincts[i].incltree = NULL;
+ }
+
+ for (precno = 0; precno < (res->prctno[0] * res->prctno[1] * res->prctno[2]); precno++) {
+ int tlcblkxstart, tlcblkystart, tlcblkzstart, brcblkxend, brcblkyend, brcblkzend;
+ int cbgxstart, cbgystart, cbgzstart, cbgxend, cbgyend, cbgzend;
+
+ cbgxstart = tlcbgxstart + (precno % res->prctno[0]) * (1 << cbgwidthexpn);
+ cbgystart = tlcbgystart + ((precno % (res->prctno[0] * res->prctno[1])) / res->prctno[0]) * (1 << cbgheightexpn);
+ cbgzstart = tlcbgzstart + (precno / (res->prctno[0] * res->prctno[1])) * (1 << cbglengthexpn);
+ cbgxend = cbgxstart + (1 << cbgwidthexpn);
+ cbgyend = cbgystart + (1 << cbgheightexpn);
+ cbgzend = cbgzstart + (1 << cbglengthexpn);
+
+ tcd->prc = &band->precincts[precno];
+ prc = tcd->prc;
+
+ /* precinct size (global) */
+ prc->x0 = int_max(cbgxstart, band->x0);
+ prc->y0 = int_max(cbgystart, band->y0);
+ prc->z0 = int_max(cbgzstart, band->z0);
+ prc->x1 = int_min(cbgxend, band->x1);
+ prc->y1 = int_min(cbgyend, band->y1);
+ prc->z1 = int_min(cbgzend, band->z1);
+
+ tlcblkxstart = int_floordivpow2(prc->x0, cblkwidthexpn) << cblkwidthexpn;
+ tlcblkystart = int_floordivpow2(prc->y0, cblkheightexpn) << cblkheightexpn;
+ tlcblkzstart = int_floordivpow2(prc->z0, cblklengthexpn) << cblklengthexpn;
+ brcblkxend = int_ceildivpow2(prc->x1, cblkwidthexpn) << cblkwidthexpn;
+ brcblkyend = int_ceildivpow2(prc->y1, cblkheightexpn) << cblkheightexpn;
+ brcblkzend = int_ceildivpow2(prc->z1, cblklengthexpn) << cblklengthexpn;
+ prc->cblkno[0] = (brcblkxend - tlcblkxstart) >> cblkwidthexpn;
+ prc->cblkno[1] = (brcblkyend - tlcblkystart) >> cblkheightexpn;
+ prc->cblkno[2] = (brcblkzend - tlcblkzstart) >> cblklengthexpn;
+ prc->cblkno[2] = (prc->cblkno[2] == 0) ? 1 : prc->cblkno[2];
+
+ prc->cblks = (opj_tcd_cblk_t *) opj_malloc((prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]) * sizeof(opj_tcd_cblk_t));
+ prc->incltree = tgt_create(prc->cblkno[0], prc->cblkno[1], prc->cblkno[2]);
+ prc->imsbtree = tgt_create(prc->cblkno[0], prc->cblkno[1], prc->cblkno[2]);
+ /*tgt_tree_dump(stdout,prc->incltree);*/
+ for (cblkno = 0; cblkno < (prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]); cblkno++) {
+ int cblkxstart = tlcblkxstart + (cblkno % prc->cblkno[0]) * (1 << cblkwidthexpn);
+ int cblkystart = tlcblkystart + ((cblkno % (prc->cblkno[0] * prc->cblkno[1])) / prc->cblkno[0]) * (1 << cblkheightexpn);
+ int cblkzstart = tlcblkzstart + (cblkno / (prc->cblkno[0] * prc->cblkno[1])) * (1 << cblklengthexpn);
+ int cblkxend = cblkxstart + (1 << cblkwidthexpn);
+ int cblkyend = cblkystart + (1 << cblkheightexpn);
+ int cblkzend = cblkzstart + (1 << cblklengthexpn);
+ int prec = ((tilec->bpp > 16) ? 3 : ((tilec->bpp > 8) ? 2 : 1));
+
+ tcd->cblk = &prc->cblks[cblkno];
+ cblk = tcd->cblk;
+
+ /* code-block size (global) */
+ cblk->x0 = int_max(cblkxstart, prc->x0);
+ cblk->y0 = int_max(cblkystart, prc->y0);
+ cblk->z0 = int_max(cblkzstart, prc->z0);
+ cblk->x1 = int_min(cblkxend, prc->x1);
+ cblk->y1 = int_min(cblkyend, prc->y1);
+ cblk->z1 = int_min(cblkzend, prc->z1);
+ }
+ }
+ }
+ }
+ }
+ /*tcd_dump(stdout, tcd, tcd->tcd_volume);*/
+
+}
+void tcd_init_encode(opj_tcd_t *tcd, opj_volume_t * volume, opj_cp_t * cp, int curtileno) {
+ int compno, resno, bandno, precno, cblkno;
+ int j, p, q, r;
+
+ opj_tcd_tile_t *tile = NULL; /* pointer to tcd->tile */
+ opj_tcd_tilecomp_t *tilec = NULL; /* pointer to tcd->tilec */
+ opj_tcd_resolution_t *res = NULL; /* pointer to tcd->res */
+ opj_tcd_band_t *band = NULL; /* pointer to tcd->band */
+ opj_tcd_precinct_t *prc = NULL; /* pointer to tcd->prc */
+ opj_tcd_cblk_t *cblk = NULL; /* pointer to tcd->cblk */
+ opj_tcp_t *tcp = &cp->tcps[curtileno];
+
+ tcd->tile = tcd->tcd_volume->tiles;
+ tile = tcd->tile;
+
+ /* p61 ISO/IEC IS15444-1 : 2002 */
+ /* curtileno --> raster scanned index of tiles */
+ /* p,q,r --> matricial index of tiles */
+ p = curtileno % cp->tw;
+ q = curtileno / cp->tw;
+ r = curtileno / (cp->tw * cp->th); /* extension to 3-D */
+
+ /* 4 borders of the tile rescale on the volume if necessary (B.3)*/
+ tile->x0 = int_max(cp->tx0 + p * cp->tdx, volume->x0);
+ tile->y0 = int_max(cp->ty0 + q * cp->tdy, volume->y0);
+ tile->z0 = int_max(cp->tz0 + r * cp->tdz, volume->z0);
+ tile->x1 = int_min(cp->tx0 + (p + 1) * cp->tdx, volume->x1);
+ tile->y1 = int_min(cp->ty0 + (q + 1) * cp->tdy, volume->y1);
+ tile->z1 = int_min(cp->tz0 + (r + 1) * cp->tdz, volume->z1);
+ tile->numcomps = volume->numcomps;
+
+ /* Modification of the RATE >> */
+ for (j = 0; j < tcp->numlayers; j++) {
+ if (tcp->rates[j] <= 1) {
+ tcp->rates[j] = 0;
+ } else {
+ float num = (float) (tile->numcomps * (tile->x1 - tile->x0) * (tile->y1 - tile->y0) * (tile->z1 - tile->z0) * volume->comps[0].prec);
+ float den = (float) (8 * volume->comps[0].dx * volume->comps[0].dy * volume->comps[0].dz);
+ den = tcp->rates[j] * den;
+ tcp->rates[j] = (num + den - 1) / den;
+ }
+ /*tcp->rates[j] = tcp->rates[j] ? int_ceildiv(
+ tile->numcomps * (tile->x1 - tile->x0) * (tile->y1 - tile->y0) * (tile->z1 - tile->z0) * volume->comps[0].prec,
+ (tcp->rates[j] * 8 * volume->comps[0].dx * volume->comps[0].dy * volume->comps[0].dz)) : 0;*/
+ if (tcp->rates[j]) {
+ if (j && tcp->rates[j] < tcp->rates[j - 1] + 10) {
+ tcp->rates[j] = tcp->rates[j - 1] + 20;
+ } else if (!j && tcp->rates[j] < 30){
+ tcp->rates[j] = 30;
+ }
+ }
+ }
+ /* << Modification of the RATE */
+
+ for (compno = 0; compno < tile->numcomps; compno++) {
+ opj_tccp_t *tccp = &tcp->tccps[compno];
+ int res_max, i;
+ int prevnumbands = 0;
+
+ /* opj_tcd_tilecomp_t *tilec=&tile->comps[compno]; */
+ tcd->tilec = &tile->comps[compno];
+ tilec = tcd->tilec;
+
+ /* border of each tile component (global) (B.3) */
+ tilec->x0 = int_ceildiv(tile->x0, volume->comps[compno].dx);
+ tilec->y0 = int_ceildiv(tile->y0, volume->comps[compno].dy);
+ tilec->z0 = int_ceildiv(tile->z0, volume->comps[compno].dz);
+ tilec->x1 = int_ceildiv(tile->x1, volume->comps[compno].dx);
+ tilec->y1 = int_ceildiv(tile->y1, volume->comps[compno].dy);
+ tilec->z1 = int_ceildiv(tile->z1, volume->comps[compno].dz);
+
+ tilec->data = (int *) opj_malloc((tilec->x1 - tilec->x0) * (tilec->y1 - tilec->y0) * (tilec->z1 - tilec->z0) * sizeof(int));
+
+ res_max = 0;
+ for (i = 0;i < 3; i++){
+ tilec->numresolution[i] = tccp->numresolution[i];
+ /*Greater of 3 resolutions contains all information*/
+ res_max = (tilec->numresolution[i] > res_max) ? tilec->numresolution[i] : res_max;
+ }
+
+ tilec->resolutions = (opj_tcd_resolution_t *) opj_malloc(res_max * sizeof(opj_tcd_resolution_t));
+ for (resno = 0; resno < res_max; resno++) {
+ int pdx, pdy, pdz;
+ int tlprcxstart, tlprcystart, tlprczstart, brprcxend, brprcyend, brprczend;
+ int tlcbgxstart, tlcbgystart, tlcbgzstart, brcbgxend, brcbgyend, brcbgzend;
+ int cbgwidthexpn, cbgheightexpn, cbglengthexpn;
+ int cblkwidthexpn, cblkheightexpn, cblklengthexpn;
+
+ int levelnox = tilec->numresolution[0] - 1 - resno;
+ int levelnoy = tilec->numresolution[1] - 1 - resno;
+ int diff = tccp->numresolution[0] - tccp->numresolution[2];
+ int levelnoz = tilec->numresolution[2] - 1 - ((resno <= diff) ? 0 : (resno - diff));
+ if (levelnoz < 0) levelnoz = 0;
+
+ tcd->res = &tilec->resolutions[resno];
+ res = tcd->res;
+
+ /* border for each resolution level (global) (B.14)*/
+ res->x0 = int_ceildivpow2(tilec->x0, levelnox);
+ res->y0 = int_ceildivpow2(tilec->y0, levelnoy);
+ res->z0 = int_ceildivpow2(tilec->z0, levelnoz);
+ res->x1 = int_ceildivpow2(tilec->x1, levelnox);
+ res->y1 = int_ceildivpow2(tilec->y1, levelnoy);
+ res->z1 = int_ceildivpow2(tilec->z1, levelnoz);
+
+ /* res->numbands = resno == 0 ? 1 : 3; *//* --> 2D */
+
+ res->numbands = (resno == 0) ? 1 : (resno <= diff) ? 3 : 7; /* --> 3D */
+
+ /* p. 30, table A-13, ISO/IEC IS154444-1 : 2002 */
+ if (tccp->csty & J3D_CCP_CSTY_PRT) {
+ pdx = tccp->prctsiz[0][resno];
+ pdy = tccp->prctsiz[1][resno];
+ pdz = tccp->prctsiz[2][resno];
+ } else {
+ pdx = 15;
+ pdy = 15;
+ pdz = 15;
+ }
+ /* p. 66, B.16, ISO/IEC IS15444-1 : 2002 */
+ tlprcxstart = int_floordivpow2(res->x0, pdx) << pdx;
+ tlprcystart = int_floordivpow2(res->y0, pdy) << pdy;
+ tlprczstart = int_floordivpow2(res->z0, pdz) << pdz;
+ brprcxend = int_ceildivpow2(res->x1, pdx) << pdx;
+ brprcyend = int_ceildivpow2(res->y1, pdy) << pdy;
+ brprczend = int_ceildivpow2(res->z1, pdz) << pdz;
+
+ res->prctno[0] = (brprcxend - tlprcxstart) >> pdx;
+ res->prctno[1] = (brprcyend - tlprcystart) >> pdy;
+ res->prctno[2] = (brprczend - tlprczstart) >> pdz;
+ if (res->prctno[2] == 0) res->prctno[2] = 1;
+
+ /* p. 67, B.17 & B.18, ISO/IEC IS15444-1 : 2002 */
+ if (resno == 0) {
+ tlcbgxstart = tlprcxstart;
+ tlcbgystart = tlprcystart;
+ tlcbgzstart = tlprczstart;
+ brcbgxend = brprcxend;
+ brcbgyend = brprcyend;
+ brcbgzend = brprczend;
+ cbgwidthexpn = pdx;
+ cbgheightexpn = pdy;
+ cbglengthexpn = pdz;
+ } else {
+ tlcbgxstart = int_ceildivpow2(tlprcxstart, 1);
+ tlcbgystart = int_ceildivpow2(tlprcystart, 1);
+ tlcbgzstart = int_ceildivpow2(tlprczstart, 1);
+ brcbgxend = int_ceildivpow2(brprcxend, 1);
+ brcbgyend = int_ceildivpow2(brprcyend, 1);
+ brcbgzend = int_ceildivpow2(brprczend, 1);
+ cbgwidthexpn = pdx - 1;
+ cbgheightexpn = pdy - 1;
+ cbglengthexpn = pdz - 1;
+ }
+
+ cblkwidthexpn = int_min(tccp->cblk[0], cbgwidthexpn);
+ cblkheightexpn = int_min(tccp->cblk[1], cbgheightexpn);
+ cblklengthexpn = int_min(tccp->cblk[2], cbglengthexpn);
+
+ res->bands = (opj_tcd_band_t *) opj_malloc(res->numbands * sizeof(opj_tcd_band_t));
+ for (bandno = 0; bandno < res->numbands; bandno++) {
+ int x0b, y0b, z0b;
+ int gain, numbps;
+ opj_stepsize_t *ss = NULL;
+
+ tcd->band = &res->bands[bandno];
+ band = tcd->band;
+
+ band->bandno = resno == 0 ? 0 : bandno + 1;
+ /* Bandno: 0 - LLL 2 - LHL
+ 1 - HLL 3 - HHL
+ 4 - LLH 6 - LHH
+ 5 - HLH 7 - HHH */
+ x0b = (band->bandno == 1) || (band->bandno == 3) || (band->bandno == 5 ) || (band->bandno == 7 ) ? 1 : 0;
+ y0b = (band->bandno == 2) || (band->bandno == 3) || (band->bandno == 6 ) || (band->bandno == 7 ) ? 1 : 0;
+ z0b = (band->bandno == 4) || (band->bandno == 5) || (band->bandno == 6 ) || (band->bandno == 7 ) ? 1 : 0;
+
+ /* p. 65, B.15, ISO/IEC IS15444-1 : 2002 */
+ if (band->bandno == 0) {
+ /* band border (global) */
+ band->x0 = int_ceildivpow2(tilec->x0, levelnox);
+ band->y0 = int_ceildivpow2(tilec->y0, levelnoy);
+ band->z0 = int_ceildivpow2(tilec->z0, levelnoz);
+ band->x1 = int_ceildivpow2(tilec->x1, levelnox);
+ band->y1 = int_ceildivpow2(tilec->y1, levelnoy);
+ band->z1 = int_ceildivpow2(tilec->z1, levelnoz);
+ } else {
+ band->x0 = int_ceildivpow2(tilec->x0 - (1 << levelnox) * x0b, levelnox + 1);
+ band->y0 = int_ceildivpow2(tilec->y0 - (1 << levelnoy) * y0b, levelnoy + 1);
+ band->z0 = int_ceildivpow2(tilec->z0 - (1 << levelnoz) * z0b, (resno <= diff) ? levelnoz : levelnoz + 1);
+ band->x1 = int_ceildivpow2(tilec->x1 - (1 << levelnox) * x0b, levelnox + 1);
+ band->y1 = int_ceildivpow2(tilec->y1 - (1 << levelnoy) * y0b, levelnoy + 1);
+ band->z1 = int_ceildivpow2(tilec->z1 - (1 << levelnoz) * z0b, (resno <= diff) ? levelnoz : levelnoz + 1);
+ }
+
+ ss = &tccp->stepsizes[(resno == 0) ? 0 : (prevnumbands + bandno + 1)];
+ if (bandno == (res->numbands - 1))
+ prevnumbands += (resno == 0) ? 0 : res->numbands;
+ gain = dwt_getgain(band->bandno,tccp->reversible);
+ numbps = volume->comps[compno].prec + gain;
+
+ band->stepsize = (float)((1.0 + ss->mant / 2048.0) * pow(2.0, numbps - ss->expn));
+ band->numbps = ss->expn + tccp->numgbits - 1; /* WHY -1 ? */
+
+ for (precno = 0; precno < res->prctno[0] * res->prctno[1] * res->prctno[2]; precno++) {
+ int tlcblkxstart, tlcblkystart, tlcblkzstart, brcblkxend, brcblkyend, brcblkzend;
+
+ int cbgxstart = tlcbgxstart + (precno % res->prctno[0]) * (1 << cbgwidthexpn);
+ int cbgystart = tlcbgystart + ((precno / (res->prctno[0] * res->prctno[1])) / res->prctno[0]) * (1 << cbgheightexpn);
+ int cbgzstart = tlcbgzstart + (precno / (res->prctno[0] * res->prctno[1])) * (1 << cbglengthexpn);
+ int cbgxend = cbgxstart + (1 << cbgwidthexpn);
+ int cbgyend = cbgystart + (1 << cbgheightexpn);
+ int cbgzend = cbgzstart + (1 << cbglengthexpn);
+
+ /* opj_tcd_precinct_t *prc=&band->precincts[precno]; */
+ tcd->prc = &band->precincts[precno];
+ prc = tcd->prc;
+
+ /* precinct size (global) */
+ prc->x0 = int_max(cbgxstart, band->x0);
+ prc->y0 = int_max(cbgystart, band->y0);
+ prc->z0 = int_max(cbgzstart, band->z0);
+ prc->x1 = int_min(cbgxend, band->x1);
+ prc->y1 = int_min(cbgyend, band->y1);
+ prc->z1 = int_min(cbgzend, band->z1);
+
+ tlcblkxstart = int_floordivpow2(prc->x0, cblkwidthexpn) << cblkwidthexpn;
+ tlcblkystart = int_floordivpow2(prc->y0, cblkheightexpn) << cblkheightexpn;
+ tlcblkzstart = int_floordivpow2(prc->z0, cblklengthexpn) << cblklengthexpn;
+ brcblkxend = int_ceildivpow2(prc->x1, cblkwidthexpn) << cblkwidthexpn;
+ brcblkyend = int_ceildivpow2(prc->y1, cblkheightexpn) << cblkheightexpn;
+ brcblkzend = int_ceildivpow2(prc->z1, cblklengthexpn) << cblklengthexpn;
+ prc->cblkno[0] = (brcblkxend - tlcblkxstart) >> cblkwidthexpn;
+ prc->cblkno[1] = (brcblkyend - tlcblkystart) >> cblkheightexpn;
+ prc->cblkno[2] = (brcblkzend - tlcblkzstart) >> cblklengthexpn;
+ prc->cblkno[2] = (prc->cblkno[2] == 0) ? 1 : prc->cblkno[2];
+
+ opj_free(prc->cblks);
+ prc->cblks = (opj_tcd_cblk_t *) opj_malloc((prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]) * sizeof(opj_tcd_cblk_t));
+ prc->incltree = tgt_create(prc->cblkno[0], prc->cblkno[1], prc->cblkno[2]);
+ prc->imsbtree = tgt_create(prc->cblkno[0], prc->cblkno[1], prc->cblkno[2]);
+
+ for (cblkno = 0; cblkno < (prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]); cblkno++) {
+ int cblkxstart = tlcblkxstart + (cblkno % prc->cblkno[0]) * (1 << cblkwidthexpn);
+ int cblkystart = tlcblkystart + ((cblkno % (prc->cblkno[0] * prc->cblkno[1])) / prc->cblkno[0]) * (1 << cblkheightexpn);
+ int cblkzstart = tlcblkzstart + (cblkno / (prc->cblkno[0] * prc->cblkno[1])) * (1 << cblklengthexpn);
+ int cblkxend = cblkxstart + (1 << cblkwidthexpn);
+ int cblkyend = cblkystart + (1 << cblkheightexpn);
+ int cblkzend = cblkzstart + (1 << cblklengthexpn);
+ int prec = ((tilec->bpp > 16) ? 3 : ((tilec->bpp > 8) ? 2 : 1));
+
+ tcd->cblk = &prc->cblks[cblkno];
+ cblk = tcd->cblk;
+
+ /* code-block size (global) */
+ cblk->x0 = int_max(cblkxstart, prc->x0);
+ cblk->y0 = int_max(cblkystart, prc->y0);
+ cblk->z0 = int_max(cblkzstart, prc->z0);
+ cblk->x1 = int_min(cblkxend, prc->x1);
+ cblk->y1 = int_min(cblkyend, prc->y1);
+ cblk->z1 = int_min(cblkzend, prc->z1);
+ }
+ } /* precno */
+ } /* bandno */
+ } /* resno */
+ } /* compno */
+ /*tcd_dump(stdout, tcd, tcd->tcd_volume);*/
+}
+
+
+void tcd_free_encode(opj_tcd_t *tcd) {
+ int tileno, compno, resno, bandno, precno;
+
+ opj_tcd_tile_t *tile = NULL; /* pointer to tcd->tile */
+/* opj_tcd_slice_t *slice = NULL; */ /* pointer to tcd->slice */
+ opj_tcd_tilecomp_t *tilec = NULL; /* pointer to tcd->tilec */
+ opj_tcd_resolution_t *res = NULL; /* pointer to tcd->res */
+ opj_tcd_band_t *band = NULL; /* pointer to tcd->band */
+ opj_tcd_precinct_t *prc = NULL; /* pointer to tcd->prc */
+
+ for (tileno = 0; tileno < 1; tileno++) {
+ tcd->tile = tcd->tcd_volume->tiles;
+ tile = tcd->tile;
+
+ for (compno = 0; compno < tile->numcomps; compno++) {
+ tcd->tilec = &tile->comps[compno];
+ tilec = tcd->tilec;
+
+ for (resno = 0; resno < tilec->numresolution[0]; resno++) {
+ tcd->res = &tilec->resolutions[resno];
+ res = tcd->res;
+
+ for (bandno = 0; bandno < res->numbands; bandno++) {
+ tcd->band = &res->bands[bandno];
+ band = tcd->band;
+
+ for (precno = 0; precno < res->prctno[0] * res->prctno[1] * res->prctno[2]; precno++) {
+ tcd->prc = &band->precincts[precno];
+ prc = tcd->prc;
+
+ if (prc->incltree != NULL) {
+ tgt_destroy(prc->incltree);
+ prc->incltree = NULL;
+ }
+ if (prc->imsbtree != NULL) {
+ tgt_destroy(prc->imsbtree);
+ prc->imsbtree = NULL;
+ }
+ opj_free(prc->cblks);
+ prc->cblks = NULL;
+ } /* for (precno */
+ opj_free(band->precincts);
+ band->precincts = NULL;
+ } /* for (bandno */
+ } /* for (resno */
+ opj_free(tilec->resolutions);
+ tilec->resolutions = NULL;
+ } /* for (compno */
+ opj_free(tile->comps);
+ tile->comps = NULL;
+ } /* for (tileno */
+ opj_free(tcd->tcd_volume->tiles);
+ tcd->tcd_volume->tiles = NULL;
+}
+
+/* ----------------------------------------------------------------------- */
+void tcd_malloc_decode(opj_tcd_t *tcd, opj_volume_t * volume, opj_cp_t * cp) {
+ int tileno, compno, resno, bandno, precno, cblkno, res_max,
+ i, j, p, q, r;
+ unsigned int x0 = 0, y0 = 0, z0 = 0,
+ x1 = 0, y1 = 0, z1 = 0,
+ w, h, l;
+
+ tcd->volume = volume;
+ tcd->cp = cp;
+ tcd->tcd_volume->tw = cp->tw;
+ tcd->tcd_volume->th = cp->th;
+ tcd->tcd_volume->tl = cp->tl;
+ tcd->tcd_volume->tiles = (opj_tcd_tile_t *) opj_malloc(cp->tw * cp->th * cp->tl * sizeof(opj_tcd_tile_t));
+
+ for (i = 0; i < cp->tileno_size; i++) {
+ opj_tcp_t *tcp = &(cp->tcps[cp->tileno[i]]);
+ opj_tcd_tile_t *tile = &(tcd->tcd_volume->tiles[cp->tileno[i]]);
+
+ /* p61 ISO/IEC IS15444-1 : 2002 */
+ /* curtileno --> raster scanned index of tiles */
+ /* p,q,r --> matricial index of tiles */
+ tileno = cp->tileno[i];
+ p = tileno % cp->tw;
+ q = tileno / cp->tw;
+ r = tileno / (cp->tw * cp->th); /* extension to 3-D */
+
+ /* 4 borders of the tile rescale on the volume if necessary (B.3)*/
+ tile->x0 = int_max(cp->tx0 + p * cp->tdx, volume->x0);
+ tile->y0 = int_max(cp->ty0 + q * cp->tdy, volume->y0);
+ tile->z0 = int_max(cp->tz0 + r * cp->tdz, volume->z0);
+ tile->x1 = int_min(cp->tx0 + (p + 1) * cp->tdx, volume->x1);
+ tile->y1 = int_min(cp->ty0 + (q + 1) * cp->tdy, volume->y1);
+ tile->z1 = int_min(cp->tz0 + (r + 1) * cp->tdz, volume->z1);
+ tile->numcomps = volume->numcomps;
+
+ tile->comps = (opj_tcd_tilecomp_t *) opj_malloc(volume->numcomps * sizeof(opj_tcd_tilecomp_t));
+ for (compno = 0; compno < tile->numcomps; compno++) {
+ opj_tccp_t *tccp = &tcp->tccps[compno];
+ opj_tcd_tilecomp_t *tilec = &tile->comps[compno];
+ int prevnumbands = 0;
+
+ /* border of each tile component (global) */
+ tilec->x0 = int_ceildiv(tile->x0, volume->comps[compno].dx);
+ tilec->y0 = int_ceildiv(tile->y0, volume->comps[compno].dy);
+ tilec->z0 = int_ceildiv(tile->z0, volume->comps[compno].dz);
+ tilec->x1 = int_ceildiv(tile->x1, volume->comps[compno].dx);
+ tilec->y1 = int_ceildiv(tile->y1, volume->comps[compno].dy);
+ tilec->z1 = int_ceildiv(tile->z1, volume->comps[compno].dz);
+
+ tilec->data = (int *) opj_malloc((tilec->x1 - tilec->x0) * (tilec->y1 - tilec->y0) * (tilec->z1 - tilec->z0) * sizeof(int));
+
+ res_max = 0;
+ for (i = 0;i < 3; i++){
+ tilec->numresolution[i] = tccp->numresolution[i];
+ /*Greater of 3 resolutions contains all information*/
+ res_max = (tilec->numresolution[i] > res_max) ? tilec->numresolution[i] : res_max;
+ }
+
+ tilec->resolutions = (opj_tcd_resolution_t *) opj_malloc(res_max * sizeof(opj_tcd_resolution_t));
+
+ for (resno = 0; resno < res_max; resno++) {
+ opj_tcd_resolution_t *res = &tilec->resolutions[resno];
+ int pdx, pdy, pdz;
+ int tlprcxstart, tlprcystart, tlprczstart, brprcxend, brprcyend, brprczend;
+ int tlcbgxstart, tlcbgystart, tlcbgzstart, brcbgxend, brcbgyend, brcbgzend;
+ int cbgwidthexpn, cbgheightexpn, cbglengthexpn;
+ int cblkwidthexpn, cblkheightexpn, cblklengthexpn;
+ int levelnox = tilec->numresolution[0] - 1 - resno;
+ int levelnoy = tilec->numresolution[1] - 1 - resno;
+ int diff = tccp->numresolution[0] - tccp->numresolution[2];
+ int levelnoz = tilec->numresolution[2] - 1 - ((resno <= diff) ? 0 : (resno - diff));
+ if (levelnoz < 0) levelnoz = 0;
+
+ /* border for each resolution level (global) */
+ res->x0 = int_ceildivpow2(tilec->x0, levelnox);
+ res->y0 = int_ceildivpow2(tilec->y0, levelnoy);
+ res->z0 = int_ceildivpow2(tilec->z0, levelnoz);
+ res->x1 = int_ceildivpow2(tilec->x1, levelnox);
+ res->y1 = int_ceildivpow2(tilec->y1, levelnoy);
+ res->z1 = int_ceildivpow2(tilec->z1, levelnoz);
+ res->numbands = (resno == 0) ? 1 : (resno <= diff) ? 3 : 7; /* --> 3D */
+
+ /* p. 30, table A-13, ISO/IEC IS154444-1 : 2002 */
+ if (tccp->csty & J3D_CCP_CSTY_PRT) {
+ pdx = tccp->prctsiz[0][resno];
+ pdy = tccp->prctsiz[1][resno];
+ pdz = tccp->prctsiz[2][resno];
+ } else {
+ pdx = 15;
+ pdy = 15;
+ pdz = 15;
+ }
+
+ /* p. 66, B.16, ISO/IEC IS15444-1 : 2002 */
+ tlprcxstart = int_floordivpow2(res->x0, pdx) << pdx;
+ tlprcystart = int_floordivpow2(res->y0, pdy) << pdy;
+ tlprczstart = int_floordivpow2(res->z0, pdz) << pdz;
+ brprcxend = int_ceildivpow2(res->x1, pdx) << pdx;
+ brprcyend = int_ceildivpow2(res->y1, pdy) << pdy;
+ brprczend = int_ceildivpow2(res->z1, pdz) << pdz;
+
+ res->prctno[0] = (brprcxend - tlprcxstart) >> pdx;
+ res->prctno[1] = (brprcyend - tlprcystart) >> pdy;
+ res->prctno[2] = (brprczend - tlprczstart) >> pdz;
+
+ /* p. 67, B.17 & B.18, ISO/IEC IS15444-1 : 2002 */
+ if (resno == 0) {
+ tlcbgxstart = tlprcxstart;/*0*/
+ tlcbgystart = tlprcystart;
+ tlcbgzstart = tlprczstart;
+ brcbgxend = brprcxend;/*1*/
+ brcbgyend = brprcyend;
+ brcbgzend = brprczend;
+ cbgwidthexpn = pdx; /*15*/
+ cbgheightexpn = pdy;
+ cbglengthexpn = pdz;
+ } else {
+ tlcbgxstart = int_ceildivpow2(tlprcxstart, 1);
+ tlcbgystart = int_ceildivpow2(tlprcystart, 1);
+ tlcbgzstart = int_ceildivpow2(tlprczstart, 1);
+ brcbgxend = int_ceildivpow2(brprcxend, 1);
+ brcbgyend = int_ceildivpow2(brprcyend, 1);
+ brcbgzend = int_ceildivpow2(brprczend, 1);
+ cbgwidthexpn = pdx - 1;
+ cbgheightexpn = pdy - 1;
+ cbglengthexpn = pdz - 1;
+ }
+
+ cblkwidthexpn = int_min(tccp->cblk[0], cbgwidthexpn); /*6*/
+ cblkheightexpn = int_min(tccp->cblk[1], cbgheightexpn); /*6*/
+ cblklengthexpn = int_min(tccp->cblk[2], cbglengthexpn); /*6*/
+
+ res->bands = (opj_tcd_band_t *) opj_malloc(res->numbands * sizeof(opj_tcd_band_t));
+ for (bandno = 0; bandno < res->numbands; bandno++) {
+ int x0b, y0b, z0b;
+ int gain, numbps;
+ opj_stepsize_t *ss = NULL;
+
+ opj_tcd_band_t *band = &res->bands[bandno];
+ band->bandno = resno == 0 ? 0 : bandno + 1;
+ /* Bandno: 0 - LLL 2 - LHL
+ 1 - HLL 3 - HHL
+ 4 - LLH 6 - LHH
+ 5 - HLH 7 - HHH */
+ x0b = (band->bandno == 1) || (band->bandno == 3) || (band->bandno == 5 ) || (band->bandno == 7 ) ? 1 : 0;
+ y0b = (band->bandno == 2) || (band->bandno == 3) || (band->bandno == 6 ) || (band->bandno == 7 ) ? 1 : 0;
+ z0b = (band->bandno == 4) || (band->bandno == 5) || (band->bandno == 6 ) || (band->bandno == 7 ) ? 1 : 0;
+
+ /* p. 65, B.15, ISO/IEC IS15444-1 : 2002 */
+ if (band->bandno == 0) {
+ /* band border (global) */
+ band->x0 = int_ceildivpow2(tilec->x0, levelnox);
+ band->y0 = int_ceildivpow2(tilec->y0, levelnoy);
+ band->z0 = int_ceildivpow2(tilec->z0, levelnoz);
+ band->x1 = int_ceildivpow2(tilec->x1, levelnox);
+ band->y1 = int_ceildivpow2(tilec->y1, levelnoy);
+ band->z1 = int_ceildivpow2(tilec->z1, levelnoz);
+ } else {
+ band->x0 = int_ceildivpow2(tilec->x0 - (1 << levelnox) * x0b, levelnox + 1);
+ band->y0 = int_ceildivpow2(tilec->y0 - (1 << levelnoy) * y0b, levelnoy + 1);
+ band->z0 = int_ceildivpow2(tilec->z0 - (1 << levelnoz) * z0b, (resno <= diff) ? levelnoz : levelnoz + 1);
+ band->x1 = int_ceildivpow2(tilec->x1 - (1 << levelnox) * x0b, levelnox + 1);
+ band->y1 = int_ceildivpow2(tilec->y1 - (1 << levelnoy) * y0b, levelnoy + 1);
+ band->z1 = int_ceildivpow2(tilec->z1 - (1 << levelnoz) * z0b, (resno <= diff) ? levelnoz : levelnoz + 1);
+ }
+
+ ss = &tccp->stepsizes[(resno == 0) ? 0 : (prevnumbands + bandno + 1)];
+ if (bandno == (res->numbands - 1))
+ prevnumbands += (resno == 0) ? 0 : res->numbands;
+ gain = dwt_getgain(band->bandno,tccp->reversible);
+ numbps = volume->comps[compno].prec + gain;
+
+ band->stepsize = (float)((1.0 + ss->mant / 2048.0) * pow(2.0, numbps - ss->expn));
+ band->numbps = ss->expn + tccp->numgbits - 1; /* WHY -1 ? */
+
+ band->precincts = (opj_tcd_precinct_t *) opj_malloc(res->prctno[0] * res->prctno[1] * res->prctno[2] * sizeof(opj_tcd_precinct_t));
+
+ for (precno = 0; precno < res->prctno[0] * res->prctno[1] * res->prctno[2]; precno++) {
+ int tlcblkxstart, tlcblkystart, tlcblkzstart, brcblkxend, brcblkyend, brcblkzend;
+
+ int cbgxstart = tlcbgxstart + (precno % res->prctno[0]) * (1 << cbgwidthexpn);
+ int cbgystart = tlcbgystart + (precno / res->prctno[0]) * (1 << cbgheightexpn);
+ int cbgzstart = tlcbgzstart + (precno / (res->prctno[0] * res->prctno[1])) * (1 << cbglengthexpn);
+ int cbgxend = cbgxstart + (1 << cbgwidthexpn);
+ int cbgyend = cbgystart + (1 << cbgheightexpn);
+ int cbgzend = cbgzstart + (1 << cbglengthexpn);
+
+ opj_tcd_precinct_t *prc = &band->precincts[precno];
+ /* precinct size (global) */
+ prc->x0 = int_max(cbgxstart, band->x0);
+ prc->y0 = int_max(cbgystart, band->y0);
+ prc->z0 = int_max(cbgzstart, band->z0);
+ prc->x1 = int_min(cbgxend, band->x1);
+ prc->y1 = int_min(cbgyend, band->y1);
+ prc->z1 = int_min(cbgzend, band->z1);
+
+ tlcblkxstart = int_floordivpow2(prc->x0, cblkwidthexpn) << cblkwidthexpn;
+ tlcblkystart = int_floordivpow2(prc->y0, cblkheightexpn) << cblkheightexpn;
+ tlcblkzstart = int_floordivpow2(prc->z0, cblklengthexpn) << cblklengthexpn;
+ brcblkxend = int_ceildivpow2(prc->x1, cblkwidthexpn) << cblkwidthexpn;
+ brcblkyend = int_ceildivpow2(prc->y1, cblkheightexpn) << cblkheightexpn;
+ brcblkzend = int_ceildivpow2(prc->z1, cblklengthexpn) << cblklengthexpn;
+ prc->cblkno[0] = (brcblkxend - tlcblkxstart) >> cblkwidthexpn;
+ prc->cblkno[1] = (brcblkyend - tlcblkystart) >> cblkheightexpn;
+ prc->cblkno[2] = (brcblkzend - tlcblkzstart) >> cblklengthexpn;
+ prc->cblkno[2] = (prc->cblkno[2] == 0) ? 1 : prc->cblkno[2];
+
+ prc->cblks = (opj_tcd_cblk_t *) opj_malloc((prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]) * sizeof(opj_tcd_cblk_t));
+ prc->incltree = tgt_create(prc->cblkno[0], prc->cblkno[1], prc->cblkno[2]);
+ prc->imsbtree = tgt_create(prc->cblkno[0], prc->cblkno[1], prc->cblkno[2]);
+
+ for (cblkno = 0; cblkno < prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]; cblkno++) {
+ int cblkxstart = tlcblkxstart + (cblkno % prc->cblkno[0]) * (1 << cblkwidthexpn);
+ int cblkystart = tlcblkystart + ((cblkno % (prc->cblkno[0] * prc->cblkno[1])) / prc->cblkno[0]) * (1 << cblkheightexpn);
+ int cblkzstart = tlcblkzstart + (cblkno / (prc->cblkno[0] * prc->cblkno[1])) * (1 << cblklengthexpn);
+ int cblkxend = cblkxstart + (1 << cblkwidthexpn);
+ int cblkyend = cblkystart + (1 << cblkheightexpn);
+ int cblkzend = cblkzstart + (1 << cblklengthexpn);
+ int prec = ((tilec->bpp > 16) ? 3 : ((tilec->bpp > 8) ? 2 : 1));
+ /* code-block size (global) */
+ opj_tcd_cblk_t *cblk = &prc->cblks[cblkno];
+
+ /* code-block size (global) */
+ cblk->x0 = int_max(cblkxstart, prc->x0);
+ cblk->y0 = int_max(cblkystart, prc->y0);
+ cblk->z0 = int_max(cblkzstart, prc->z0);
+ cblk->x1 = int_min(cblkxend, prc->x1);
+ cblk->y1 = int_min(cblkyend, prc->y1);
+ cblk->z1 = int_min(cblkzend, prc->z1);
+ }
+ } /* precno */
+ } /* bandno */
+ } /* resno */
+ } /* compno */
+ } /* i = 0..cp->tileno_size */
+
+ /*tcd_dump(stdout, tcd, tcd->tcd_volume);*/
+
+ /*
+ Allocate place to store the decoded data = final volume
+ Place limited by the tile really present in the codestream
+ */
+
+ for (i = 0; i < volume->numcomps; i++) {
+ for (j = 0; j < cp->tileno_size; j++) {
+ tileno = cp->tileno[j];
+ x0 = (j == 0) ? tcd->tcd_volume->tiles[tileno].comps[i].x0 : int_min(x0,(unsigned int) tcd->tcd_volume->tiles[tileno].comps[i].x0);
+ y0 = (j == 0) ? tcd->tcd_volume->tiles[tileno].comps[i].y0 : int_min(y0,(unsigned int) tcd->tcd_volume->tiles[tileno].comps[i].y0);
+ z0 = (j == 0) ? tcd->tcd_volume->tiles[tileno].comps[i].z0 : int_min(z0,(unsigned int) tcd->tcd_volume->tiles[tileno].comps[i].z0);
+ x1 = (j == 0) ? tcd->tcd_volume->tiles[tileno].comps[i].x1 : int_max(x1,(unsigned int) tcd->tcd_volume->tiles[tileno].comps[i].x1);
+ y1 = (j == 0) ? tcd->tcd_volume->tiles[tileno].comps[i].y1 : int_max(y1,(unsigned int) tcd->tcd_volume->tiles[tileno].comps[i].y1);
+ z1 = (j == 0) ? tcd->tcd_volume->tiles[tileno].comps[i].z1 : int_max(z1,(unsigned int) tcd->tcd_volume->tiles[tileno].comps[i].z1);
+ }
+
+ w = x1 - x0;
+ h = y1 - y0;
+ l = z1 - z0;
+
+ volume->comps[i].data = (int *) opj_malloc(w * h * l * sizeof(int));
+ volume->comps[i].w = w;
+ volume->comps[i].h = h;
+ volume->comps[i].l = l;
+ volume->comps[i].x0 = x0;
+ volume->comps[i].y0 = y0;
+ volume->comps[i].z0 = z0;
+ volume->comps[i].bigendian = cp->bigendian;
+ }
+}
+
+void tcd_free_decode(opj_tcd_t *tcd) {
+ int tileno,compno,resno,bandno,precno;
+
+ opj_tcd_volume_t *tcd_volume = tcd->tcd_volume;
+
+ for (tileno = 0; tileno < tcd_volume->tw * tcd_volume->th * tcd_volume->tl; tileno++) {
+ opj_tcd_tile_t *tile = &tcd_volume->tiles[tileno];
+ for (compno = 0; compno < tile->numcomps; compno++) {
+ opj_tcd_tilecomp_t *tilec = &tile->comps[compno];
+ for (resno = 0; resno < tilec->numresolution[0]; resno++) {
+ opj_tcd_resolution_t *res = &tilec->resolutions[resno];
+ for (bandno = 0; bandno < res->numbands; bandno++) {
+ opj_tcd_band_t *band = &res->bands[bandno];
+ for (precno = 0; precno < res->prctno[1] * res->prctno[0] * res->prctno[2]; precno++) {
+ opj_tcd_precinct_t *prec = &band->precincts[precno];
+ if (prec->cblks != NULL) opj_free(prec->cblks);
+ if (prec->imsbtree != NULL) tgt_destroy(prec->imsbtree);
+ if (prec->incltree != NULL) tgt_destroy(prec->incltree);
+ /*for (treeno = 0; treeno < prec->numtrees; treeno++){
+ if (prec->imsbtree[treeno] != NULL) tgt_destroy(prec->imsbtree[treeno]);
+ if (prec->incltree[treeno] != NULL) tgt_destroy(prec->incltree[treeno]);
+ }*/
+ }
+ if (band->precincts != NULL) opj_free(band->precincts);
+ }
+ }
+ if (tilec->resolutions != NULL) opj_free(tilec->resolutions);
+ }
+ if (tile->comps != NULL) opj_free(tile->comps);
+ }
+
+ if (tcd_volume->tiles != NULL) opj_free(tcd_volume->tiles);
+}
+
+
+
+/* ----------------------------------------------------------------------- */
+void tcd_makelayer_fixed(opj_tcd_t *tcd, int layno, int final) {
+ int compno, resno, bandno, precno, cblkno;
+ int value; /*, matrice[tcd_tcp->numlayers][tcd_tile->comps[0].numresolution[0]][3]; */
+ int matrice[10][10][3];
+ int i, j, k;
+
+ opj_cp_t *cp = tcd->cp;
+ opj_tcd_tile_t *tcd_tile = tcd->tcd_tile;
+ opj_tcp_t *tcd_tcp = tcd->tcp;
+
+ /*matrice=(int*)opj_malloc(tcd_tcp->numlayers*tcd_tile->comps[0].numresolution[0]*3*sizeof(int)); */
+
+ for (compno = 0; compno < tcd_tile->numcomps; compno++) {
+ opj_tcd_tilecomp_t *tilec = &tcd_tile->comps[compno];
+ for (i = 0; i < tcd_tcp->numlayers; i++) {
+ for (j = 0; j < tilec->numresolution[0]; j++) {
+ for (k = 0; k < 3; k++) {
+ matrice[i][j][k] =
+ (int) (cp->matrice[i * tilec->numresolution[0] * 3 + j * 3 + k]
+ * (float) (tcd->volume->comps[compno].prec / 16.0));
+ }
+ }
+ }
+
+ for (resno = 0; resno < tilec->numresolution[0]; resno++) {
+ opj_tcd_resolution_t *res = &tilec->resolutions[resno];
+ for (bandno = 0; bandno < res->numbands; bandno++) {
+ opj_tcd_band_t *band = &res->bands[bandno];
+ for (precno = 0; precno < res->prctno[0] * res->prctno[1] * res->prctno[2]; precno++) {
+ opj_tcd_precinct_t *prc = &band->precincts[precno];
+ for (cblkno = 0; cblkno < prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]; cblkno++) {
+ opj_tcd_cblk_t *cblk = &prc->cblks[cblkno];
+ opj_tcd_layer_t *layer = &cblk->layers[layno];
+ int n;
+ int imsb = tcd->volume->comps[compno].prec - cblk->numbps; /* number of bit-plan equal to zero */
+ /* Correction of the matrix of coefficient to include the IMSB information */
+ if (layno == 0) {
+ value = matrice[layno][resno][bandno];
+ if (imsb >= value) {
+ value = 0;
+ } else {
+ value -= imsb;
+ }
+ } else {
+ value = matrice[layno][resno][bandno] - matrice[layno - 1][resno][bandno];
+ if (imsb >= matrice[layno - 1][resno][bandno]) {
+ value -= (imsb - matrice[layno - 1][resno][bandno]);
+ if (value < 0) {
+ value = 0;
+ }
+ }
+ }
+
+ if (layno == 0) {
+ cblk->numpassesinlayers = 0;
+ }
+
+ n = cblk->numpassesinlayers;
+ if (cblk->numpassesinlayers == 0) {
+ if (value != 0) {
+ n = 3 * value - 2 + cblk->numpassesinlayers;
+ } else {
+ n = cblk->numpassesinlayers;
+ }
+ } else {
+ n = 3 * value + cblk->numpassesinlayers;
+ }
+
+ layer->numpasses = n - cblk->numpassesinlayers;
+
+ if (!layer->numpasses)
+ continue;
+
+ if (cblk->numpassesinlayers == 0) {
+ layer->len = cblk->passes[n - 1].rate;
+ layer->data = cblk->data;
+ } else {
+ layer->len = cblk->passes[n - 1].rate - cblk->passes[cblk->numpassesinlayers - 1].rate;
+ layer->data = cblk->data + cblk->passes[cblk->numpassesinlayers - 1].rate;
+ }
+ if (final)
+ cblk->numpassesinlayers = n;
+ }
+ }
+ }
+ }
+ }
+}
+
+void tcd_rateallocate_fixed(opj_tcd_t *tcd) {
+ int layno;
+ for (layno = 0; layno < tcd->tcp->numlayers; layno++) {
+ tcd_makelayer_fixed(tcd, layno, 1);
+ }
+}
+
+void tcd_makelayer(opj_tcd_t *tcd, int layno, double thresh, int final) {
+ int compno, resno, bandno, precno, cblkno, passno;
+
+ opj_tcd_tile_t *tcd_tile = tcd->tcd_tile;
+
+ tcd_tile->distolayer[layno] = 0; /* fixed_quality */
+
+ for (compno = 0; compno < tcd_tile->numcomps; compno++) {
+ opj_tcd_tilecomp_t *tilec = &tcd_tile->comps[compno];
+ for (resno = 0; resno < tilec->numresolution[0]; resno++) {
+ opj_tcd_resolution_t *res = &tilec->resolutions[resno];
+ for (bandno = 0; bandno < res->numbands; bandno++) {
+ opj_tcd_band_t *band = &res->bands[bandno];
+ for (precno = 0; precno < res->prctno[0] * res->prctno[1] * res->prctno[2]; precno++) {
+ opj_tcd_precinct_t *prc = &band->precincts[precno];
+ for (cblkno = 0; cblkno < prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]; cblkno++) {
+ opj_tcd_cblk_t *cblk = &prc->cblks[cblkno];
+ opj_tcd_layer_t *layer = &cblk->layers[layno];
+
+ int n;
+ if (layno == 0) {
+ cblk->numpassesinlayers = 0;
+ }
+ n = cblk->numpassesinlayers;
+ for (passno = cblk->numpassesinlayers; passno < cblk->totalpasses; passno++) {
+ int dr;
+ double dd;
+ opj_tcd_pass_t *pass = &cblk->passes[passno];
+ if (n == 0) {
+ dr = pass->rate;
+ dd = pass->distortiondec;
+ } else {
+ dr = pass->rate - cblk->passes[n - 1].rate;
+ dd = pass->distortiondec - cblk->passes[n - 1].distortiondec;
+ }
+ if (!dr) {
+ if (dd)
+ n = passno + 1;
+ continue;
+ }
+ if (dd / dr >= thresh){
+ n = passno + 1;
+ }
+ }
+ layer->numpasses = n - cblk->numpassesinlayers;
+
+ if (!layer->numpasses) {
+ layer->disto = 0;
+ continue;
+ }
+ if (cblk->numpassesinlayers == 0) {
+ layer->len = cblk->passes[n - 1].rate;
+ layer->data = cblk->data;
+ layer->disto = cblk->passes[n - 1].distortiondec;
+ } else {
+ layer->len = cblk->passes[n - 1].rate - cblk->passes[cblk->numpassesinlayers - 1].rate;
+ layer->data = cblk->data + cblk->passes[cblk->numpassesinlayers - 1].rate;
+ layer->disto = cblk->passes[n - 1].distortiondec - cblk->passes[cblk->numpassesinlayers - 1].distortiondec;
+ }
+
+ tcd_tile->distolayer[layno] += layer->disto; /* fixed_quality */
+
+ if (final)
+ cblk->numpassesinlayers = n;
+
+ /* fprintf(stdout,"MakeLayer : %d %f %d %d \n",layer->len, layer->disto, layer->numpasses, n);*/
+ }
+ }
+ }
+ }
+ }
+}
+
+bool tcd_rateallocate(opj_tcd_t *tcd, unsigned char *dest, int len, opj_volume_info_t * volume_info) {
+ int compno, resno, bandno, precno, cblkno, passno, layno;
+ double min, max;
+ double cumdisto[100]; /* fixed_quality */
+ const double K = 1; /* 1.1; // fixed_quality */
+ double maxSE = 0;
+
+ opj_cp_t *cp = tcd->cp;
+ opj_tcd_tile_t *tcd_tile = tcd->tcd_tile;
+ opj_tcp_t *tcd_tcp = tcd->tcp;
+
+ min = DBL_MAX;
+ max = 0;
+
+ tcd_tile->nbpix = 0; /* fixed_quality */
+
+ for (compno = 0; compno < tcd_tile->numcomps; compno++) {
+ opj_tcd_tilecomp_t *tilec = &tcd_tile->comps[compno];
+ tilec->nbpix = 0;
+ for (resno = 0; resno < tilec->numresolution[0]; resno++) {
+ opj_tcd_resolution_t *res = &tilec->resolutions[resno];
+ for (bandno = 0; bandno < res->numbands; bandno++) {
+ opj_tcd_band_t *band = &res->bands[bandno];
+ for (precno = 0; precno < res->prctno[0] * res->prctno[1] * res->prctno[2]; precno++) {
+ opj_tcd_precinct_t *prc = &band->precincts[precno];
+ for (cblkno = 0; cblkno < prc->cblkno[0] * prc->cblkno[1] * prc->cblkno[2]; cblkno++) {
+ opj_tcd_cblk_t *cblk = &prc->cblks[cblkno];
+ for (passno = 0; passno < cblk->totalpasses; passno++) {
+ opj_tcd_pass_t *pass = &cblk->passes[passno];
+ int dr;
+ double dd, rdslope;
+ if (passno == 0) {
+ dr = pass->rate;
+ dd = pass->distortiondec;
+ } else {
+ dr = pass->rate - cblk->passes[passno - 1].rate;
+ dd = pass->distortiondec - cblk->passes[passno - 1].distortiondec;
+ }
+ if (dr == 0) {
+ continue;
+ }
+ rdslope = dd / dr;
+ if (rdslope < min) {
+ min = rdslope;
+ }
+ if (rdslope > max) {
+ max = rdslope;
+ }
+
+ } /* passno */
+
+ /* fixed_quality */
+ tcd_tile->nbpix += ((cblk->x1 - cblk->x0) * (cblk->y1 - cblk->y0) * (cblk->z1 - cblk->z0));
+ tilec->nbpix += ((cblk->x1 - cblk->x0) * (cblk->y1 - cblk->y0) * (cblk->z1 - cblk->z0));
+ } /* cbklno */
+ } /* precno */
+ } /* bandno */
+ } /* resno */
+
+ maxSE += (((double)(1 << tcd->volume->comps[compno].prec) - 1.0)
+ * ((double)(1 << tcd->volume->comps[compno].prec) -1.0))
+ * ((double)(tilec->nbpix));
+ } /* compno */
+
+ /* add antonin index */
+ if(volume_info && volume_info->index_on) {
+ opj_tile_info_t *info_TL = &volume_info->tile[tcd->tcd_tileno];
+ info_TL->nbpix = tcd_tile->nbpix;
+ info_TL->distotile = tcd_tile->distotile;
+ info_TL->thresh = (double *) opj_malloc(tcd_tcp->numlayers * sizeof(double));
+ }
+ /* dda */
+
+ for (layno = 0; layno < tcd_tcp->numlayers; layno++) {
+ double lo = min;
+ double hi = max;
+ int success = 0;
+ int maxlen = tcd_tcp->rates[layno] ? int_min(((int) tcd_tcp->rates[layno]), len) : len;
+ double goodthresh;
+ double distotarget; /* fixed_quality */
+ int i = 0;
+
+ /* fixed_quality */
+ distotarget = tcd_tile->distotile - ((K * maxSE) / pow((float)10, tcd_tcp->distoratio[layno] / 10));
+
+ if ((tcd_tcp->rates[layno]) || (cp->disto_alloc==0)) {
+ opj_t2_t *t2 = t2_create(tcd->cinfo, tcd->volume, cp);
+ int oldl = 0, oldoldl = 0;
+ for (i = 0; i < 128; i++) {
+ double thresh = (lo + hi) / 2;
+ int l = 0;
+ double distoachieved = 0; /* fixed_quality -q */
+
+ tcd_makelayer(tcd, layno, thresh, 0);
+
+ if (cp->fixed_quality) { /* fixed_quality -q */
+ distoachieved = (layno == 0) ? tcd_tile->distolayer[0] : cumdisto[layno - 1] + tcd_tile->distolayer[layno];
+ if (distoachieved < distotarget) {
+ hi = thresh;
+ continue;
+ }
+ lo = thresh;
+ } else { /* disto_alloc -r, fixed_alloc -f */
+ l = t2_encode_packets(t2, tcd->tcd_tileno, tcd_tile, layno + 1, dest, maxlen, volume_info);
+ /*fprintf(stdout, "layno %d i %d len=%d max=%d \n",layno,i,l,maxlen);*/
+ if (l == -999) {
+ lo = thresh;
+ continue;
+ } else if (l == oldl && oldl == oldoldl && tcd_tile->distolayer[layno] > 0.0 && i>32)
+ break;
+ hi = thresh;
+ oldoldl = oldl;
+ oldl = l;
+ }
+ success = 1;
+ goodthresh = thresh;
+ }
+ t2_destroy(t2);
+ } else {
+ success = 1;
+ goodthresh = min;
+ }
+ if (!success) {
+ return false;
+ }
+
+ if(volume_info && volume_info->index_on) { /* Threshold for Marcela Index */
+ volume_info->tile[tcd->tcd_tileno].thresh[layno] = goodthresh;
+ }
+ tcd_makelayer(tcd, layno, goodthresh, 1);
+
+ /* fixed_quality */
+ cumdisto[layno] = (layno == 0) ? tcd_tile->distolayer[0] : cumdisto[layno - 1] + tcd_tile->distolayer[layno];
+ }
+
+ return true;
+}
+
+/* ----------------------------------------------------------------------- */
+int tcd_encode_tile(opj_tcd_t *tcd, int tileno, unsigned char *dest, int len, opj_volume_info_t * volume_info) {
+ int compno;
+ int l, i, npck = 0;
+ double encoding_time;
+
+ opj_tcd_tile_t *tile = NULL;
+ opj_tcp_t *tcd_tcp = NULL;
+ opj_cp_t *cp = NULL;
+
+ opj_tcp_t *tcp = &tcd->cp->tcps[0];
+ opj_tccp_t *tccp = &tcp->tccps[0];
+ opj_volume_t *volume = tcd->volume;
+ opj_t2_t *t2 = NULL; /* T2 component */
+
+ tcd->tcd_tileno = tileno; /* current encoded/decoded tile */
+
+ tcd->tcd_tile = tcd->tcd_volume->tiles; /* tile information */
+ tile = tcd->tcd_tile;
+
+ tcd->tcp = &tcd->cp->tcps[tileno]; /* coding/decoding params of tileno */
+ tcd_tcp = tcd->tcp;
+
+ cp = tcd->cp; /* coding parameters */
+
+ /* INDEX >> */
+ if(volume_info && volume_info->index_on) {
+ opj_tcd_tilecomp_t *tilec_idx = &tile->comps[0]; /* based on component 0 */
+ for (i = 0; i < tilec_idx->numresolution[0]; i++) {
+ opj_tcd_resolution_t *res_idx = &tilec_idx->resolutions[i];
+
+ volume_info->tile[tileno].prctno[0][i] = res_idx->prctno[0];
+ volume_info->tile[tileno].prctno[1][i] = res_idx->prctno[1];
+ volume_info->tile[tileno].prctno[2][i] = res_idx->prctno[2];
+
+ npck += res_idx->prctno[0] * res_idx->prctno[1] * res_idx->prctno[2];
+
+ volume_info->tile[tileno].prctsiz[0][i] = tccp->prctsiz[0][i];
+ volume_info->tile[tileno].prctsiz[1][i] = tccp->prctsiz[1][i];
+ volume_info->tile[tileno].prctsiz[2][i] = tccp->prctsiz[2][i];
+ }
+ volume_info->tile[tileno].packet = (opj_packet_info_t *) opj_malloc(volume_info->comp * volume_info->layer * npck * sizeof(opj_packet_info_t));
+ }
+ /* << INDEX */
+
+ /*---------------TILE-------------------*/
+ encoding_time = opj_clock(); /* time needed to encode a tile */
+
+ for (compno = 0; compno < tile->numcomps; compno++) {
+ int x, y, z;
+ opj_tcd_tilecomp_t *tilec = &tile->comps[compno];
+
+ int adjust;
+ int offset_x = int_ceildiv(volume->x0, volume->comps[compno].dx); /*ceil(x0 / subsampling_dx)*/
+ int offset_y = int_ceildiv(volume->y0, volume->comps[compno].dy);
+ int offset_z = int_ceildiv(volume->z0, volume->comps[compno].dz);
+
+ int tw = tilec->x1 - tilec->x0;
+ int w = int_ceildiv(volume->x1 - volume->x0, volume->comps[compno].dx);
+ int th = tilec->y1 - tilec->y0;
+ int h = int_ceildiv(volume->y1 - volume->y0, volume->comps[compno].dy);
+ int tl = tilec->z1 - tilec->z0;
+ int l = int_ceildiv(volume->z1 - volume->z0, volume->comps[compno].dz);
+
+
+
+ /* extract tile data from volume.comps[0].data to tile.comps[0].data */
+ /*fprintf(stdout,"[INFO] Extract tile data\n");*/
+ if (tcd->cp->transform_format == TRF_3D_RLS || tcd->cp->transform_format == TRF_3D_LSE) {
+ adjust = 0;
+ } else {
+ adjust = volume->comps[compno].sgnd ? 0 : 1 << (volume->comps[compno].prec - 1); /*sign=='+' --> 2^(prec-1)*/
+ if (volume->comps[compno].dcoffset != 0){
+ adjust += volume->comps[compno].dcoffset;
+ fprintf(stdout,"[INFO] DC Offset applied: DCO = %d -> adjust = %d\n",volume->comps[compno].dcoffset,adjust);
+ }
+ }
+
+ if (tcd_tcp->tccps[compno].reversible == 1) { /*IF perfect reconstruction (DWT.5-3)*/
+ for (z = tilec->z0; z < tilec->z1; z++) {
+ for (y = tilec->y0; y < tilec->y1; y++) {
+ /* start of the src tile scanline */
+ int *data = &volume->comps[compno].data[(tilec->x0 - offset_x) + (y - offset_y) * w + (z - offset_z) * w * h];
+ /* start of the dst tile scanline */
+ int *tile_data = &tilec->data[(y - tilec->y0) * tw + (z - tilec->z0) * tw * th];
+ for (x = tilec->x0; x < tilec->x1; x++) {
+ *tile_data++ = *data++ - adjust;
+ }
+ }
+ }
+ } else if (tcd_tcp->tccps[compno].reversible == 0) { /*IF not (DWT.9-7)*/
+ for (z = tilec->z0; z < tilec->z1; z++) {
+ for (y = tilec->y0; y < tilec->y1; y++) {
+ /* start of the src tile scanline */
+ int *data = &volume->comps[compno].data[(tilec->x0 - offset_x) + (y - offset_y) * w + (z - offset_z) * w * h];
+ /* start of the dst tile scanline */
+ int *tile_data = &tilec->data[(y - tilec->y0) * tw + (z - tilec->z0) * tw * th];
+ for (x = tilec->x0; x < tilec->x1; x++) {
+ *tile_data++ = (*data++ - adjust) << 13;
+ }
+ }
+ }
+ }
+
+ }
+
+ /*----------------MCT-------------------*/
+ if (tcd_tcp->mct) {
+ int samples = (tile->comps[0].x1 - tile->comps[0].x0) * (tile->comps[0].y1 - tile->comps[0].y0) * (tile->comps[0].z1 - tile->comps[0].z0);
+ fprintf(stdout,"[INFO] Tcd_encode_tile: mct\n");
+ if (tcd_tcp->tccps[0].reversible == 0) {
+ mct_encode_real(tile->comps[0].data, tile->comps[1].data, tile->comps[2].data, samples);
+ } else {
+ mct_encode(tile->comps[0].data, tile->comps[1].data, tile->comps[2].data, samples);
+ }
+ }
+ /*----------------TRANSFORM---------------------------------*/
+ fprintf(stdout,"[INFO] Tcd_encode_tile: Transform\n");
+ for (compno = 0; compno < tile->numcomps; compno++) {
+ opj_tcd_tilecomp_t *tilec = &tile->comps[compno];
+ dwt_encode(tilec, tcd_tcp->tccps[compno].dwtid);
+ }
+
+ /*-------------------ENTROPY CODING-----------------------------*/
+ fprintf(stdout,"[INFO] Tcd_encode_tile: Entropy coding\n");
+ if ((cp->encoding_format == ENCOD_2EB)||(cp->encoding_format == ENCOD_3EB))
+ {
+ if (cp->encoding_format == ENCOD_2EB) {
+ opj_t1_t *t1 = NULL;
+ t1 = t1_create(tcd->cinfo);
+ t1_encode_cblks(t1, tile, tcd_tcp);
+ t1_destroy(t1);
+ } else if (cp->encoding_format == ENCOD_3EB) {
+ opj_t1_3d_t *t1 = NULL;
+ t1 = t1_3d_create(tcd->cinfo);
+ t1_3d_encode_cblks(t1, tile, tcd_tcp);
+ t1_3d_destroy(t1);
+ }
+ /*-----------RATE-ALLOCATE------------------*/
+ /* INDEX */
+ if(volume_info) {
+ volume_info->index_write = 0;
+ }
+ if (cp->disto_alloc || cp->fixed_quality) {
+ fprintf(stdout,"[INFO] Tcd_encode_tile: Rate-allocate\n");
+ tcd_rateallocate(tcd, dest, len, volume_info); /* Normal Rate/distortion allocation */
+ } else {/* fixed_alloc */
+ fprintf(stdout,"[INFO] Tcd_encode_tile: Rate-allocate fixed\n");
+ tcd_rateallocate_fixed(tcd); /* Fixed layer allocation */
+ }
+
+ /*--------------TIER2------------------*/
+ /* INDEX */
+ if(volume_info) {
+ volume_info->index_write = 1;
+ }
+ fprintf(stdout,"[INFO] Tcd_encode_tile: Tier - 2\n");
+ t2 = t2_create(tcd->cinfo, volume, cp);
+ l = t2_encode_packets(t2, tileno, tile, tcd_tcp->numlayers, dest, len, volume_info);
+ t2_destroy(t2);
+ } else if ((cp->encoding_format == ENCOD_2GR)||(cp->encoding_format == ENCOD_3GR)) {
+ /*if(volume_info) {
+ volume_info->index_write = 1;
+ }
+ gr = golomb_create(tcd->cinfo, volume, cp);
+ l = golomb_encode(gr, tileno, tile, dest, len, volume_info);
+ golomb_destroy(gr);*/
+ }
+
+
+ /*---------------CLEAN-------------------*/
+ fprintf(stdout,"[INFO] Tcd_encode_tile: %d bytes coded\n",l);
+ encoding_time = opj_clock() - encoding_time;
+ opj_event_msg(tcd->cinfo, EVT_INFO, "- tile encoded in %f s\n", encoding_time);
+
+ /* cleaning memory */
+ for (compno = 0; compno < tile->numcomps; compno++) {
+ tcd->tilec = &tile->comps[compno];
+ opj_free(tcd->tilec->data);
+ }
+
+ if (l == -999){
+ fprintf(stdout,"[ERROR] Unable to perform T2 tier. Return -999.\n");
+ return 0;
+ }
+
+ return l;
+}
+
+
+bool tcd_decode_tile(opj_tcd_t *tcd, unsigned char *src, int len, int tileno) {
+ int l, i;
+ int compno, eof = 0;
+ double tile_time, t1_time, dwt_time;
+
+ opj_tcd_tile_t *tile = NULL;
+ opj_t2_t *t2 = NULL; /* T2 component */
+
+ tcd->tcd_tileno = tileno;
+ tcd->tcd_tile = &(tcd->tcd_volume->tiles[tileno]);
+ tcd->tcp = &(tcd->cp->tcps[tileno]);
+ tile = tcd->tcd_tile;
+
+ tile_time = opj_clock(); /* time needed to decode a tile */
+ opj_event_msg(tcd->cinfo, EVT_INFO, "tile %d / %d\n", tileno + 1, tcd->cp->tw * tcd->cp->th * tcd->cp->tl);
+
+ if ((tcd->cp->encoding_format == ENCOD_2EB) || (tcd->cp->encoding_format == ENCOD_3EB)) {
+ /*--------------TIER2------------------*/
+ t2 = t2_create(tcd->cinfo, tcd->volume, tcd->cp);
+ l = t2_decode_packets(t2, src, len, tileno, tile);
+ t2_destroy(t2);
+ opj_event_msg(tcd->cinfo, EVT_INFO, "Tcd_decode_tile: %d bytes decoded\n",l);
+
+ if (l == -999) {
+ eof = 1;
+ opj_event_msg(tcd->cinfo, EVT_ERROR, "Tcd_decode_tile: incomplete bistream\n");
+ }
+
+ /*------------------TIER1-----------------*/
+ opj_event_msg(tcd->cinfo, EVT_INFO, "Tcd_decode_tile: Entropy decoding %d \n",tcd->cp->encoding_format);
+ t1_time = opj_clock(); /* time needed to decode a tile */
+ if (tcd->cp->encoding_format == ENCOD_2EB) {
+ opj_t1_t *t1 = NULL; /* T1 component */
+ t1 = t1_create(tcd->cinfo);
+ t1_decode_cblks(t1, tile, tcd->tcp);
+ t1_destroy(t1);
+ }else if (tcd->cp->encoding_format == ENCOD_3EB) {
+ opj_t1_3d_t *t1 = NULL; /* T1 component */
+ t1 = t1_3d_create(tcd->cinfo);
+ t1_3d_decode_cblks(t1, tile, tcd->tcp);
+ t1_3d_destroy(t1);
+ }
+
+ t1_time = opj_clock() - t1_time;
+ #ifdef VERBOSE
+ opj_event_msg(tcd->cinfo, EVT_INFO, "- tier-1 took %f s\n", t1_time);
+ #endif
+ } else if ((tcd->cp->encoding_format == ENCOD_2GR)||(tcd->cp->encoding_format == ENCOD_3GR)) {
+ opj_event_msg(tcd->cinfo, EVT_INFO, "Tcd_decode_tile: Entropy decoding -- Does nothing :-D\n");
+ /*
+ gr = golomb_create(tcd->cinfo, tcd->volume, tcd->cp);
+ l = golomb_decode(gr, tileno, tile, src, len);
+ golomb_destroy(gr);
+ if (l == -999) {
+ eof = 1;
+ opj_event_msg(tcd->cinfo, EVT_ERROR, "Tcd_decode_tile: incomplete bistream\n");
+ }
+ */
+ }
+
+ /*----------------DWT---------------------*/
+ fprintf(stdout,"[INFO] Tcd_decode_tile: Inverse DWT\n");
+ dwt_time = opj_clock(); /* time needed to decode a tile */
+ for (compno = 0; compno < tile->numcomps; compno++) {
+ opj_tcd_tilecomp_t *tilec = &tile->comps[compno];
+ int stops[3], dwtid[3];
+
+ for (i = 0; i < 3; i++) {
+ if (tcd->cp->reduce[i] != 0)
+ tcd->volume->comps[compno].resno_decoded[i] = tile->comps[compno].numresolution[i] - tcd->cp->reduce[i] - 1;
+ stops[i] = tilec->numresolution[i] - 1 - tcd->volume->comps[compno].resno_decoded[i];
+ if (stops[i] < 0) stops[i]=0;
+ dwtid[i] = tcd->cp->tcps->tccps[compno].dwtid[i];
+ }
+
+ dwt_decode(tilec, stops, dwtid);
+
+ for (i = 0; i < 3; i++) {
+ if (tile->comps[compno].numresolution[i] > 0) {
+ tcd->volume->comps[compno].factor[i] = tile->comps[compno].numresolution[i] - (tcd->volume->comps[compno].resno_decoded[i] + 1);
+ if ( (tcd->volume->comps[compno].factor[i]) < 0 )
+ tcd->volume->comps[compno].factor[i] = 0;
+ }
+ }
+ }
+ dwt_time = opj_clock() - dwt_time;
+ #ifdef VERBOSE
+ opj_event_msg(tcd->cinfo, EVT_INFO, "- dwt took %f s\n", dwt_time);
+ #endif
+
+ /*----------------MCT-------------------*/
+
+ if (tcd->tcp->mct) {
+ if (tcd->tcp->tccps[0].reversible == 1) {
+ mct_decode(tile->comps[0].data, tile->comps[1].data, tile->comps[2].data,
+ (tile->comps[0].x1 - tile->comps[0].x0) * (tile->comps[0].y1 - tile->comps[0].y0) * (tile->comps[0].z1 - tile->comps[0].z0));
+ } else {
+ mct_decode_real(tile->comps[0].data, tile->comps[1].data, tile->comps[2].data,
+ (tile->comps[0].x1 - tile->comps[0].x0) * (tile->comps[0].y1 - tile->comps[0].y0)* (tile->comps[0].z1 - tile->comps[0].z0));
+ }
+ }
+
+ /*---------------TILE-------------------*/
+
+ for (compno = 0; compno < tile->numcomps; compno++) {
+ opj_tcd_tilecomp_t *tilec = &tile->comps[compno];
+ opj_tcd_resolution_t *res = &tilec->resolutions[tcd->volume->comps[compno].resno_decoded[0]];
+ int adjust;
+ int minval = tcd->volume->comps[compno].sgnd ? -(1 << (tcd->volume->comps[compno].prec - 1)) : 0;
+ int maxval = tcd->volume->comps[compno].sgnd ? (1 << (tcd->volume->comps[compno].prec - 1)) - 1 : (1 << tcd->volume->comps[compno].prec) - 1;
+
+ int tw = tilec->x1 - tilec->x0;
+ int w = tcd->volume->comps[compno].w;
+ int th = tilec->y1 - tilec->y0;
+ int h = tcd->volume->comps[compno].h;
+
+ int i, j, k;
+ int offset_x = int_ceildivpow2(tcd->volume->comps[compno].x0, tcd->volume->comps[compno].factor[0]);
+ int offset_y = int_ceildivpow2(tcd->volume->comps[compno].y0, tcd->volume->comps[compno].factor[1]);
+ int offset_z = int_ceildivpow2(tcd->volume->comps[compno].z0, tcd->volume->comps[compno].factor[2]);
+
+ if (tcd->cp->transform_format == TRF_3D_RLS || tcd->cp->transform_format == TRF_3D_LSE) {
+ adjust = 0;
+ } else {
+ adjust = tcd->volume->comps[compno].sgnd ? 0 : 1 << (tcd->volume->comps[compno].prec - 1); /*sign=='+' --> 2^(prec-1)*/
+ if (tcd->volume->comps[compno].dcoffset != 0){
+ adjust += tcd->volume->comps[compno].dcoffset;
+ fprintf(stdout,"[INFO] DC Offset applied: DCO = %d -> adjust = %d\n",tcd->volume->comps[compno].dcoffset,adjust);
+ }
+ }
+
+ for (k = res->z0; k < res->z1; k++) {
+ for (j = res->y0; j < res->y1; j++) {
+ for (i = res->x0; i < res->x1; i++) {
+ int v;
+ float tmp = (float)((tilec->data[i - res->x0 + (j - res->y0) * tw + (k - res->z0) * tw * th]) / 8192.0);
+
+ if (tcd->tcp->tccps[compno].reversible == 1) {
+ v = tilec->data[i - res->x0 + (j - res->y0) * tw + (k - res->z0) * tw * th];
+ } else {
+ int tmp2 = ((int) (floor(fabs(tmp)))) + ((int) floor(fabs(tmp*2))%2);
+ v = ((tmp < 0) ? -tmp2:tmp2);
+ }
+ v += adjust;
+
+ tcd->volume->comps[compno].data[(i - offset_x) + (j - offset_y) * w + (k - offset_z) * w * h] = int_clamp(v, minval, maxval);
+ }
+ }
+ }
+ }
+
+ tile_time = opj_clock() - tile_time; /* time needed to decode a tile */
+ opj_event_msg(tcd->cinfo, EVT_INFO, "- tile decoded in %f s\n", tile_time);
+
+ for (compno = 0; compno < tile->numcomps; compno++) {
+ opj_free(tcd->tcd_volume->tiles[tileno].comps[compno].data);
+ tcd->tcd_volume->tiles[tileno].comps[compno].data = NULL;
+ }
+
+ if (eof) {
+ return false;
+ }
+
+ return true;
+}
+
projects / openjpeg.git / blobdiff