/*

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

%                                                                             %

%                                                                             %

%                                                                             %

%                        IIIII   CCCC   OOO   N   N                           %

%                          I    C      O   O  NN  N                           %

%                          I    C      O   O  N N N                           %

%                          I    C      O   O  N  NN                           %

%                        IIIII   CCCC   OOO   N   N                           %

%                                                                             %

%                                                                             %

%                   Read Microsoft Windows Icon Format                        %

%                                                                             %

%                              Software Design                                %

%                                   Cristy                                    %

%                                 July 1992                                   %

%                                                                             %

%                                                                             %

%  Copyright @ 1999 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                                            %

%                                                                             %

%    https://imagemagick.org/license/                                         %

%                                                                             %

%  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/artifact.h"

#include "MagickCore/attribute.h"

#include "MagickCore/blob.h"

#include "MagickCore/blob-private.h"

#include "MagickCore/cache.h"

#include "MagickCore/colormap.h"

#include "MagickCore/colorspace.h"

#include "MagickCore/colorspace-private.h"

#include "MagickCore/exception.h"

#include "MagickCore/exception-private.h"

#include "MagickCore/image.h"

#include "MagickCore/image-private.h"

#include "MagickCore/list.h"

#include "MagickCore/log.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/option.h"

#include "MagickCore/pixel-accessor.h"

#include "MagickCore/quantize.h"

#include "MagickCore/quantum-private.h"

#include "MagickCore/static.h"

#include "MagickCore/string_.h"

#include "MagickCore/string-private.h"

#include "MagickCore/module.h"

/*

  Define declarations.

*/

#define IconRgbCompression (size_t) 0

#define MaxIcons  1024

/*

  Typedef declarations.

*/

typedef struct _IconEntry

{

  unsigned char

    width,

    height,

    colors,

    reserved;

  unsigned short int

    planes,

    bits_per_pixel;

  size_t

    size,

    offset;

} IconEntry;

typedef struct _IconDirectory

{

  size_t

    count;

  IconEntry

    **icons;

} IconDirectory;

/*

  Forward declarations.

*/

static MagickBooleanType

  WriteICONImage(const ImageInfo *,Image *,ExceptionInfo *);

static IconDirectory *RelinquishIconDirectory(IconDirectory *directory)

{

  ssize_t

    i;

  assert(directory != (IconDirectory *) NULL);

  if (directory->icons != (IconEntry **) NULL)

    {

      for (i=0; i < (ssize_t) directory->count; i++)

      {

        if (directory->icons[i] != (IconEntry *) NULL)

          directory->icons[i]=(IconEntry *) RelinquishMagickMemory(

            directory->icons[i]);

      }

      directory->icons=(IconEntry **) RelinquishMagickMemory(directory->icons);

    }

  directory=(IconDirectory *) RelinquishMagickMemory(directory);

  return(directory);

}

static IconDirectory *AcquireIconDirectory(size_t count)

{

  IconDirectory

    *directory;

  ssize_t

    i;

  directory=(IconDirectory*) AcquireMagickMemory(sizeof(*directory));

  if (directory == (IconDirectory*) NULL)

    return(directory);

  directory->icons=(IconEntry **) AcquireQuantumMemory(count,

    sizeof(*directory->icons));

  if (directory->icons == (IconEntry **) NULL)

    return(RelinquishIconDirectory(directory));

  memset(directory->icons,0,count*sizeof(*directory->icons));

  directory->count=0;

  for (i=0; i < (ssize_t) count; i++)

  {

    directory->icons[i]=(IconEntry *) AcquireMagickMemory(

      sizeof(**directory->icons));

    if (directory->icons[i] == (IconEntry *) NULL)

      return(RelinquishIconDirectory(directory));

    directory->count++;

  }

  return(directory);

}

