openjpeg/libopenjpeg/j2k.c

1780 lines
40 KiB
C
Raw Normal View History

2003-11-27 11:10:17 +01:00
/*
* Copyright (c) 2001-2002, David Janssens
2004-02-13 10:38:52 +01:00
* Copyright (c) 2002-2004, Yannick Verschueren
* Copyright (c) 2002-2004, Communications and remote sensing Laboratory, Universite catholique de Louvain, Belgium
2003-11-27 11:10:17 +01:00
* 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 <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <setjmp.h>
#include <math.h>
#include "j2k.h"
#include "cio.h"
#include "tcd.h"
#include "dwt.h"
#include "int.h"
2004-02-13 10:38:52 +01:00
#include "jpt.h"
2003-11-27 11:10:17 +01:00
#define J2K_MS_SOC 0xff4f
#define J2K_MS_SOT 0xff90
#define J2K_MS_SOD 0xff93
#define J2K_MS_EOC 0xffd9
#define J2K_MS_SIZ 0xff51
#define J2K_MS_COD 0xff52
#define J2K_MS_COC 0xff53
#define J2K_MS_RGN 0xff5e
#define J2K_MS_QCD 0xff5c
#define J2K_MS_QCC 0xff5d
#define J2K_MS_POC 0xff5f
#define J2K_MS_TLM 0xff55
#define J2K_MS_PLM 0xff57
#define J2K_MS_PLT 0xff58
#define J2K_MS_PPM 0xff60
#define J2K_MS_PPT 0xff61
#define J2K_MS_SOP 0xff91
#define J2K_MS_EPH 0xff92
#define J2K_MS_CRG 0xff63
#define J2K_MS_COM 0xff64
#define J2K_STATE_MHSOC 0x0001
#define J2K_STATE_MHSIZ 0x0002
#define J2K_STATE_MH 0x0004
#define J2K_STATE_TPHSOT 0x0008
#define J2K_STATE_TPH 0x0010
#define J2K_STATE_MT 0x0020
#define J2K_STATE_NEOC 0x0040
jmp_buf j2k_error;
static int j2k_state;
static int j2k_curtileno;
static j2k_tcp_t j2k_default_tcp;
static unsigned char *j2k_eot;
static int j2k_sot_start;
static int pos_correction;
static j2k_image_t *j2k_img;
static j2k_cp_t *j2k_cp;
static unsigned char **j2k_tile_data;
static int *j2k_tile_len;
static info_image info_IM;
/* Add Patrick */
2004-08-03 16:06:10 +02:00
void
j2k_clean ()
2003-11-27 11:10:17 +01:00
{
int tileno = 0;
2004-08-03 16:06:10 +02:00
tcd_free_encode (j2k_img, j2k_cp, j2k_curtileno);
2003-11-27 11:10:17 +01:00
2004-08-03 16:06:10 +02:00
if (info_IM.index_on)
{
for (tileno = 0; tileno < j2k_cp->tw * j2k_cp->th; tileno++)
{
free (info_IM.tile[tileno].packet);
}
free (info_IM.tile);
}
2003-11-27 11:10:17 +01:00
}
/* \Add Patrick */
2004-08-03 16:06:10 +02:00
void
j2k_dump_image (j2k_image_t * img)
2003-11-27 11:10:17 +01:00
{
int compno;
2004-08-03 16:06:10 +02:00
fprintf (stderr, "image {\n");
fprintf (stderr, " x0=%d, y0=%d, x1=%d, y1=%d\n", img->x0, img->y0,
img->x1, img->y1);
fprintf (stderr, " numcomps=%d\n", img->numcomps);
for (compno = 0; compno < img->numcomps; compno++)
{
j2k_comp_t *comp = &img->comps[compno];
fprintf (stderr, " comp %d {\n", compno);
fprintf (stderr, " dx=%d, dy=%d\n", comp->dx, comp->dy);
fprintf (stderr, " prec=%d\n", comp->prec);
fprintf (stderr, " sgnd=%d\n", comp->sgnd);
fprintf (stderr, " }\n");
}
fprintf (stderr, "}\n");
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_dump_cp (j2k_image_t * img, j2k_cp_t * cp)
2003-11-27 11:10:17 +01:00
{
int tileno, compno, layno, bandno, resno, numbands;
2004-08-03 16:06:10 +02:00
fprintf (stderr, "coding parameters {\n");
fprintf (stderr, " tx0=%d, ty0=%d\n", cp->tx0, cp->ty0);
fprintf (stderr, " tdx=%d, tdy=%d\n", cp->tdx, cp->tdy);
fprintf (stderr, " tw=%d, th=%d\n", cp->tw, cp->th);
for (tileno = 0; tileno < cp->tw * cp->th; tileno++)
{
j2k_tcp_t *tcp = &cp->tcps[tileno];
fprintf (stderr, " tile %d {\n", tileno);
fprintf (stderr, " csty=%x\n", tcp->csty);
fprintf (stderr, " prg=%d\n", tcp->prg);
fprintf (stderr, " numlayers=%d\n", tcp->numlayers);
fprintf (stderr, " mct=%d\n", tcp->mct);
fprintf (stderr, " rates=");
for (layno = 0; layno < tcp->numlayers; layno++)
{
fprintf (stderr, "%d ", tcp->rates[layno]);
}
2004-08-03 16:06:10 +02:00
fprintf (stderr, "\n");
for (compno = 0; compno < img->numcomps; compno++)
{
j2k_tccp_t *tccp = &tcp->tccps[compno];
fprintf (stderr, " comp %d {\n", compno);
fprintf (stderr, " csty=%x\n", tccp->csty);
fprintf (stderr, " numresolutions=%d\n", tccp->numresolutions);
fprintf (stderr, " cblkw=%d\n", tccp->cblkw);
fprintf (stderr, " cblkh=%d\n", tccp->cblkh);
fprintf (stderr, " cblksty=%x\n", tccp->cblksty);
fprintf (stderr, " qmfbid=%d\n", tccp->qmfbid);
fprintf (stderr, " qntsty=%d\n", tccp->qntsty);
fprintf (stderr, " numgbits=%d\n", tccp->numgbits);
fprintf (stderr, " roishift=%d\n", tccp->roishift);
fprintf (stderr, " stepsizes=");
numbands =
tccp->qntsty ==
J2K_CCP_QNTSTY_SIQNT ? 1 : tccp->numresolutions * 3 - 2;
for (bandno = 0; bandno < numbands; bandno++)
{
fprintf (stderr, "(%d,%d) ", tccp->stepsizes[bandno].mant,
tccp->stepsizes[bandno].expn);
}
fprintf (stderr, "\n");
if (tccp->csty & J2K_CCP_CSTY_PRT)
{
fprintf (stderr, " prcw=");
for (resno = 0; resno < tccp->numresolutions; resno++)
{
fprintf (stderr, "%d ", tccp->prcw[resno]);
}
fprintf (stderr, "\n");
fprintf (stderr, " prch=");
for (resno = 0; resno < tccp->numresolutions; resno++)
{
fprintf (stderr, "%d ", tccp->prch[resno]);
}
fprintf (stderr, "\n");
}
fprintf (stderr, " }\n");
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
fprintf (stderr, " }\n");
}
2004-08-03 16:06:10 +02:00
fprintf (stderr, "}\n");
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_write_soc ()
2003-11-27 11:10:17 +01:00
{
2004-08-03 16:06:10 +02:00
cio_write (J2K_MS_SOC, 2);
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_soc ()
2003-11-27 11:10:17 +01:00
{
j2k_state = J2K_STATE_MHSIZ;
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_write_siz ()
2003-11-27 11:10:17 +01:00
{
int i;
int lenp, len;
2004-08-03 16:06:10 +02:00
cio_write (J2K_MS_SIZ, 2); /* SIZ */
lenp = cio_tell ();
cio_skip (2);
cio_write (0, 2); /* Rsiz (capabilities) */
cio_write (j2k_img->x1, 4); /* Xsiz */
cio_write (j2k_img->y1, 4); /* Ysiz */
cio_write (j2k_img->x0, 4); /* X0siz */
cio_write (j2k_img->y0, 4); /* Y0siz */
cio_write (j2k_cp->tdx, 4); /* XTsiz */
cio_write (j2k_cp->tdy, 4); /* YTsiz */
cio_write (j2k_cp->tx0, 4); /* XT0siz */
cio_write (j2k_cp->ty0, 4); /* YT0siz */
cio_write (j2k_img->numcomps, 2); /* Csiz */
for (i = 0; i < j2k_img->numcomps; i++)
{
cio_write (j2k_img->comps[i].prec - 1 + (j2k_img->comps[i].sgnd << 7), 1); /* Ssiz_i */
cio_write (j2k_img->comps[i].dx, 1); /* XRsiz_i */
cio_write (j2k_img->comps[i].dy, 1); /* YRsiz_i */
}
len = cio_tell () - lenp;
cio_seek (lenp);
cio_write (len, 2); /* Lsiz */
cio_seek (lenp + len);
2004-02-13 10:38:52 +01:00
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_siz ()
2003-11-27 11:10:17 +01:00
{
int len, i;
2004-08-03 16:06:10 +02:00
len = cio_read (2); /* Lsiz */
cio_read (2); /* Rsiz (capabilities) */
j2k_img->x1 = cio_read (4); /* Xsiz */
j2k_img->y1 = cio_read (4); /* Ysiz */
j2k_img->x0 = cio_read (4); /* X0siz */
j2k_img->y0 = cio_read (4); /* Y0siz */
j2k_cp->tdx = cio_read (4); /* XTsiz */
j2k_cp->tdy = cio_read (4); /* YTsiz */
j2k_cp->tx0 = cio_read (4); /* XT0siz */
j2k_cp->ty0 = cio_read (4); /* YT0siz */
j2k_img->numcomps = cio_read (2); /* Csiz */
j2k_img->comps =
2004-08-03 16:06:10 +02:00
(j2k_comp_t *) malloc (j2k_img->numcomps * sizeof (j2k_comp_t));
for (i = 0; i < j2k_img->numcomps; i++)
{
int tmp, w, h;
tmp = cio_read (1); /* Ssiz_i */
j2k_img->comps[i].prec = (tmp & 0x7f) + 1;
j2k_img->comps[i].sgnd = tmp >> 7;
j2k_img->comps[i].dx = cio_read (1); /* XRsiz_i */
j2k_img->comps[i].dy = cio_read (1); /* YRsiz_i */
w = int_ceildiv (j2k_img->x1 - j2k_img->x0, j2k_img->comps[i].dx);
h = int_ceildiv (j2k_img->y1 - j2k_img->y0, j2k_img->comps[i].dy);
j2k_img->comps[i].resno_decoded = 0; /* number of resolution decoded */
j2k_img->comps[i].factor = 0; /* reducing factor by component */
}
j2k_cp->tw = int_ceildiv (j2k_img->x1 - j2k_cp->tx0, j2k_cp->tdx);
j2k_cp->th = int_ceildiv (j2k_img->y1 - j2k_cp->ty0, j2k_cp->tdy);
j2k_cp->tcps =
2004-08-03 16:06:10 +02:00
(j2k_tcp_t *) calloc (j2k_cp->tw * j2k_cp->th, sizeof (j2k_tcp_t));
j2k_cp->tileno = (int *) calloc (j2k_cp->tw * j2k_cp->th, sizeof (int));
j2k_cp->tileno_size = 0;
2004-08-03 16:06:10 +02:00
for (i = 0; i < j2k_cp->tw * j2k_cp->th; i++)
{
j2k_cp->tcps[i].POC = 0;
j2k_cp->tcps[i].numpocs = 0;
j2k_cp->tcps[i].first = 1;
}
/* Initialization for PPM marker */
j2k_cp->ppm = 0;
j2k_cp->ppm_data = NULL;
j2k_cp->ppm_previous = 0;
j2k_cp->ppm_store = 0;
j2k_default_tcp.tccps =
2004-08-03 16:06:10 +02:00
(j2k_tccp_t *) calloc (sizeof (j2k_tccp_t), j2k_img->numcomps);
for (i = 0; i < j2k_cp->tw * j2k_cp->th; i++)
{
j2k_cp->tcps[i].tccps =
(j2k_tccp_t *) calloc (sizeof (j2k_tccp_t), j2k_img->numcomps);
}
j2k_tile_data =
2004-08-03 16:06:10 +02:00
(unsigned char **) calloc (j2k_cp->tw * j2k_cp->th, sizeof (char *));
j2k_tile_len = (int *) calloc (j2k_cp->tw * j2k_cp->th, sizeof (int));
j2k_state = J2K_STATE_MH;
2003-11-27 11:10:17 +01:00
2004-02-13 10:38:52 +01:00
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_write_com ()
2003-11-27 11:10:17 +01:00
{
unsigned int i;
int lenp, len;
char str[256];
2004-08-03 16:06:10 +02:00
sprintf (str, "%s", j2k_cp->comment);
cio_write (J2K_MS_COM, 2);
lenp = cio_tell ();
cio_skip (2);
cio_write (0, 2);
for (i = 0; i < strlen (str); i++)
{
cio_write (str[i], 1);
}
len = cio_tell () - lenp;
cio_seek (lenp);
cio_write (len, 2);
cio_seek (lenp + len);
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_com ()
2003-11-27 11:10:17 +01:00
{
int len;
2004-08-03 16:06:10 +02:00
len = cio_read (2);
cio_skip (len - 2);
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_write_cox (int compno)
2003-11-27 11:10:17 +01:00
{
int i;
j2k_tcp_t *tcp;
j2k_tccp_t *tccp;
tcp = &j2k_cp->tcps[j2k_curtileno];
tccp = &tcp->tccps[compno];
2004-08-03 16:06:10 +02:00
cio_write (tccp->numresolutions - 1, 1); /* SPcox (D) */
cio_write (tccp->cblkw - 2, 1); /* SPcox (E) */
cio_write (tccp->cblkh - 2, 1); /* SPcox (F) */
cio_write (tccp->cblksty, 1); /* SPcox (G) */
cio_write (tccp->qmfbid, 1); /* SPcox (H) */
if (tccp->csty & J2K_CCP_CSTY_PRT)
{
for (i = 0; i < tccp->numresolutions; i++)
{
cio_write (tccp->prcw[i] + (tccp->prch[i] << 4), 1); /* SPcox (I_i) */
}
}
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_cox (int compno)
2003-11-27 11:10:17 +01:00
{
int i;
j2k_tcp_t *tcp;
j2k_tccp_t *tccp;
tcp =
j2k_state ==
J2K_STATE_TPH ? &j2k_cp->tcps[j2k_curtileno] : &j2k_default_tcp;
tccp = &tcp->tccps[compno];
2004-08-03 16:06:10 +02:00
tccp->numresolutions = cio_read (1) + 1; /* SPcox (D) */
tccp->cblkw = cio_read (1) + 2; /* SPcox (E) */
tccp->cblkh = cio_read (1) + 2; /* SPcox (F) */
tccp->cblksty = cio_read (1); /* SPcox (G) */
tccp->qmfbid = cio_read (1); /* SPcox (H) */
if (tccp->csty & J2K_CP_CSTY_PRT)
{
for (i = 0; i < tccp->numresolutions; i++)
{
int tmp = cio_read (1); /* SPcox (I_i) */
tccp->prcw[i] = tmp & 0xf;
tccp->prch[i] = tmp >> 4;
}
}
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_write_cod ()
2003-11-27 11:10:17 +01:00
{
j2k_tcp_t *tcp;
int lenp, len;
2004-08-03 16:06:10 +02:00
cio_write (J2K_MS_COD, 2); /* COD */
2004-02-13 10:38:52 +01:00
2004-08-03 16:06:10 +02:00
lenp = cio_tell ();
cio_skip (2);
2004-02-13 10:38:52 +01:00
tcp = &j2k_cp->tcps[j2k_curtileno];
2004-08-03 16:06:10 +02:00
cio_write (tcp->csty, 1); /* Scod */
cio_write (tcp->prg, 1); /* SGcod (A) */
cio_write (tcp->numlayers, 2); /* SGcod (B) */
cio_write (tcp->mct, 1); /* SGcod (C) */
j2k_write_cox (0);
len = cio_tell () - lenp;
cio_seek (lenp);
cio_write (len, 2); /* Lcod */
cio_seek (lenp + len);
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_cod ()
2003-11-27 11:10:17 +01:00
{
int len, i, pos;
j2k_tcp_t *tcp;
tcp =
j2k_state ==
J2K_STATE_TPH ? &j2k_cp->tcps[j2k_curtileno] : &j2k_default_tcp;
2004-08-03 16:06:10 +02:00
len = cio_read (2); /* Lcod */
tcp->csty = cio_read (1); /* Scod */
tcp->prg = cio_read (1); /* SGcod (A) */
tcp->numlayers = cio_read (2); /* SGcod (B) */
tcp->mct = cio_read (1); /* SGcod (C) */
pos = cio_tell ();
for (i = 0; i < j2k_img->numcomps; i++)
{
tcp->tccps[i].csty = tcp->csty & J2K_CP_CSTY_PRT;
cio_seek (pos);
j2k_read_cox (i);
}
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_write_coc (int compno)
2003-11-27 11:10:17 +01:00
{
j2k_tcp_t *tcp;
int lenp, len;
2004-08-03 16:06:10 +02:00
cio_write (J2K_MS_COC, 2); /* COC */
lenp = cio_tell ();
cio_skip (2);
tcp = &j2k_cp->tcps[j2k_curtileno];
2004-08-03 16:06:10 +02:00
cio_write (compno, j2k_img->numcomps <= 256 ? 1 : 2); /* Ccoc */
cio_write (tcp->tccps[compno].csty, 1); /* Scoc */
j2k_write_cox (compno);
len = cio_tell () - lenp;
cio_seek (lenp);
cio_write (len, 2); /* Lcoc */
cio_seek (lenp + len);
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_coc ()
2003-11-27 11:10:17 +01:00
{
int len, compno;
j2k_tcp_t *tcp;
tcp =
j2k_state ==
J2K_STATE_TPH ? &j2k_cp->tcps[j2k_curtileno] : &j2k_default_tcp;
2004-08-03 16:06:10 +02:00
len = cio_read (2); /* Lcoc */
compno = cio_read (j2k_img->numcomps <= 256 ? 1 : 2); /* Ccoc */
tcp->tccps[compno].csty = cio_read (1); /* Scoc */
j2k_read_cox (compno);
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_write_qcx (int compno)
2003-11-27 11:10:17 +01:00
{
j2k_tcp_t *tcp;
j2k_tccp_t *tccp;
int bandno, numbands;
int expn, mant;
tcp = &j2k_cp->tcps[j2k_curtileno];
tccp = &tcp->tccps[compno];
2003-11-27 11:10:17 +01:00
2004-08-03 16:06:10 +02:00
cio_write (tccp->qntsty + (tccp->numgbits << 5), 1); /* Sqcx */
numbands =
2004-08-03 16:06:10 +02:00
tccp->qntsty == J2K_CCP_QNTSTY_SIQNT ? 1 : tccp->numresolutions * 3 - 2;
2003-11-27 11:10:17 +01:00
2004-08-03 16:06:10 +02:00
for (bandno = 0; bandno < numbands; bandno++)
{
expn = tccp->stepsizes[bandno].expn;
mant = tccp->stepsizes[bandno].mant;
2003-11-27 11:10:17 +01:00
2004-08-03 16:06:10 +02:00
if (tccp->qntsty == J2K_CCP_QNTSTY_NOQNT)
{
cio_write (expn << 3, 1); /* SPqcx_i */
}
else
{
cio_write ((expn << 11) + mant, 2); /* SPqcx_i */
}
}
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_qcx (int compno, int len)
2003-11-27 11:10:17 +01:00
{
int tmp;
j2k_tcp_t *tcp;
j2k_tccp_t *tccp;
int bandno, numbands;
tcp =
j2k_state ==
J2K_STATE_TPH ? &j2k_cp->tcps[j2k_curtileno] : &j2k_default_tcp;
tccp = &tcp->tccps[compno];
2004-08-03 16:06:10 +02:00
tmp = cio_read (1); /* Sqcx */
tccp->qntsty = tmp & 0x1f;
tccp->numgbits = tmp >> 5;
numbands =
tccp->qntsty == J2K_CCP_QNTSTY_SIQNT ? 1 : (tccp->qntsty ==
J2K_CCP_QNTSTY_NOQNT ?
len - 1 : (len - 1) / 2);
2004-08-03 16:06:10 +02:00
for (bandno = 0; bandno < numbands; bandno++)
{
int expn, mant;
if (tccp->qntsty == J2K_CCP_QNTSTY_NOQNT)
{
expn = cio_read (1) >> 3; /* SPqcx_i */
mant = 0;
}
else
{
tmp = cio_read (2); /* SPqcx_i */
expn = tmp >> 11;
mant = tmp & 0x7ff;
}
tccp->stepsizes[bandno].expn = expn;
tccp->stepsizes[bandno].mant = mant;
}
2004-07-16 12:22:59 +02:00
/* Add Antonin : if scalar_derived -> compute other stepsizes */
2004-07-16 12:22:59 +02:00
2004-08-03 16:06:10 +02:00
if (tccp->qntsty == J2K_CCP_QNTSTY_SIQNT)
{
2004-07-16 12:22:59 +02:00
2004-08-03 16:06:10 +02:00
for (bandno = 1; bandno < J2K_MAXBANDS; bandno++)
{
2004-07-16 12:22:59 +02:00
2004-08-03 16:06:10 +02:00
tccp->stepsizes[bandno].expn =
((tccp->stepsizes[0].expn) - ((bandno - 1) / 3) >
0) ? (tccp->stepsizes[0].expn) - ((bandno - 1) / 3) : 0;
2004-07-16 12:22:59 +02:00
2004-08-03 16:06:10 +02:00
tccp->stepsizes[bandno].mant = tccp->stepsizes[0].mant;
2004-07-16 12:22:59 +02:00
2004-08-03 16:06:10 +02:00
}
2004-07-16 12:22:59 +02:00
2004-08-03 16:06:10 +02:00
}
2004-07-16 12:22:59 +02:00
/* ddA */
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_write_qcd ()
2003-11-27 11:10:17 +01:00
{
int lenp, len;
2004-08-03 16:06:10 +02:00
cio_write (J2K_MS_QCD, 2); /* QCD */
lenp = cio_tell ();
cio_skip (2);
j2k_write_qcx (0);
len = cio_tell () - lenp;
cio_seek (lenp);
cio_write (len, 2); /* Lqcd */
cio_seek (lenp + len);
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_qcd ()
2003-11-27 11:10:17 +01:00
{
int len, i, pos;
2004-08-03 16:06:10 +02:00
len = cio_read (2); /* Lqcd */
pos = cio_tell ();
for (i = 0; i < j2k_img->numcomps; i++)
{
cio_seek (pos);
j2k_read_qcx (i, len - 2);
}
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_write_qcc (int compno)
2003-11-27 11:10:17 +01:00
{
int lenp, len;
2004-08-03 16:06:10 +02:00
cio_write (J2K_MS_QCC, 2); /* QCC */
lenp = cio_tell ();
cio_skip (2);
cio_write (compno, j2k_img->numcomps <= 256 ? 1 : 2); /* Cqcc */
j2k_write_qcx (compno);
len = cio_tell () - lenp;
cio_seek (lenp);
cio_write (len, 2); /* Lqcc */
cio_seek (lenp + len);
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_qcc ()
2003-11-27 11:10:17 +01:00
{
int len, compno;
2004-08-03 16:06:10 +02:00
len = cio_read (2); /* Lqcc */
compno = cio_read (j2k_img->numcomps <= 256 ? 1 : 2); /* Cqcc */
j2k_read_qcx (compno, len - 2 - (j2k_img->numcomps <= 256 ? 1 : 2));
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_write_poc ()
{
int len, numpchgs, i;
j2k_tcp_t *tcp;
j2k_tccp_t *tccp;
tcp = &j2k_cp->tcps[j2k_curtileno];
tccp = &tcp->tccps[0];
numpchgs = tcp->numpocs;
2004-08-03 16:06:10 +02:00
cio_write (J2K_MS_POC, 2); /* POC */
len = 2 + (5 + 2 * (j2k_img->numcomps <= 256 ? 1 : 2)) * numpchgs;
2004-08-03 16:06:10 +02:00
cio_write (len, 2); /* Lpoc */
for (i = 0; i < numpchgs; i++)
{
// MODIF
j2k_poc_t *poc;
poc = &tcp->pocs[i];
cio_write (poc->resno0, 1); /* RSpoc_i */
cio_write (poc->compno0, (j2k_img->numcomps <= 256 ? 1 : 2)); /* CSpoc_i */
cio_write (poc->layno1, 2); /* LYEpoc_i */
poc->layno1 = int_min (poc->layno1, tcp->numlayers);
cio_write (poc->resno1, 1); /* REpoc_i */
poc->resno1 = int_min (poc->resno1, tccp->numresolutions);
cio_write (poc->compno1, (j2k_img->numcomps <= 256 ? 1 : 2)); /* CEpoc_i */
poc->compno1 = int_min (poc->compno1, j2k_img->numcomps);
cio_write (poc->prg, 1); /* Ppoc_i */
}
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_poc ()
{
int len, numpchgs, i, old_poc;
j2k_tcp_t *tcp;
j2k_tccp_t *tccp;
tcp =
j2k_state ==
J2K_STATE_TPH ? &j2k_cp->tcps[j2k_curtileno] : &j2k_default_tcp;
old_poc = tcp->POC ? tcp->numpocs + 1 : 0;
tcp->POC = 1;
tccp = &tcp->tccps[0];
2004-08-03 16:06:10 +02:00
len = cio_read (2); /* Lpoc */
numpchgs = (len - 2) / (5 + 2 * (j2k_img->numcomps <= 256 ? 1 : 2));
2004-08-03 16:06:10 +02:00
for (i = old_poc; i < numpchgs + old_poc; i++)
{
j2k_poc_t *poc;
poc = &tcp->pocs[i];
poc->resno0 = cio_read (1); /* RSpoc_i */
poc->compno0 = cio_read (j2k_img->numcomps <= 256 ? 1 : 2); /* CSpoc_i */
poc->layno1 = int_min (cio_read (2), tcp->numlayers); /* LYEpoc_i */
poc->resno1 = int_min (cio_read (1), tccp->numresolutions); /* REpoc_i */
poc->compno1 = int_min (cio_read (j2k_img->numcomps <= 256 ? 1 : 2), j2k_img->numcomps); /* CEpoc_i */
poc->prg = cio_read (1); /* Ppoc_i */
}
tcp->numpocs = numpchgs + old_poc - 1;
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_crg ()
2003-11-27 11:10:17 +01:00
{
int len, i, Xcrg_i, Ycrg_i;
2004-08-03 16:06:10 +02:00
len = cio_read (2); /* Lcrg */
for (i = 0; i < j2k_img->numcomps; i++)
{
Xcrg_i = cio_read (2); /* Xcrg_i */
Ycrg_i = cio_read (2); /* Ycrg_i */
}
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_tlm ()
2003-11-27 11:10:17 +01:00
{
int len, Ztlm, Stlm, ST, SP, tile_tlm, i;
long int Ttlm_i, Ptlm_i;
2004-08-03 16:06:10 +02:00
len = cio_read (2); /* Ltlm */
Ztlm = cio_read (1); /* Ztlm */
Stlm = cio_read (1); /* Stlm */
ST = ((Stlm >> 4) & 0x01) + ((Stlm >> 4) & 0x02);
SP = (Stlm >> 6) & 0x01;
tile_tlm = (len - 4) / ((SP + 1) * 2 + ST);
2004-08-03 16:06:10 +02:00
for (i = 0; i < tile_tlm; i++)
{
Ttlm_i = cio_read (ST); /* Ttlm_i */
Ptlm_i = cio_read (SP ? 4 : 2); /* Ptlm_i */
}
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_plm ()
2003-11-27 11:10:17 +01:00
{
int len, i, Zplm, Nplm, add, packet_len = 0;
2004-08-03 16:06:10 +02:00
len = cio_read (2); /* Lplm */
Zplm = cio_read (1); /* Zplm */
len -= 3;
2004-08-03 16:06:10 +02:00
while (len > 0)
{
Nplm = cio_read (4); /* Nplm */
len -= 4;
for (i = Nplm; i > 0; i--)
{
add = cio_read (1);
len--;
packet_len = (packet_len << 7) + add; /* Iplm_ij */
if ((add & 0x80) == 0)
{
/* New packet */
packet_len = 0;
}
if (len <= 0)
break;
}
}
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_plt ()
2003-11-27 11:10:17 +01:00
{
int len, i, Zplt, packet_len = 0, add;
2004-08-03 16:06:10 +02:00
len = cio_read (2); /* Lplt */
Zplt = cio_read (1); /* Zplt */
for (i = len - 3; i > 0; i--)
{
add = cio_read (1);
packet_len = (packet_len << 7) + add; /* Iplt_i */
if ((add & 0x80) == 0)
{
/* New packet */
packet_len = 0;
}
}
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_ppm ()
2003-11-27 11:10:17 +01:00
{
int len, Z_ppm, i, j;
int N_ppm;
2004-08-03 16:06:10 +02:00
len = cio_read (2);
j2k_cp->ppm = 1;
2004-08-03 16:06:10 +02:00
Z_ppm = cio_read (1); /* Z_ppm */
len -= 3;
2004-08-03 16:06:10 +02:00
while (len > 0)
{
if (j2k_cp->ppm_previous == 0)
{
N_ppm = cio_read (4); /* N_ppm */
len -= 4;
}
else
{
N_ppm = j2k_cp->ppm_previous;
}
j = j2k_cp->ppm_store;
if (Z_ppm == 0)
{ /* First PPM marker */
j2k_cp->ppm_data =
(unsigned char *) calloc (N_ppm, sizeof (unsigned char));
2004-08-03 16:06:10 +02:00
j2k_cp->ppm_len = N_ppm; //Add antonin : ppmbug1
2004-07-16 12:22:59 +02:00
2004-08-03 16:06:10 +02:00
}
else
{ /* NON-first PPM marker */
j2k_cp->ppm_data =
(unsigned char *) realloc (j2k_cp->ppm_data,
(N_ppm +
j2k_cp->ppm_store) *
sizeof (unsigned char));
2004-07-16 12:22:59 +02:00
2004-08-03 16:06:10 +02:00
j2k_cp->ppm_len = N_ppm + j2k_cp->ppm_store; //Add antonin : ppmbug1
2004-07-16 12:22:59 +02:00
2004-08-03 16:06:10 +02:00
}
2004-07-16 12:22:59 +02:00
2004-08-03 16:06:10 +02:00
for (i = N_ppm; i > 0; i--)
{ /* Read packet header */
j2k_cp->ppm_data[j] = cio_read (1);
j++;
len--;
if (len == 0)
break; /* Case of non-finished packet header in present marker but finished in next one */
}
2004-08-03 16:06:10 +02:00
j2k_cp->ppm_previous = i - 1;
j2k_cp->ppm_store = j;
2004-02-13 10:38:52 +01:00
}
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_ppt ()
2003-11-27 11:10:17 +01:00
{
int len, Z_ppt, i, j = 0;
j2k_tcp_t *tcp;
2004-08-03 16:06:10 +02:00
len = cio_read (2);
Z_ppt = cio_read (1);
tcp = &j2k_cp->tcps[j2k_curtileno];
tcp->ppt = 1;
2004-08-03 16:06:10 +02:00
if (Z_ppt == 0)
{ /* First PPT marker */
tcp->ppt_data =
(unsigned char *) calloc (len - 3, sizeof (unsigned char));
tcp->ppt_store = 0;
2004-07-16 12:22:59 +02:00
2004-08-03 16:06:10 +02:00
tcp->ppt_len = len - 3; //Add antonin : ppmbug1
}
else
{ /* NON-first PPT marker */
tcp->ppt_data =
(unsigned char *) realloc (tcp->ppt_data,
(len - 3 +
tcp->ppt_store) * sizeof (unsigned char));
2004-07-16 12:22:59 +02:00
2004-08-03 16:06:10 +02:00
tcp->ppt_len = len - 3 + tcp->ppt_store; //Add antonin : ppmbug1
2004-07-16 12:22:59 +02:00
2004-08-03 16:06:10 +02:00
}
j = tcp->ppt_store;
2004-08-03 16:06:10 +02:00
for (i = len - 3; i > 0; i--)
{
tcp->ppt_data[j] = cio_read (1);
j++;
}
tcp->ppt_store = j;
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_write_sot ()
2003-11-27 11:10:17 +01:00
{
int lenp, len;
2004-08-03 16:06:10 +02:00
j2k_sot_start = cio_tell ();
cio_write (J2K_MS_SOT, 2); /* SOT */
lenp = cio_tell ();
cio_skip (2); /* Lsot (further) */
cio_write (j2k_curtileno, 2); /* Isot */
cio_skip (4); /* Psot (further in j2k_write_sod) */
cio_write (0, 1); /* TPsot */
cio_write (1, 1); /* TNsot */
len = cio_tell () - lenp;
cio_seek (lenp);
cio_write (len, 2); /* Lsot */
cio_seek (lenp + len);
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_sot ()
2003-11-27 11:10:17 +01:00
{
int len, tileno, totlen, partno, numparts, i;
j2k_tcp_t *tcp;
j2k_tccp_t *tmp;
char status = 0;
2004-08-03 16:06:10 +02:00
len = cio_read (2);
tileno = cio_read (2);
if (j2k_cp->tileno_size == 0)
{
j2k_cp->tileno[j2k_cp->tileno_size] = tileno;
j2k_cp->tileno_size++;
}
2004-08-03 16:06:10 +02:00
else
{
i = 0;
while (i < j2k_cp->tileno_size && status == 0)
{
status = j2k_cp->tileno[i] == tileno ? 1 : 0;
i++;
}
if (status == 0)
{
j2k_cp->tileno[j2k_cp->tileno_size] = tileno;
j2k_cp->tileno_size++;
}
}
2004-02-13 10:38:52 +01:00
2004-08-03 16:06:10 +02:00
totlen = cio_read (4);
if (!totlen)
2004-08-03 16:06:10 +02:00
totlen = cio_numbytesleft () + 8;
2004-08-03 16:06:10 +02:00
partno = cio_read (1);
numparts = cio_read (1);
j2k_curtileno = tileno;
2004-08-03 16:06:10 +02:00
j2k_eot = cio_getbp () - 12 + totlen;
j2k_state = J2K_STATE_TPH;
tcp = &j2k_cp->tcps[j2k_curtileno];
2004-08-03 16:06:10 +02:00
if (tcp->first == 1)
{
tmp = tcp->tccps;
*tcp = j2k_default_tcp;
2004-08-03 16:06:10 +02:00
/* Initialization PPT */
tcp->ppt = 0;
tcp->ppt_data = NULL;
2004-08-03 16:06:10 +02:00
tcp->tccps = tmp;
for (i = 0; i < j2k_img->numcomps; i++)
{
tcp->tccps[i] = j2k_default_tcp.tccps[i];
}
j2k_cp->tcps[j2k_curtileno].first = 0;
}
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_write_sod ()
2003-11-27 11:10:17 +01:00
{
int l, layno;
int totlen;
j2k_tcp_t *tcp;
static int j2k_sod_start;
2004-08-03 16:06:10 +02:00
cio_write (J2K_MS_SOD, 2);
if (j2k_curtileno == 0)
{
j2k_sod_start = cio_tell () + pos_correction;
}
/* INDEX >> */
2004-08-03 16:06:10 +02:00
if (info_IM.index_on)
{
info_IM.tile[j2k_curtileno].end_header =
cio_tell () + pos_correction - 1;
info_IM.tile[j2k_curtileno].packet =
(info_packet *) calloc (info_IM.Comp * info_IM.Layer *
(info_IM.Decomposition + 1) * 100,
sizeof (info_packet));
}
/* << INDEX */
tcp = &j2k_cp->tcps[j2k_curtileno];
2004-08-03 16:06:10 +02:00
for (layno = 0; layno < tcp->numlayers; layno++)
{
tcp->rates[layno] -= tcp->rates[layno] ? (j2k_sod_start / (j2k_cp->th * j2k_cp->tw)) : 0; //Mod antonin losslessbug
}
info_IM.num = 0;
if (j2k_cp->image_type)
2004-08-03 16:06:10 +02:00
l = tcd_encode_tile_pxm (j2k_curtileno, cio_getbp (),
cio_numbytesleft () - 2, &info_IM);
else
2004-08-03 16:06:10 +02:00
l = tcd_encode_tile_pgx (j2k_curtileno, cio_getbp (),
cio_numbytesleft () - 2, &info_IM);
/* Writing Psot in SOT marker */
2004-08-03 16:06:10 +02:00
totlen = cio_tell () + l - j2k_sot_start;
cio_seek (j2k_sot_start + 6);
cio_write (totlen, 4);
cio_seek (j2k_sot_start + totlen);
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_sod ()
2003-11-27 11:10:17 +01:00
{
int len, truncate = 0, i;
unsigned char *data;
2004-08-03 16:06:10 +02:00
len = int_min (j2k_eot - cio_getbp (), cio_numbytesleft () + 1);
if (len == cio_numbytesleft () + 1)
truncate = 1; /* Case of a truncate codestream */
data =
2004-08-03 16:06:10 +02:00
(unsigned char *) malloc ((j2k_tile_len[j2k_curtileno] + len) *
sizeof (unsigned char));
for (i = 0; i < j2k_tile_len[j2k_curtileno]; i++)
data[i] = j2k_tile_data[j2k_curtileno][i];
for (i = 0; i < len; i++)
2004-08-03 16:06:10 +02:00
data[i + j2k_tile_len[j2k_curtileno]] = cio_read (1);
j2k_tile_len[j2k_curtileno] += len;
2004-08-03 16:06:10 +02:00
free (j2k_tile_data[j2k_curtileno]);
j2k_tile_data[j2k_curtileno] = data;
data = NULL;
if (!truncate)
j2k_state = J2K_STATE_TPHSOT;
else
j2k_state = J2K_STATE_NEOC; /* RAJOUTE !! */
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_write_rgn (int compno, int tileno)
2003-11-27 11:10:17 +01:00
{
j2k_tcp_t *tcp = &j2k_cp->tcps[tileno];
2004-08-03 16:06:10 +02:00
cio_write (J2K_MS_RGN, 2); /* RGN */
cio_write (j2k_img->numcomps <= 256 ? 5 : 6, 2); /* Lrgn */
cio_write (compno, j2k_img->numcomps <= 256 ? 1 : 2); /* Crgn */
cio_write (0, 1); /* Srgn */
cio_write (tcp->tccps[compno].roishift, 1); /* SPrgn */
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_rgn ()
2003-11-27 11:10:17 +01:00
{
int len, compno, roisty;
j2k_tcp_t *tcp;
tcp =
j2k_state ==
J2K_STATE_TPH ? &j2k_cp->tcps[j2k_curtileno] : &j2k_default_tcp;
2004-08-03 16:06:10 +02:00
len = cio_read (2); /* Lrgn */
compno = cio_read (j2k_img->numcomps <= 256 ? 1 : 2); /* Crgn */
roisty = cio_read (1); /* Srgn */
tcp->tccps[compno].roishift = cio_read (1); /* SPrgn */
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_write_eoc ()
2003-11-27 11:10:17 +01:00
{
/* fprintf(stderr, "%.8x: EOC\n", cio_tell() + pos_correction); */
2004-08-03 16:06:10 +02:00
cio_write (J2K_MS_EOC, 2);
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_eoc ()
2003-11-27 11:10:17 +01:00
{
int i, tileno;
2003-11-27 11:10:17 +01:00
2004-08-03 16:06:10 +02:00
tcd_init (j2k_img, j2k_cp);
2004-08-03 16:06:10 +02:00
for (i = 0; i < j2k_cp->tileno_size; i++)
{
tileno = j2k_cp->tileno[i];
tcd_decode_tile (j2k_tile_data[tileno], j2k_tile_len[tileno], tileno);
free (j2k_tile_data[tileno]);
}
j2k_state = J2K_STATE_MT;
2004-08-03 16:06:10 +02:00
longjmp (j2k_error, 1);
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
void
j2k_read_unk ()
2003-11-27 11:10:17 +01:00
{
2004-08-03 16:06:10 +02:00
fprintf (stderr, "warning: unknown marker\n");
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
LIBJ2K_API int
j2k_encode (j2k_image_t * img, j2k_cp_t * cp, char *output,
int len, char *index)
2003-11-27 11:10:17 +01:00
{
int tileno, compno, layno, resno, precno, pack_nb;
2004-07-16 12:22:59 +02:00
char *dest = NULL;
FILE *INDEX = NULL;
FILE *f = NULL;
2004-08-03 16:06:10 +02:00
if (setjmp (j2k_error))
{
return 0;
}
2004-08-03 16:06:10 +02:00
if (cp->intermed_file == 1)
{
f = fopen (output, "wb");
if (!f)
{
fprintf (stderr, "failed to open %s for writing\n", output);
return 1;
}
dest = (char *) malloc (len);
cio_init (dest, len);
}
j2k_img = img;
j2k_cp = cp;
/* j2k_dump_cp(j2k_img, j2k_cp); */
/* INDEX >> */
info_IM.index_on = j2k_cp->index_on;
2004-08-03 16:06:10 +02:00
if (info_IM.index_on)
{
info_IM.tile =
(info_tile *) malloc (j2k_cp->tw * j2k_cp->th * sizeof (info_tile));
info_IM.Im_w = j2k_img->x1 - j2k_img->x0;
info_IM.Im_h = j2k_img->y1 - j2k_img->y0;
info_IM.Prog = (&j2k_cp->tcps[0])->prg;
info_IM.tw = j2k_cp->tw;
info_IM.th = j2k_cp->th;
info_IM.Tile_x = j2k_cp->tdx; /* new version parser */
info_IM.Tile_y = j2k_cp->tdy; /* new version parser */
info_IM.Comp = j2k_img->numcomps;
info_IM.Layer = (&j2k_cp->tcps[0])->numlayers;
info_IM.Decomposition = (&j2k_cp->tcps[0])->tccps->numresolutions - 1;
info_IM.D_max = 0; /* ADD Marcela */
}
/* << INDEX */
2004-08-03 16:06:10 +02:00
j2k_write_soc ();
j2k_write_siz ();
j2k_write_cod ();
j2k_write_qcd ();
for (compno = 0; compno < j2k_img->numcomps; compno++)
{
j2k_tcp_t *tcp = &j2k_cp->tcps[0];
if (tcp->tccps[compno].roishift)
j2k_write_rgn (compno, 0);
}
if (j2k_cp->comment != NULL)
2004-08-03 16:06:10 +02:00
j2k_write_com ();
2004-08-03 16:06:10 +02:00
if (cp->intermed_file == 1)
{
/* Writing the main header */
pos_correction = cio_tell ();
fwrite (dest, 1, cio_tell (), f);
}
/* INDEX >> */
2004-08-03 16:06:10 +02:00
if (info_IM.index_on)
{
info_IM.Main_head_end = cio_tell () - 1;
}
/* << INDEX */
2004-08-03 16:06:10 +02:00
for (tileno = 0; tileno < cp->tw * cp->th; tileno++)
{
fprintf (stderr, "Tile number %d / %d ", tileno + 1, cp->tw * cp->th);
2004-08-03 16:06:10 +02:00
if (cp->intermed_file == 1)
{
/* new dest for each tile */
free (dest);
dest = (char *) malloc (len);
cio_init (dest, len);
}
j2k_curtileno = tileno;
/* initialisation before tile encoding */
2004-08-03 16:06:10 +02:00
if (tileno == 0)
{
tcd_malloc_encode (j2k_img, j2k_cp, j2k_curtileno);
}
else
{
tcd_init_encode (j2k_img, j2k_cp, j2k_curtileno);
}
2004-08-03 16:06:10 +02:00
/* INDEX >> */
if (info_IM.index_on)
{
info_IM.tile[j2k_curtileno].num_tile = j2k_curtileno;
info_IM.tile[j2k_curtileno].start_pos =
cio_tell () + pos_correction;
}
/* << INDEX */
j2k_write_sot ();
2004-08-03 16:06:10 +02:00
for (compno = 1; compno < img->numcomps; compno++)
{
j2k_write_coc (compno);
j2k_write_qcc (compno);
}
2004-08-03 16:06:10 +02:00
if (cp->tcps[tileno].numpocs)
j2k_write_poc ();
j2k_write_sod ();
/* INDEX >> */
if (info_IM.index_on)
{
info_IM.tile[j2k_curtileno].end_pos =
cio_tell () + pos_correction - 1;
}
/* << INDEX */
/*
if (tile->PPT) BAD PPT !!!
{
FILE *PPT_file;
int i;
PPT_file=fopen("PPT","rb");
fprintf(stderr,"%c%c%c%c",255,97,tile->len_ppt/256,tile->len_ppt%256);
for (i=0;i<tile->len_ppt;i++)
{
unsigned char elmt;
fread(&elmt, 1, 1, PPT_file);
fwrite(&elmt,1,1,f);
}
fclose(PPT_file);
unlink("PPT");
}
*/
if (cp->intermed_file == 1)
{
fwrite (dest, 1, cio_tell (), f);
pos_correction = cio_tell () + pos_correction;
}
}
2004-08-03 16:06:10 +02:00
if (cp->intermed_file == 1)
{
free (dest);
dest = (char *) malloc (len);
cio_init (dest, len);
}
2003-11-27 11:10:17 +01:00
2004-08-03 16:06:10 +02:00
j2k_write_eoc ();
2003-11-27 11:10:17 +01:00
2004-08-03 16:06:10 +02:00
if (cp->intermed_file == 1)
{
fwrite (dest, 1, 2, f);
free (dest);
/* closing file *.j2k */
fclose (f);
}
2003-11-27 11:10:17 +01:00
/* Creation of the index file */
2004-08-03 16:06:10 +02:00
if (info_IM.index_on)
{
2004-08-03 16:06:10 +02:00
double DistoTotal = 0;
2004-08-03 16:06:10 +02:00
info_IM.codestream_size = cio_tell () + pos_correction; /* Correction 14/4/03 suite rmq de Patrick */
2003-11-27 11:10:17 +01:00
2004-08-03 16:06:10 +02:00
INDEX = fopen (index, "w");
2004-08-03 16:06:10 +02:00
if (!INDEX)
{
2004-08-03 16:06:10 +02:00
fprintf (stderr, "failed to open %s for writing\n", index);
2004-08-03 16:06:10 +02:00
return 1;
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
fprintf (INDEX, "%d %d\n", info_IM.Im_w, info_IM.Im_h);
2004-08-03 16:06:10 +02:00
fprintf (INDEX, "%d\n", info_IM.Prog);
2004-08-03 16:06:10 +02:00
fprintf (INDEX, "%d %d\n", info_IM.Tile_x, info_IM.Tile_y);
2004-08-03 16:06:10 +02:00
fprintf (INDEX, "%d %d\n", info_IM.tw, info_IM.th);
2004-08-03 16:06:10 +02:00
fprintf (INDEX, "%d\n", info_IM.Comp);
2004-08-03 16:06:10 +02:00
fprintf (INDEX, "%d\n", info_IM.Layer);
2004-08-03 16:06:10 +02:00
fprintf (INDEX, "%d\n", info_IM.Decomposition);
2004-08-03 16:06:10 +02:00
for (resno = info_IM.Decomposition; resno >= 0; resno--)
{
2004-08-03 16:06:10 +02:00
fprintf (INDEX, "[%d,%d] ", (1 << info_IM.tile[0].pdx[resno]), (1 << info_IM.tile[0].pdx[resno])); //based on tile 0
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
fprintf (INDEX, "\n");
2004-08-03 16:06:10 +02:00
fprintf (INDEX, "%d\n", info_IM.Main_head_end);
2004-08-03 16:06:10 +02:00
fprintf (INDEX, "%d\n", info_IM.codestream_size);
2004-08-03 16:06:10 +02:00
for (tileno = 0; tileno < info_IM.tw * info_IM.th; tileno++)
{
2004-08-03 16:06:10 +02:00
fprintf (INDEX, "%4d %9d %9d %9d %9e %9d %9e\n",
info_IM.tile[tileno].num_tile,
info_IM.tile[tileno].start_pos,
info_IM.tile[tileno].end_header,
info_IM.tile[tileno].end_pos,
info_IM.tile[tileno].distotile, info_IM.tile[tileno].nbpix,
info_IM.tile[tileno].distotile /
info_IM.tile[tileno].nbpix);
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
for (tileno = 0; tileno < info_IM.tw * info_IM.th; tileno++)
{
2004-08-03 16:06:10 +02:00
int start_pos, end_pos;
2004-08-03 16:06:10 +02:00
double disto = 0;
2004-08-03 16:06:10 +02:00
pack_nb = 0;
2004-08-03 16:06:10 +02:00
/* fprintf(INDEX,
2004-08-03 16:06:10 +02:00
"pkno tileno layerno resno compno precno start_pos end_pos deltaSE \n"); */
2004-08-03 16:06:10 +02:00
if (info_IM.Prog == 0)
{ /* LRCP */
2004-08-03 16:06:10 +02:00
for (layno = 0; layno < info_IM.Layer; layno++)
{
2004-08-03 16:06:10 +02:00
for (resno = 0; resno < info_IM.Decomposition + 1; resno++)
{
2004-08-03 16:06:10 +02:00
for (compno = 0; compno < info_IM.Comp; compno++)
{
2004-08-03 16:06:10 +02:00
for (precno = 0;
precno <
info_IM.tile[tileno].pw[resno] *
info_IM.tile[tileno].ph[resno]; precno++)
{
2004-08-03 16:06:10 +02:00
start_pos =
info_IM.tile[tileno].packet[pack_nb].
start_pos;
2004-08-03 16:06:10 +02:00
end_pos =
info_IM.tile[tileno].packet[pack_nb].end_pos;
2004-08-03 16:06:10 +02:00
disto =
info_IM.tile[tileno].packet[pack_nb].disto;
2004-08-03 16:06:10 +02:00
fprintf (INDEX,
"%4d %6d %7d %5d %6d %6d %9d %9d %8e\n",
pack_nb, tileno, layno, resno, compno,
precno, start_pos, end_pos, disto);
2004-08-03 16:06:10 +02:00
DistoTotal += disto;
2004-08-03 16:06:10 +02:00
pack_nb++;
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
}
2004-08-03 16:06:10 +02:00
else if (info_IM.Prog == 1)
{ /* RLCP */
2004-08-03 16:06:10 +02:00
for (resno = 0; resno < info_IM.Decomposition + 1; resno++)
{
2004-08-03 16:06:10 +02:00
for (layno = 0; layno < info_IM.Layer; layno++)
{
2004-08-03 16:06:10 +02:00
for (compno = 0; compno < info_IM.Comp; compno++)
{
2004-08-03 16:06:10 +02:00
for (precno = 0;
precno <
info_IM.tile[tileno].pw[resno] *
info_IM.tile[tileno].ph[resno]; precno++)
{
2004-08-03 16:06:10 +02:00
start_pos =
info_IM.tile[tileno].packet[pack_nb].
start_pos;
2004-08-03 16:06:10 +02:00
end_pos =
info_IM.tile[tileno].packet[pack_nb].end_pos;
2004-08-03 16:06:10 +02:00
disto =
info_IM.tile[tileno].packet[pack_nb].disto;
2004-08-03 16:06:10 +02:00
fprintf (INDEX,
"%4d %6d %7d %5d %6d %6d %9d %9d %8e\n",
pack_nb, tileno, layno, resno, compno,
precno, start_pos, end_pos, disto);
2004-08-03 16:06:10 +02:00
DistoTotal += disto;
2004-08-03 16:06:10 +02:00
pack_nb++;
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
}
2004-08-03 16:06:10 +02:00
else if (info_IM.Prog == 2)
{ /* RPCL */
2004-08-03 16:06:10 +02:00
for (resno = 0; resno < info_IM.Decomposition + 1; resno++)
{
2004-08-03 16:06:10 +02:00
for (precno = 0;
precno <
info_IM.tile[tileno].pw[resno] *
info_IM.tile[tileno].ph[resno]; precno++)
{
2004-08-03 16:06:10 +02:00
for (compno = 0; compno < info_IM.Comp; compno++)
{
2004-08-03 16:06:10 +02:00
for (layno = 0; layno < info_IM.Layer; layno++)
{
2004-08-03 16:06:10 +02:00
start_pos =
info_IM.tile[tileno].packet[pack_nb].
start_pos;
2004-08-03 16:06:10 +02:00
end_pos =
info_IM.tile[tileno].packet[pack_nb].end_pos;
2004-08-03 16:06:10 +02:00
disto =
info_IM.tile[tileno].packet[pack_nb].disto;
2004-08-03 16:06:10 +02:00
fprintf (INDEX,
"%4d %6d %7d %5d %6d %6d %9d %9d %8e\n",
pack_nb, tileno, layno, resno, compno,
precno, start_pos, end_pos, disto);
2004-08-03 16:06:10 +02:00
DistoTotal += disto;
2004-08-03 16:06:10 +02:00
pack_nb++;
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
}
2004-08-03 16:06:10 +02:00
else if (info_IM.Prog == 3)
{ /* PCRL */
2004-08-03 16:06:10 +02:00
for (precno = 0;
precno <
info_IM.tile[tileno].pw[resno] *
info_IM.tile[tileno].ph[resno]; precno++)
{
2004-08-03 16:06:10 +02:00
for (compno = 0; compno < info_IM.Comp; compno++)
{
2004-08-03 16:06:10 +02:00
for (resno = 0; resno < info_IM.Decomposition + 1;
resno++)
{
2004-08-03 16:06:10 +02:00
for (layno = 0; layno < info_IM.Layer; layno++)
{
2004-08-03 16:06:10 +02:00
start_pos =
info_IM.tile[tileno].packet[pack_nb].
start_pos;
2004-08-03 16:06:10 +02:00
end_pos =
info_IM.tile[tileno].packet[pack_nb].end_pos;
2004-08-03 16:06:10 +02:00
disto =
info_IM.tile[tileno].packet[pack_nb].disto;
2004-08-03 16:06:10 +02:00
fprintf (INDEX,
"%4d %6d %7d %5d %6d %6d %9d %9d %8e\n",
pack_nb, tileno, layno, resno, compno,
precno, start_pos, end_pos, disto);
2004-08-03 16:06:10 +02:00
DistoTotal += disto;
2004-08-03 16:06:10 +02:00
pack_nb++;
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
}
2004-08-03 16:06:10 +02:00
else
{ /* CPRL */
2004-08-03 16:06:10 +02:00
for (compno = 0; compno < info_IM.Comp; compno++)
{
2004-08-03 16:06:10 +02:00
for (precno = 0;
precno <
info_IM.tile[tileno].pw[resno] *
info_IM.tile[tileno].ph[resno]; precno++)
{
2004-08-03 16:06:10 +02:00
for (resno = 0; resno < info_IM.Decomposition + 1;
resno++)
{
2004-08-03 16:06:10 +02:00
for (layno = 0; layno < info_IM.Layer; layno++)
{
2004-08-03 16:06:10 +02:00
start_pos =
info_IM.tile[tileno].packet[pack_nb].
start_pos;
2004-08-03 16:06:10 +02:00
end_pos =
info_IM.tile[tileno].packet[pack_nb].end_pos;
2004-08-03 16:06:10 +02:00
disto =
info_IM.tile[tileno].packet[pack_nb].disto;
2004-08-03 16:06:10 +02:00
fprintf (INDEX,
"%4d %6d %7d %5d %6d %6d %9d %9d %8e\n",
pack_nb, tileno, layno, resno, compno,
precno, start_pos, end_pos, disto);
2004-08-03 16:06:10 +02:00
DistoTotal += disto;
2004-08-03 16:06:10 +02:00
pack_nb++;
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
2004-08-03 16:06:10 +02:00
}
}
}
2004-08-03 16:06:10 +02:00
fprintf (INDEX, "SE max : %8e\n", info_IM.D_max);
2004-08-03 16:06:10 +02:00
fprintf (INDEX, "SE total : %.8e\n", DistoTotal);
2004-08-03 16:06:10 +02:00
fclose (INDEX);
2004-08-03 16:06:10 +02:00
}
2003-11-27 11:10:17 +01:00
2004-08-03 16:06:10 +02:00
j2k_clean ();
2003-11-27 11:10:17 +01:00
2004-08-03 16:06:10 +02:00
return cio_tell ();
2003-11-27 11:10:17 +01:00
}
2004-08-03 16:06:10 +02:00
typedef struct
{
int id;
int states;
void (*handler) ();
2003-11-27 11:10:17 +01:00
} j2k_dec_mstabent_t;
j2k_dec_mstabent_t j2k_dec_mstab[] = {
{J2K_MS_SOC, J2K_STATE_MHSOC, j2k_read_soc},
{J2K_MS_SOT, J2K_STATE_MH | J2K_STATE_TPHSOT, j2k_read_sot},
{J2K_MS_SOD, J2K_STATE_TPH, j2k_read_sod},
{J2K_MS_EOC, J2K_STATE_TPHSOT, j2k_read_eoc},
{J2K_MS_SIZ, J2K_STATE_MHSIZ, j2k_read_siz},
{J2K_MS_COD, J2K_STATE_MH | J2K_STATE_TPH, j2k_read_cod},
{J2K_MS_COC, J2K_STATE_MH | J2K_STATE_TPH, j2k_read_coc},
{J2K_MS_RGN, J2K_STATE_MH | J2K_STATE_TPH, j2k_read_rgn},
{J2K_MS_QCD, J2K_STATE_MH | J2K_STATE_TPH, j2k_read_qcd},
{J2K_MS_QCC, J2K_STATE_MH | J2K_STATE_TPH, j2k_read_qcc},
{J2K_MS_POC, J2K_STATE_MH | J2K_STATE_TPH, j2k_read_poc},
{J2K_MS_TLM, J2K_STATE_MH, j2k_read_tlm},
{J2K_MS_PLM, J2K_STATE_MH, j2k_read_plm},
{J2K_MS_PLT, J2K_STATE_TPH, j2k_read_plt},
{J2K_MS_PPM, J2K_STATE_MH, j2k_read_ppm},
{J2K_MS_PPT, J2K_STATE_TPH, j2k_read_ppt},
{J2K_MS_SOP, 0, 0},
{J2K_MS_CRG, J2K_STATE_MH, j2k_read_crg},
{J2K_MS_COM, J2K_STATE_MH | J2K_STATE_TPH, j2k_read_com},
{0, J2K_STATE_MH | J2K_STATE_TPH, j2k_read_unk}
2003-11-27 11:10:17 +01:00
};
2004-08-03 16:06:10 +02:00
j2k_dec_mstabent_t *
j2k_dec_mstab_lookup (int id)
2003-11-27 11:10:17 +01:00
{
j2k_dec_mstabent_t *e;
2004-08-03 16:06:10 +02:00
for (e = j2k_dec_mstab; e->id != 0; e++)
{
if (e->id == id)
{
break;
}
}
return e;
2003-11-27 11:10:17 +01:00
}
2004-07-16 12:22:59 +02:00
2004-08-03 16:06:10 +02:00
LIBJ2K_API int
j2k_decode (unsigned char *src, int len, j2k_image_t * img, j2k_cp_t * cp)
2003-11-27 11:10:17 +01:00
{
2004-08-03 16:06:10 +02:00
if (setjmp (j2k_error))
{
if (j2k_state != J2K_STATE_MT)
{
fprintf (stderr, "WARNING: incomplete bitstream\n");
return 0;
}
j2k_clean ();
return cio_numbytes (); /* Correct way of ending j2k_decode */
}
2003-11-27 11:10:17 +01:00
j2k_img = img;
2004-07-16 12:22:59 +02:00
j2k_cp = cp;
j2k_state = J2K_STATE_MHSOC;
2004-08-03 16:06:10 +02:00
cio_init (src, len);
for (;;)
{
j2k_dec_mstabent_t *e;
int id = cio_read (2);
if (id >> 8 != 0xff)
{
fprintf (stderr, "%.8x: expected a marker instead of %x\n",
cio_tell () - 2, id);
return 0;
}
e = j2k_dec_mstab_lookup (id);
if (!(j2k_state & e->states))
{
fprintf (stderr, "%.8x: unexpected marker %x\n", cio_tell () - 2,
id);
return 0;
}
if (e->handler)
{
(*e->handler) ();
}
if (j2k_state == J2K_STATE_NEOC)
break; /* RAJOUTE */
}
if (j2k_state == J2K_STATE_NEOC)
2004-08-03 16:06:10 +02:00
j2k_read_eoc (); /* RAJOUTE */
return 0;
2004-02-13 10:38:52 +01:00
}
2003-11-27 11:10:17 +01:00
2004-02-13 10:38:52 +01:00
/*
* Read a JPT-stream and decode file
*
*/
2004-08-03 16:06:10 +02:00
int
j2k_decode_jpt_stream (unsigned char *src, int len, j2k_image_t * img,
j2k_cp_t * cp)
{
jpt_msg_header_struct_t header;
int position;
2004-08-03 16:06:10 +02:00
if (setjmp (j2k_error))
{
if (j2k_state != J2K_STATE_MT)
{
fprintf (stderr, "WARNING: incomplete bitstream\n");
return 0;
}
return cio_numbytes ();
2004-02-13 10:38:52 +01:00
}
j2k_img = img;
2004-07-16 12:22:59 +02:00
j2k_cp = cp;
j2k_state = J2K_STATE_MHSOC;
2004-08-03 16:06:10 +02:00
cio_init (src, len);
/* Initialize the header */
2004-08-03 16:06:10 +02:00
jpt_init_Msg_Header (&header);
/* Read the first header of the message */
2004-08-03 16:06:10 +02:00
jpt_read_Msg_Header (&header);
position = cio_tell ();
if (header.Class_Id != 6)
{ /* 6 : Main header data-bin message */
fprintf (stderr,
"[JPT-stream] : Expecting Main header first [class_Id %d] !\n",
header.Class_Id);
return 0;
}
2004-08-03 16:06:10 +02:00
for (;;)
{
j2k_dec_mstabent_t *e;
int id;
if (!cio_numbytesleft ())
{
j2k_read_eoc ();
return 0;
}
/* data-bin read -> need to read a new header */
if ((unsigned int) (cio_tell () - position) == header.Msg_length)
{
jpt_read_Msg_Header (&header);
position = cio_tell ();
if (header.Class_Id != 4)
{ /* 4 : Tile data-bin message */
fprintf (stderr, "[JPT-stream] : Expecting Tile info !\n");
return 0;
}
}
id = cio_read (2);
if (id >> 8 != 0xff)
{
fprintf (stderr, "%.8x: expected a marker instead of %x\n",
cio_tell () - 2, id);
return 0;
}
e = j2k_dec_mstab_lookup (id);
if (!(j2k_state & e->states))
{
fprintf (stderr, "%.8x: unexpected marker %x\n", cio_tell () - 2,
id);
return 0;
}
if (e->handler)
{
(*e->handler) ();
}
if (j2k_state == J2K_STATE_NEOC)
break; /* RAJOUTE */
2004-02-13 10:38:52 +01:00
}
if (j2k_state == J2K_STATE_NEOC)
2004-08-03 16:06:10 +02:00
j2k_read_eoc (); /* RAJOUTE */
return 0;
2003-11-27 11:10:17 +01:00
}
#ifdef WIN32
#include <windows.h>
2004-08-03 16:06:10 +02:00
BOOL APIENTRY
DllMain (HANDLE hModule, DWORD ul_reason_for_call, LPVOID lpReserved)
2003-11-27 11:10:17 +01:00
{
2004-08-03 16:06:10 +02:00
switch (ul_reason_for_call)
{
case DLL_PROCESS_ATTACH:
case DLL_THREAD_ATTACH:
case DLL_THREAD_DETACH:
case DLL_PROCESS_DETACH:
break;
}
return TRUE;
2003-11-27 11:10:17 +01:00
}
#endif