/*

% Copyright (C) 2003-2025 GraphicsMagick Group

% Copyright (C) 2002 ImageMagick Studio

%

% This program is covered by multiple licenses, which are described in

% Copyright.txt. You should have received a copy of Copyright.txt with this

% package; otherwise see http://www.graphicsmagick.org/www/Copyright.html.

%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

%                            DDDD   IIIII  BBBB                               %

%                            D   D    I    B   B                              %

%                            D   D    I    BBBB                               %

%                            D   D    I    B   B                              %

%                            DDDD   IIIII  BBBB                               %

%                                                                             %

%                                                                             %

%                   Read/Write Windows DIB Image Format.                      %

%                                                                             %

%                                                                             %

%                              Software Design                                %

%                                John Cristy                                  %

%                                 July 1992                                   %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%

*/

/*

  Include declarations.

*/

#include "magick/studio.h"

#include "magick/analyze.h"

#include "magick/blob.h"

#include "magick/colormap.h"

#include "magick/log.h"

#include "magick/magick.h"

#include "magick/monitor.h"

#include "magick/pixel_cache.h"

#include "magick/render.h"

#include "magick/transform.h"

#include "magick/utility.h"

/*

  Macro definitions (from Windows wingdi.h).

*/

#undef BI_RLE8

#define BI_RLE8  1

/*

  Typedef declarations.

*/

typedef struct _DIBInfo

{

  magick_uint32_t

    header_size;

  magick_int32_t

    width,

    height;

  magick_uint16_t

    planes,

    bits_per_pixel;

  magick_uint32_t

    compression, /* 0=uncompressed, 1=8bit RLE, 2=4bit RLE, 3=RGB masked */

    image_size,

    x_pixels,

    y_pixels,

    number_colors,

    colors_important;

  magick_uint16_t

    red_mask,

    green_mask,

    blue_mask,

    alpha_mask;

  magick_int32_t

    colorspace;

  PointInfo

    red_primary,

    green_primary,

    blue_primary,

    gamma_scale;

} DIBInfo;

/*

  Forward declarations.

*/

static unsigned int

  WriteDIBImage(const ImageInfo *,Image *);

static void LogDIBInfo(const DIBInfo *dib_info)