/*

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

%                                                                             %

%                                                                             %

%                                                                             %

%   R e a d I C O N I m a g e                                                 %

%                                                                             %

%                                                                             %

%                                                                             %

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

%

%  ReadICONImage() reads a Microsoft icon 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 ReadICONImage method is:

%

%      Image *ReadICONImage(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 *Read1XImage(Image *image,ExceptionInfo *exception)

{

  size_t

    columns,

    rows;

  ssize_t

    i;

  /*

    Read Windows 1.0 Icon.

  */

  (void) ReadBlobLSBLong(image);  /* hot spot X/Y */

  columns=(size_t) ReadBlobLSBShort(image);

  rows=(size_t) (ReadBlobLSBShort(image));

  (void) ReadBlobLSBShort(image);  /* width of bitmap in bytes */

  (void) ReadBlobLSBShort(image);  /* cursor color */

  if (((rows != 32) && (rows != 64)) || ((columns != 32) && (columns != 64)))

    {

      (void) ThrowMagickException(exception,GetMagickModule(),CorruptImageError,

        "ImproperImageHeader","`%s'",image->filename);

      return(DestroyImageList(image));

    }

  /*

    Convert bitmap scanline.

  */

  if (SetImageExtent(image,columns,rows,exception) == MagickFalse)

    return(DestroyImageList(image));

  image->alpha_trait=BlendPixelTrait;

  if (AcquireImageColormap(image,3,exception) == MagickFalse)

    return(DestroyImageList(image));

  image->colormap[1].alpha=TransparentAlpha;

  for (i=0; i < 2; i++)

  {

    ssize_t

      y;

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

    {

      Quantum

        *q;

      ssize_t

        x;

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

      if (q == (Quantum *) NULL)

        break;

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

      {

        size_t

          bit,

          byte;

        byte=(size_t) ReadBlobByte(image);

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

        {

          Quantum

            index;

          index=(Quantum) ((byte & (0x80 >> bit)) != 0 ? (i == 0 ? 0x01 : 0x02) : 0x00);

          if (i == 0)

            SetPixelIndex(image,index,q);

          else

            if (GetPixelIndex(image,q) != 0x01)

              SetPixelIndex(image,index,q);

          q+=(ptrdiff_t) GetPixelChannels(image);

        }

      }

      if (SyncAuthenticPixels(image,exception) == MagickFalse)

        break;

    }

  }

  if (SyncImage(image,exception) == MagickFalse)

    return(DestroyImageList(image));

  if (CloseBlob(image) == MagickFalse)

    return(DestroyImageList(image));

  return(image);

}

static inline size_t GetICONSize(size_t directory_size,size_t image_size)

{

  if (image_size != 0)

    return(image_size);

  if (directory_size != 0)

    return(directory_size);

  return(256);

}

static Image *ReadICONImage(const ImageInfo *image_info,

  ExceptionInfo *exception)

