-/*\r
- * File: ximajas.cpp\r
- * Purpose: Platform Independent JasPer Image Class Loader and Writer\r
- * 12/Apr/2003 Davide Pizzolato - www.xdp.it\r
- * CxImage version 6.0.0 02/Feb/2008\r
- */\r
-\r
-#include "ximajas.h"\r
-\r
-#if CXIMAGE_SUPPORT_JASPER\r
-\r
-////////////////////////////////////////////////////////////////////////////////\r
-#if CXIMAGE_SUPPORT_DECODE\r
-////////////////////////////////////////////////////////////////////////////////\r
-bool CxImageJAS::Decode(CxFile *hFile, DWORD imagetype)\r
-{\r
- if (hFile == NULL) return false;\r
-\r
- jas_image_t *image=0;\r
- jas_stream_t *in=0;\r
- jas_matrix_t **bufs=0;\r
- long i,error=0;\r
- int fmt;\r
- //jas_setdbglevel(0);\r
-\r
- cx_try\r
- {\r
- if (jas_init())\r
- cx_throw("cannot initialize jasper");\r
-\r
- in = jas_stream_fdopen(0, "rb");\r
- if (!in)\r
- cx_throw("error: cannot open standard input");\r
-\r
- CxFileJas src(hFile,in);\r
-\r
- fmt = jas_image_getfmt(in);\r
- if (fmt<0)\r
- cx_throw("error: unknowm format");\r
-\r
- image = jas_image_decode(in, fmt, 0);\r
- if (!image){\r
- fmt = -1;\r
- cx_throw("error: cannot load image data");\r
- }\r
-\r
- char szfmt[4];\r
- *szfmt = '\0';\r
- strncpy(szfmt,jas_image_fmttostr(fmt),3);\r
- szfmt[3] = '\0';\r
-\r
- fmt = -1;\r
-#if CXIMAGE_SUPPORT_JP2\r
- if (strcmp(szfmt,"jp2")==0) fmt = CXIMAGE_FORMAT_JP2;\r
-#endif\r
-#if CXIMAGE_SUPPORT_JPC\r
- if (strcmp(szfmt,"jpc")==0) fmt = CXIMAGE_FORMAT_JPC;\r
-#endif\r
-#if CXIMAGE_SUPPORT_RAS\r
- if (strcmp(szfmt,"ras")==0) fmt = CXIMAGE_FORMAT_RAS;\r
-#endif\r
-#if CXIMAGE_SUPPORT_PNM\r
- if (strcmp(szfmt,"pnm")==0) fmt = CXIMAGE_FORMAT_PNM;\r
-#endif\r
-#if CXIMAGE_SUPPORT_PGX\r
- if (strcmp(szfmt,"pgx")==0) fmt = CXIMAGE_FORMAT_PGX;\r
-#endif\r
-\r
- //if (fmt<0)\r
- // cx_throw("error: unknowm format");\r
-\r
- long x,y,w,h,depth,cmptno;\r
-\r
- w = jas_image_cmptwidth(image,0);\r
- h = jas_image_cmptheight(image,0);\r
- depth = jas_image_cmptprec(image,0);\r
-\r
- if (info.nEscape == -1){\r
- head.biWidth = w;\r
- head.biHeight= h;\r
- info.dwType = fmt<0 ? 0 : fmt;\r
- cx_throw("output dimensions returned");\r
- }\r
-\r
- if (image->numcmpts_ > 64 || image->numcmpts_ < 0)\r
- cx_throw("error: too many components");\r
-\r
- // <LD> 01/Jan/2005: Always force conversion to sRGB. Seems to be required for many types of JPEG2000 file.\r
- // if (depth!=1 && depth!=4 && depth!=8)\r
- if (image->numcmpts_>=3 && depth <=8)\r
- {\r
- jas_image_t *newimage;\r
- jas_cmprof_t *outprof;\r
- //jas_eprintf("forcing conversion to sRGB\n");\r
- outprof = jas_cmprof_createfromclrspc(JAS_CLRSPC_SRGB);\r
- if (!outprof) {\r
- cx_throw("cannot create sRGB profile");\r
- }\r
- newimage = jas_image_chclrspc(image, outprof, JAS_CMXFORM_INTENT_PER);\r
- if (!newimage) {\r
- jas_cmprof_destroy(outprof); // <LD> 01/Jan/2005: Destroy color profile on error.\r
- cx_throw("cannot convert to sRGB");\r
- }\r
- jas_image_destroy(image);\r
- jas_cmprof_destroy(outprof);\r
- image = newimage;\r
- }\r
-\r
- bufs = (jas_matrix_t **)calloc(image->numcmpts_, sizeof(jas_matrix_t**));\r
- for (i = 0; i < image->numcmpts_; ++i) {\r
- bufs[i] = jas_matrix_create(1, w);\r
- if (!bufs[i]) {\r
- cx_throw("error: cannot allocate memory");\r
- }\r
- }\r
-\r
- int nshift = (depth>8) ? (depth-8) : 0;\r
-\r
- if (image->numcmpts_==3 &&\r
- image->cmpts_[0]->width_ == image->cmpts_[1]->width_ &&\r
- image->cmpts_[1]->width_ == image->cmpts_[2]->width_ &&\r
- image->cmpts_[0]->height_ == image->cmpts_[1]->height_ &&\r
- image->cmpts_[1]->height_ == image->cmpts_[2]->height_ &&\r
- image->cmpts_[0]->prec_ == image->cmpts_[1]->prec_ &&\r
- image->cmpts_[1]->prec_ == image->cmpts_[2]->prec_ )\r
- {\r
-\r
- if(!Create(w,h,24,fmt))\r
- cx_throw("");\r
-\r
- RGBQUAD c;\r
- for (y=0; y<h; y++) {\r
- for (cmptno = 0; cmptno < image->numcmpts_; ++cmptno) {\r
- jas_image_readcmpt(image, cmptno, 0, y, w, 1, bufs[cmptno]);\r
- }\r
-\r
- for (x=0; x<w; x++){\r
- c.rgbRed = (BYTE)((jas_matrix_getv(bufs[0], x)>>nshift));\r
- c.rgbGreen = (BYTE)((jas_matrix_getv(bufs[1], x)>>nshift));\r
- c.rgbBlue = (BYTE)((jas_matrix_getv(bufs[2], x)>>nshift));\r
- SetPixelColor(x,h-1-y,c);\r
- }\r
- }\r
- } else {\r
- info.nNumFrames = image->numcmpts_;\r
- if ((info.nFrame<0)||(info.nFrame>=info.nNumFrames)){\r
- cx_throw("wrong frame!");\r
- }\r
- for (cmptno=0; cmptno<=info.nFrame; cmptno++) {\r
- w = jas_image_cmptwidth(image,cmptno);\r
- h = jas_image_cmptheight(image,cmptno);\r
- depth = jas_image_cmptprec(image,cmptno);\r
- if (depth>8) depth=8;\r
- if(!Create(w,h,depth,imagetype))\r
- cx_throw("");\r
- SetGrayPalette();\r
- for (y=0; y<h; y++) {\r
- jas_image_readcmpt(image, cmptno, 0, y, w, 1, bufs[0]);\r
- for (x=0; x<w; x++){\r
- SetPixelIndex(x,h-1-y,(BYTE)((jas_matrix_getv(bufs[0], x)>>nshift)));\r
- }\r
- }\r
- }\r
- }\r
-\r
-\r
- } cx_catch {\r
- if (strcmp(message,"")) strncpy(info.szLastError,message,255);\r
- if (info.nEscape == -1 && fmt>0){\r
- error = 0;\r
- } else {\r
- error = 1;\r
- }\r
- }\r
-\r
- if (bufs) {\r
- for (i = 0; i < image->numcmpts_; ++i){ if (bufs[i]) jas_matrix_destroy(bufs[i]);}\r
- free(bufs);\r
- }\r
- jas_cleanup();\r
- if (image) jas_image_destroy(image);\r
- if (in) jas_stream_close(in);\r
- return (error==0);\r
-}\r
-////////////////////////////////////////////////////////////////////////////////\r
-#endif //CXIMAGE_SUPPORT_DECODE\r
-////////////////////////////////////////////////////////////////////////////////\r
-#if CXIMAGE_SUPPORT_ENCODE\r
-////////////////////////////////////////////////////////////////////////////////\r
-bool CxImageJAS::Encode(CxFile * hFile, DWORD imagetype)\r
-{\r
- if (EncodeSafeCheck(hFile)) return false;\r
-\r
- if (head.biClrUsed!=0 && !IsGrayScale()){\r
- strcpy(info.szLastError,"JasPer can save only RGB or GrayScale images");\r
- return false;\r
- }\r
-\r
- jas_image_t *image=0;\r
- jas_stream_t *out=0;\r
- jas_matrix_t *cmpts[3];\r
- long x,y,yflip,error=0;\r
- uint_fast16_t cmptno, numcmpts=0;\r
- jas_image_cmptparm_t cmptparms[3], *cmptparm;\r
-\r
- cx_try {\r
-\r
- if (jas_init())\r
- cx_throw("cannot initialize jasper");\r
-\r
- out = jas_stream_fdopen(0, "wb");\r
- if (!out)\r
- cx_throw("error: cannot open standard output");\r
-\r
- CxFileJas src(hFile,out);\r
-\r
- numcmpts = head.biClrUsed==0 ? 3 : 1;\r
-\r
- for (cmptno = 0, cmptparm = cmptparms; cmptno < numcmpts; ++cmptno, ++cmptparm) {\r
- cmptparm->tlx = 0;\r
- cmptparm->tly = 0;\r
- cmptparm->hstep = 1;\r
- cmptparm->vstep = 1;\r
- cmptparm->width = head.biWidth;\r
- cmptparm->height = head.biHeight;\r
- cmptparm->prec = 8;\r
- cmptparm->sgnd = false;\r
- }\r
-\r
- /* Create image object. */\r
- image = jas_image_create(numcmpts, cmptparms, JAS_CLRSPC_UNKNOWN);\r
- if (!image)\r
- cx_throw("error : jas_image_create");\r
-\r
- if (numcmpts == 3) {\r
- jas_image_setclrspc(image, JAS_CLRSPC_SRGB);\r
- jas_image_setcmpttype(image, 0,\r
- JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_RGB_R));\r
- jas_image_setcmpttype(image, 1,\r
- JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_RGB_G));\r
- jas_image_setcmpttype(image, 2,\r
- JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_RGB_B));\r
- } else {\r
- jas_image_setclrspc(image, JAS_CLRSPC_SGRAY);\r
- jas_image_setcmpttype(image, 0,\r
- JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_GRAY_Y));\r
- }\r
-\r
-\r
- for (x = 0; x < numcmpts; ++x) { cmpts[x] = 0; }\r
- /* Create temporary matrices to hold component data. */\r
- for (x = 0; x < numcmpts; ++x) {\r
- cmpts[x] = jas_matrix_create(1, head.biWidth);\r
- if (!cmpts[x]) {\r
- cx_throw("error : can't allocate memory");\r
- }\r
- }\r
-\r
- RGBQUAD c;\r
- for (y = 0; y < head.biHeight; ++y) {\r
- for (x = 0; x < head.biWidth; ++x) {\r
- if (head.biClrUsed==0){\r
- c = GetPixelColor(x,y);\r
- jas_matrix_setv(cmpts[0], x, c.rgbRed);\r
- jas_matrix_setv(cmpts[1], x, c.rgbGreen);\r
- jas_matrix_setv(cmpts[2], x, c.rgbBlue);\r
- } else {\r
- jas_matrix_setv(cmpts[0], x, GetPixelIndex(x,y));\r
- }\r
- }\r
- yflip = head.biHeight - 1 - y;\r
- for (cmptno = 0; cmptno < numcmpts; ++cmptno) {\r
- if (jas_image_writecmpt(image, cmptno, 0, yflip, head.biWidth, 1, cmpts[cmptno])) {\r
- cx_throw("error : jas_image_writecmpt");\r
- }\r
- }\r
- }\r
-\r
- char szfmt[4];\r
- *szfmt = '\0';\r
-#if CXIMAGE_SUPPORT_JP2\r
- if (imagetype == CXIMAGE_FORMAT_JP2) strcpy(szfmt,"jp2");\r
-#endif\r
-#if CXIMAGE_SUPPORT_JPC\r
- if (imagetype == CXIMAGE_FORMAT_JPC) strcpy(szfmt,"jpc");\r
-#endif\r
-#if CXIMAGE_SUPPORT_RAS\r
- if (imagetype == CXIMAGE_FORMAT_RAS) strcpy(szfmt,"ras");\r
-#endif\r
-#if CXIMAGE_SUPPORT_PNM\r
- if (imagetype == CXIMAGE_FORMAT_PNM) strcpy(szfmt,"pnm");\r
-#endif\r
-#if CXIMAGE_SUPPORT_PGX\r
- if (imagetype == CXIMAGE_FORMAT_PGX){\r
- strcpy(szfmt,"pgx");\r
- if (head.biClrUsed==0) cx_throw("PGX can save only GrayScale images");\r
- }\r
-#endif\r
- int outfmt = jas_image_strtofmt(szfmt);\r
-\r
- char szoutopts[32];\r
- sprintf(szoutopts,"rate=%.3f", info.fQuality/100.0f);\r
-\r
- if (jas_image_encode(image, out, outfmt, szoutopts)) {\r
- cx_throw("error: cannot encode image");\r
- }\r
- jas_stream_flush(out);\r
-\r
- } cx_catch {\r
- if (strcmp(message,"")) strncpy(info.szLastError,message,255);\r
- error = 1;\r
- }\r
-\r
- for (x = 0; x < numcmpts; ++x) { if (cmpts[x]) { jas_matrix_destroy(cmpts[x]); } }\r
- jas_cleanup();\r
- if (image) jas_image_destroy(image);\r
- if (out) jas_stream_close(out);\r
-\r
- return (error==0);\r
-}\r
-////////////////////////////////////////////////////////////////////////////////\r
-#endif // CXIMAGE_SUPPORT_ENCODE\r
-////////////////////////////////////////////////////////////////////////////////\r
-#endif // CXIMAGE_SUPPORT_JASPER\r
-\r
+/*
+ * File: ximajas.cpp
+ * Purpose: Platform Independent JasPer Image Class Loader and Writer
+ * 12/Apr/2003 Davide Pizzolato - www.xdp.it
+ * CxImage version 6.0.0 02/Feb/2008
+ */
+
+#include "ximajas.h"
+
+#if CXIMAGE_SUPPORT_JASPER
+
+////////////////////////////////////////////////////////////////////////////////
+#if CXIMAGE_SUPPORT_DECODE
+////////////////////////////////////////////////////////////////////////////////
+bool CxImageJAS::Decode(CxFile *hFile, DWORD imagetype)
+{
+ if (hFile == NULL) return false;
+
+ jas_image_t *image=0;
+ jas_stream_t *in=0;
+ jas_matrix_t **bufs=0;
+ long i,error=0;
+ int fmt;
+ //jas_setdbglevel(0);
+
+ cx_try
+ {
+ if (jas_init())
+ cx_throw("cannot initialize jasper");
+
+ in = jas_stream_fdopen(0, "rb");
+ if (!in)
+ cx_throw("error: cannot open standard input");
+
+ CxFileJas src(hFile,in);
+
+ fmt = jas_image_getfmt(in);
+ if (fmt<0)
+ cx_throw("error: unknowm format");
+
+ image = jas_image_decode(in, fmt, 0);
+ if (!image){
+ fmt = -1;
+ cx_throw("error: cannot load image data");
+ }
+
+ char szfmt[4];
+ *szfmt = '\0';
+ strncpy(szfmt,jas_image_fmttostr(fmt),3);
+ szfmt[3] = '\0';
+
+ fmt = -1;
+#if CXIMAGE_SUPPORT_JP2
+ if (strcmp(szfmt,"jp2")==0) fmt = CXIMAGE_FORMAT_JP2;
+#endif
+#if CXIMAGE_SUPPORT_JPC
+ if (strcmp(szfmt,"jpc")==0) fmt = CXIMAGE_FORMAT_JPC;
+#endif
+#if CXIMAGE_SUPPORT_RAS
+ if (strcmp(szfmt,"ras")==0) fmt = CXIMAGE_FORMAT_RAS;
+#endif
+#if CXIMAGE_SUPPORT_PNM
+ if (strcmp(szfmt,"pnm")==0) fmt = CXIMAGE_FORMAT_PNM;
+#endif
+#if CXIMAGE_SUPPORT_PGX
+ if (strcmp(szfmt,"pgx")==0) fmt = CXIMAGE_FORMAT_PGX;
+#endif
+
+ //if (fmt<0)
+ // cx_throw("error: unknowm format");
+
+ long x,y,w,h,depth,cmptno;
+
+ w = jas_image_cmptwidth(image,0);
+ h = jas_image_cmptheight(image,0);
+ depth = jas_image_cmptprec(image,0);
+
+ if (info.nEscape == -1){
+ head.biWidth = w;
+ head.biHeight= h;
+ info.dwType = fmt<0 ? 0 : fmt;
+ cx_throw("output dimensions returned");
+ }
+
+ if (image->numcmpts_ > 64 || image->numcmpts_ < 0)
+ cx_throw("error: too many components");
+
+ // <LD> 01/Jan/2005: Always force conversion to sRGB. Seems to be required for many types of JPEG2000 file.
+ // if (depth!=1 && depth!=4 && depth!=8)
+ if (image->numcmpts_>=3 && depth <=8)
+ {
+ jas_image_t *newimage;
+ jas_cmprof_t *outprof;
+ //jas_eprintf("forcing conversion to sRGB\n");
+ outprof = jas_cmprof_createfromclrspc(JAS_CLRSPC_SRGB);
+ if (!outprof) {
+ cx_throw("cannot create sRGB profile");
+ }
+ newimage = jas_image_chclrspc(image, outprof, JAS_CMXFORM_INTENT_PER);
+ if (!newimage) {
+ jas_cmprof_destroy(outprof); // <LD> 01/Jan/2005: Destroy color profile on error.
+ cx_throw("cannot convert to sRGB");
+ }
+ jas_image_destroy(image);
+ jas_cmprof_destroy(outprof);
+ image = newimage;
+ }
+
+ bufs = (jas_matrix_t **)calloc(image->numcmpts_, sizeof(jas_matrix_t**));
+ for (i = 0; i < image->numcmpts_; ++i) {
+ bufs[i] = jas_matrix_create(1, w);
+ if (!bufs[i]) {
+ cx_throw("error: cannot allocate memory");
+ }
+ }
+
+ int nshift = (depth>8) ? (depth-8) : 0;
+
+ if (image->numcmpts_==3 &&
+ image->cmpts_[0]->width_ == image->cmpts_[1]->width_ &&
+ image->cmpts_[1]->width_ == image->cmpts_[2]->width_ &&
+ image->cmpts_[0]->height_ == image->cmpts_[1]->height_ &&
+ image->cmpts_[1]->height_ == image->cmpts_[2]->height_ &&
+ image->cmpts_[0]->prec_ == image->cmpts_[1]->prec_ &&
+ image->cmpts_[1]->prec_ == image->cmpts_[2]->prec_ )
+ {
+
+ if(!Create(w,h,24,fmt))
+ cx_throw("");
+
+ RGBQUAD c;
+ for (y=0; y<h; y++) {
+ for (cmptno = 0; cmptno < image->numcmpts_; ++cmptno) {
+ jas_image_readcmpt(image, cmptno, 0, y, w, 1, bufs[cmptno]);
+ }
+
+ for (x=0; x<w; x++){
+ c.rgbRed = (BYTE)((jas_matrix_getv(bufs[0], x)>>nshift));
+ c.rgbGreen = (BYTE)((jas_matrix_getv(bufs[1], x)>>nshift));
+ c.rgbBlue = (BYTE)((jas_matrix_getv(bufs[2], x)>>nshift));
+ SetPixelColor(x,h-1-y,c);
+ }
+ }
+ } else {
+ info.nNumFrames = image->numcmpts_;
+ if ((info.nFrame<0)||(info.nFrame>=info.nNumFrames)){
+ cx_throw("wrong frame!");
+ }
+ for (cmptno=0; cmptno<=info.nFrame; cmptno++) {
+ w = jas_image_cmptwidth(image,cmptno);
+ h = jas_image_cmptheight(image,cmptno);
+ depth = jas_image_cmptprec(image,cmptno);
+ if (depth>8) depth=8;
+ if(!Create(w,h,depth,imagetype))
+ cx_throw("");
+ SetGrayPalette();
+ for (y=0; y<h; y++) {
+ jas_image_readcmpt(image, cmptno, 0, y, w, 1, bufs[0]);
+ for (x=0; x<w; x++){
+ SetPixelIndex(x,h-1-y,(BYTE)((jas_matrix_getv(bufs[0], x)>>nshift)));
+ }
+ }
+ }
+ }
+
+
+ } cx_catch {
+ if (strcmp(message,"")) strncpy(info.szLastError,message,255);
+ if (info.nEscape == -1 && fmt>0){
+ error = 0;
+ } else {
+ error = 1;
+ }
+ }
+
+ if (bufs) {
+ for (i = 0; i < image->numcmpts_; ++i){ if (bufs[i]) jas_matrix_destroy(bufs[i]);}
+ free(bufs);
+ }
+ jas_cleanup();
+ if (image) jas_image_destroy(image);
+ if (in) jas_stream_close(in);
+ return (error==0);
+}
+////////////////////////////////////////////////////////////////////////////////
+#endif //CXIMAGE_SUPPORT_DECODE
+////////////////////////////////////////////////////////////////////////////////
+#if CXIMAGE_SUPPORT_ENCODE
+////////////////////////////////////////////////////////////////////////////////
+bool CxImageJAS::Encode(CxFile * hFile, DWORD imagetype)
+{
+ if (EncodeSafeCheck(hFile)) return false;
+
+ if (head.biClrUsed!=0 && !IsGrayScale()){
+ strcpy(info.szLastError,"JasPer can save only RGB or GrayScale images");
+ return false;
+ }
+
+ jas_image_t *image=0;
+ jas_stream_t *out=0;
+ jas_matrix_t *cmpts[3];
+ long x,y,yflip,error=0;
+ uint_fast16_t cmptno, numcmpts=0;
+ jas_image_cmptparm_t cmptparms[3], *cmptparm;
+
+ cx_try {
+
+ if (jas_init())
+ cx_throw("cannot initialize jasper");
+
+ out = jas_stream_fdopen(0, "wb");
+ if (!out)
+ cx_throw("error: cannot open standard output");
+
+ CxFileJas src(hFile,out);
+
+ numcmpts = head.biClrUsed==0 ? 3 : 1;
+
+ for (cmptno = 0, cmptparm = cmptparms; cmptno < numcmpts; ++cmptno, ++cmptparm) {
+ cmptparm->tlx = 0;
+ cmptparm->tly = 0;
+ cmptparm->hstep = 1;
+ cmptparm->vstep = 1;
+ cmptparm->width = head.biWidth;
+ cmptparm->height = head.biHeight;
+ cmptparm->prec = 8;
+ cmptparm->sgnd = false;
+ }
+
+ /* Create image object. */
+ image = jas_image_create(numcmpts, cmptparms, JAS_CLRSPC_UNKNOWN);
+ if (!image)
+ cx_throw("error : jas_image_create");
+
+ if (numcmpts == 3) {
+ jas_image_setclrspc(image, JAS_CLRSPC_SRGB);
+ jas_image_setcmpttype(image, 0,
+ JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_RGB_R));
+ jas_image_setcmpttype(image, 1,
+ JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_RGB_G));
+ jas_image_setcmpttype(image, 2,
+ JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_RGB_B));
+ } else {
+ jas_image_setclrspc(image, JAS_CLRSPC_SGRAY);
+ jas_image_setcmpttype(image, 0,
+ JAS_IMAGE_CT_COLOR(JAS_CLRSPC_CHANIND_GRAY_Y));
+ }
+
+
+ for (x = 0; x < numcmpts; ++x) { cmpts[x] = 0; }
+ /* Create temporary matrices to hold component data. */
+ for (x = 0; x < numcmpts; ++x) {
+ cmpts[x] = jas_matrix_create(1, head.biWidth);
+ if (!cmpts[x]) {
+ cx_throw("error : can't allocate memory");
+ }
+ }
+
+ RGBQUAD c;
+ for (y = 0; y < head.biHeight; ++y) {
+ for (x = 0; x < head.biWidth; ++x) {
+ if (head.biClrUsed==0){
+ c = GetPixelColor(x,y);
+ jas_matrix_setv(cmpts[0], x, c.rgbRed);
+ jas_matrix_setv(cmpts[1], x, c.rgbGreen);
+ jas_matrix_setv(cmpts[2], x, c.rgbBlue);
+ } else {
+ jas_matrix_setv(cmpts[0], x, GetPixelIndex(x,y));
+ }
+ }
+ yflip = head.biHeight - 1 - y;
+ for (cmptno = 0; cmptno < numcmpts; ++cmptno) {
+ if (jas_image_writecmpt(image, cmptno, 0, yflip, head.biWidth, 1, cmpts[cmptno])) {
+ cx_throw("error : jas_image_writecmpt");
+ }
+ }
+ }
+
+ char szfmt[4];
+ *szfmt = '\0';
+#if CXIMAGE_SUPPORT_JP2
+ if (imagetype == CXIMAGE_FORMAT_JP2) strcpy(szfmt,"jp2");
+#endif
+#if CXIMAGE_SUPPORT_JPC
+ if (imagetype == CXIMAGE_FORMAT_JPC) strcpy(szfmt,"jpc");
+#endif
+#if CXIMAGE_SUPPORT_RAS
+ if (imagetype == CXIMAGE_FORMAT_RAS) strcpy(szfmt,"ras");
+#endif
+#if CXIMAGE_SUPPORT_PNM
+ if (imagetype == CXIMAGE_FORMAT_PNM) strcpy(szfmt,"pnm");
+#endif
+#if CXIMAGE_SUPPORT_PGX
+ if (imagetype == CXIMAGE_FORMAT_PGX){
+ strcpy(szfmt,"pgx");
+ if (head.biClrUsed==0) cx_throw("PGX can save only GrayScale images");
+ }
+#endif
+ int outfmt = jas_image_strtofmt(szfmt);
+
+ char szoutopts[32];
+ sprintf(szoutopts,"rate=%.3f", info.fQuality/100.0f);
+
+ if (jas_image_encode(image, out, outfmt, szoutopts)) {
+ cx_throw("error: cannot encode image");
+ }
+ jas_stream_flush(out);
+
+ } cx_catch {
+ if (strcmp(message,"")) strncpy(info.szLastError,message,255);
+ error = 1;
+ }
+
+ for (x = 0; x < numcmpts; ++x) { if (cmpts[x]) { jas_matrix_destroy(cmpts[x]); } }
+ jas_cleanup();
+ if (image) jas_image_destroy(image);
+ if (out) jas_stream_close(out);
+
+ return (error==0);
+}
+////////////////////////////////////////////////////////////////////////////////
+#endif // CXIMAGE_SUPPORT_ENCODE
+////////////////////////////////////////////////////////////////////////////////
+#endif // CXIMAGE_SUPPORT_JASPER
+