/*

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

%                                                                             %

%                                                                             %

%                                                                             %

%                            TTTTT   GGGG   AAA                               %

%                              T    G      A   A                              %

%                              T    G  GG  AAAAA                              %

%                              T    G   G  A   A                              %

%                              T     GGG   A   A                              %

%                                                                             %

%                                                                             %

%                    Read/Write Truevision Targa Image 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/color-private.h"

#include "MagickCore/colormap.h"

#include "MagickCore/colormap-private.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/magick.h"

#include "MagickCore/memory_.h"

#include "MagickCore/module.h"

#include "MagickCore/monitor.h"

#include "MagickCore/monitor-private.h"

#include "MagickCore/option.h"

#include "MagickCore/pixel-accessor.h"

#include "MagickCore/property.h"

#include "MagickCore/quantum-private.h"

#include "MagickCore/static.h"

#include "MagickCore/string_.h"

#include "coders/coders-private.h"

/*

  Enumerated declarations.

*/

typedef enum

{

  TGAColormap = 1,

  TGARGB = 2,

  TGAMonochrome = 3,

  TGARLEColormap = 9,

  TGARLERGB = 10,

  TGARLEMonochrome = 11

} TGAImageType;

/*

  Typedef declarations.

*/

typedef struct _TGAInfo

{

  TGAImageType

    image_type;

  unsigned char

    id_length,

    colormap_type;

  unsigned short

    colormap_index,

    colormap_length;

  unsigned char

    colormap_size;

  unsigned short

    x_origin,

    y_origin,

    width,

    height;

  unsigned char

    bits_per_pixel,

    attributes;

} TGAInfo;

/*

  Forward declarations.

*/

static MagickBooleanType

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