{

#define ThrowICONReaderException(exception,message) \

{ \

  directory=RelinquishIconDirectory(directory); \

  ThrowReaderException(exception,message) \

}

  IconDirectory

    *directory;

  Image

    *image;

  MagickBooleanType

    status;

  MagickSizeType

    extent;

  Quantum

    *q;

  short

    reserved,

    resource_type;

  size_t

    bit,

    byte,

    bytes_per_line,

    one,

    scanline_pad;

  ssize_t

    i,

    offset,

    x,

    y;

  unsigned char

    *p;

  unsigned short

    icon_count;

  /*

    Open image file.

  */

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

  assert(image_info->signature == MagickCoreSignature);

  (void) LogMagickEvent(CoderEvent,GetMagickModule(),"%s",image_info->filename);

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

  assert(exception->signature == MagickCoreSignature);

  image=AcquireImage(image_info,exception);

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

  if (status == MagickFalse)

    {

      image=DestroyImageList(image);

      return((Image *) NULL);

    }

  reserved=(short) ReadBlobLSBShort(image);

  if ((reserved == 0x0001) || (reserved == 0x0101) || (reserved == 0x0201))

    return(Read1XImage(image,exception));

  resource_type=(short) ReadBlobLSBShort(image);

  icon_count=ReadBlobLSBShort(image);

  if ((reserved != 0) || ((resource_type != 1) && (resource_type != 2)) ||

      (icon_count > MaxIcons))

    ThrowReaderException(CorruptImageError,"ImproperImageHeader");

  directory=AcquireIconDirectory((size_t) icon_count);

  if (directory == (IconDirectory *) NULL)

    ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");

  extent=0;

  for (i=0; i < (ssize_t) directory->count; i++)

  {

    directory->icons[i]->width=(unsigned char) ReadBlobByte(image);

    directory->icons[i]->height=(unsigned char) ReadBlobByte(image);

    directory->icons[i]->colors=(unsigned char) ReadBlobByte(image);

    directory->icons[i]->reserved=(unsigned char) ReadBlobByte(image);

    directory->icons[i]->planes=(unsigned short) ReadBlobLSBShort(image);

    directory->icons[i]->bits_per_pixel=(unsigned short)

      ReadBlobLSBShort(image);

    directory->icons[i]->size=ReadBlobLSBLong(image);

    directory->icons[i]->offset=ReadBlobLSBLong(image);

    if (EOFBlob(image) != MagickFalse)

      break;

    extent=MagickMax(extent,directory->icons[i]->size);

  }

  if ((EOFBlob(image) != MagickFalse) || (extent > GetBlobSize(image)))

    ThrowICONReaderException(CorruptImageError,"UnexpectedEndOfFile");

  one=1;

  for (i=0; i < (ssize_t) directory->count; i++)

  {

    size_t

      size;

    ssize_t

      count,

      height,

      width;

    unsigned short

      bits_per_pixel,

      planes;

    /*

      Verify Icon identifier.

    */

    offset=(ssize_t) SeekBlob(image,(MagickOffsetType)

      directory->icons[i]->offset,SEEK_SET);

    if (offset < 0)

      ThrowICONReaderException(CorruptImageError,"ImproperImageHeader");

    size=ReadBlobLSBLong(image);

    width=ReadBlobLSBSignedLong(image);

    height=(ReadBlobLSBSignedLong(image)/2);

    planes=ReadBlobLSBShort(image);

    bits_per_pixel=ReadBlobLSBShort(image);

    if (EOFBlob(image) != MagickFalse)

      {

        ThrowFileException(exception,CorruptImageError,"UnexpectedEndOfFile",

          image->filename);

        break;

      }

    if (((planes == 18505) && (bits_per_pixel == 21060)) || 

        (size == 0x474e5089))

      {

        Image

          *icon_image;

        ImageInfo

          *read_info;

        size_t

          length;

        unsigned char

          *png;

        /*

          Icon image encoded as a compressed PNG image.

        */

        length=directory->icons[i]->size;

        if ((length < 16) || (~length < 16))

          ThrowICONReaderException(ResourceLimitError,"MemoryAllocationFailed");

        png=(unsigned char *) AcquireQuantumMemory(length,sizeof(*png));

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

          ThrowICONReaderException(ResourceLimitError,"MemoryAllocationFailed");

        (void) memcpy(png,"\211PNG\r\n\032\n\000\000\000\015",12);

        png[12]=(unsigned char) planes;

        png[13]=(unsigned char) (planes >> 8);

        png[14]=(unsigned char) bits_per_pixel;

        png[15]=(unsigned char) (bits_per_pixel >> 8);

        count=ReadBlob(image,length-16,png+16);

        if (count != (ssize_t) (length-16))

          {

            png=(unsigned char *) RelinquishMagickMemory(png);

            ThrowICONReaderException(CorruptImageError,

              "InsufficientImageDataInFile");

          }

        read_info=CloneImageInfo(image_info);

        (void) CopyMagickString(read_info->magick,"PNG",MagickPathExtent);

        icon_image=BlobToImage(read_info,png,length,exception);

        read_info=DestroyImageInfo(read_info);

        png=(unsigned char *) RelinquishMagickMemory(png);

        if (icon_image == (Image *) NULL)

          {

            directory=RelinquishIconDirectory(directory);

            return(DestroyImageList(image));

          }

        DestroyBlob(icon_image);

        icon_image->blob=ReferenceBlob(image->blob);

        ReplaceImageInList(&image,icon_image);

        icon_image->scene=(size_t) i;

      }

    else

      {

        size_t

          number_colors;

        if (bits_per_pixel > 32)

          ThrowICONReaderException(CorruptImageError,"ImproperImageHeader");

        (void) ReadBlobLSBLong(image); /* compression */

        (void) ReadBlobLSBLong(image); /* image_size */

        (void) ReadBlobLSBLong(image); /* x_pixels */

        (void) ReadBlobLSBLong(image); /* y_pixels */

        number_colors=ReadBlobLSBLong(image);

        if (number_colors > GetBlobSize(image))

          ThrowICONReaderException(CorruptImageError,

            "InsufficientImageDataInFile");

        (void) ReadBlobLSBLong(image); /* colors_important */

        image->alpha_trait=BlendPixelTrait;

        image->columns=(size_t) GetICONSize( directory->icons[i]->width,

          (size_t) width);

        image->rows=(size_t) GetICONSize(directory->icons[i]->height,

          (size_t) height);

        image->depth=bits_per_pixel;

        if (image->depth > 16)

          image->depth=8;

        if (image->debug != MagickFalse)

          {

            (void) LogMagickEvent(CoderEvent,GetMagickModule(),

              " scene    = %.20g",(double) i);

            (void) LogMagickEvent(CoderEvent,GetMagickModule(),

              "   size   = %.20g",(double) size);

            (void) LogMagickEvent(CoderEvent,GetMagickModule(),

              "   width  = %.20g",(double) image->columns);

            (void) LogMagickEvent(CoderEvent,GetMagickModule(),

              "   height = %.20g",(double) image->rows);

            (void) LogMagickEvent(CoderEvent,GetMagickModule(),

              "   colors = %.20g",(double ) number_colors);

            (void) LogMagickEvent(CoderEvent,GetMagickModule(),

              "   planes = %.20g",(double) planes);

            (void) LogMagickEvent(CoderEvent,GetMagickModule(),

              "   bpp    = %.20g",(double) bits_per_pixel);

          }

      if ((number_colors != 0) || (bits_per_pixel <= 16U))

        {

          image->storage_class=PseudoClass;

          image->colors=number_colors;

          if ((image->colors == 0) || (image->colors > 256))

            image->colors=one << bits_per_pixel;

        }

      if (image->storage_class == PseudoClass)

        {

          ssize_t

            j;

          unsigned char

            *icon_colormap;

          /*

            Read Icon raster colormap.

          */

          if (image->colors > GetBlobSize(image))

            ThrowICONReaderException(CorruptImageError,

              "InsufficientImageDataInFile");

          if (AcquireImageColormap(image,image->colors,exception) == MagickFalse)

            ThrowICONReaderException(ResourceLimitError,

              "MemoryAllocationFailed");

          icon_colormap=(unsigned char *) AcquireQuantumMemory((size_t)

            image->colors,4UL*sizeof(*icon_colormap));

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

            ThrowICONReaderException(ResourceLimitError,

              "MemoryAllocationFailed");

          count=ReadBlob(image,(size_t) (4*image->colors),icon_colormap);

          if (count != (ssize_t) (4*image->colors))

            {

              icon_colormap=(unsigned char *) RelinquishMagickMemory(

                icon_colormap);

              ThrowICONReaderException(CorruptImageError,

                "InsufficientImageDataInFile");

            }

          p=icon_colormap;

          for (j=0; j < (ssize_t) image->colors; j++)

          {

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

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

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

            p++;

          }

          icon_colormap=(unsigned char *) RelinquishMagickMemory(icon_colormap);

        }

        /*

          Convert Icon raster image to pixel packets.

        */

        if ((image_info->ping != MagickFalse) &&

            (image_info->number_scenes != 0))

          if (image->scene >= (image_info->scene+image_info->number_scenes-1))

            break;

        status=SetImageExtent(image,image->columns,image->rows,exception);

        if (status == MagickFalse)

          {

            directory=RelinquishIconDirectory(directory);

            return(DestroyImageList(image));

          }

        bytes_per_line=(((image->columns*bits_per_pixel)+31U) & ~31U) >> 3;

        (void) bytes_per_line;

        scanline_pad=((((image->columns*bits_per_pixel)+31U) & ~31U)-

          (image->columns*bits_per_pixel)) >> 3;

        switch (bits_per_pixel)

        {

          case 1:

          {

            /*

              Convert bitmap scanline.

            */

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

            {

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

              if (q == (Quantum *) NULL)

                break;

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

              {

                byte=(size_t) ReadBlobByte(image);

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

                {

                  SetPixelIndex(image,(Quantum) ((byte & (0x80 >> bit)) != 0 ?

                    0x01 : 0x00),q);

                  q+=(ptrdiff_t) GetPixelChannels(image);

                }

              }

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

                {

                  byte=(size_t) ReadBlobByte(image);

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

                  {

                    SetPixelIndex(image,(Quantum) ((byte & (0x80 >> bit)) != 0 ?

                      0x01 : 0x00),q);

                    q+=(ptrdiff_t) GetPixelChannels(image);

                  }

                }

              for (x=0; x < (ssize_t) scanline_pad; x++)

                (void) ReadBlobByte(image);

              if (SyncAuthenticPixels(image,exception) == MagickFalse)

                break;

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

                {

                  status=SetImageProgress(image,LoadImageTag,(MagickOffsetType)

                    image->rows-y-1,(MagickSizeType) image->rows);

                  if (status == MagickFalse)

                    break;

                }

            }

            break;

          }

          case 4:

          {

            /*

              Read 4-bit Icon scanline.

            */

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

            {

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

              if (q == (Quantum *) NULL)

                break;

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

              {

                byte=(size_t) ReadBlobByte(image);

                SetPixelIndex(image,(Quantum) ((byte >> 4) & 0xf),q);

                q+=(ptrdiff_t) GetPixelChannels(image);

                SetPixelIndex(image,(Quantum) ((byte) & 0xf),q);

                q+=(ptrdiff_t) GetPixelChannels(image);

              }

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

                {

                  byte=(size_t) ReadBlobByte(image);

                  SetPixelIndex(image,(Quantum) ((byte >> 4) & 0xf),q);

                  q+=(ptrdiff_t) GetPixelChannels(image);

                }

              for (x=0; x < (ssize_t) scanline_pad; x++)

                (void) ReadBlobByte(image);

              if (SyncAuthenticPixels(image,exception) == MagickFalse)

                break;

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

                {

                  status=SetImageProgress(image,LoadImageTag,(MagickOffsetType)

                    image->rows-y-1,(MagickSizeType) image->rows);

                  if (status == MagickFalse)

                    break;

                }

            }

            break;

          }

          case 8:

          {

            /*

              Convert PseudoColor scanline.

            */

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

            {

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

              if (q == (Quantum *) NULL)

                break;

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

              {

                byte=(size_t) ReadBlobByte(image);

                SetPixelIndex(image,(Quantum) byte,q);

                q+=(ptrdiff_t) GetPixelChannels(image);

              }

              for (x=0; x < (ssize_t) scanline_pad; x++)

                (void) ReadBlobByte(image);

              if (SyncAuthenticPixels(image,exception) == MagickFalse)

                break;

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

                {

                  status=SetImageProgress(image,LoadImageTag,(MagickOffsetType)

                    image->rows-y-1,(MagickSizeType) image->rows);

                  if (status == MagickFalse)

                    break;

                }

            }

            break;

          }

          case 16:

          {

            /*

              Convert PseudoColor scanline.

            */

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

            {

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

              if (q == (Quantum *) NULL)

                break;

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

              {

                byte=(size_t) ReadBlobByte(image);

                byte|=((size_t) ReadBlobByte(image) << 8);

                SetPixelIndex(image,(Quantum) byte,q);

                q+=(ptrdiff_t) GetPixelChannels(image);

              }

              for (x=0; x < (ssize_t) scanline_pad; x++)

                (void) ReadBlobByte(image);

              if (SyncAuthenticPixels(image,exception) == MagickFalse)

                break;

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

                {

                  status=SetImageProgress(image,LoadImageTag,(MagickOffsetType)

                    image->rows-y-1,(MagickSizeType) image->rows);

                  if (status == MagickFalse)

                    break;

                }

            }

            break;

          }

          case 24:

          case 32:

          {

            /*

              Convert DirectColor scanline.

            */

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

            {

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

              if (q == (Quantum *) NULL)

                break;

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

              {

                SetPixelBlue(image,ScaleCharToQuantum((unsigned char)

                  ReadBlobByte(image)),q);

                SetPixelGreen(image,ScaleCharToQuantum((unsigned char)

                  ReadBlobByte(image)),q);

                SetPixelRed(image,ScaleCharToQuantum((unsigned char)

                  ReadBlobByte(image)),q);

                if (bits_per_pixel == 32)

                  SetPixelAlpha(image,ScaleCharToQuantum((unsigned char)

                    ReadBlobByte(image)),q);

                q+=(ptrdiff_t) GetPixelChannels(image);

              }

              if (bits_per_pixel == 24)

                for (x=0; x < (ssize_t) scanline_pad; x++)

                  (void) ReadBlobByte(image);

              if (SyncAuthenticPixels(image,exception) == MagickFalse)

                break;

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

                {

                  status=SetImageProgress(image,LoadImageTag,(MagickOffsetType)

                    image->rows-y-1,(MagickSizeType) image->rows);

                  if (status == MagickFalse)

                    break;

                }

            }

            break;

          }

          default:

            ThrowICONReaderException(CorruptImageError,"ImproperImageHeader");

        }

        if ((image_info->ping == MagickFalse) && (bits_per_pixel <= 16))

          (void) SyncImage(image,exception);

        if (bits_per_pixel != 32)

          {

            /*

              Read the ICON alpha mask.

            */

            image->storage_class=DirectClass;

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

            {

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

              if (q == (Quantum *) NULL)

                break;

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

              {

                byte=(size_t) ReadBlobByte(image);

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

                {

                  SetPixelAlpha(image,(((byte & (0x80 >> bit)) != 0) ?

                    TransparentAlpha : OpaqueAlpha),q);

                  q+=(ptrdiff_t) GetPixelChannels(image);

                }

              }

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

                {

                  byte=(size_t) ReadBlobByte(image);

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

                  {

                    SetPixelAlpha(image,(((byte & (0x80 >> bit)) != 0) ?

                      TransparentAlpha : OpaqueAlpha),q);

                    q+=(ptrdiff_t) GetPixelChannels(image);

                  }

                }

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

                for (x=0; x < (ssize_t) ((32-(image->columns % 32))/8); x++)

                  (void) ReadBlobByte(image);

              if (SyncAuthenticPixels(image,exception) == MagickFalse)

                break;

            }

          }

        if (EOFBlob(image) != MagickFalse)

          {

            ThrowFileException(exception,CorruptImageError,

              "UnexpectedEndOfFile",image->filename);

            break;

          }

      }

    /*

      Proceed to next image.

    */

    if (image_info->number_scenes != 0)

      if (image->scene >= (image_info->scene+image_info->number_scenes-1))

        break;

    if (i < ((ssize_t) directory->count-1))

      {

        /*

          Allocate next image structure.

        */

        AcquireNextImage(image_info,image,exception);

        if (GetNextImageInList(image) == (Image *) NULL)

          {

            status=MagickFalse;

            break;

          }

        image=SyncNextImageInList(image);

        status=SetImageProgress(image,LoadImagesTag,TellBlob(image),

          GetBlobSize(image));

        if (status == MagickFalse)

          break;

      }

  }

  directory=RelinquishIconDirectory(directory);

  (void) CloseBlob(image);

  if (status == MagickFalse)

    return(DestroyImageList(image));

  return(GetFirstImageInList(image));

}

