coders/jbig.c - platform/external/ImageMagick - Gitiles

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %                        JJJJJ  BBBB   IIIII   GGGG                           %
 %                          J    B   B    I    G                               %
 %                          J    BBBB     I    G  GG                           %
 %                        J J    B   B    I    G   G                           %
 %                        JJJ    BBBB   IIIII   GGG                            %
 %                                                                             %
 %                                                                             %
 %                       Read/Write JBIG Image Format                          %
 %                                                                             %
 %                              Software Design                                %
 %                                John Cristy                                  %
 %                                 July 1992                                   %
 %                                                                             %
 %                                                                             %
 %  Copyright 1999-2013 ImageMagick Studio LLC, a non-profit organization      %
 %  dedicated to making software imaging solutions freely available.           %
 %                                                                             %
 %  You may not use this file except in compliance with the License.  You may  %
 %  obtain a copy of the License at                                            %
 %                                                                             %
 %    http://www.imagemagick.org/script/license.php                            %
 %                                                                             %
 %  Unless required by applicable law or agreed to in writing, software        %
 %  distributed under the License is distributed on an "AS IS" BASIS,          %
 %  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.   %
 %  See the License for the specific language governing permissions and        %
 %  limitations under the License.                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %
 */

 /*
   Include declarations.
 */
 #include "MagickCore/studio.h"
 #include "MagickCore/attribute.h"
 #include "MagickCore/blob.h"
 #include "MagickCore/blob-private.h"
 #include "MagickCore/cache.h"
 #include "MagickCore/color-private.h"
 #include "MagickCore/colormap.h"
 #include "MagickCore/colorspace.h"
 #include "MagickCore/colorspace-private.h"
 #include "MagickCore/constitute.h"
 #include "MagickCore/exception.h"
 #include "MagickCore/exception-private.h"
 #include "MagickCore/geometry.h"
 #include "MagickCore/image.h"
 #include "MagickCore/image-private.h"
 #include "MagickCore/list.h"
 #include "MagickCore/magick.h"
 #include "MagickCore/memory_.h"
 #include "MagickCore/monitor.h"
 #include "MagickCore/monitor-private.h"
 #include "MagickCore/nt-base-private.h"
 #include "MagickCore/pixel-accessor.h"
 #include "MagickCore/quantum-private.h"
 #include "MagickCore/static.h"
 #include "MagickCore/string_.h"
 #include "MagickCore/string-private.h"
 #include "MagickCore/module.h"
 #if defined(MAGICKCORE_JBIG_DELEGATE)
 #include "jbig.h"
 #endif

 /*
   Forward declarations.
 */
 #if defined(MAGICKCORE_JBIG_DELEGATE)
 static MagickBooleanType
   WriteJBIGImage(const ImageInfo *,Image *,ExceptionInfo *);
 #endif

 #if defined(MAGICKCORE_JBIG_DELEGATE)
 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   R e a d J B I G I m a g e                                                 %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  ReadJBIGImage() reads a JBIG image file and returns it.  It
 %  allocates the memory necessary for the new Image structure and returns a
 %  pointer to the new image.
 %
 %  The format of the ReadJBIGImage method is:
 %
 %      Image *ReadJBIGImage(const ImageInfo *image_info,
 %        ExceptionInfo *exception)
 %
 %  A description of each parameter follows:
 %
 %    o image_info: the image info.
 %
 %    o exception: return any errors or warnings in this structure.
 %
 */
 static Image *ReadJBIGImage(const ImageInfo *image_info,
   ExceptionInfo *exception)
 {
   Image
     *image;

   MagickStatusType
     status;

   Quantum
     index;

   register ssize_t
     x;

   register Quantum
     *q;

   register unsigned char
     *p;

   ssize_t
     length,
     y;

   struct jbg_dec_state
     jbig_info;

   unsigned char
     bit,
     *buffer,
     byte;

   /*
     Open image file.
   */
   assert(image_info != (const ImageInfo *) NULL);
   assert(image_info->signature == MagickSignature);
   if (image_info->debug != MagickFalse)
     (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
       image_info->filename);
   assert(exception != (ExceptionInfo *) NULL);
   assert(exception->signature == MagickSignature);
   image=AcquireImage(image_info,exception);
   status=OpenBlob(image_info,image,ReadBinaryBlobMode,exception);
   if (status == MagickFalse)
     {
       image=DestroyImageList(image);
       return((Image *) NULL);
     }
   /*
     Initialize JBIG toolkit.
   */
   jbg_dec_init(&jbig_info);
   jbg_dec_maxsize(&jbig_info,(unsigned long) image->columns,(unsigned long)
     image->rows);
   image->columns=jbg_dec_getwidth(&jbig_info);
   image->rows=jbg_dec_getheight(&jbig_info);
   image->depth=8;
   image->storage_class=PseudoClass;
   image->colors=2;
   /*
     Read JBIG file.
   */
   buffer=(unsigned char *) AcquireQuantumMemory(MagickMaxBufferExtent,
     sizeof(*buffer));
   if (buffer == (unsigned char *) NULL)
     ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
   status=JBG_EAGAIN;
   do
   {
     length=(ssize_t) ReadBlob(image,MagickMaxBufferExtent,buffer);
     if (length == 0)
       break;
     p=buffer;
     while ((length > 0) && ((status == JBG_EAGAIN) || (status == JBG_EOK)))
     {
       size_t
         count;

       status=jbg_dec_in(&jbig_info,p,length,&count);
       p+=count;
       length-=(ssize_t) count;
     }
   } while ((status == JBG_EAGAIN) || (status == JBG_EOK));
   /*
     Create colormap.
   */
   image->columns=jbg_dec_getwidth(&jbig_info);
   image->rows=jbg_dec_getheight(&jbig_info);
   image->compression=JBIG2Compression;
   if (AcquireImageColormap(image,2,exception) == MagickFalse)
     {
       buffer=(unsigned char *) RelinquishMagickMemory(buffer);
       ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
     }
   image->colormap[0].red=0;
   image->colormap[0].green=0;
   image->colormap[0].blue=0;
   image->colormap[1].red=QuantumRange;
   image->colormap[1].green=QuantumRange;
   image->colormap[1].blue=QuantumRange;
   image->resolution.x=300;
   image->resolution.y=300;
   if (image_info->ping != MagickFalse)
     {
       (void) CloseBlob(image);
       return(GetFirstImageInList(image));
     }
   /*
     Convert X bitmap image to pixel packets.
   */
   p=jbg_dec_getimage(&jbig_info,0);
   for (y=0; y < (ssize_t) image->rows; y++)
   {
     q=QueueAuthenticPixels(image,0,y,image->columns,1,exception);
     if (q == (Quantum *) NULL)
       break;
     bit=0;
     byte=0;
     for (x=0; x < (ssize_t) image->columns; x++)
     {
       if (bit == 0)
         byte=(*p++);
       index=(byte & 0x80) ? 0 : 1;
       bit++;
       byte<<=1;
       if (bit == 8)
         bit=0;
       SetPixelIndex(image,index,q);
       SetPixelInfoPixel(image,image->colormap+(ssize_t) index,q);
       q+=GetPixelChannels(image);
     }
     if (SyncAuthenticPixels(image,exception) == MagickFalse)
       break;
     status=SetImageProgress(image,LoadImageTag,(MagickOffsetType) y,
       image->rows);
     if (status == MagickFalse)
       break;
   }
   /*
     Free scale resource.
   */
   jbg_dec_free(&jbig_info);
   buffer=(unsigned char *) RelinquishMagickMemory(buffer);
   (void) CloseBlob(image);
   return(GetFirstImageInList(image));
 }
 #endif

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   R e g i s t e r J B I G I m a g e                                         %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  RegisterJBIGImage() adds attributes for the JBIG image format to
 %  the list of supported formats.  The attributes include the image format
 %  tag, a method to read and/or write the format, whether the format
 %  supports the saving of more than one frame to the same file or blob,
 %  whether the format supports native in-memory I/O, and a brief
 %  description of the format.
 %
 %  The format of the RegisterJBIGImage method is:
 %
 %      size_t RegisterJBIGImage(void)
 %
 */
 ModuleExport size_t RegisterJBIGImage(void)
 {
 #define JBIGDescription  "Joint Bi-level Image experts Group interchange format"

   char
     version[MaxTextExtent];

   MagickInfo
     *entry;

   *version='\0';
 #if defined(JBG_VERSION)
   (void) CopyMagickString(version,JBG_VERSION,MaxTextExtent);
 #endif
   entry=SetMagickInfo("BIE");
 #if defined(MAGICKCORE_JBIG_DELEGATE)
   entry->decoder=(DecodeImageHandler *) ReadJBIGImage;
   entry->encoder=(EncodeImageHandler *) WriteJBIGImage;
 #endif
   entry->adjoin=MagickFalse;
   entry->description=ConstantString(JBIGDescription);
   if (*version != '\0')
     entry->version=ConstantString(version);
   entry->module=ConstantString("JBIG");
   (void) RegisterMagickInfo(entry);
   entry=SetMagickInfo("JBG");
 #if defined(MAGICKCORE_JBIG_DELEGATE)
   entry->decoder=(DecodeImageHandler *) ReadJBIGImage;
   entry->encoder=(EncodeImageHandler *) WriteJBIGImage;
 #endif
   entry->description=ConstantString(JBIGDescription);
   if (*version != '\0')
     entry->version=ConstantString(version);
   entry->module=ConstantString("JBIG");
   (void) RegisterMagickInfo(entry);
   entry=SetMagickInfo("JBIG");
 #if defined(MAGICKCORE_JBIG_DELEGATE)
   entry->decoder=(DecodeImageHandler *) ReadJBIGImage;
   entry->encoder=(EncodeImageHandler *) WriteJBIGImage;
 #endif
   entry->description=ConstantString(JBIGDescription);
   if (*version != '\0')
     entry->version=ConstantString(version);
   entry->module=ConstantString("JBIG");
   (void) RegisterMagickInfo(entry);
   return(MagickImageCoderSignature);
 }

 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   U n r e g i s t e r J B I G I m a g e                                     %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  UnregisterJBIGImage() removes format registrations made by the
 %  JBIG module from the list of supported formats.
 %
 %  The format of the UnregisterJBIGImage method is:
 %
 %      UnregisterJBIGImage(void)
 %
 */
 ModuleExport void UnregisterJBIGImage(void)
 {
   (void) UnregisterMagickInfo("BIE");
   (void) UnregisterMagickInfo("JBG");
   (void) UnregisterMagickInfo("JBIG");
 }

 #if defined(MAGICKCORE_JBIG_DELEGATE)
 /*
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %   W r i t e J B I G I m a g e                                               %
 %                                                                             %
 %                                                                             %
 %                                                                             %
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
 %  WriteJBIGImage() writes an image in the JBIG encoded image format.
 %
 %  The format of the WriteJBIGImage method is:
 %
 %      MagickBooleanType WriteJBIGImage(const ImageInfo *image_info,
 %        Image *image,ExceptionInfo *exception)
 %
 %  A description of each parameter follows.
 %
 %    o image_info: the image info.
 %
 %    o image:  The image.
 %
 %    o exception: return any errors or warnings in this structure.
 %
 */

 static void JBIGEncode(unsigned char *pixels,size_t length,void *data)
 {
   Image
     *image;

   image=(Image *) data;
   (void) WriteBlob(image,length,pixels);
 }

 static MagickBooleanType WriteJBIGImage(const ImageInfo *image_info,
   Image *image,ExceptionInfo *exception)
 {
   double
     version;

   MagickBooleanType
     status;

   MagickOffsetType
     scene;

   register const Quantum
     *p;

   register ssize_t
     x;

   register unsigned char
     *q;

   size_t
     number_packets;

   ssize_t
     y;

   struct jbg_enc_state
     jbig_info;

   unsigned char
     bit,
     byte,
     *pixels;

   /*
     Open image file.
   */
   assert(image_info != (const ImageInfo *) NULL);
   assert(image_info->signature == MagickSignature);
   assert(image != (Image *) NULL);
   assert(image->signature == MagickSignature);
   if (image->debug != MagickFalse)
     (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
   assert(exception != (ExceptionInfo *) NULL);
   assert(exception->signature == MagickSignature);
   status=OpenBlob(image_info,image,WriteBinaryBlobMode,exception);
   if (status == MagickFalse)
     return(status);
   version=StringToDouble(JBG_VERSION,(char **) NULL);
   scene=0;
   do
   {
     /*
       Allocate pixel data.
     */
     if (IssRGBCompatibleColorspace(image->colorspace) == MagickFalse)
       (void) TransformImageColorspace(image,sRGBColorspace,exception);
     number_packets=(image->columns+7)/8;
     pixels=(unsigned char *) AcquireQuantumMemory(number_packets,
       image->rows*sizeof(*pixels));
     if (pixels == (unsigned char *) NULL)
       ThrowWriterException(ResourceLimitError,"MemoryAllocationFailed");
     /*
       Convert pixels to a bitmap.
     */
     (void) SetImageType(image,BilevelType,exception);
     q=pixels;
     for (y=0; y < (ssize_t) image->rows; y++)
     {
       p=GetVirtualPixels(image,0,y,image->columns,1,exception);
       if (p == (const Quantum *) NULL)
         break;
       bit=0;
       byte=0;
       for (x=0; x < (ssize_t) image->columns; x++)
       {
         byte<<=1;
         if (GetPixelIntensity(image,p) < (QuantumRange/2.0))
           byte|=0x01;
         bit++;
         if (bit == 8)
           {
             *q++=byte;
             bit=0;
             byte=0;
           }
         p+=GetPixelChannels(image);
       }
       if (bit != 0)
         *q++=byte << (8-bit);
       if (image->previous == (Image *) NULL)
         {
           status=SetImageProgress(image,SaveImageTag,(MagickOffsetType) y,
             image->rows);
           if (status == MagickFalse)
             break;
         }
     }
     /*
       Initialize JBIG info structure.
     */
     jbg_enc_init(&jbig_info,(unsigned long) image->columns,(unsigned long)
       image->rows,1,&pixels,(void (*)(unsigned char *,size_t,void *))
       JBIGEncode,image);
     if (image_info->scene != 0)
       jbg_enc_layers(&jbig_info,(int) image_info->scene);
     else
       {
         size_t
           x_resolution,
           y_resolution;

         x_resolution=640;
         y_resolution=480;
         if (image_info->density != (char *) NULL)
           {
             GeometryInfo
               geometry_info;

             MagickStatusType
               flags;

             flags=ParseGeometry(image_info->density,&geometry_info);
             x_resolution=geometry_info.rho;
             y_resolution=geometry_info.sigma;
             if ((flags & SigmaValue) == 0)
               y_resolution=x_resolution;
           }
         if (image->units == PixelsPerCentimeterResolution)
           {
             x_resolution=(size_t) (100.0*2.54*x_resolution+0.5)/100.0;
             y_resolution=(size_t) (100.0*2.54*y_resolution+0.5)/100.0;
           }
         (void) jbg_enc_lrlmax(&jbig_info,(unsigned long) x_resolution,
           (unsigned long) y_resolution);
       }
     (void) jbg_enc_lrange(&jbig_info,-1,-1);
     jbg_enc_options(&jbig_info,JBG_ILEAVE | JBG_SMID,JBG_TPDON | JBG_TPBON |
       JBG_DPON,version < 1.6 ? -1 : 0,-1,-1);
     /*
       Write JBIG image.
     */
     jbg_enc_out(&jbig_info);
     jbg_enc_free(&jbig_info);
     pixels=(unsigned char *) RelinquishMagickMemory(pixels);
     if (GetNextImageInList(image) == (Image *) NULL)
       break;
     image=SyncNextImageInList(image);
     status=SetImageProgress(image,SaveImagesTag,scene++,
       GetImageListLength(image));
     if (status == MagickFalse)
       break;
   } while (image_info->adjoin != MagickFalse);
   (void) CloseBlob(image);
   return(MagickTrue);
 }
 #endif
	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% JJJJJ BBBB IIIII GGGG %
	% J B B I G %
	% J BBBB I G GG %
	% J J B B I G G %
	% JJJ BBBB IIIII GGG %
	% %
	% %
	% Read/Write JBIG Image Format %
	% %
	% Software Design %
	% John Cristy %
	% July 1992 %
	% %
	% %
	% Copyright 1999-2013 ImageMagick Studio LLC, a non-profit organization %
	% dedicated to making software imaging solutions freely available. %
	% %
	% You may not use this file except in compliance with the License. You may %
	% obtain a copy of the License at %
	% %
	% http://www.imagemagick.org/script/license.php %
	% %
	% Unless required by applicable law or agreed to in writing, software %
	% distributed under the License is distributed on an "AS IS" BASIS, %
	% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. %
	% See the License for the specific language governing permissions and %
	% limitations under the License. %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	%
	*/

	/*
	Include declarations.
	*/
	#include "MagickCore/studio.h"
	#include "MagickCore/attribute.h"
	#include "MagickCore/blob.h"
	#include "MagickCore/blob-private.h"
	#include "MagickCore/cache.h"
	#include "MagickCore/color-private.h"
	#include "MagickCore/colormap.h"
	#include "MagickCore/colorspace.h"
	#include "MagickCore/colorspace-private.h"
	#include "MagickCore/constitute.h"
	#include "MagickCore/exception.h"
	#include "MagickCore/exception-private.h"
	#include "MagickCore/geometry.h"
	#include "MagickCore/image.h"
	#include "MagickCore/image-private.h"
	#include "MagickCore/list.h"
	#include "MagickCore/magick.h"
	#include "MagickCore/memory_.h"
	#include "MagickCore/monitor.h"
	#include "MagickCore/monitor-private.h"
	#include "MagickCore/nt-base-private.h"
	#include "MagickCore/pixel-accessor.h"
	#include "MagickCore/quantum-private.h"
	#include "MagickCore/static.h"
	#include "MagickCore/string_.h"
	#include "MagickCore/string-private.h"
	#include "MagickCore/module.h"
	#if defined(MAGICKCORE_JBIG_DELEGATE)
	#include "jbig.h"
	#endif

	/*
	Forward declarations.
	*/
	#if defined(MAGICKCORE_JBIG_DELEGATE)
	static MagickBooleanType
	WriteJBIGImage(const ImageInfo ,Image ,ExceptionInfo *);
	#endif

	#if defined(MAGICKCORE_JBIG_DELEGATE)
	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% R e a d J B I G I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% ReadJBIGImage() reads a JBIG image file and returns it. It
	% allocates the memory necessary for the new Image structure and returns a
	% pointer to the new image.
	%
	% The format of the ReadJBIGImage method is:
	%
	% Image ReadJBIGImage(const ImageInfo image_info,
	% ExceptionInfo *exception)
	%
	% A description of each parameter follows:
	%
	% o image_info: the image info.
	%
	% o exception: return any errors or warnings in this structure.
	%
	*/
	static Image ReadJBIGImage(const ImageInfo image_info,
	ExceptionInfo *exception)
	{
	Image
	*image;

	MagickStatusType
	status;

	Quantum
	index;

	register ssize_t
	x;

	register Quantum
	*q;

	register unsigned char
	*p;

	ssize_t
	length,
	y;

	struct jbg_dec_state
	jbig_info;

	unsigned char
	bit,
	*buffer,
	byte;

	/*
	Open image file.
	*/
	assert(image_info != (const ImageInfo *) NULL);
	assert(image_info->signature == MagickSignature);
	if (image_info->debug != MagickFalse)
	(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
	image_info->filename);
	assert(exception != (ExceptionInfo *) NULL);
	assert(exception->signature == MagickSignature);
	image=AcquireImage(image_info,exception);
	status=OpenBlob(image_info,image,ReadBinaryBlobMode,exception);
	if (status == MagickFalse)
	{
	image=DestroyImageList(image);
	return((Image *) NULL);
	}
	/*
	Initialize JBIG toolkit.
	*/
	jbg_dec_init(&jbig_info);
	jbg_dec_maxsize(&jbig_info,(unsigned long) image->columns,(unsigned long)
	image->rows);
	image->columns=jbg_dec_getwidth(&jbig_info);
	image->rows=jbg_dec_getheight(&jbig_info);
	image->depth=8;
	image->storage_class=PseudoClass;
	image->colors=2;
	/*
	Read JBIG file.
	*/
	buffer=(unsigned char *) AcquireQuantumMemory(MagickMaxBufferExtent,
	sizeof(*buffer));
	if (buffer == (unsigned char *) NULL)
	ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
	status=JBG_EAGAIN;
	do
	{
	length=(ssize_t) ReadBlob(image,MagickMaxBufferExtent,buffer);
	if (length == 0)
	break;
	p=buffer;
	while ((length > 0) && ((status == JBG_EAGAIN) \|\| (status == JBG_EOK)))
	{
	size_t
	count;

	status=jbg_dec_in(&jbig_info,p,length,&count);
	p+=count;
	length-=(ssize_t) count;
	}
	} while ((status == JBG_EAGAIN) \|\| (status == JBG_EOK));
	/*
	Create colormap.
	*/
	image->columns=jbg_dec_getwidth(&jbig_info);
	image->rows=jbg_dec_getheight(&jbig_info);
	image->compression=JBIG2Compression;
	if (AcquireImageColormap(image,2,exception) == MagickFalse)
	{
	buffer=(unsigned char *) RelinquishMagickMemory(buffer);
	ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
	}
	image->colormap[0].red=0;
	image->colormap[0].green=0;
	image->colormap[0].blue=0;
	image->colormap[1].red=QuantumRange;
	image->colormap[1].green=QuantumRange;
	image->colormap[1].blue=QuantumRange;
	image->resolution.x=300;
	image->resolution.y=300;
	if (image_info->ping != MagickFalse)
	{
	(void) CloseBlob(image);
	return(GetFirstImageInList(image));
	}
	/*
	Convert X bitmap image to pixel packets.
	*/
	p=jbg_dec_getimage(&jbig_info,0);
	for (y=0; y < (ssize_t) image->rows; y++)
	{
	q=QueueAuthenticPixels(image,0,y,image->columns,1,exception);
	if (q == (Quantum *) NULL)
	break;
	bit=0;
	byte=0;
	for (x=0; x < (ssize_t) image->columns; x++)
	{
	if (bit == 0)
	byte=(*p++);
	index=(byte & 0x80) ? 0 : 1;
	bit++;
	byte<<=1;
	if (bit == 8)
	bit=0;
	SetPixelIndex(image,index,q);
	SetPixelInfoPixel(image,image->colormap+(ssize_t) index,q);
	q+=GetPixelChannels(image);
	}
	if (SyncAuthenticPixels(image,exception) == MagickFalse)
	break;
	status=SetImageProgress(image,LoadImageTag,(MagickOffsetType) y,
	image->rows);
	if (status == MagickFalse)
	break;
	}
	/*
	Free scale resource.
	*/
	jbg_dec_free(&jbig_info);
	buffer=(unsigned char *) RelinquishMagickMemory(buffer);
	(void) CloseBlob(image);
	return(GetFirstImageInList(image));
	}
	#endif

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% R e g i s t e r J B I G I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% RegisterJBIGImage() adds attributes for the JBIG image format to
	% the list of supported formats. The attributes include the image format
	% tag, a method to read and/or write the format, whether the format
	% supports the saving of more than one frame to the same file or blob,
	% whether the format supports native in-memory I/O, and a brief
	% description of the format.
	%
	% The format of the RegisterJBIGImage method is:
	%
	% size_t RegisterJBIGImage(void)
	%
	*/
	ModuleExport size_t RegisterJBIGImage(void)
	{
	#define JBIGDescription "Joint Bi-level Image experts Group interchange format"

	char
	version[MaxTextExtent];

	MagickInfo
	*entry;

	*version='\0';
	#if defined(JBG_VERSION)
	(void) CopyMagickString(version,JBG_VERSION,MaxTextExtent);
	#endif
	entry=SetMagickInfo("BIE");
	#if defined(MAGICKCORE_JBIG_DELEGATE)
	entry->decoder=(DecodeImageHandler *) ReadJBIGImage;
	entry->encoder=(EncodeImageHandler *) WriteJBIGImage;
	#endif
	entry->adjoin=MagickFalse;
	entry->description=ConstantString(JBIGDescription);
	if (*version != '\0')
	entry->version=ConstantString(version);
	entry->module=ConstantString("JBIG");
	(void) RegisterMagickInfo(entry);
	entry=SetMagickInfo("JBG");
	#if defined(MAGICKCORE_JBIG_DELEGATE)
	entry->decoder=(DecodeImageHandler *) ReadJBIGImage;
	entry->encoder=(EncodeImageHandler *) WriteJBIGImage;
	#endif
	entry->description=ConstantString(JBIGDescription);
	if (*version != '\0')
	entry->version=ConstantString(version);
	entry->module=ConstantString("JBIG");
	(void) RegisterMagickInfo(entry);
	entry=SetMagickInfo("JBIG");
	#if defined(MAGICKCORE_JBIG_DELEGATE)
	entry->decoder=(DecodeImageHandler *) ReadJBIGImage;
	entry->encoder=(EncodeImageHandler *) WriteJBIGImage;
	#endif
	entry->description=ConstantString(JBIGDescription);
	if (*version != '\0')
	entry->version=ConstantString(version);
	entry->module=ConstantString("JBIG");
	(void) RegisterMagickInfo(entry);
	return(MagickImageCoderSignature);
	}

	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% U n r e g i s t e r J B I G I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% UnregisterJBIGImage() removes format registrations made by the
	% JBIG module from the list of supported formats.
	%
	% The format of the UnregisterJBIGImage method is:
	%
	% UnregisterJBIGImage(void)
	%
	*/
	ModuleExport void UnregisterJBIGImage(void)
	{
	(void) UnregisterMagickInfo("BIE");
	(void) UnregisterMagickInfo("JBG");
	(void) UnregisterMagickInfo("JBIG");
	}

	#if defined(MAGICKCORE_JBIG_DELEGATE)
	/*
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	% %
	% %
	% %
	% W r i t e J B I G I m a g e %
	% %
	% %
	% %
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%
	% WriteJBIGImage() writes an image in the JBIG encoded image format.
	%
	% The format of the WriteJBIGImage method is:
	%
	% MagickBooleanType WriteJBIGImage(const ImageInfo *image_info,
	% Image image,ExceptionInfo exception)
	%
	% A description of each parameter follows.
	%
	% o image_info: the image info.
	%
	% o image: The image.
	%
	% o exception: return any errors or warnings in this structure.
	%
	*/

	static void JBIGEncode(unsigned char pixels,size_t length,void data)
	{
	Image
	*image;

	image=(Image *) data;
	(void) WriteBlob(image,length,pixels);
	}

	static MagickBooleanType WriteJBIGImage(const ImageInfo *image_info,
	Image image,ExceptionInfo exception)
	{
	double
	version;

	MagickBooleanType
	status;

	MagickOffsetType
	scene;

	register const Quantum
	*p;

	register ssize_t
	x;

	register unsigned char
	*q;

	size_t
	number_packets;

	ssize_t
	y;

	struct jbg_enc_state
	jbig_info;

	unsigned char
	bit,
	byte,
	*pixels;

	/*
	Open image file.
	*/
	assert(image_info != (const ImageInfo *) NULL);
	assert(image_info->signature == MagickSignature);
	assert(image != (Image *) NULL);
	assert(image->signature == MagickSignature);
	if (image->debug != MagickFalse)
	(void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
	assert(exception != (ExceptionInfo *) NULL);
	assert(exception->signature == MagickSignature);
	status=OpenBlob(image_info,image,WriteBinaryBlobMode,exception);
	if (status == MagickFalse)
	return(status);
	version=StringToDouble(JBG_VERSION,(char **) NULL);
	scene=0;
	do
	{
	/*
	Allocate pixel data.
	*/
	if (IssRGBCompatibleColorspace(image->colorspace) == MagickFalse)
	(void) TransformImageColorspace(image,sRGBColorspace,exception);
	number_packets=(image->columns+7)/8;
	pixels=(unsigned char *) AcquireQuantumMemory(number_packets,
	image->rowssizeof(pixels));
	if (pixels == (unsigned char *) NULL)
	ThrowWriterException(ResourceLimitError,"MemoryAllocationFailed");
	/*
	Convert pixels to a bitmap.
	*/
	(void) SetImageType(image,BilevelType,exception);
	q=pixels;
	for (y=0; y < (ssize_t) image->rows; y++)
	{
	p=GetVirtualPixels(image,0,y,image->columns,1,exception);
	if (p == (const Quantum *) NULL)
	break;
	bit=0;
	byte=0;
	for (x=0; x < (ssize_t) image->columns; x++)
	{
	byte<<=1;
	if (GetPixelIntensity(image,p) < (QuantumRange/2.0))
	byte\|=0x01;
	bit++;
	if (bit == 8)
	{
	*q++=byte;
	bit=0;
	byte=0;
	}
	p+=GetPixelChannels(image);
	}
	if (bit != 0)
	*q++=byte << (8-bit);
	if (image->previous == (Image *) NULL)
	{
	status=SetImageProgress(image,SaveImageTag,(MagickOffsetType) y,
	image->rows);
	if (status == MagickFalse)
	break;
	}
	}
	/*
	Initialize JBIG info structure.
	*/
	jbg_enc_init(&jbig_info,(unsigned long) image->columns,(unsigned long)
	image->rows,1,&pixels,(void ()(unsigned char ,size_t,void *))
	JBIGEncode,image);
	if (image_info->scene != 0)
	jbg_enc_layers(&jbig_info,(int) image_info->scene);
	else
	{
	size_t
	x_resolution,
	y_resolution;

	x_resolution=640;
	y_resolution=480;
	if (image_info->density != (char *) NULL)
	{
	GeometryInfo
	geometry_info;

	MagickStatusType
	flags;

	flags=ParseGeometry(image_info->density,&geometry_info);
	x_resolution=geometry_info.rho;
	y_resolution=geometry_info.sigma;
	if ((flags & SigmaValue) == 0)
	y_resolution=x_resolution;
	}
	if (image->units == PixelsPerCentimeterResolution)
	{
	x_resolution=(size_t) (100.02.54x_resolution+0.5)/100.0;
	y_resolution=(size_t) (100.02.54y_resolution+0.5)/100.0;
	}
	(void) jbg_enc_lrlmax(&jbig_info,(unsigned long) x_resolution,
	(unsigned long) y_resolution);
	}
	(void) jbg_enc_lrange(&jbig_info,-1,-1);
	jbg_enc_options(&jbig_info,JBG_ILEAVE \| JBG_SMID,JBG_TPDON \| JBG_TPBON \|
	JBG_DPON,version < 1.6 ? -1 : 0,-1,-1);
	/*
	Write JBIG image.
	*/
	jbg_enc_out(&jbig_info);
	jbg_enc_free(&jbig_info);
	pixels=(unsigned char *) RelinquishMagickMemory(pixels);
	if (GetNextImageInList(image) == (Image *) NULL)
	break;
	image=SyncNextImageInList(image);
	status=SetImageProgress(image,SaveImagesTag,scene++,
	GetImageListLength(image));
	if (status == MagickFalse)
	break;
	} while (image_info->adjoin != MagickFalse);
	(void) CloseBlob(image);
	return(MagickTrue);
	}
	#endif