/*

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

%                                                                             %

%                                                                             %

%                                                                             %

%   R e a d T G A I m a g e                                                   %

%                                                                             %

%                                                                             %

%                                                                             %

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

%

%  ReadTGAImage() reads a Truevision TGA 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 ReadTGAImage method is:

%

%      Image *ReadTGAImage(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 *ReadTGAImage(const ImageInfo *image_info,ExceptionInfo *exception)

{

  const char

    *option;

  Image

    *image;

  MagickBooleanType

    flip_x = MagickFalse,

    flip_y = MagickFalse,

    status;

  PixelInfo

    pixel;

  Quantum

    index,

    *q;

  size_t

    base,

    flag,

    skip;

  ssize_t

    count,

    i,

    offset,

    offset_stepsize,

    x,

    y;

  TGAInfo

    tga_info;

  unsigned char

    j,

    k,

    pixels[4],

    runlength;

  /*

    Open image file.

  */

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

  assert(image_info->signature == MagickCoreSignature);

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

  assert(exception->signature == MagickCoreSignature);

  if (IsEventLogging() != MagickFalse)

    (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",

      image_info->filename);

  image=AcquireImage(image_info,exception);

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

  if (status == MagickFalse)

    {

      image=DestroyImageList(image);

      return((Image *) NULL);

    }

  /*

    Read TGA header information.

  */

  (void) memset(&tga_info,0,sizeof(tga_info));

  count=ReadBlob(image,1,&tga_info.id_length);

  tga_info.colormap_type=(unsigned char) ReadBlobByte(image);

  tga_info.image_type=(TGAImageType) ReadBlobByte(image);

  if ((count != 1) ||

      ((tga_info.image_type != TGAColormap) &&

       (tga_info.image_type != TGARGB) &&

       (tga_info.image_type != TGAMonochrome) &&

       (tga_info.image_type != TGARLEColormap) &&

       (tga_info.image_type != TGARLERGB) &&

       (tga_info.image_type != TGARLEMonochrome)) ||

      (((tga_info.image_type == TGAColormap) ||

       (tga_info.image_type == TGARLEColormap)) &&

       (tga_info.colormap_type == 0)))

    ThrowReaderException(CorruptImageError,"ImproperImageHeader");

  tga_info.colormap_index=ReadBlobLSBShort(image);

  tga_info.colormap_length=ReadBlobLSBShort(image);

  tga_info.colormap_size=(unsigned char) ReadBlobByte(image);

  tga_info.x_origin=ReadBlobLSBShort(image);

  tga_info.y_origin=ReadBlobLSBShort(image);

  tga_info.width=(unsigned short) ReadBlobLSBShort(image);

  tga_info.height=(unsigned short) ReadBlobLSBShort(image);

  tga_info.bits_per_pixel=(unsigned char) ReadBlobByte(image);

  tga_info.attributes=(unsigned char) ReadBlobByte(image);

  if (EOFBlob(image) != MagickFalse)

    ThrowReaderException(CorruptImageError,"UnableToReadImageData");

  if ((((tga_info.bits_per_pixel < 1) || (tga_info.bits_per_pixel >= 17)) &&

       (tga_info.bits_per_pixel != 24) && (tga_info.bits_per_pixel != 32)))

    ThrowReaderException(CorruptImageError,"ImproperImageHeader");

  /*

    Initialize image structure.

  */

  image->columns=tga_info.width;

  image->rows=tga_info.height;

  image->page.x=(ssize_t) tga_info.x_origin;

  image->page.y=(ssize_t) tga_info.y_origin;

  if ((tga_info.image_type != TGAMonochrome) &&

      (tga_info.image_type != TGARLEMonochrome))

    {

      unsigned int

        alpha_bits;

      alpha_bits=(tga_info.attributes & 0x0FU);

      image->alpha_trait=(alpha_bits > 0) || (tga_info.bits_per_pixel == 32) ||

        (tga_info.colormap_size == 32) ?  BlendPixelTrait : UndefinedPixelTrait;

    }

  if ((tga_info.image_type != TGAColormap) &&

      (tga_info.image_type != TGARLEColormap))

    image->depth=(size_t) ((tga_info.bits_per_pixel <= 8) ? 8 :

      (tga_info.bits_per_pixel <= 16) ? 5 : 8);

  else

    image->depth=(size_t) ((tga_info.colormap_size <= 8) ? 8 :

      (tga_info.colormap_size <= 16) ? 5 : 8);

  if ((tga_info.image_type == TGAColormap) ||

      (tga_info.image_type == TGARLEColormap))

    image->storage_class=PseudoClass;

  if ((tga_info.image_type == TGAMonochrome) ||

      (tga_info.image_type == TGARLEMonochrome))

    (void) SetImageColorspace(image,GRAYColorspace,exception);

  image->compression=NoCompression;

  if ((tga_info.image_type == TGARLEColormap) ||

      (tga_info.image_type == TGARLEMonochrome) ||

      (tga_info.image_type == TGARLERGB))

    image->compression=RLECompression;

  if (image->storage_class == PseudoClass)

    {

      if (tga_info.colormap_type != 0)

        image->colors=tga_info.colormap_index+tga_info.colormap_length;

      else

        {

          size_t

            one;

          one=1;

          image->colors=one << tga_info.bits_per_pixel;

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

            ThrowReaderException(CorruptImageError,

              "InsufficientImageDataInFile");

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

            ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");

        }

    }

  if (tga_info.id_length != 0)

    {

      char

        *comment;

      size_t

        length;

      /*

        TGA image comment.

      */

      length=(size_t) tga_info.id_length;

      comment=(char *) NULL;

      if (~length >= (MagickPathExtent-1))

        comment=(char *) AcquireQuantumMemory(length+MagickPathExtent,

          sizeof(*comment));

      if (comment == (char *) NULL)

        ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");

      count=ReadBlob(image,length,(unsigned char *) comment);

      if (count == (ssize_t) length)

        {

          comment[length]='\0';

          (void) SetImageProperty(image,"comment",comment,exception);

        }

      comment=DestroyString(comment);

    }

  if ((tga_info.attributes & (1UL << 4)) == 0)

    {

      if ((tga_info.attributes & (1UL << 5)) == 0)

        {

          image->orientation=BottomLeftOrientation;

          flip_y=MagickTrue;

        }

      else

        image->orientation=TopLeftOrientation;

    }

  else

    {

      if ((tga_info.attributes & (1UL << 5)) == 0)

        {

          image->orientation=BottomRightOrientation;

          flip_x=MagickTrue;

          flip_y=MagickTrue;

        }

      else

        {

          image->orientation=TopRightOrientation;

          flip_x=MagickTrue;

        }

    }

  option=GetImageOption(image_info,"tga:preserve-orientation");

  if (IsStringTrue(option) != MagickFalse)

    {

      flip_x=MagickFalse;

      flip_y=MagickFalse;

    }

  else

    image->orientation=TopLeftOrientation;

  if (image_info->ping != MagickFalse)

    {

      (void) CloseBlob(image);

      return(image);

    }

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

  if (status == MagickFalse)

    return(DestroyImageList(image));

  GetPixelInfo(image,&pixel);

  if (tga_info.colormap_type != 0)

    {

      /*

        Read TGA raster colormap.

      */

      if (image->colors < tga_info.colormap_index)

        image->colors=tga_info.colormap_index;

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

        ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");

      for (i=0; i < (ssize_t) tga_info.colormap_index; i++)

        image->colormap[i]=pixel;

      for ( ; i < (ssize_t) image->colors; i++)

      {

        switch (tga_info.colormap_size)

        {

          case 8:

          default:

          {

            /*

              Gray scale.

            */

            pixel.red=(MagickRealType) ScaleCharToQuantum((unsigned char)

              ReadBlobByte(image));

            pixel.green=pixel.red;

            pixel.blue=pixel.red;

            break;

          }

          case 15:

          case 16:

          {

            QuantumAny

              range;

            /*

              5 bits each of red green and blue.

            */

            j=(unsigned char) ReadBlobByte(image);

            k=(unsigned char) ReadBlobByte(image);

            range=GetQuantumRange(5UL);

            pixel.red=(MagickRealType) ScaleAnyToQuantum(1UL*(k & 0x7c) >> 2,

              range);

            pixel.green=(MagickRealType) ScaleAnyToQuantum((1UL*(k & 0x03)

              << 3)+(1UL*(j & 0xe0) >> 5),range);

            pixel.blue=(MagickRealType) ScaleAnyToQuantum(1UL*(j & 0x1f),range);

            break;

          }

          case 24:

          {

            /*

              8 bits each of blue, green and red.

            */

            pixel.blue=(MagickRealType) ScaleCharToQuantum((unsigned char)

              ReadBlobByte(image));

            pixel.green=(MagickRealType) ScaleCharToQuantum((unsigned char)

              ReadBlobByte(image));

            pixel.red=(MagickRealType) ScaleCharToQuantum((unsigned char)

              ReadBlobByte(image));

            break;

          }

          case 32:

          {

            /*

              8 bits each of blue, green, red, and alpha.

            */

            pixel.blue=(MagickRealType) ScaleCharToQuantum((unsigned char)

              ReadBlobByte(image));

            pixel.green=(MagickRealType) ScaleCharToQuantum((unsigned char)

              ReadBlobByte(image));

            pixel.red=(MagickRealType) ScaleCharToQuantum((unsigned char)

              ReadBlobByte(image));

            pixel.alpha=(MagickRealType) ScaleCharToQuantum((unsigned char)

              ReadBlobByte(image));

            break;

          }

        }

        image->colormap[i]=pixel;

      }

    }

  /*

    Convert TGA pixels to pixel packets.

  */

  base=0;

  flag=0;

  skip=MagickFalse;

  index=0;

  runlength=0;

  offset=0;

  offset_stepsize=1;

  if (((unsigned char) (tga_info.attributes & 0xc0) >> 6) == 2)

    offset_stepsize=2;

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

  {

    ssize_t

      y_offset=(flip_y == MagickFalse) ? offset : (ssize_t) image->rows-

        1-offset;

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

    if (q == (Quantum *) NULL)

      break;

    if (flip_x != MagickFalse)

      q+=(ptrdiff_t) GetPixelChannels(image)*(image->columns-1);

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

    {

      if ((tga_info.image_type == TGARLEColormap) ||

          (tga_info.image_type == TGARLERGB) ||

          (tga_info.image_type == TGARLEMonochrome))

        {

          if (runlength != 0)

            {

              runlength--;

              skip=flag != 0;

            }

          else

            {

              count=ReadBlob(image,1,&runlength);

              if (count != 1)

                ThrowReaderException(CorruptImageError,"UnableToReadImageData");

              flag=runlength & 0x80;

              if (flag != 0)

                runlength-=128;

              skip=MagickFalse;

            }

        }

      if (skip == MagickFalse)

        switch (tga_info.bits_per_pixel)

        {

          case 1:

          {

            if ((x & 0x07) == 0)

              {

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

                  ThrowReaderException(CorruptImageError,

                    "UnableToReadImageData");

                index=(Quantum) pixels[0];

              }

            else

              index=(Quantum) ((size_t) index << 1);

            if (tga_info.colormap_type != 0)

              pixel=image->colormap[(ssize_t) ConstrainColormapIndex(image,

                ((unsigned char) index) & 0x80 ? 1 : 0,exception)];

            else

              {

                pixel.red=(MagickRealType) (((unsigned char) index) & 0x80 ?

                  QuantumRange : 0);

                pixel.green=pixel.red;

                pixel.blue=pixel.red;

              }

            break;

          }

          case 8:

          default:

          {

            /*

              Gray scale.

            */

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

              ThrowReaderException(CorruptImageError,"UnableToReadImageData");

            index=(Quantum) pixels[0];

            if (tga_info.colormap_type != 0)

              pixel=image->colormap[(ssize_t) ConstrainColormapIndex(image,

                (ssize_t) index,exception)];

            else

              {

                pixel.red=(MagickRealType) ScaleCharToQuantum((unsigned char)

                  index);

                pixel.green=pixel.red;

                pixel.blue=pixel.red;

              }

            break;

          }

          case 15:

          case 16:

          {

            QuantumAny

              range;

            /*

              5 bits each of RGB.

            */

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

              ThrowReaderException(CorruptImageError,"UnableToReadImageData");

            j=pixels[0];

            k=pixels[1];

            range=GetQuantumRange(5UL);

            pixel.red=(MagickRealType) ScaleAnyToQuantum(1UL*(k & 0x7c) >> 2,

              range);

            pixel.green=(MagickRealType) ScaleAnyToQuantum((1UL*

              (k & 0x03) << 3)+(1UL*(j & 0xe0) >> 5),range);

            pixel.blue=(MagickRealType) ScaleAnyToQuantum(1UL*(j & 0x1f),range);

            if (image->alpha_trait != UndefinedPixelTrait)

              pixel.alpha=(MagickRealType) ((k & 0x80) == 0 ? (Quantum)

                TransparentAlpha : (Quantum) OpaqueAlpha);

            if (image->storage_class == PseudoClass)

              index=(Quantum) ConstrainColormapIndex(image,((ssize_t) k << 8)+

                j,exception);

            break;

          }

          case 24:

          {

            /*

              BGR pixels.

            */

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

              ThrowReaderException(CorruptImageError,"UnableToReadImageData");

            pixel.blue=(MagickRealType) ScaleCharToQuantum(pixels[0]);

            pixel.green=(MagickRealType) ScaleCharToQuantum(pixels[1]);

            pixel.red=(MagickRealType) ScaleCharToQuantum(pixels[2]);

            break;

          }

          case 32:

          {

            /*

              BGRA pixels.

            */

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

              ThrowReaderException(CorruptImageError,"UnableToReadImageData");

            pixel.blue=(MagickRealType) ScaleCharToQuantum(pixels[0]);

            pixel.green=(MagickRealType) ScaleCharToQuantum(pixels[1]);

            pixel.red=(MagickRealType) ScaleCharToQuantum(pixels[2]);

            pixel.alpha=(MagickRealType) ScaleCharToQuantum(pixels[3]);

            break;

          }

        }

      if (status == MagickFalse)

        ThrowReaderException(CorruptImageError,"UnableToReadImageData");

      if (image->storage_class == PseudoClass)

        SetPixelIndex(image,index,q);

      SetPixelRed(image,ClampToQuantum(pixel.red),q);

      SetPixelGreen(image,ClampToQuantum(pixel.green),q);

      SetPixelBlue(image,ClampToQuantum(pixel.blue),q);

      if (image->alpha_trait != UndefinedPixelTrait)

        SetPixelAlpha(image,ClampToQuantum(pixel.alpha),q);

      if (flip_x != MagickFalse)

        q-=GetPixelChannels(image);

      else

        q+=(ptrdiff_t) GetPixelChannels(image);

    }

    offset+=offset_stepsize;

    if (offset >= (ssize_t) image->rows)

      {

        base++;

        offset=(ssize_t) base;

      }

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

      break;

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

      {

        status=SetImageProgress(image,LoadImageTag,(MagickOffsetType) y,

          image->rows);

        if (status == MagickFalse)

          break;

      }

  }

  if (EOFBlob(image) != MagickFalse)

    ThrowFileException(exception,CorruptImageError,"UnexpectedEndOfFile",

      image->filename);

  if (SeekBlob(image,-26,SEEK_END) >= 18)

    {

      /*

        Optional header.

      */

      char

        signature[18];

      unsigned long

        extension;

      extension=(unsigned long) ReadBlobLSBLong(image);

      (void) ReadBlobLSBLong(image);

      count=ReadBlob(image,18,signature);

      if ((count == 18) && (extension > 3) &&

          (LocaleCompare(signature,"TRUEVISION-XFILE.") == 0) &&

          (SeekBlob(image,(MagickOffsetType) extension,SEEK_SET) == (MagickOffsetType) extension) &&

          (ReadBlobLSBShort(image) == 495))

        {

          /*

            Optional extension.

          */

          char

            buffer[325] = { 0 };

          (void) ReadBlob(image,41,buffer);

          buffer[41]='\0';

          (void) SetImageProperty(image,"tga:author",buffer,exception);

          (void) ReadBlob(image,324,buffer);

          buffer[324]='\0';

          (void) SetImageProperty(image,"tga:comment",buffer,exception);

          (void) DiscardBlobBytes(image,59);

          (void) ReadBlob(image,41,buffer);

          buffer[41]='\0';

          (void) SetImageProperty(image,"tga:software",buffer,exception);

          (void) DiscardBlobBytes(image,27);

          if (((image->alpha_trait & BlendPixelTrait) != 0) &&

              (ReadBlobByte(image) != 3))

            image->alpha_trait=UndefinedPixelTrait;

        }

    }

  if (CloseBlob(image) == MagickFalse)

    status=MagickFalse;

  if (status == MagickFalse)

    return(DestroyImageList(image));

  return(GetFirstImageInList(image));

}

/*

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

%                                                                             %

%                                                                             %

%                                                                             %

%   R e g i s t e r T G A I m a g e                                           %

%                                                                             %

%                                                                             %

%                                                                             %

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

%

%  RegisterTGAImage() adds properties for the TGA image format to

%  the list of supported formats.  The properties 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 RegisterTGAImage method is:

%

%      size_t RegisterTGAImage(void)

%

*/

ModuleExport size_t RegisterTGAImage(void)

{

  MagickInfo

    *entry;

  entry=AcquireMagickInfo("TGA","ICB","Truevision Targa image");

  entry->decoder=(DecodeImageHandler *) ReadTGAImage;

  entry->encoder=(EncodeImageHandler *) WriteTGAImage;

  entry->flags|=CoderDecoderSeekableStreamFlag;

  entry->flags^=CoderAdjoinFlag;

  (void) RegisterMagickInfo(entry);

  entry=AcquireMagickInfo("TGA","TGA","Truevision Targa image");

  entry->decoder=(DecodeImageHandler *) ReadTGAImage;

  entry->encoder=(EncodeImageHandler *) WriteTGAImage;

  entry->flags|=CoderDecoderSeekableStreamFlag;

  entry->flags^=CoderAdjoinFlag;

  (void) RegisterMagickInfo(entry);

  entry=AcquireMagickInfo("TGA","VDA","Truevision Targa image");

  entry->decoder=(DecodeImageHandler *) ReadTGAImage;

  entry->encoder=(EncodeImageHandler *) WriteTGAImage;

  entry->flags|=CoderDecoderSeekableStreamFlag;

  entry->flags^=CoderAdjoinFlag;

  (void) RegisterMagickInfo(entry);

  entry=AcquireMagickInfo("TGA","VST","Truevision Targa image");

  entry->decoder=(DecodeImageHandler *) ReadTGAImage;

  entry->encoder=(EncodeImageHandler *) WriteTGAImage;

  entry->flags|=CoderDecoderSeekableStreamFlag;

  entry->flags^=CoderAdjoinFlag;

  (void) RegisterMagickInfo(entry);

  return(MagickImageCoderSignature);

}

/*

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

%                                                                             %

%                                                                             %

%                                                                             %

%   U n r e g i s t e r T G A I m a g e                                       %

%                                                                             %

%                                                                             %

%                                                                             %

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

%

%  UnregisterTGAImage() removes format registrations made by the

%  TGA module from the list of supported formats.

%

%  The format of the UnregisterTGAImage method is:

%

%      UnregisterTGAImage(void)

%

*/

ModuleExport void UnregisterTGAImage(void)

{

  (void) UnregisterMagickInfo("ICB");

  (void) UnregisterMagickInfo("TGA");

  (void) UnregisterMagickInfo("VDA");

  (void) UnregisterMagickInfo("VST");

}

/*

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

%                                                                             %

%                                                                             %

%                                                                             %

%   W r i t e T G A I m a g e                                                 %

%                                                                             %

%                                                                             %

%                                                                             %

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

%

%  WriteTGAImage() writes a image in the Truevision Targa rasterfile

%  format.

%

%  The format of the WriteTGAImage method is:

%

%      MagickBooleanType WriteTGAImage(const ImageInfo *image_info,

%        Image *image,ExceptionInfo *exception)

%

%  A description of each parameter follows.

%

%    o image_info: the image info.

%

%    o image:  The image.

%

*/

static inline unsigned char *WriteTGAPixel(Image *image,TGAImageType image_type,

  const Quantum *p,const QuantumAny range,const double midpoint,unsigned char *q)