/*

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

%                                                                             %

%                                                                             %

%                                                                             %

%   R e g i s t e r I C O N I m a g e                                         %

%                                                                             %

%                                                                             %

%                                                                             %

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

%

%  RegisterICONImage() adds attributes for the Icon 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 RegisterICONImage method is:

%

%      size_t RegisterICONImage(void)

%

*/

ModuleExport size_t RegisterICONImage(void)

{

  MagickInfo

    *entry;

  entry=AcquireMagickInfo("ICON","CUR","Microsoft icon");

  entry->decoder=(DecodeImageHandler *) ReadICONImage;

  entry->encoder=(EncodeImageHandler *) WriteICONImage;

  entry->flags^=CoderAdjoinFlag;

  entry->flags|=CoderDecoderSeekableStreamFlag;

  entry->flags|=CoderEncoderSeekableStreamFlag;

  (void) RegisterMagickInfo(entry);

  entry=AcquireMagickInfo("ICON","ICO","Microsoft icon");

  entry->decoder=(DecodeImageHandler *) ReadICONImage;

  entry->encoder=(EncodeImageHandler *) WriteICONImage;

  entry->flags|=CoderDecoderSeekableStreamFlag;

  entry->flags|=CoderEncoderSeekableStreamFlag;

  (void) RegisterMagickInfo(entry);

  entry=AcquireMagickInfo("ICON","ICN","Microsoft icon");

  entry->decoder=(DecodeImageHandler *) ReadICONImage;

  entry->encoder=(EncodeImageHandler *) WriteICONImage;

  entry->flags ^= CoderAdjoinFlag;

  entry->flags|=CoderDecoderSeekableStreamFlag;

  entry->flags|=CoderEncoderSeekableStreamFlag;

  (void) RegisterMagickInfo(entry);

  entry=AcquireMagickInfo("ICON","ICON","Microsoft icon");

  entry->decoder=(DecodeImageHandler *) ReadICONImage;

  entry->encoder=(EncodeImageHandler *) WriteICONImage;

  entry->flags^=CoderAdjoinFlag;

  entry->flags|=CoderDecoderSeekableStreamFlag;

  entry->flags|=CoderEncoderSeekableStreamFlag;

  (void) RegisterMagickInfo(entry);

  return(MagickImageCoderSignature);

}

