utilities/CxImage/ximajas.cpp

   1 /*
   2  * File:        ximajas.cpp
   3  * Purpose:     Platform Independent JasPer Image Class Loader and Writer
   4  * 12/Apr/2003 Davide Pizzolato - www.xdp.it
   5  * CxImage version 6.0.0 02/Feb/2008
   6  */
   7
   8 #include "ximajas.h"
   9
  10 #if CXIMAGE_SUPPORT_JASPER
  11
  12 ////////////////////////////////////////////////////////////////////////////////
  13 #if CXIMAGE_SUPPORT_DECODE
  14 ////////////////////////////////////////////////////////////////////////////////
  15 bool CxImageJAS::Decode(CxFile *hFile, DWORD imagetype)
  16 {
  17         if (hFile == NULL) return false;
  18
  19         jas_image_t *image=0;
  20         jas_stream_t *in=0;
  21         jas_matrix_t **bufs=0;
  22         long i,error=0;
  23         int fmt;
  24         //jas_setdbglevel(0);
  25
  26   cx_try
  27   {
  28         if (jas_init())
  29                 cx_throw("cannot initialize jasper");
  30
  31         in = jas_stream_fdopen(0, "rb");
  32         if (!in)
  33                 cx_throw("error: cannot open standard input");
  34
  35         CxFileJas src(hFile,in);
  36
  37         fmt = jas_image_getfmt(in);
  38         if (fmt<0)
  39                 cx_throw("error: unknowm format");
  40
  41         image = jas_image_decode(in, fmt, 0);
  42         if (!image){
  43                 fmt = -1;
  44                 cx_throw("error: cannot load image data");
  45         }
  46
  47         char szfmt[4];
  48         *szfmt = '\0';
  49         strncpy(szfmt,jas_image_fmttostr(fmt),3);
  50         szfmt[3] = '\0';
  51
  52         fmt = -1;
  53 #if CXIMAGE_SUPPORT_JP2
  54         if (strcmp(szfmt,"jp2")==0) fmt = CXIMAGE_FORMAT_JP2;
  55 #endif
  56 #if CXIMAGE_SUPPORT_JPC
  57         if (strcmp(szfmt,"jpc")==0) fmt = CXIMAGE_FORMAT_JPC;
  58 #endif
  59 #if CXIMAGE_SUPPORT_RAS
  60         if (strcmp(szfmt,"ras")==0) fmt = CXIMAGE_FORMAT_RAS;
  61 #endif
  62 #if CXIMAGE_SUPPORT_PNM
  63         if (strcmp(szfmt,"pnm")==0) fmt = CXIMAGE_FORMAT_PNM;
  64 #endif
  65 #if CXIMAGE_SUPPORT_PGX
  66         if (strcmp(szfmt,"pgx")==0) fmt = CXIMAGE_FORMAT_PGX;
  67 #endif
  68
  69         //if (fmt<0)
  70         //      cx_throw("error: unknowm format");
  71
  72         long x,y,w,h,depth,cmptno;
  73
  74         w = jas_image_cmptwidth(image,0);
  75         h = jas_image_cmptheight(image,0);
  76         depth = jas_image_cmptprec(image,0);
  77
  78         if (info.nEscape == -1){
  79                 head.biWidth = w;
  80                 head.biHeight= h;
  81                 info.dwType = fmt<0 ? 0 : fmt;
  82                 cx_throw("output dimensions returned");
  83         }
  84
  85         if (image->numcmpts_ > 64 || image->numcmpts_ < 0)
  86                 cx_throw("error: too many components");
  87
  88         // <LD> 01/Jan/2005: Always force conversion to sRGB. Seems to be required for many types of JPEG2000 file.
  89         // if (depth!=1 && depth!=4 && depth!=8)
  90         if (image->numcmpts_>=3 && depth <=8)
  91         {
  92                 jas_image_t *newimage;
  93                 jas_cmprof_t *outprof;
  94                 //jas_eprintf("forcing conversion to sRGB\n");
  95                 outprof = jas_cmprof_createfromclrspc(JAS_CLRSPC_SRGB);
  96                 if (!outprof) {
  97                         cx_throw("cannot create sRGB profile");
  98                 }
  99                 newimage = jas_image_chclrspc(image, outprof, JAS_CMXFORM_INTENT_PER);
 100                 if (!newimage) {
 101                         jas_cmprof_destroy(outprof); // <LD> 01/Jan/2005: Destroy color profile on error.
 102                         cx_throw("cannot convert to sRGB");
 103                 }
 104                 jas_image_destroy(image);
 105                 jas_cmprof_destroy(outprof);
 106                 image = newimage;
 107         }
 108
 109         bufs = (jas_matrix_t **)calloc(image->numcmpts_, sizeof(jas_matrix_t**));
 110         for (i = 0; i < image->numcmpts_; ++i) {
 111                 bufs[i] = jas_matrix_create(1, w);
 112                 if (!bufs[i]) {
 113                         cx_throw("error: cannot allocate memory");
 114                 }
 115         }
 116
 117         int nshift = (depth>8) ? (depth-8) : 0;
 118
 119         if (image->numcmpts_==3 &&
 120                 image->cmpts_[0]->width_ == image->cmpts_[1]->width_ &&
 121                 image->cmpts_[1]->width_ == image->cmpts_[2]->width_ &&
 122                 image->cmpts_[0]->height_ == image->cmpts_[1]->height_ &&
 123                 image->cmpts_[1]->height_ == image->cmpts_[2]->height_ &&
 124                 image->cmpts_[0]->prec_  == image->cmpts_[1]->prec_ &&
 125                 image->cmpts_[1]->prec_ == image->cmpts_[2]->prec_ )
 126         {
 127
 128                 if(!Create(w,h,24,fmt))
 129                         cx_throw("");
 130
 131                 RGBQUAD c;
 132         for (y=0; y<h; y++) {
 133                         for (cmptno = 0; cmptno < image->numcmpts_; ++cmptno) {
 134                                 jas_image_readcmpt(image, cmptno, 0, y, w, 1, bufs[cmptno]);
 135                         }
 136
 137                         for (x=0; x<w; x++){
 138                                 c.rgbRed   = (BYTE)((jas_matrix_getv(bufs[0], x)>>nshift));
 139                                 c.rgbGreen = (BYTE)((jas_matrix_getv(bufs[1], x)>>nshift));
 140                                 c.rgbBlue  = (BYTE)((jas_matrix_getv(bufs[2], x)>>nshift));
 141                                 SetPixelColor(x,h-1-y,c);
 142                         }
 143                 }
 144         } else {
 145                 info.nNumFrames = image->numcmpts_;
 146                 if ((info.nFrame<0)||(info.nFrame>=info.nNumFrames)){
 147                         cx_throw("wrong frame!");
 148                 }
 149                 for (cmptno=0; cmptno<=info.nFrame; cmptno++) {
 150                         w = jas_image_cmptwidth(image,cmptno);
 151                         h = jas_image_cmptheight(image,cmptno);
 152                         depth = jas_image_cmptprec(image,cmptno);
 153                         if (depth>8) depth=8;
 154                         if(!Create(w,h,depth,imagetype))
 155                                 cx_throw("");
 156                         SetGrayPalette();
 157                         for (y=0; y<h; y++) {
 158                                 jas_image_readcmpt(image, cmptno, 0, y, w, 1, bufs[0]);
 159                                 for (x=0; x<w; x++){
 160                                         SetPixelIndex(x,h-1-y,(BYTE)((jas_matrix_getv(bufs[0], x)>>nshift)));
 161                                 }
 162                         }
 163                 }
 164         }
 165
 166
 167   } cx_catch {
 168         if (strcmp(message,"")) strncpy(info.szLastError,message,255);
 169         if (info.nEscape == -1 && fmt>0){
 170                 error = 0;
 171         } else {
 172                 error = 1;
 173         }
 174   }
 175
 176         if (bufs) {
 177                 for (i = 0; i < image->numcmpts_; ++i){ if (bufs[i]) jas_matrix_destroy(bufs[i]);}
 178                 free(bufs);
 179         }
 180         jas_cleanup();
 181         if (image) jas_image_destroy(image);
 182         if (in) jas_stream_close(in);
 183         return (error==0);
 184 }
 185 ////////////////////////////////////////////////////////////////////////////////
 186 #endif //CXIMAGE_SUPPORT_DECODE
 187 ////////////////////////////////////////////////////////////////////////////////
 188 #if CXIMAGE_SUPPORT_ENCODE
 189 ////////////////////////////////////////////////////////////////////////////////
 190 bool CxImageJAS::Encode(CxFile * hFile, DWORD imagetype)
 191 {
 192         if (EncodeSafeCheck(hFile)) return false;
 193
 194         if (head.biClrUsed!=0 && !IsGrayScale()){
 195                 strcpy(info.szLastError,"JasPer can save only RGB or GrayScale images");
 196                 return false;
 197         }
 198
 199         jas_image_t *image=0;
 200         jas_stream_t *out=0;
 201         jas_matrix_t *cmpts[3];
 202         long x,y,yflip,error=0;
 203         uint_fast16_t cmptno, numcmpts=0;
 204         jas_image_cmptparm_t cmptparms[3], *cmptparm;
 205
 206   cx_try {
 207
 208         if (jas_init())
 209                 cx_throw("cannot initialize jasper");
 210
 211         out = jas_stream_fdopen(0, "wb");
 212         if (!out)
 213                 cx_throw("error: cannot open standard output");
 214
 215         CxFileJas src(hFile,out);
 216
 217         numcmpts = head.biClrUsed==0 ? 3 : 1;
 218
 219         for (cmptno = 0, cmptparm = cmptparms; cmptno < numcmpts; ++cmptno, ++cmptparm) {
 220                 cmptparm->tlx = 0;
 221                 cmptparm->tly = 0;
 222                 cmptparm->hstep = 1;
 223                 cmptparm->vstep = 1;
 224                 cmptparm->width = head.biWidth;
 225                 cmptparm->height = head.biHeight;
 226                 cmptparm->prec = 8;
 227                 cmptparm->sgnd = false;
 228         }
 229
 230         /* Create image object. */
 231         image = jas_image_create(numcmpts, cmptparms, JAS_CLRSPC_UNKNOWN);
 232         if (!image)
 233                 cx_throw("error : jas_image_create");
 234
 235         if (numcmpts == 3) {
 236                 jas_image_setclrspc(image, JAS_CLRSPC_SRGB);
 237                 jas_image_setcmpttype(image, 0,
 238                   JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_RGB_R));
 239                 jas_image_setcmpttype(image, 1,
 240                   JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_RGB_G));
 241                 jas_image_setcmpttype(image, 2,
 242                   JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_RGB_B));
 243         } else {
 244                 jas_image_setclrspc(image, JAS_CLRSPC_SGRAY);
 245                 jas_image_setcmpttype(image, 0,
 246                   JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_GRAY_Y));
 247         }
 248
 249
 250         for (x = 0; x < numcmpts; ++x) { cmpts[x] = 0; }
 251         /* Create temporary matrices to hold component data. */
 252         for (x = 0; x < numcmpts; ++x) {
 253                 cmpts[x] = jas_matrix_create(1, head.biWidth);
 254                 if (!cmpts[x]) {
 255                         cx_throw("error : can't allocate memory");
 256                 }
 257         }
 258
 259         RGBQUAD c;
 260         for (y = 0; y < head.biHeight; ++y) {
 261                 for (x = 0; x < head.biWidth; ++x) {
 262                         if (head.biClrUsed==0){
 263                                 c = GetPixelColor(x,y);
 264                                 jas_matrix_setv(cmpts[0], x, c.rgbRed);
 265                                 jas_matrix_setv(cmpts[1], x, c.rgbGreen);
 266                                 jas_matrix_setv(cmpts[2], x, c.rgbBlue);
 267                         } else {
 268                                 jas_matrix_setv(cmpts[0], x, GetPixelIndex(x,y));
 269                         }
 270                 }
 271                 yflip = head.biHeight - 1 - y;
 272                 for (cmptno = 0; cmptno < numcmpts; ++cmptno) {
 273                         if (jas_image_writecmpt(image, cmptno, 0, yflip, head.biWidth, 1, cmpts[cmptno])) {
 274                                 cx_throw("error : jas_image_writecmpt");
 275                         }
 276                 }
 277         }
 278
 279          char szfmt[4];
 280         *szfmt = '\0';
 281 #if CXIMAGE_SUPPORT_JP2
 282         if (imagetype == CXIMAGE_FORMAT_JP2) strcpy(szfmt,"jp2");
 283 #endif
 284 #if CXIMAGE_SUPPORT_JPC
 285         if (imagetype == CXIMAGE_FORMAT_JPC) strcpy(szfmt,"jpc");
 286 #endif
 287 #if CXIMAGE_SUPPORT_RAS
 288         if (imagetype == CXIMAGE_FORMAT_RAS) strcpy(szfmt,"ras");
 289 #endif
 290 #if CXIMAGE_SUPPORT_PNM
 291         if (imagetype == CXIMAGE_FORMAT_PNM) strcpy(szfmt,"pnm");
 292 #endif
 293 #if CXIMAGE_SUPPORT_PGX
 294         if (imagetype == CXIMAGE_FORMAT_PGX){
 295                 strcpy(szfmt,"pgx");
 296                 if (head.biClrUsed==0) cx_throw("PGX can save only GrayScale images");
 297         }
 298 #endif
 299         int outfmt = jas_image_strtofmt(szfmt);
 300
 301         char szoutopts[32];
 302         sprintf(szoutopts,"rate=%.3f", info.fQuality/100.0f);
 303
 304         if (jas_image_encode(image, out, outfmt, szoutopts)) {
 305                 cx_throw("error: cannot encode image");
 306         }
 307         jas_stream_flush(out);
 308
 309   } cx_catch {
 310         if (strcmp(message,"")) strncpy(info.szLastError,message,255);
 311         error = 1;
 312   }
 313
 314         for (x = 0; x < numcmpts; ++x) { if (cmpts[x]) { jas_matrix_destroy(cmpts[x]); } }
 315         jas_cleanup();
 316         if (image) jas_image_destroy(image);
 317         if (out) jas_stream_close(out);
 318
 319         return (error==0);
 320 }
 321 ////////////////////////////////////////////////////////////////////////////////
 322 #endif // CXIMAGE_SUPPORT_ENCODE
 323 ////////////////////////////////////////////////////////////////////////////////
 324 #endif // CXIMAGE_SUPPORT_JASPER
 325