static void
convertToPamPnm(struct pam * const outpamP,
jas_image_t * const jasperP,
int const jasperCmptNo[]) {
jas_matrix_t ** matrix; /* malloc'ed */
/* matrix[X] is the data for Plane X of the current row */
sample * jasperMaxval;
unsigned int row;
tuple * tuplerow;
jas_seqent_t ** jasperRow; /* malloc'ed */
/* A row of a plane of the raster from the Jasper library
This is an array of pointers into the 'matrix' data structures.
*/
bool singleMaxval;
createMatrices(outpamP, &matrix);
computeComponentMaxval(outpamP, jasperP, jasperCmptNo,
&jasperMaxval, &singleMaxval);
MALLOCARRAY(jasperRow, outpamP->depth);
if (jasperRow == NULL)
pm_error("Out of memory");
tuplerow = pnm_allocpamrow(outpamP);
for (row = 0; row < outpamP->height; ++row) {
unsigned int plane;
for (plane = 0; plane < outpamP->depth; ++plane) {
int rc;
rc = jas_image_readcmpt(jasperP, jasperCmptNo[plane], 0, row,
outpamP->width, 1,
matrix[plane]);
if (rc != 0)
pm_error("jas_image_readcmpt() of row %u plane %u "
"failed.",
row, plane);
jasperRow[plane] = jas_matrix_getref(matrix[plane], 0, 0);
}
if (singleMaxval)
copyRowSingleMaxval(jasperRow, tuplerow, outpamP);
else
copyRowAnyMaxval(jasperRow, tuplerow, outpamP, jasperMaxval);
pnm_writepamrow(outpamP, tuplerow);
}
pnm_freepamrow(tuplerow);
destroyMatrices(outpamP, matrix);
free(jasperRow);
free(jasperMaxval);
}
Party::~Party()
{
destroyMatrices();
fclose(outFile);
}