/*

% Copyright (C) 2003-2026 GraphicsMagick Group

% Copyright (C) 2002 ImageMagick Studio

% Copyright 1991-1999 E. I. du Pont de Nemours and Company

%

% 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.

%

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

%                                                                             %

%                                                                             %

%                                                                             %

%                             AAA   V   V  SSSSS                              %

%                            A   A  V   V  SS                                 %

%                            AAAAA  V   V   SSS                               %

%                            A   A   V V      SS                              %

%                            A   A    V    SSSSS                              %

%                                                                             %

%                                                                             %

%                        Read/Write AVS X Image Format.                       %

%                                                                             %

%                                                                             %

%                              Software Design                                %

%                                John Cristy                                  %

%                                 July 1992                                   %

%                                                                             %

%                                                                             %

%                                                                             %

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

%

%

*/

/*

  Include declarations.

*/

#include "magick/studio.h"

#include "magick/blob.h"

#include "magick/log.h"

#include "magick/magick.h"

#include "magick/monitor.h"

#include "magick/pixel_cache.h"

#include "magick/utility.h"

#include "magick/static.h"

/*

  Forward declarations.

*/

static unsigned int

  WriteAVSImage(const ImageInfo *,Image *);

/*

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

%                                                                             %

%                                                                             %

%                                                                             %

%   R e a d A V S I m a g e                                                   %

%                                                                             %

%                                                                             %

%                                                                             %

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

%

%  Method ReadAVSImage reads an AVS X image file and returns it.  It

%  allocates the memory necessary for the new Image structure and returns a

%  pointer to the new image.  Note that these files often have the extension

%  'X' which conflicts with our X11 support coder.

%

%  The format of the ReadAVSImage method is:

%

%      Image *ReadAVSImage(const ImageInfo *image_info,ExceptionInfo *exception)

%

%  A description of each parameter follows:

%

%    o image:  Method ReadAVSImage 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.

%

%

*/

#define AVS_WIDTH_LIMIT 65536UL  /* Artificially limit width to 64K pixels */

#define AVS_HEIGHT_LIMIT 65536UL /* Artificially limit height to 64K pixels */

#define ThrowAVSReaderException(code_,reason_,image_)           \

  {                                                             \

    MagickFreeResourceLimitedMemory(unsigned char *,pixels);    \

    ThrowReaderException(code_,reason_,image_);                 \

  }

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

{

  Image

    *image;

  long

    y;

  register long

    x;

  register PixelPacket

    *q;

  register unsigned char

    *p;

  unsigned char

    *pixels = (unsigned char *) NULL;

  unsigned int

    status;

  magick_uint32_t

    height,

    width;

  /*

    Open image file.

  */

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

  assert(image_info->signature == MagickSignature);

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

  assert(exception->signature == MagickSignature);

  image=AllocateImage(image_info);

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

  if (status == MagickFail)

    ThrowReaderException(FileOpenError,UnableToOpenFile,image);

  /*

    Read AVS image.

  */

  width=ReadBlobMSBLong(image);

  height=ReadBlobMSBLong(image);

  if (EOFBlob(image))

    ThrowAVSReaderException(CorruptImageError,UnexpectedEndOfFile,image);

  (void) LogMagickEvent(CoderEvent,GetMagickModule(),

                        "AVS dimensions %ux%u",(unsigned)width,(unsigned)height);

  /*

    Impose a maximum width and height limit in order to avoid

    incredibly huge allocations.

  */

  if ((width > AVS_WIDTH_LIMIT) || (height > AVS_HEIGHT_LIMIT))

    ThrowAVSReaderException(CoderError,ImageColumnOrRowSizeIsNotSupported,image);

  do

  {

    /*

      Convert AVS raster image to pixel packets.

    */

    size_t

      row_bytes;

    image->columns=width;

    image->rows=height;

    image->depth=8;

    if (image_info->ping && (image_info->subrange != 0))

      if (image->scene >= (image_info->subimage+image_info->subrange-1))

        break;

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

      ThrowAVSReaderException(ResourceLimitError,ImagePixelLimitExceeded,image);

    pixels=MagickAllocateResourceLimitedArray(unsigned char *,image->columns,4);

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

      ThrowAVSReaderException(ResourceLimitError,MemoryAllocationFailed,image);

    row_bytes=(size_t) 4*image->columns;

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

    {

      if (ReadBlob(image,row_bytes,pixels) != row_bytes)

        ThrowAVSReaderException(CorruptImageError,UnexpectedEndOfFile,image);

      p=pixels;

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

      if (q == (PixelPacket *) NULL)

        {

          status=MagickFail;

          break;

        }

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

      {

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

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

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

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

        image->matte|=(q->opacity != OpaqueOpacity);

        q++;

      }

      if (!SyncImagePixels(image))

        {

          status=MagickFail;

          break;

        }

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

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

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

                                      LoadImageText,image->filename,

                                      image->columns,image->rows))

            {

              status=MagickFail;

              break;

            }

    }

    MagickFreeResourceLimitedMemory(unsigned char *,pixels);

    if (MagickFail == status)

      break;

    StopTimer(&image->timer);

    /*

      Proceed to next image.

    */

    if (image_info->subrange != 0)

      if (image->scene >= (image_info->subimage+image_info->subrange-1))

        break;

    width=ReadBlobMSBLong(image);

    height=ReadBlobMSBLong(image);

    if (!(EOFBlob(image)) && (width <= AVS_WIDTH_LIMIT) &&

        (height <= AVS_HEIGHT_LIMIT))

      {

        /*

          Allocate next image structure.

        */

        AllocateNextImage(image_info,image);

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

          {

            DestroyImageList(image);

            return((Image *) NULL);

          }

        image=SyncNextImageInList(image);

        status=MagickMonitorFormatted(TellBlob(image),GetBlobSize(image),

                                      exception,LoadImagesText,image->filename);

        if (status == MagickFail)

          break;

      }

  } while (!(EOFBlob(image)));

  while (image->previous != (Image *) NULL)

    image=image->previous;

  CloseBlob(image);

  if (MagickFail == status)

    {

      DestroyImageList(image);

      image=(Image *) NULL;

    }

  return(image);

}