{

  if (image_type == TGAColormap || image_type == TGARLEColormap)

    *q++=(unsigned char) ((ssize_t) GetPixelIndex(image,p));

  else

    {

      if (image_type == TGAMonochrome || image_type == TGARLEMonochrome)

        *q++=ScaleQuantumToChar(ClampToQuantum(GetPixelLuma(image,p)));

      else

        if (image->depth == 5)

          {

            unsigned char

              green,

              value;

            green=(unsigned char) ScaleQuantumToAny(GetPixelGreen(image,p),

              range);

            value=((unsigned char) ScaleQuantumToAny(GetPixelBlue(image,p),

              range)) | ((green & 0x07) << 5);

            *q++=value;

            value=(((image->alpha_trait != UndefinedPixelTrait) &&

              ((double) GetPixelAlpha(image,p) > midpoint)) ? 0x80 : 0) |

              ((unsigned char) ScaleQuantumToAny(GetPixelRed(image,p),range) <<

              2) | ((green & 0x18) >> 3);

            *q++=value;

          }

        else

          {

            *q++=ScaleQuantumToChar(GetPixelBlue(image,p));

            *q++=ScaleQuantumToChar(GetPixelGreen(image,p));

            *q++=ScaleQuantumToChar(GetPixelRed(image,p));

            if (image->alpha_trait != UndefinedPixelTrait)

              *q++=ScaleQuantumToChar(GetPixelAlpha(image,p));

          }

    }

  return(q);

}