{

  /*

    Dump 40-byte version 3+ bitmap header.

    BMP version 4 has same members, but is 108 bytes.

  */

  (void) LogMagickEvent(CoderEvent,GetMagickModule(),

                        "DIB Header:\n"

                        "    Header Size:          %u\n"

                        "    Width:                %d\n"

                        "    Height:               %d\n"

                        "    Planes:               %u\n"

                        "    Bits Per Pixel:       %u\n"

                        "    Compression:          %u\n"

                        "    Size Of Bitmap:       %u\n"

                        "    Horizontal Resolution:%u\n"

                        "    Vertical Resolution:  %u\n"

                        "    Colors Used:          %u\n"

                        "    Colors Important:     %u",

                        (unsigned int) dib_info->header_size,

                        (signed int) dib_info->width,

                        (signed int) dib_info->height,

                        (unsigned int) dib_info->planes,

                        (unsigned int) dib_info->bits_per_pixel,

                        (unsigned int) dib_info->compression,

                        (unsigned int) dib_info->image_size,

                        (unsigned int) dib_info->x_pixels,

                        (unsigned int) dib_info->y_pixels,

                        (unsigned int) dib_info->number_colors,

                        (unsigned int) dib_info->colors_important

                        );

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

%   D e c o d e I m a g e                                                     %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  Method DecodeImage unpacks the packed image pixels into runlength-encoded

%  pixel packets.

%

%  The format of the DecodeImage method is:

%

%      unsigned int DecodeImage(Image *image,const unsigned long compression,

%        unsigned char *pixels)

%

%  A description of each parameter follows:

%

%    o status:  Method DecodeImage returns True if all the pixels are

%      uncompressed without error, otherwise False.

%

%    o image: The address of a structure of type Image.

%

%    o compression:  A value of 1 means the compressed pixels are runlength

%      encoded for a 256-color bitmap.  A value of 2 means a 16-color bitmap.

%

%    o pixels:  The address of a byte (8 bits) array of pixel data created by

%      the decoding process.

%

%    o pixels_size: The size of the allocated buffer array.

%

%

*/

static MagickPassFail DecodeImage(Image *image,const unsigned long compression,

                                  unsigned char *pixels, const size_t pixels_size)

{

  unsigned long

    x,

    y;

  unsigned int

    i;

  int

    byte,

    count;

  register unsigned char

    *q;

  unsigned char

    *end;

  assert(image != (Image *) NULL);

  assert(pixels != (unsigned char *) NULL);

  if (image->logging)

    (void) LogMagickEvent(CoderEvent,GetMagickModule(),

                          "  Decoding RLE compressed pixels to"

                          " %" MAGICK_SIZE_T_F "u bytes",

                          (MAGICK_SIZE_T) image->rows*(size_t)image->columns);

  byte=0;

  x=0;

  q=pixels;

  end=pixels + pixels_size;

  /*

    Decompress sufficient data to support the number of pixels (or

    rows) in the image and then return.

    Do not wait to read the final EOL and EOI markers (if not yet

    encountered) since we always read this marker just before we

    return.

  */

  for (y=0; y < image->rows; )

    {

      if (q < pixels || q >= end)

        {

          if (image->logging)

            (void) LogMagickEvent(CoderEvent,GetMagickModule(),

                                  "  Decode buffer full (y=%lu, "

                                  "pixels_size=%" MAGICK_SIZE_T_F "u, "

                                  "pixels=%p, q=%p, end=%p)",

                                  y, (MAGICK_SIZE_T) pixels_size,

                                  pixels, q, end);

          break;

        }

      count=ReadBlobByte(image);

      if (count == EOF)

        return MagickFail;

      if (count > 0)

        {

          count=Min(count, end - q);

          /*

            Encoded mode.

          */

          byte=ReadBlobByte(image);

          if (byte == EOF)

            return MagickFail;

          if (compression == BI_RLE8)

            {

              for ( i=count; i != 0; --i )

                {

                  *q++=(unsigned char) byte;

                }

            }

          else

            {

              for ( i=0; i < (unsigned int) count; i++ )

                {

                  *q++=(unsigned char)

                    ((i & 0x01) ? (byte & 0x0f) : ((byte >> 4) & 0x0f));

                }

            }

          x+=count;

        }

      else

        {

          /*

            Escape mode.

          */

          count=ReadBlobByte(image);

          if (count == EOF)

            return MagickFail;

          if (count == 0x01)

            {

              if (image->logging)

                (void) LogMagickEvent(CoderEvent,GetMagickModule(),

                                      "  RLE Escape code encountered");

              goto rle_decode_done;

            }

          switch (count)

            {

            case 0x00:

              {

                /*

                  End of line.

                */

                x=0;

                y++;

                q=pixels+(size_t) y*image->columns;

                break;

              }

            case 0x02:

              {

                /*

                  Delta mode.

                */

                byte=ReadBlobByte(image);

                if (byte == EOF)

                  return MagickFail;

                x+=byte;

                byte=ReadBlobByte(image);

                if (byte == EOF)

                  return MagickFail;

                y+=byte;

                q=pixels+y*(size_t) image->columns+x;

                break;

              }

            default:

              {

                /*

                  Absolute mode.

                */

                count=Min(count, end - q);

                if (count < 0)

                  return MagickFail;

                if (compression == BI_RLE8)

                  for (i=count; i != 0; --i)

                    {

                      byte=ReadBlobByte(image);

                      if (byte == EOF)

                        return MagickFail;

                      *q++=byte;

                    }

                else

                  for (i=0; i < (unsigned int) count; i++)

                    {

                      if ((i & 0x01) == 0)

                        {

                          byte=ReadBlobByte(image);

                          if (byte == EOF)

                            return MagickFail;

                        }

                      *q++=(unsigned char)

                        ((i & 0x01) ? (byte & 0x0f) : ((byte >> 4) & 0x0f));

                    }

                x+=count;

                /*

                  Read pad byte.

                */

                if (compression == BI_RLE8)

                  {

                    if (count & 0x01)

                      if (ReadBlobByte(image) == EOF)

                        return MagickFail;

                  }

                else

                  if (((count & 0x03) == 1) || ((count & 0x03) == 2))

                    if (ReadBlobByte(image) == EOF)

                      return MagickFail;

                break;

              }

            }

        }

      if (QuantumTick(y,image->rows))

        if (!MagickMonitorFormatted(y,image->rows,&image->exception,

                                    LoadImageText,image->filename,

                                    image->columns,image->rows))

          break;

    }

  (void) ReadBlobByte(image);  /* end of line */

  (void) ReadBlobByte(image);

 rle_decode_done:

  if (image->logging)

    (void) LogMagickEvent(CoderEvent,GetMagickModule(),

                          "  Decoded %" MAGICK_SIZE_T_F "u bytes",

                          (MAGICK_SIZE_T) (q-pixels));

  if ((MAGICK_SIZE_T) (q-pixels) < pixels_size)

    {

      if (image->logging)

        (void) LogMagickEvent(CoderEvent,GetMagickModule(),

                              "  RLE decoded output is truncated");

      return MagickFail;

    }

  return(MagickPass);

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

%   E n c o d e I m a g e                                                     %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  Method EncodeImage compresses pixels using a runlength encoded format.

%

%  The format of the EncodeImage method is:

%

%    static unsigned int EncodeImage(Image *image,

%      const unsigned long bytes_per_line,const unsigned char *pixels,

%      unsigned char *compressed_pixels)

%

%  A description of each parameter follows:

%

%    o status:  Method EncodeImage returns the number of bytes in the

%      runlength encoded compress_pixels array.

%

%    o image:  A pointer to an Image structure.

%

%    o bytes_per_line: The number of bytes in a scanline of compressed pixels

%

%    o pixels:  The address of a byte (8 bits) array of pixel data created by

%      the compression process.

%

%    o compressed_pixels:  The address of a byte (8 bits) array of compressed

%      pixel data.

%

%

*/

static size_t EncodeImage(Image *image,const size_t bytes_per_line,

  const unsigned char *pixels,unsigned char *compressed_pixels)

{

  unsigned long

    y;

  register const unsigned char

    *p;

  register unsigned long

    i,

    x;

  register unsigned char

    *q;

  /*

    Runlength encode pixels.

  */

  assert(image != (Image *) NULL);

  assert(pixels != (const unsigned char *) NULL);

  assert(compressed_pixels != (unsigned char *) NULL);

  p=pixels;

  q=compressed_pixels;

  i=0;

  for (y=0; y < image->rows; y++)

  {

    for (x=0; x < bytes_per_line; x+=i)

    {

      /*

        Determine runlength.

      */

      for (i=1; (((size_t) x+i) < bytes_per_line); i++)

        if ((*(p+i) != *p) || (i == 255U))

          break;

      *q++=(unsigned char) i;

      *q++=(*p);

      p+=i;

    }

    /*

      End of line.

    */

    *q++=0x00;

    *q++=0x00;

    if (QuantumTick(y,image->rows))

      if (!MagickMonitorFormatted(y,image->rows,&image->exception,

                                  SaveImageText,image->filename,

                                  image->columns,image->rows))

        break;

  }

  /*

    End of bitmap.

  */

  *q++=0;

  *q++=0x01;

  return((size_t) (q-compressed_pixels));

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

%   I s D I B                                                                 %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  Method IsDIB returns True if the image format type, identified by the

%  magick string, is DIB.

%

%  The format of the IsDIB method is:

%

%      unsigned int IsDIB(const unsigned char *magick,const size_t length)

%

%  A description of each parameter follows:

%

%    o status:  Method IsDIB returns True if the image format type is DIB.

%

%    o magick: This string is generally the first few bytes of an image file

%      or blob.

%

%    o length: Specifies the length of the magick string.

%

%

*/

static unsigned int IsDIB(const unsigned char *magick,const size_t length)

{

  if (length < 2)

    return(False);

  if( (*magick == 40) && (*(magick+1)==0))

    return(True);

  return(False);

}

/*

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%                                                                             %

%                                                                             %

%                                                                             %

%   R e a d D I B I m a g e                                                   %

%                                                                             %

%                                                                             %

%                                                                             %

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%

%  Method ReadDIBImage reads a Microsoft Windows bitmap 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 ReadDIBImage method is:

%

%      image=ReadDIBImage(image_info)

%

%  A description of each parameter follows:

%

%    o image:  Method ReadDIBImage returns a pointer to the image after

%      reading.  A null image is returned if there is a memory shortage or

%      if the image cannot be read.

%

%    o image_info: Specifies a pointer to a ImageInfo structure.

%

%    o exception: return any errors or warnings in this structure.

%

%

*/

static Image *ReadDIBImage(const ImageInfo *image_info,ExceptionInfo *exception)

{

  DIBInfo

    dib_info;

  Image

    *image;

  IndexPacket

    index;

  long

    bit,

    y;

  register IndexPacket

    *indexes;

  register long

    x;

  register PixelPacket

    *q;

  register long

    i;

  register unsigned char

    *p;

  TimerInfo

    timer;

  size_t

    count,

    length;

  unsigned char

    *pixels;

  unsigned int

    status;

  size_t

    bytes_per_line,

    packet_size,

    pixels_size;

  magick_off_t

    file_size;

  /*

    Open image file.

  */

  assert(image_info != (const ImageInfo *) NULL);

  assert(image_info->signature == MagickSignature);

  assert(exception != (ExceptionInfo *) NULL);

  assert(exception->signature == MagickSignature);

  GetTimerInfo(&timer);

  image=AllocateImage(image_info);

  status=OpenBlob(image_info,image,ReadBinaryBlobMode,exception);

  if (status == False)

    ThrowReaderException(FileOpenError,UnableToOpenFile,image);

  file_size=GetBlobSize(image);

  /*

    Determine if this is a DIB file.

  */

  (void) memset(&dib_info,0,sizeof(DIBInfo));

  dib_info.header_size=ReadBlobLSBLong(image);

  if (dib_info.header_size!=40)

    ThrowReaderException(CorruptImageError,ImproperImageHeader,image);

  /*

    Microsoft Windows 3.X DIB image file.

  */

  /*

    BMP v3 defines width and height as signed LONG (32 bit) values.  If

    height is a positive number, then the image is a "bottom-up"

    bitmap with origin in the lower-left corner.  If height is a

    negative number, then the image is a "top-down" bitmap with the

    origin in the upper-left corner.  The meaning of negative values

    is not defined for width.

  */

  dib_info.width=ReadBlobLSBSignedLong(image);

  dib_info.height=ReadBlobLSBSignedLong(image);

  dib_info.planes=ReadBlobLSBShort(image);

  dib_info.bits_per_pixel=ReadBlobLSBShort(image);

  dib_info.compression=ReadBlobLSBLong(image);

  dib_info.image_size=ReadBlobLSBLong(image);

  dib_info.x_pixels=ReadBlobLSBLong(image);

  dib_info.y_pixels=ReadBlobLSBLong(image);

  dib_info.number_colors=ReadBlobLSBLong(image);

  dib_info.colors_important=ReadBlobLSBLong(image);

  if (EOFBlob(image))

    ThrowReaderException(CorruptImageError,UnexpectedEndOfFile,image);

  LogDIBInfo(&dib_info);

  if (dib_info.planes != 1)

    ThrowReaderException(CorruptImageError,ImproperImageHeader,image);

  if ((dib_info.bits_per_pixel != 1) &&

      (dib_info.bits_per_pixel != 4) &&

      (dib_info.bits_per_pixel != 8) &&

      (dib_info.bits_per_pixel != 16) &&

      (dib_info.bits_per_pixel != 24) &&

      (dib_info.bits_per_pixel != 32))

    ThrowReaderException(CorruptImageError,ImproperImageHeader,image);

  if ((dib_info.compression == 3) && ((dib_info.bits_per_pixel == 16) ||

      (dib_info.bits_per_pixel == 32)))

    {

      dib_info.red_mask=ReadBlobLSBShort(image);

      dib_info.green_mask=ReadBlobLSBShort(image);

      dib_info.blue_mask=ReadBlobLSBShort(image);

    }

  if (EOFBlob(image))

    ThrowReaderException(CorruptImageError,UnexpectedEndOfFile,image);

  if (dib_info.width <= 0)

      ThrowReaderException(CorruptImageError,NegativeOrZeroImageSize,image);

  if (dib_info.height == 0)

      ThrowReaderException(CorruptImageError,NegativeOrZeroImageSize,image);

  if (dib_info.height < -2147483647)

    ThrowReaderException(CorruptImageError,ImproperImageHeader,image);

  image->matte=dib_info.bits_per_pixel == 32;

  image->columns=AbsoluteValue(dib_info.width);

  image->rows=AbsoluteValue(dib_info.height);

  image->depth=8;

  if (dib_info.number_colors > 256)

    ThrowReaderException(CorruptImageError,ImproperImageHeader,image);

  if (dib_info.colors_important > 256)

    ThrowReaderException(CorruptImageError,ImproperImageHeader,image);

  if ((dib_info.number_colors != 0) && (dib_info.bits_per_pixel > 8))

    ThrowReaderException(CorruptImageError,ImproperImageHeader,image);

  if ((dib_info.image_size != 0U) && (dib_info.image_size > file_size))

    ThrowReaderException(CorruptImageError,UnexpectedEndOfFile,image);

  if ((dib_info.number_colors != 0) || (dib_info.bits_per_pixel <= 8))

    {

      image->storage_class=PseudoClass;

      image->colors=dib_info.number_colors;

      if (image->colors == 0)

        image->colors=1L << dib_info.bits_per_pixel;

    }

  if (image_info->size)

    {

      int

        flags;

      RectangleInfo

        geometry;

      flags=GetGeometry(image_info->size,&geometry.x,&geometry.y,

        &geometry.width,&geometry.height);

      if ((flags & WidthValue) && (geometry.width != 0)

          && (geometry.width < image->columns))

        image->columns=geometry.width;

      if ((flags & HeightValue) && (geometry.height != 0)

          && (geometry.height < image->rows))

        image->rows=geometry.height;

    }

   if (CheckImagePixelLimits(image, exception) != MagickPass)

    ThrowReaderException(ResourceLimitError,ImagePixelLimitExceeded,image);

  if (image->storage_class == PseudoClass)

    {

      unsigned char

        *dib_colormap;

      size_t

        packet_size;

      /*

        Read DIB raster colormap.

      */

      if (!AllocateImageColormap(image,image->colors))

        ThrowReaderException(ResourceLimitError,MemoryAllocationFailed,image);

      dib_colormap=MagickAllocateResourceLimitedArray(unsigned char *,image->colors,4);

      if (dib_colormap == (unsigned char *) NULL)

        ThrowReaderException(ResourceLimitError,MemoryAllocationFailed,image);

      packet_size=4;

      if ((count=ReadBlob(image,packet_size*image->colors,(char *) dib_colormap))

          != packet_size*image->colors)

        {

          if (image->logging)

            (void) LogMagickEvent(CoderEvent,GetMagickModule(),

                                  "Read %" MAGICK_SIZE_T_F  "u bytes from blob"

                                  " (expected %" MAGICK_SIZE_T_F  "u bytes)",

                                  (MAGICK_SIZE_T) count,

                                  (MAGICK_SIZE_T) packet_size*image->colors);

          MagickFreeResourceLimitedMemory(dib_colormap);

          ThrowReaderException(CorruptImageError,UnexpectedEndOfFile,image);

        }

      p=dib_colormap;

      for (i=0; i < (long) image->colors; i++)

      {

        image->colormap[i].blue=ScaleCharToQuantum(*p++);

        image->colormap[i].green=ScaleCharToQuantum(*p++);

        image->colormap[i].red=ScaleCharToQuantum(*p++);

        if (packet_size == 4)

          p++;

      }

      MagickFreeResourceLimitedMemory(dib_colormap);

    }

  /*

    Read image data.

  */

  packet_size=dib_info.bits_per_pixel;

  if (dib_info.compression == 2)

    packet_size<<=1;

  /*

     Below emulates:

     bytes_per_line=4*((image->columns*dib_info.packet_size+31)/32);

  */

  bytes_per_line=MagickArraySize(image->columns,packet_size);

  if ((bytes_per_line > 0) && (~((size_t) 0) - bytes_per_line) > 31)

    bytes_per_line = MagickArraySize(4,(bytes_per_line+31)/32);

  if (bytes_per_line == 0)

    ThrowReaderException(CoderError,ArithmeticOverflow,image);

  (void) LogMagickEvent(CoderEvent,GetMagickModule(),

                        "%" MAGICK_SIZE_T_F "u bytes per line",

                        (MAGICK_SIZE_T) bytes_per_line);

  /*

    Validate that file data size is suitable for claimed dimensions.

  */

  {

    size_t

      maximum_image_size;

    maximum_image_size=MagickArraySize(bytes_per_line,image->rows);

    if ((maximum_image_size == 0) ||

        (maximum_image_size >

         ((size_t) file_size * ((dib_info.compression == 1 ? 256 :

                                 dib_info.compression == 2 ? 8 : 1)))))

      ThrowReaderException(CorruptImageError,UnexpectedEndOfFile,image);

  }

  /*

    FIXME: Need to add support for compression=3 images.  Size

    calculations are wrong and there is no support for applying the

    masks.

  */

  length=MagickArraySize(bytes_per_line,image->rows);

  if (length == 0)

    ThrowReaderException(CoderError,ArithmeticOverflow,image);

  if ((image->columns+1UL) < image->columns)

    ThrowReaderException(CoderError,ArithmeticOverflow,image);

  pixels_size=MagickArraySize(image->rows,Max(bytes_per_line,(size_t) image->columns+1));

  if (pixels_size == 0)

    ThrowReaderException(CoderError,ArithmeticOverflow,image);

  pixels=MagickAllocateResourceLimitedMemory(unsigned char *,pixels_size);

  if (pixels == (unsigned char *) NULL)

    ThrowReaderException(ResourceLimitError,MemoryAllocationFailed,image);

  if ((dib_info.compression == 0) || (dib_info.compression == 3))

    {

      if ((count=ReadBlob(image,length,(char *) pixels)) != length)

        {

          if (image->logging)

            (void) LogMagickEvent(CoderEvent,GetMagickModule(),

                                  "Read %" MAGICK_SIZE_T_F  "u bytes from blob"

                                  " (expected %" MAGICK_SIZE_T_F  "u bytes)",

                                  (MAGICK_SIZE_T) count,

                                  (MAGICK_SIZE_T) length);

          MagickFreeResourceLimitedMemory(pixels);

          ThrowReaderException(CorruptImageError,UnexpectedEndOfFile,image);

        }

    }

  else

    {

      /*

        Convert run-length encoded raster pixels.

        DecodeImage() normally decompresses to rows*columns bytes of data.

      */

      (void) memset(pixels,0,pixels_size);

      status=DecodeImage(image,dib_info.compression,pixels,

                         (size_t) image->rows*image->columns);

      if (status == False)

        {

          MagickFreeResourceLimitedMemory(pixels);

          ThrowReaderException(CorruptImageError,UnableToRunlengthDecodeImage,

                               image);

        }

    }

  /*

    Initialize image structure.

  */

  image->units=PixelsPerCentimeterResolution;

  image->x_resolution=dib_info.x_pixels/100.0;

  image->y_resolution=dib_info.y_pixels/100.0;

  /*

    Convert DIB raster image to pixel packets.

  */

  switch (dib_info.bits_per_pixel)

  {

    case 1:

    {

      /*

        Convert bitmap scanline.

      */

      for (y=(long) image->rows-1; y >= 0; y--)

      {

        p=pixels+((size_t) image->rows-y-1)*bytes_per_line;

        q=SetImagePixels(image,0,y,image->columns,1);

        if (q == (PixelPacket *) NULL)

          break;

        indexes=AccessMutableIndexes(image);

        for (x=0; x < ((long) image->columns-7); x+=8)

        {

          for (bit=0; bit < 8; bit++)

          {

            index=((*p) & (0x80 >> bit) ? 0x01 : 0x00);

            VerifyColormapIndex(image,index);

            indexes[x+bit]=index;

            *q++=image->colormap[index];

          }

          p++;

        }

        if ((image->columns % 8) != 0)

          {

            for (bit=0; bit < (long) (image->columns % 8); bit++)

            {

              index=((*p) & (0x80 >> bit) ? 0x01 : 0x00);

              VerifyColormapIndex(image,index);

              indexes[x+bit]=index;

              *q++=image->colormap[index];

            }

            p++;

          }

        if (!SyncImagePixels(image))

          break;

        if (image->previous == (Image *) NULL)

          if (QuantumTick(y,image->rows))

            {

              status=MagickMonitorFormatted((size_t) image->rows-y-1,image->rows,

                                            exception,LoadImageText,

                                            image->filename,

                                            image->columns,image->rows);

              if (status == False)

                break;

            }

      }

      break;

    }

    case 4:

    {

      /*

        Convert PseudoColor scanline.

      */

      for (y=(long) image->rows-1; y >= 0; y--)

      {

        p=pixels+((size_t) image->rows-y-1)*bytes_per_line;

        q=SetImagePixels(image,0,y,image->columns,1);

        if (q == (PixelPacket *) NULL)

          break;

        indexes=AccessMutableIndexes(image);

        for (x=0; x < ((long) image->columns-1); x+=2)

        {

          index=(IndexPacket) ((*p >> 4) & 0xf);

          VerifyColormapIndex(image,index);

          indexes[x]=index;

          *q++=image->colormap[index];

          index=(IndexPacket) (*p & 0xf);

          VerifyColormapIndex(image,index);

          indexes[x+1]=index;

          *q++=image->colormap[index];

          p++;

        }

        if ((image->columns % 2) != 0)

          {

            index=(IndexPacket) ((*p >> 4) & 0xf);

            VerifyColormapIndex(image,index);

            indexes[x]=index;

            *q++=image->colormap[index];

            p++;

          }

        if (!SyncImagePixels(image))

          break;

        if (image->previous == (Image *) NULL)

          if (QuantumTick(y,image->rows))

            {

              status=MagickMonitorFormatted((size_t) image->rows-y-1,image->rows,

                                            exception,LoadImageText,

                                            image->filename,

                                            image->columns,image->rows);

              if (status == False)

                break;

            }

      }

      break;

    }

    case 8:

    {

      /*

        Convert PseudoColor scanline.

      */

      if ((dib_info.compression == 1) || (dib_info.compression == 2))

        bytes_per_line=image->columns;

      for (y=(long) image->rows-1; y >= 0; y--)

      {

        p=pixels+((size_t) image->rows-y-1)*bytes_per_line;

        q=SetImagePixels(image,0,y,image->columns,1);

        if (q == (PixelPacket *) NULL)

          break;

        indexes=AccessMutableIndexes(image);

        for (x=0; x < (long) image->columns; x++)

        {

          index=(IndexPacket) (*p);

          VerifyColormapIndex(image,index);

          indexes[x]=index;

          *q=image->colormap[index];

          p++;

          q++;

        }

        if (!SyncImagePixels(image))

          break;

        if (image->previous == (Image *) NULL)

          if (QuantumTick(y,image->rows))

            {

              status=MagickMonitorFormatted((size_t) image->rows-y-1,image->rows,

                                            exception,LoadImageText,

                                            image->filename,

                                            image->columns,image->rows);

              if (status == False)

                break;

            }

      }

      break;

    }

    case 16:

    {

      unsigned short

        word;

      /*

        Convert DirectColor (555 or 565) scanline.

      */

      image->storage_class=DirectClass;

      if (dib_info.compression == 1)

        bytes_per_line=(size_t) 2*image->columns;

      for (y=(long) image->rows-1; y >= 0; y--)

      {

        p=pixels+((size_t) image->rows-y-1)*bytes_per_line;

        q=SetImagePixels(image,0,y,image->columns,1);

        if (q == (PixelPacket *) NULL)

          break;

        for (x=0; x < (long) image->columns; x++)

        {

          word=(*p++);

          word|=(*p++ << 8);

          if (dib_info.red_mask == 0)

            {

              q->red=ScaleCharToQuantum(ScaleColor5to8((word >> 10) & 0x1f));

              q->green=ScaleCharToQuantum(ScaleColor5to8((word >> 5) & 0x1f));

              q->blue=ScaleCharToQuantum(ScaleColor5to8(word & 0x1f));

            }

          else

            {

              q->red=ScaleCharToQuantum(ScaleColor5to8((word >> 11) & 0x1f));

              q->green=ScaleCharToQuantum(ScaleColor6to8((word >> 5) & 0x3f));

              q->blue=ScaleCharToQuantum(ScaleColor5to8(word & 0x1f));

            }

          q++;

        }

        if (!SyncImagePixels(image))

          break;

        if (image->previous == (Image *) NULL)

          if (QuantumTick(y,image->rows))

            {

              status=MagickMonitorFormatted((size_t) image->rows-y-1,image->rows,

                                            exception,LoadImageText,

                                            image->filename,

                                            image->columns,image->rows);

              if (status == False)

                break;

            }

      }

      break;

    }

    case 24:

    case 32:

    {

      /*

        Convert DirectColor scanline.

      */

      for (y=(long) image->rows-1; y >= 0; y--)

      {

        p=pixels+((size_t) image->rows-y-1)*bytes_per_line;

        q=SetImagePixels(image,0,y,image->columns,1);

        if (q == (PixelPacket *) NULL)

          break;

        for (x=0; x < (long) image->columns; x++)

        {

          q->blue=ScaleCharToQuantum(*p++);

          q->green=ScaleCharToQuantum(*p++);

          q->red=ScaleCharToQuantum(*p++);

          if (image->matte)

            q->opacity=ScaleCharToQuantum(*p++);

          q++;

        }

        if (!SyncImagePixels(image))

          break;

        if (image->previous == (Image *) NULL)

          if (QuantumTick(y,image->rows))

            {

              status=MagickMonitorFormatted((size_t) image->rows-y-1,image->rows,

                                            exception,LoadImageText,

                                            image->filename,

                                            image->columns,image->rows);

              if (status == False)

                break;

            }

      }

      break;

    }

    default: