2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13 % Read/Write JPEG-2000 Image Format %
20 % Copyright 1999-2014 ImageMagick Studio LLC, a non-profit organization %
21 % dedicated to making software imaging solutions freely available. %
23 % You may not use this file except in compliance with the License. You may %
24 % obtain a copy of the License at %
26 % http://www.imagemagick.org/script/license.php %
28 % Unless required by applicable law or agreed to in writing, software %
29 % distributed under the License is distributed on an "AS IS" BASIS, %
30 % WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. %
31 % See the License for the specific language governing permissions and %
32 % limitations under the License. %
34 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 #include "MagickCore/studio.h"
43 #include "MagickCore/artifact.h"
44 #include "MagickCore/attribute.h"
45 #include "MagickCore/blob.h"
46 #include "MagickCore/blob-private.h"
47 #include "MagickCore/cache.h"
48 #include "MagickCore/colorspace.h"
49 #include "MagickCore/colorspace-private.h"
50 #include "MagickCore/color.h"
51 #include "MagickCore/color-private.h"
52 #include "MagickCore/exception.h"
53 #include "MagickCore/exception-private.h"
54 #include "MagickCore/image.h"
55 #include "MagickCore/image-private.h"
56 #include "MagickCore/list.h"
57 #include "MagickCore/magick.h"
58 #include "MagickCore/memory_.h"
59 #include "MagickCore/monitor.h"
60 #include "MagickCore/monitor-private.h"
61 #include "MagickCore/option.h"
62 #include "MagickCore/pixel-accessor.h"
63 #include "MagickCore/profile.h"
64 #include "MagickCore/property.h"
65 #include "MagickCore/quantum-private.h"
66 #include "MagickCore/static.h"
67 #include "MagickCore/statistic.h"
68 #include "MagickCore/string_.h"
69 #include "MagickCore/string-private.h"
70 #include "MagickCore/module.h"
71 #if defined(MAGICKCORE_LIBOPENJP2_DELEGATE)
78 #if defined(MAGICKCORE_LIBOPENJP2_DELEGATE)
79 static MagickBooleanType
80 WriteJP2Image(const ImageInfo *,Image *,ExceptionInfo *);
84 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
92 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
94 % IsJ2K() returns MagickTrue if the image format type, identified by the
95 % magick string, is J2K.
97 % The format of the IsJ2K method is:
99 % MagickBooleanType IsJP2(const unsigned char *magick,const size_t length)
101 % A description of each parameter follows:
103 % o magick: compare image format pattern against these bytes.
105 % o length: Specifies the length of the magick string.
108 static MagickBooleanType IsJ2K(const unsigned char *magick,const size_t length)
112 if (memcmp(magick,"\xff\x4f\xff\x51",4) == 0)
118 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
126 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
128 % IsJP2() returns MagickTrue if the image format type, identified by the
129 % magick string, is JP2.
131 % The format of the IsJP2 method is:
133 % MagickBooleanType IsJP2(const unsigned char *magick,const size_t length)
135 % A description of each parameter follows:
137 % o magick: compare image format pattern against these bytes.
139 % o length: Specifies the length of the magick string.
142 static MagickBooleanType IsJP2(const unsigned char *magick,const size_t length)
146 if (memcmp(magick,"\x0d\x0a\x87\x0a",4) == 0)
150 if (memcmp(magick,"\x00\x00\x00\x0c\x6a\x50\x20\x20\x0d\x0a\x87\x0a",12) == 0)
156 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
164 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
166 % IsJPC()() returns MagickTrue if the image format type, identified by the
167 % magick string, is JPC.
169 % The format of the IsJPC method is:
171 % MagickBooleanType IsJPC(const unsigned char *magick,const size_t length)
173 % A description of each parameter follows:
175 % o magick: compare image format pattern against these bytes.
177 % o length: Specifies the length of the magick string.
180 static MagickBooleanType IsJPC(const unsigned char *magick,const size_t length)
184 if (memcmp(magick,"\x0d\x0a\x87\x0a",4) == 0)
188 if (memcmp(magick,"\x00\x00\x00\x0c\x6a\x50\x20\x20\x0d\x0a\x87\x0a",12) == 0)
194 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
198 % R e a d J P 2 I m a g e %
202 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
204 % ReadJP2Image() reads a JPEG 2000 Image file (JP2) or JPEG 2000
205 % codestream (JPC) image file and returns it. It allocates the memory
206 % necessary for the new Image structure and returns a pointer to the new
207 % image or set of images.
209 % JP2 support is originally written by Nathan Brown, nathanbrown@letu.edu.
211 % The format of the ReadJP2Image method is:
213 % Image *ReadJP2Image(const ImageInfo *image_info,
214 % ExceptionInfo *exception)
216 % A description of each parameter follows:
218 % o image_info: the image info.
220 % o exception: return any errors or warnings in this structure.
223 #if defined(MAGICKCORE_LIBOPENJP2_DELEGATE)
224 static void JP2ErrorHandler(const char *message,void *client_data)
229 exception=(ExceptionInfo *) client_data;
230 (void) ThrowMagickException(exception,GetMagickModule(),CoderError,
231 message,"`%s'","OpenJP2");
234 static OPJ_SIZE_T JP2ReadHandler(void *buffer,OPJ_SIZE_T length,void *context)
242 image=(Image *) context;
243 count=ReadBlob(image,(ssize_t) length,(unsigned char *) buffer);
245 return((OPJ_SIZE_T) -1);
246 return((OPJ_SIZE_T) count);
249 static OPJ_BOOL JP2SeekHandler(OPJ_OFF_T offset,void *context)
254 image=(Image *) context;
255 return(SeekBlob(image,offset,SEEK_SET) < 0 ? OPJ_FALSE : OPJ_TRUE);
258 static OPJ_OFF_T JP2SkipHandler(OPJ_OFF_T offset,void *context)
263 image=(Image *) context;
264 return(SeekBlob(image,offset,SEEK_CUR) < 0 ? -1 : offset);
267 static void JP2WarningHandler(const char *message,void *client_data)
272 exception=(ExceptionInfo *) client_data;
273 (void) ThrowMagickException(exception,GetMagickModule(),CoderWarning,
274 message,"`%s'","OpenJP2");
277 static OPJ_SIZE_T JP2WriteHandler(void *buffer,OPJ_SIZE_T length,void *context)
285 image=(Image *) context;
286 count=WriteBlob(image,(ssize_t) length,(unsigned char *) buffer);
287 return((OPJ_SIZE_T) count);
290 static Image *ReadJP2Image(const ImageInfo *image_info,ExceptionInfo *exception)
307 opj_codestream_index_t
308 *codestream_index = (opj_codestream_index_t *) NULL;
331 assert(image_info != (const ImageInfo *) NULL);
332 assert(image_info->signature == MagickSignature);
333 if (image_info->debug != MagickFalse)
334 (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
335 image_info->filename);
336 assert(exception != (ExceptionInfo *) NULL);
337 assert(exception->signature == MagickSignature);
338 image=AcquireImage(image_info,exception);
339 status=OpenBlob(image_info,image,ReadBinaryBlobMode,exception);
340 if (status == MagickFalse)
342 image=DestroyImageList(image);
343 return((Image *) NULL);
346 Initialize JP2 codec.
348 if (ReadBlob(image,4,sans) != 4)
350 image=DestroyImageList(image);
351 return((Image *) NULL);
353 (void) SeekBlob(image,SEEK_SET,0);
354 if (LocaleCompare(image_info->magick,"JPT") == 0)
355 jp2_codec=opj_create_decompress(OPJ_CODEC_JPT);
357 if (IsJ2K(sans,4) != MagickFalse || LocaleCompare(image_info->magick,
359 jp2_codec=opj_create_decompress(OPJ_CODEC_J2K);
361 jp2_codec=opj_create_decompress(OPJ_CODEC_JP2);
362 opj_set_warning_handler(jp2_codec,JP2WarningHandler,exception);
363 opj_set_error_handler(jp2_codec,JP2ErrorHandler,exception);
364 opj_set_default_decoder_parameters(¶meters);
365 option=GetImageOption(image_info,"jp2:reduce-factor");
366 if (option != (const char *) NULL)
367 parameters.cp_reduce=StringToInteger(option);
368 option=GetImageOption(image_info,"jp2:quality-layers");
369 if (option != (const char *) NULL)
370 parameters.cp_layer=StringToInteger(option);
371 if (opj_setup_decoder(jp2_codec,¶meters) == 0)
373 opj_destroy_codec(jp2_codec);
374 ThrowReaderException(DelegateError,"UnableToManageJP2Stream");
376 jp2_stream=opj_stream_create(OPJ_J2K_STREAM_CHUNK_SIZE,1);
377 opj_stream_set_read_function(jp2_stream,JP2ReadHandler);
378 opj_stream_set_write_function(jp2_stream,JP2WriteHandler);
379 opj_stream_set_seek_function(jp2_stream,JP2SeekHandler);
380 opj_stream_set_skip_function(jp2_stream,JP2SkipHandler);
381 opj_stream_set_user_data(jp2_stream,image);
382 opj_stream_set_user_data_length(jp2_stream,GetBlobSize(image));
383 if (opj_read_header(jp2_stream,jp2_codec,&jp2_image) == 0)
385 opj_stream_set_user_data(jp2_stream,NULL);
386 opj_stream_destroy_v3(jp2_stream);
387 opj_destroy_codec(jp2_codec);
388 ThrowReaderException(DelegateError,"UnableToDecodeImageFile");
390 if ((image->columns != 0) && (image->rows != 0))
393 Extract an area from the image.
395 jp2_status=opj_set_decode_area(jp2_codec,jp2_image,image->extract_info.x,
396 image->extract_info.y,image->extract_info.x+image->columns,
397 image->extract_info.y+image->rows);
400 opj_stream_set_user_data(jp2_stream,NULL);
401 opj_stream_destroy_v3(jp2_stream);
402 opj_destroy_codec(jp2_codec);
403 opj_image_destroy(jp2_image);
404 ThrowReaderException(DelegateError,"UnableToDecodeImageFile");
407 if ((opj_decode(jp2_codec,jp2_stream,jp2_image) == 0) ||
408 (opj_end_decompress(jp2_codec,jp2_stream) == 0))
410 opj_stream_set_user_data(jp2_stream,NULL);
411 opj_stream_destroy_v3(jp2_stream);
412 opj_destroy_codec(jp2_codec);
413 opj_image_destroy(jp2_image);
414 ThrowReaderException(DelegateError,"UnableToDecodeImageFile");
416 opj_stream_set_user_data(jp2_stream,NULL);
417 opj_stream_destroy_v3(jp2_stream);
418 for (i=0; i < (ssize_t) jp2_image->numcomps; i++)
420 if ((jp2_image->comps[i].dx == 0) || (jp2_image->comps[i].dy == 0))
422 opj_stream_set_user_data(jp2_stream,NULL);
423 opj_destroy_codec(jp2_codec);
424 opj_image_destroy(jp2_image);
425 ThrowReaderException(CoderError,"IrregularChannelGeometryNotSupported")
431 image->columns=(size_t) jp2_image->comps[0].w;
432 image->rows=(size_t) jp2_image->comps[0].h;
433 image->depth=jp2_image->comps[0].prec;
434 image->compression=JPEG2000Compression;
435 if (jp2_image->numcomps <= 2)
437 SetImageColorspace(image,GRAYColorspace,exception);
438 if (jp2_image->numcomps > 1)
439 image->alpha_trait=BlendPixelTrait;
441 if (jp2_image->numcomps > 3)
442 image->alpha_trait=BlendPixelTrait;
443 for (i=0; i < (ssize_t) jp2_image->numcomps; i++)
444 if ((jp2_image->comps[i].dx > 1) || (jp2_image->comps[i].dy > 1))
445 SetImageColorspace(image,YUVColorspace,exception);
446 if (jp2_image->icc_profile_buf != (unsigned char *) NULL)
451 profile=BlobToStringInfo(jp2_image->icc_profile_buf,
452 jp2_image->icc_profile_len);
453 if (profile != (StringInfo *) NULL)
454 SetImageProfile(image,"icc",profile,exception);
456 for (y=0; y < (ssize_t) image->rows; y++)
464 q=GetAuthenticPixels(image,0,y,image->columns,1,exception);
465 if (q == (Quantum *) NULL)
467 for (x=0; x < (ssize_t) image->columns; x++)
472 for (i=0; i < (ssize_t) jp2_image->numcomps; i++)
478 scale=QuantumRange/(double) ((1UL << jp2_image->comps[i].prec)-1);
479 pixel=scale*(jp2_image->comps[i].data[y/jp2_image->comps[i].dy*
480 image->columns/jp2_image->comps[i].dx+x/jp2_image->comps[i].dx]+
481 (jp2_image->comps[i].sgnd ? 1UL << (jp2_image->comps[i].prec-1) : 0));
486 SetPixelRed(image,ClampToQuantum(pixel),q);
487 SetPixelGreen(image,ClampToQuantum(pixel),q);
488 SetPixelBlue(image,ClampToQuantum(pixel),q);
489 SetPixelAlpha(image,OpaqueAlpha,q);
494 if (jp2_image->numcomps == 2)
496 SetPixelAlpha(image,ClampToQuantum(pixel),q);
499 SetPixelGreen(image,ClampToQuantum(pixel),q);
504 SetPixelBlue(image,ClampToQuantum(pixel),q);
509 SetPixelAlpha(image,ClampToQuantum(pixel),q);
514 q+=GetPixelChannels(image);
516 if (SyncAuthenticPixels(image,exception) == MagickFalse)
518 status=SetImageProgress(image,LoadImageTag,(MagickOffsetType) y,
520 if (status == MagickFalse)
526 opj_destroy_codec(jp2_codec);
527 opj_image_destroy(jp2_image);
528 opj_destroy_cstr_index(&codestream_index);
529 return(GetFirstImageInList(image));
534 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
538 % R e g i s t e r J P 2 I m a g e %
542 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
544 % RegisterJP2Image() adds attributes for the JP2 image format to the list of
545 % supported formats. The attributes include the image format tag, a method
546 % method to read and/or write the format, whether the format supports the
547 % saving of more than one frame to the same file or blob, whether the format
548 % supports native in-memory I/O, and a brief description of the format.
550 % The format of the RegisterJP2Image method is:
552 % size_t RegisterJP2Image(void)
555 ModuleExport size_t RegisterJP2Image(void)
558 version[MaxTextExtent];
564 #if defined(MAGICKCORE_LIBOPENJP2_DELEGATE)
565 (void) FormatLocaleString(version,MaxTextExtent,"%s",opj_version());
567 entry=SetMagickInfo("JP2");
568 entry->description=ConstantString("JPEG-2000 File Format Syntax");
569 if (*version != '\0')
570 entry->version=ConstantString(version);
571 entry->mime_type=ConstantString("image/jp2");
572 entry->module=ConstantString("JP2");
573 entry->magick=(IsImageFormatHandler *) IsJP2;
574 entry->adjoin=MagickFalse;
575 entry->seekable_stream=MagickTrue;
576 entry->thread_support=NoThreadSupport;
577 #if defined(MAGICKCORE_LIBOPENJP2_DELEGATE)
578 entry->decoder=(DecodeImageHandler *) ReadJP2Image;
579 entry->encoder=(EncodeImageHandler *) WriteJP2Image;
581 (void) RegisterMagickInfo(entry);
582 entry=SetMagickInfo("J2C");
583 entry->description=ConstantString("JPEG-2000 Code Stream Syntax");
584 if (*version != '\0')
585 entry->version=ConstantString(version);
586 entry->mime_type=ConstantString("image/jp2");
587 entry->module=ConstantString("JP2");
588 entry->magick=(IsImageFormatHandler *) IsJ2K;
589 entry->adjoin=MagickFalse;
590 entry->seekable_stream=MagickTrue;
591 entry->thread_support=NoThreadSupport;
592 #if defined(MAGICKCORE_LIBOPENJP2_DELEGATE)
593 entry->decoder=(DecodeImageHandler *) ReadJP2Image;
594 entry->encoder=(EncodeImageHandler *) WriteJP2Image;
596 (void) RegisterMagickInfo(entry);
597 entry=SetMagickInfo("J2K");
598 entry->description=ConstantString("JPEG-2000 Code Stream Syntax");
599 if (*version != '\0')
600 entry->version=ConstantString(version);
601 entry->mime_type=ConstantString("image/jp2");
602 entry->module=ConstantString("JP2");
603 entry->magick=(IsImageFormatHandler *) IsJ2K;
604 entry->adjoin=MagickFalse;
605 entry->seekable_stream=MagickTrue;
606 entry->thread_support=NoThreadSupport;
607 #if defined(MAGICKCORE_LIBOPENJP2_DELEGATE)
608 entry->decoder=(DecodeImageHandler *) ReadJP2Image;
609 entry->encoder=(EncodeImageHandler *) WriteJP2Image;
611 (void) RegisterMagickInfo(entry);
612 entry=SetMagickInfo("JPT");
613 entry->description=ConstantString("JPEG-2000 File Format Syntax");
614 if (*version != '\0')
615 entry->version=ConstantString(version);
616 entry->mime_type=ConstantString("image/jp2");
617 entry->module=ConstantString("JP2");
618 entry->magick=(IsImageFormatHandler *) IsJP2;
619 entry->adjoin=MagickFalse;
620 entry->seekable_stream=MagickTrue;
621 entry->thread_support=NoThreadSupport;
622 #if defined(MAGICKCORE_LIBOPENJP2_DELEGATE)
623 entry->decoder=(DecodeImageHandler *) ReadJP2Image;
624 entry->encoder=(EncodeImageHandler *) WriteJP2Image;
626 (void) RegisterMagickInfo(entry);
627 entry=SetMagickInfo("JPC");
628 entry->description=ConstantString("JPEG-2000 Code Stream Syntax");
629 if (*version != '\0')
630 entry->version=ConstantString(version);
631 entry->mime_type=ConstantString("image/jp2");
632 entry->module=ConstantString("JP2");
633 entry->magick=(IsImageFormatHandler *) IsJPC;
634 entry->adjoin=MagickFalse;
635 entry->seekable_stream=MagickTrue;
636 entry->thread_support=NoThreadSupport;
637 #if defined(MAGICKCORE_LIBOPENJP2_DELEGATE)
638 entry->decoder=(DecodeImageHandler *) ReadJP2Image;
639 entry->encoder=(EncodeImageHandler *) WriteJP2Image;
641 (void) RegisterMagickInfo(entry);
642 return(MagickImageCoderSignature);
646 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
650 % U n r e g i s t e r J P 2 I m a g e %
654 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
656 % UnregisterJP2Image() removes format registrations made by the JP2 module
657 % from the list of supported formats.
659 % The format of the UnregisterJP2Image method is:
661 % UnregisterJP2Image(void)
664 ModuleExport void UnregisterJP2Image(void)
666 (void) UnregisterMagickInfo("JPC");
667 (void) UnregisterMagickInfo("JPT");
668 (void) UnregisterMagickInfo("JP2");
669 (void) UnregisterMagickInfo("J2K");
672 #if defined(MAGICKCORE_LIBOPENJP2_DELEGATE)
674 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
678 % W r i t e J P 2 I m a g e %
682 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
684 % WriteJP2Image() writes an image in the JPEG 2000 image format.
686 % JP2 support originally written by Nathan Brown, nathanbrown@letu.edu
688 % The format of the WriteJP2Image method is:
690 % MagickBooleanType WriteJP2Image(const ImageInfo *image_info,Image *image,
691 % ExceptionInfo *exception)
693 % A description of each parameter follows.
695 % o image_info: the image info.
697 % o image: The image.
701 static void CinemaProfileCompliance(const opj_image_t *jp2_image,
702 opj_cparameters_t *parameters)
705 Digital Cinema 4K profile compliant codestream.
707 parameters->tile_size_on=OPJ_FALSE;
708 parameters->cp_tdx=1;
709 parameters->cp_tdy=1;
710 parameters->tp_flag='C';
712 parameters->cp_tx0=0;
713 parameters->cp_ty0=0;
714 parameters->image_offset_x0=0;
715 parameters->image_offset_y0=0;
716 parameters->cblockw_init=32;
717 parameters->cblockh_init=32;
718 parameters->csty|=0x01;
719 parameters->prog_order=OPJ_CPRL;
720 parameters->roi_compno=(-1);
721 parameters->subsampling_dx=1;
722 parameters->subsampling_dy=1;
723 parameters->irreversible=1;
724 if ((jp2_image->comps[0].w == 2048) || (jp2_image->comps[0].h == 1080))
729 parameters->cp_cinema=OPJ_CINEMA2K_24;
730 parameters->cp_rsiz=OPJ_CINEMA2K;
731 parameters->max_comp_size=1041666;
732 if (parameters->numresolution > 6)
733 parameters->numresolution=6;
736 if ((jp2_image->comps[0].w == 4096) || (jp2_image->comps[0].h == 2160))
741 parameters->cp_cinema=OPJ_CINEMA4K_24;
742 parameters->cp_rsiz=OPJ_CINEMA4K;
743 parameters->max_comp_size=1041666;
744 if (parameters->numresolution < 1)
745 parameters->numresolution=1;
746 if (parameters->numresolution > 7)
747 parameters->numresolution=7;
748 parameters->numpocs=2;
749 parameters->POC[0].tile=1;
750 parameters->POC[0].resno0=0;
751 parameters->POC[0].compno0=0;
752 parameters->POC[0].layno1=1;
753 parameters->POC[0].resno1=parameters->numresolution-1;
754 parameters->POC[0].compno1=3;
755 parameters->POC[0].prg1=OPJ_CPRL;
756 parameters->POC[1].tile=1;
757 parameters->POC[1].resno0=parameters->numresolution-1;
758 parameters->POC[1].compno0=0;
759 parameters->POC[1].layno1=1;
760 parameters->POC[1].resno1=parameters->numresolution;
761 parameters->POC[1].compno1=3;
762 parameters->POC[1].prg1=OPJ_CPRL;
764 parameters->tcp_numlayers=1;
765 parameters->tcp_rates[0]=((float) (jp2_image->numcomps*jp2_image->comps[0].w*
766 jp2_image->comps[0].h*jp2_image->comps[0].prec))/(parameters->max_comp_size*
767 8*jp2_image->comps[0].dx*jp2_image->comps[0].dy);
768 parameters->cp_disto_alloc=1;
771 static MagickBooleanType WriteJP2Image(const ImageInfo *image_info,Image *image,
772 ExceptionInfo *exception)
814 assert(image_info != (const ImageInfo *) NULL);
815 assert(image_info->signature == MagickSignature);
816 assert(image != (Image *) NULL);
817 assert(image->signature == MagickSignature);
818 if (image->debug != MagickFalse)
819 (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
820 assert(exception != (ExceptionInfo *) NULL);
821 assert(exception->signature == MagickSignature);
822 status=OpenBlob(image_info,image,WriteBinaryBlobMode,exception);
823 if (status == MagickFalse)
826 Initialize JPEG 2000 API.
828 opj_set_default_encoder_parameters(¶meters);
829 for (i=1; i < 6; i++)
830 if (((1UL << (i+2)) > image->columns) && ((1UL << (i+2)) > image->rows))
832 parameters.numresolution=i;
833 option=GetImageOption(image_info,"jp2:number-resolutions");
834 if (option != (const char *) NULL)
835 parameters.numresolution=StringToInteger(option);
836 parameters.tcp_numlayers=1;
837 parameters.tcp_rates[0]=0; /* lossless */
838 parameters.cp_disto_alloc=1;
839 if (image->quality != 0)
841 parameters.tcp_distoratio[0]=(double) image->quality;
842 parameters.cp_fixed_quality=OPJ_TRUE;
844 if (image_info->extract != (char *) NULL)
855 flags=ParseAbsoluteGeometry(image_info->extract,&geometry);
856 parameters.cp_tdx=geometry.width;
857 parameters.cp_tdy=geometry.width;
858 if ((flags & HeightValue) != 0)
859 parameters.cp_tdy=geometry.height;
860 if ((flags & XValue) != 0)
861 parameters.cp_tx0=geometry.x;
862 if ((flags & YValue) != 0)
863 parameters.cp_ty0=geometry.y;
864 parameters.tile_size_on=OPJ_TRUE;
866 option=GetImageOption(image_info,"jp2:quality");
867 if (option != (const char *) NULL)
876 for (i=0; sscanf(p,"%f",¶meters.tcp_distoratio[i]) == 1; i++)
880 while ((*p != '\0') && (*p != ','))
886 parameters.tcp_numlayers=i+1;
887 parameters.cp_fixed_quality=OPJ_TRUE;
889 option=GetImageOption(image_info,"jp2:progression-order");
890 if (option != (const char *) NULL)
892 if (LocaleCompare(option,"LRCP") == 0)
893 parameters.prog_order=OPJ_LRCP;
894 if (LocaleCompare(option,"RLCP") == 0)
895 parameters.prog_order=OPJ_RLCP;
896 if (LocaleCompare(option,"RPCL") == 0)
897 parameters.prog_order=OPJ_RPCL;
898 if (LocaleCompare(option,"PCRL") == 0)
899 parameters.prog_order=OPJ_PCRL;
900 if (LocaleCompare(option,"CPRL") == 0)
901 parameters.prog_order=OPJ_CPRL;
903 option=GetImageOption(image_info,"jp2:rate");
904 if (option != (const char *) NULL)
910 Set compression rate.
913 for (i=0; sscanf(p,"%f",¶meters.tcp_rates[i]) == 1; i++)
917 while ((*p != '\0') && (*p != ','))
923 parameters.tcp_numlayers=i+1;
924 parameters.cp_disto_alloc=OPJ_TRUE;
926 if (image_info->sampling_factor != (const char *) NULL)
927 (void) sscanf(image_info->sampling_factor,"%d,%d",
928 ¶meters.subsampling_dx,¶meters.subsampling_dy);
929 property=GetImageProperty(image,"comment",exception);
930 if (property != (const char *) NULL)
931 parameters.cp_comment=ConstantString(property);
933 jp2_colorspace=OPJ_CLRSPC_SRGB;
934 if (image->colorspace == YUVColorspace)
936 jp2_colorspace=OPJ_CLRSPC_SYCC;
937 parameters.subsampling_dx=2;
941 if (IssRGBCompatibleColorspace(image->colorspace) == MagickFalse)
942 (void) TransformImageColorspace(image,sRGBColorspace,exception);
943 if (IsGrayColorspace(image->colorspace) != MagickFalse)
946 jp2_colorspace=OPJ_CLRSPC_GRAY;
948 if (image->alpha_trait == BlendPixelTrait)
951 parameters.tcp_mct=channels == 3 ? 1 : 0;
952 ResetMagickMemory(jp2_info,0,sizeof(jp2_info));
953 for (i=0; i < (ssize_t) channels; i++)
955 jp2_info[i].prec=image->depth;
956 jp2_info[i].bpp=image->depth;
957 if ((image->depth == 1) &&
958 ((LocaleCompare(image_info->magick,"JPT") == 0) ||
959 (LocaleCompare(image_info->magick,"JP2") == 0)))
961 jp2_info[i].prec++; /* OpenJPEG returns exception for depth @ 1 */
965 jp2_info[i].dx=parameters.subsampling_dx;
966 jp2_info[i].dy=parameters.subsampling_dy;
967 jp2_info[i].w=image->columns;
968 jp2_info[i].h=image->rows;
970 jp2_image=opj_image_create(channels,jp2_info,jp2_colorspace);
971 if (jp2_image == (opj_image_t *) NULL)
972 ThrowWriterException(DelegateError,"UnableToEncodeImageFile");
973 jp2_image->x0=parameters.image_offset_x0;
974 jp2_image->y0=parameters.image_offset_y0;
975 jp2_image->x1=2*parameters.image_offset_x0+(image->columns-1)*
976 parameters.subsampling_dx+1;
977 jp2_image->y1=2*parameters.image_offset_y0+(image->rows-1)*
978 parameters.subsampling_dx+1;
979 if ((image->depth == 12) &&
980 ((image->columns == 2048) || (image->rows == 1080) ||
981 (image->columns == 4096) || (image->rows == 2160)))
982 CinemaProfileCompliance(jp2_image,¶meters);
984 Convert to JP2 pixels.
986 for (y=0; y < (ssize_t) image->rows; y++)
988 register const Quantum
994 p=GetVirtualPixels(image,0,y,image->columns,1,exception);
995 if (p == (const Quantum *) NULL)
997 for (x=0; x < (ssize_t) image->columns; x++)
999 for (i=0; i < (ssize_t) channels; i++)
1007 scale=(double) ((1UL << jp2_image->comps[i].prec)-1)/QuantumRange;
1008 q=jp2_image->comps[i].data+(y/jp2_image->comps[i].dy*
1009 image->columns/jp2_image->comps[i].dx+x/jp2_image->comps[i].dx);
1014 if (jp2_colorspace == OPJ_CLRSPC_GRAY)
1016 *q=(int) (scale*GetPixelLuma(image,p));
1019 *q=(int) (scale*GetPixelRed(image,p));
1024 if (jp2_colorspace == OPJ_CLRSPC_GRAY)
1026 *q=(int) (scale*GetPixelAlpha(image,p));
1029 *q=(int) (scale*GetPixelGreen(image,p));
1034 *q=(int) (scale*GetPixelBlue(image,p));
1039 *q=(int) (scale*GetPixelAlpha(image,p));
1044 p+=GetPixelChannels(image);
1046 status=SetImageProgress(image,SaveImageTag,(MagickOffsetType) y,
1048 if (status == MagickFalse)
1051 if (LocaleCompare(image_info->magick,"JPT") == 0)
1052 jp2_codec=opj_create_compress(OPJ_CODEC_JPT);
1054 if (LocaleCompare(image_info->magick,"J2K") == 0)
1055 jp2_codec=opj_create_compress(OPJ_CODEC_J2K);
1057 jp2_codec=opj_create_compress(OPJ_CODEC_JP2);
1058 opj_set_warning_handler(jp2_codec,JP2WarningHandler,exception);
1059 opj_set_error_handler(jp2_codec,JP2ErrorHandler,exception);
1060 opj_setup_encoder(jp2_codec,¶meters,jp2_image);
1061 jp2_stream=opj_stream_create(OPJ_J2K_STREAM_CHUNK_SIZE,OPJ_FALSE);
1062 opj_stream_set_read_function(jp2_stream,JP2ReadHandler);
1063 opj_stream_set_write_function(jp2_stream,JP2WriteHandler);
1064 opj_stream_set_seek_function(jp2_stream,JP2SeekHandler);
1065 opj_stream_set_skip_function(jp2_stream,JP2SkipHandler);
1066 opj_stream_set_user_data(jp2_stream,image);
1067 if (jp2_stream == (opj_stream_t *) NULL)
1068 ThrowWriterException(DelegateError,"UnableToEncodeImageFile");
1069 jp2_status=opj_start_compress(jp2_codec,jp2_image,jp2_stream);
1070 if (jp2_status == 0)
1071 ThrowWriterException(DelegateError,"UnableToEncodeImageFile");
1072 if ((opj_encode(jp2_codec,jp2_stream) == 0) ||
1073 (opj_end_compress(jp2_codec,jp2_stream) == 0))
1075 opj_stream_set_user_data(jp2_stream,NULL);
1076 opj_stream_destroy_v3(jp2_stream);
1077 opj_destroy_codec(jp2_codec);
1078 opj_image_destroy(jp2_image);
1079 ThrowWriterException(DelegateError,"UnableToEncodeImageFile");
1084 opj_stream_set_user_data(jp2_stream,NULL);
1085 opj_stream_destroy_v3(jp2_stream);
1086 opj_destroy_codec(jp2_codec);
1087 opj_image_destroy(jp2_image);
1088 (void) CloseBlob(image);