/*

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

%                                                                             %

%                                                                             %

%                                                                             %

%   R e g i s t e r A V S I m a g e                                           %

%                                                                             %

%                                                                             %

%                                                                             %

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

%

%  Method RegisterAVSImage adds attributes for the AVS 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 RegisterAVSImage method is:

%

%      RegisterAVSImage(void)

%

*/

ModuleExport void RegisterAVSImage(void)

{

  MagickInfo

    *entry;

  entry=SetMagickInfo("AVS");

  entry->decoder=(DecoderHandler) ReadAVSImage;

  entry->encoder=(EncoderHandler) WriteAVSImage;

  entry->description="AVS X image";

  entry->module="AVS";

  entry->coder_class=UnstableCoderClass;

  (void) RegisterMagickInfo(entry);

}

/*

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

%                                                                             %

%                                                                             %

%                                                                             %

%   U n r e g i s t e r A V S I m a g e                                       %

%                                                                             %

%                                                                             %

%                                                                             %

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

%

%  Method UnregisterAVSImage removes format registrations made by the

%  AVS module from the list of supported formats.

%

%  The format of the UnregisterAVSImage method is:

%

%      UnregisterAVSImage(void)

%

*/

ModuleExport void UnregisterAVSImage(void)

{

  (void) UnregisterMagickInfo("AVS");

}

/*

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

%                                                                             %

%                                                                             %

%                                                                             %

%   W r i t e A V S I m a g e                                                 %

%                                                                             %

%                                                                             %

%                                                                             %

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

%

%  Method WriteAVSImage writes an image to a file in AVS X image format.

%

%  The format of the WriteAVSImage method is:

%

%      unsigned int WriteAVSImage(const ImageInfo *image_info,Image *image)

%

%  A description of each parameter follows.

%

%    o status: Method WriteAVSImage return True if the image is written.

%      False is returned is there is a memory shortage or if the image file

%      fails to write.

%

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

%

%    o image:  A pointer to an Image structure.

%

%

*/

static unsigned int WriteAVSImage(const ImageInfo *image_info,Image *image)

{

  register const PixelPacket

    *p;

  register long

    x,

    y;

  register unsigned char

    *q;

  unsigned char

    *pixels;

  unsigned int

    status;

  unsigned long

    scene;

  size_t

    image_list_length;

  /*

    Open output image file.

  */

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

  assert(image_info->signature == MagickSignature);

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

  assert(image->signature == MagickSignature);

  image_list_length=GetImageListLength(image);

  status=OpenBlob(image_info,image,WriteBinaryBlobMode,&image->exception);

  if (status == False)

    ThrowWriterException(FileOpenError,UnableToOpenFile,image);

  scene=0;

  do

  {

    /*

      Write AVS header.

    */

    if (TransformColorspace(image,RGBColorspace) == MagickFail)

      ThrowWriterException(CoderError,UnableToTransformColorspace,image);

    (void) WriteBlobMSBLong(image,image->columns);

    (void) WriteBlobMSBLong(image,image->rows);

    /*

      Allocate memory for pixels.

    */

    pixels=MagickAllocateResourceLimitedMemory(unsigned char *,image->columns*sizeof(PixelPacket));

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

      ThrowWriterException(ResourceLimitError,MemoryAllocationFailed,image);

    /*

      Convert MIFF to AVS raster pixels.

    */

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

    {

      p=AcquireImagePixels(image,0,y,image->columns,1,&image->exception);

      if (p == (PixelPacket *) NULL)

        break;

      q=pixels;

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

      {

        *q++=ScaleQuantumToChar(

          MaxRGB-(image->matte ? p->opacity : OpaqueOpacity));

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

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

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

        p++;

      }

      (void) WriteBlob(image,q-pixels,(char *) pixels);

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

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

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

                                      SaveImageText,image->filename,

                                      image->columns,image->rows))

            break;

    }

    MagickFreeResourceLimitedMemory(unsigned char *,pixels);

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

      break;

    image=SyncNextImageInList(image);

    status=MagickMonitorFormatted(scene++,image_list_length,

                                  &image->exception,SaveImagesText,

                                  image->filename);

    if (status == False)

      break;

  } while (image_info->adjoin);

  if (image_info->adjoin)

    while (image->previous != (Image *) NULL)

      image=image->previous;

  status &= CloseBlob(image);

  return(status);

}