/*

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

%                                                                             %

%                                                                             %

%                                                                             %

%   U n r e g i s t e r I C O N I m a g e                                     %

%                                                                             %

%                                                                             %

%                                                                             %

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

%

%  UnregisterICONImage() removes format registrations made by the

%  ICON module from the list of supported formats.

%

%  The format of the UnregisterICONImage method is:

%

%      UnregisterICONImage(void)

%

*/

ModuleExport void UnregisterICONImage(void)

{

  (void) UnregisterMagickInfo("CUR");

  (void) UnregisterMagickInfo("ICO");

  (void) UnregisterMagickInfo("ICON");

}

/*

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

%                                                                             %

%                                                                             %

%                                                                             %

%   W r i t e I C O N I m a g e                                               %

%                                                                             %

%                                                                             %

%                                                                             %

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

%

%  WriteICONImage() writes an image in Microsoft Windows bitmap encoded

%  image format, version 3 for Windows or (if the image has a matte channel)

%  version 4.

%

%  It encodes any subimage as a compressed PNG image ("BI_PNG)", only when its

%  dimensions are larger than 256x256 and image->compression is undefined or

%  is defined as ZipCompression.

%

%  The format of the WriteICONImage method is:

%

%      MagickBooleanType WriteICONImage(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 Image *AutoResizeImage(const Image *image,const char *option,

  MagickOffsetType *count,ExceptionInfo *exception)

{

#define MAX_SIZES 16

  char

    *q;

  const char

    *p;

  Image

    *images,

    *resized;

  size_t

    sizes[MAX_SIZES] = { 256, 192, 128, 96, 64, 48, 40, 32, 24, 16 };

  ssize_t

    i;

  images=NULL;

  *count=0;

  i=0;

  p=option;

  while ((*p != '\0') && (i < MAX_SIZES))

  {

    size_t

      size;

    while ((isspace((int) ((unsigned char) *p)) != 0))

      p++;

    size=(size_t) strtol(p,&q,10);

    if ((p == q) || (size < 16) || (size > 512))

      return((Image *) NULL);

    p=q;

    sizes[i++]=size;

    while ((isspace((int) ((unsigned char) *p)) != 0) || (*p == ','))

      p++;

  }

  if (i == 0)

    i=10; /* the number of sizes when they are not specified by the user */

  *count=i;

  for (i=0; i < *count; i++)

  {

    resized=ResizeImage(image,sizes[i],sizes[i],image->filter,exception);

    if (resized == (Image *) NULL)

      return(DestroyImageList(images));

    if (images == (Image *) NULL)

      images=resized;

    else

      AppendImageToList(&images,resized);

  }

  return(images);

}

static inline MagickBooleanType ShouldCompressAsPng(const Image* image,

  const size_t png_size)

{

  if ((png_size != 0) && (image->columns >= png_size) &&

      (image->rows >= png_size))

    return(MagickTrue);

  if ((image->columns > 256L) && (image->rows > 256L) &&

      ((image->compression == UndefinedCompression) ||

       (image->compression == ZipCompression)))

    return(MagickTrue);

  return(MagickFalse);

}

static MagickBooleanType WriteICONImage(const ImageInfo *image_info,

  Image *image,ExceptionInfo *exception)