static MagickBooleanType WriteTGAImage(const ImageInfo *image_info,Image *image,

  ExceptionInfo *exception)

{

  CompressionType

    compression;

  const char

    *comment,

    *option;

  const double

    midpoint = (double) QuantumRange/2.0;

  const Quantum

    *p;

  MagickBooleanType

    status;

  QuantumAny

    range;

  size_t

    channels;

  ssize_t

    base,

    count,

    i,

    offset,

    x,

    y;

  TGAInfo

    tga_info;

  unsigned char

    *pixels,

    *q;

  /*

    Open output image file.

  */

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

  assert(image_info->signature == MagickCoreSignature);

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

  assert(image->signature == MagickCoreSignature);

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

  assert(exception->signature == MagickCoreSignature);

  if (IsEventLogging() != MagickFalse)

    (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);

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

  if (status == MagickFalse)

    return(status);

  /*

    Initialize TGA raster file header.

  */

  if ((image->columns > 65535L) || (image->rows > 65535L))

    ThrowWriterException(ImageError,"WidthOrHeightExceedsLimit");

  if (IssRGBCompatibleColorspace(image->colorspace) == MagickFalse)

    (void) TransformImageColorspace(image,sRGBColorspace,exception);

  compression=image->compression;

  if (image_info->compression != UndefinedCompression)

    compression=image_info->compression;

  range=GetQuantumRange(5UL);

  tga_info.id_length=0;

  comment=GetImageProperty(image,"comment",exception);

  if (comment != (const char *) NULL)

    tga_info.id_length=(unsigned char) MagickMin(strlen(comment),255);

  tga_info.colormap_type=0;

  tga_info.colormap_index=0;

  tga_info.colormap_length=0;

  tga_info.colormap_size=0;

  tga_info.x_origin=0;

  if ((image->page.x > 0) && (image->page.x <= MAGICK_USHORT_MAX))

    tga_info.x_origin=(unsigned short) image->page.x;

  tga_info.y_origin=0;

  if ((image->page.y > 0) && (image->page.y <= MAGICK_USHORT_MAX))

    tga_info.y_origin=(unsigned short) image->page.y;

  tga_info.width=(unsigned short) image->columns;

  tga_info.height=(unsigned short) image->rows;

  tga_info.bits_per_pixel=8;

  tga_info.attributes=0;

  if ((image_info->type != TrueColorType) &&

      (image_info->type != TrueColorAlphaType) &&

      (image_info->type != PaletteType) &&

      ((image->alpha_trait & BlendPixelTrait) == 0) &&

      (IdentifyImageCoderGray(image,exception) != MagickFalse))

    tga_info.image_type=compression == RLECompression ? TGARLEMonochrome :

      TGAMonochrome;

  else

    if ((image->storage_class == DirectClass) || (image->colors > 256))

      {

        /*

          Full color TGA raster.

        */

        tga_info.image_type=compression == RLECompression ? TGARLERGB : TGARGB;

        if (image_info->depth == 5)

          {

            tga_info.bits_per_pixel=16;

            if (image->alpha_trait != UndefinedPixelTrait)

              tga_info.attributes=1;  /* # of alpha bits */

          }

        else

          {

            tga_info.bits_per_pixel=24;

            if (image->alpha_trait != UndefinedPixelTrait)

              {

                tga_info.bits_per_pixel=32;

                tga_info.attributes=8;  /* # of alpha bits */

              }

          }

      }

    else

      {

        /*

          Colormapped TGA raster.

        */

        tga_info.image_type=compression == RLECompression ? TGARLEColormap :

          TGAColormap;

        tga_info.colormap_type=1;

        tga_info.colormap_length=(unsigned short) image->colors;

        if (image_info->depth == 5)

          tga_info.colormap_size=16;

        else

          if (image->alpha_trait != UndefinedPixelTrait)

            tga_info.colormap_size=32;

          else

            tga_info.colormap_size=24;

      }

  switch (image->orientation)

  {

    case BottomRightOrientation:

    {

      tga_info.attributes|=0x10;

      break;

    }

    case UndefinedOrientation:

    case TopLeftOrientation:

    {

      tga_info.attributes|=0x20;

      break;

    }

    case TopRightOrientation:

    {

      tga_info.attributes|=0x30;

      break;

    }

    default:

      break;

  }

  if ((image->columns > 65535) || (image->rows > 65535))

    ThrowWriterException(ImageError,"WidthOrHeightExceedsLimit");

  /*

    Write TGA header.

  */

  (void) WriteBlobByte(image,tga_info.id_length);

  (void) WriteBlobByte(image,tga_info.colormap_type);

  (void) WriteBlobByte(image,(unsigned char) tga_info.image_type);

  (void) WriteBlobLSBShort(image,tga_info.colormap_index);

  (void) WriteBlobLSBShort(image,tga_info.colormap_length);

  (void) WriteBlobByte(image,tga_info.colormap_size);

  (void) WriteBlobLSBShort(image,tga_info.x_origin);

  (void) WriteBlobLSBShort(image,tga_info.y_origin);

  (void) WriteBlobLSBShort(image,tga_info.width);

  (void) WriteBlobLSBShort(image,tga_info.height);

  (void) WriteBlobByte(image,tga_info.bits_per_pixel);

  (void) WriteBlobByte(image,tga_info.attributes);

  if (tga_info.id_length != 0)

    (void) WriteBlob(image,tga_info.id_length,(unsigned char *) comment);

  if (tga_info.colormap_type != 0)

    {

      unsigned char

        green,

        *targa_colormap;

      /*

        Dump colormap to file (blue, green, red byte order).

      */

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

        tga_info.colormap_length,(tga_info.colormap_size/8)*

        sizeof(*targa_colormap));

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

        ThrowWriterException(ResourceLimitError,"MemoryAllocationFailed");

      q=targa_colormap;

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

      {

        if (image_info->depth == 5)

          {

            green=(unsigned char) ScaleQuantumToAny(ClampToQuantum(

              image->colormap[i].green),range);

            *q++=((unsigned char) ScaleQuantumToAny(ClampToQuantum(

              image->colormap[i].blue),range)) | ((green & 0x07) << 5);

            *q++=(((image->alpha_trait != UndefinedPixelTrait) && ((double)

              ClampToQuantum(image->colormap[i].alpha) > midpoint)) ?

              0x80 : 0) | ((unsigned char) ScaleQuantumToAny(ClampToQuantum(

              image->colormap[i].red),range) << 2) | ((green & 0x18) >> 3);

          }

        else

          {

            *q++=ScaleQuantumToChar(ClampToQuantum(image->colormap[i].blue));

            *q++=ScaleQuantumToChar(ClampToQuantum(image->colormap[i].green));

            *q++=ScaleQuantumToChar(ClampToQuantum(image->colormap[i].red));

            if (image->alpha_trait != UndefinedPixelTrait)

              *q++=ScaleQuantumToChar(ClampToQuantum(image->colormap[i].alpha));

          }

      }

      (void) WriteBlob(image,(size_t) ((tga_info.colormap_size/8)*

        tga_info.colormap_length),targa_colormap);

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

    }

  /*

    Convert MIFF to TGA raster pixels.

  */

  pixels=(unsigned char *) AcquireQuantumMemory(image->columns,

    (compression == RLECompression ? 5 : 4)*sizeof(*pixels));