granicus.if.org Git - imagemagick/blob - coders/cip.c

   1 /*
   2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   3 %                                                                             %
   4 %                                                                             %
   5 %                             CCCC  IIIII  PPPP                               %
   6 %                            C        I    P   P                              %
   7 %                            C        I    PPPP                               %
   8 %                            C        I    P                                  %
   9 %                             CCCC  IIIII  P                                  %
  10 %                                                                             %
  11 %                                                                             %
  12 %                  Read/Write Cisco IP Phone Image Format                     %
  13 %                                                                             %
  14 %                              Software Design                                %
  15 %                                   Cristy                                    %
  16 %                                April 2004                                   %
  17 %                                                                             %
  18 %                                                                             %
  19 %  Copyright 1999-2018 ImageMagick Studio LLC, a non-profit organization      %
  20 %  dedicated to making software imaging solutions freely available.           %
  21 %                                                                             %
  22 %  You may not use this file except in compliance with the License.  You may  %
  23 %  obtain a copy of the License at                                            %
  24 %                                                                             %
  25 %    https://www.imagemagick.org/script/license.php                           %
  26 %                                                                             %
  27 %  Unless required by applicable law or agreed to in writing, software        %
  28 %  distributed under the License is distributed on an "AS IS" BASIS,          %
  29 %  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.   %
  30 %  See the License for the specific language governing permissions and        %
  31 %  limitations under the License.                                             %
  32 %                                                                             %
  33 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  34 %
  35 %
  36 */
  37 \f
  38 /*
  39   Include declarations.
  40 */
  41 #include "MagickCore/studio.h"
  42 #include "MagickCore/blob.h"
  43 #include "MagickCore/blob-private.h"
  44 #include "MagickCore/cache.h"
  45 #include "MagickCore/color-private.h"
  46 #include "MagickCore/colorspace.h"
  47 #include "MagickCore/colorspace-private.h"
  48 #include "MagickCore/constitute.h"
  49 #include "MagickCore/exception.h"
  50 #include "MagickCore/exception-private.h"
  51 #include "MagickCore/image.h"
  52 #include "MagickCore/image-private.h"
  53 #include "MagickCore/list.h"
  54 #include "MagickCore/magick.h"
  55 #include "MagickCore/memory_.h"
  56 #include "MagickCore/monitor.h"
  57 #include "MagickCore/monitor-private.h"
  58 #include "MagickCore/pixel-accessor.h"
  59 #include "MagickCore/property.h"
  60 #include "MagickCore/quantize.h"
  61 #include "MagickCore/quantum-private.h"
  62 #include "MagickCore/static.h"
  63 #include "MagickCore/string_.h"
  64 #include "MagickCore/module.h"
  65 #include "MagickCore/utility.h"
  66 \f
  67 /*
  68   Forward declarations.
  69 */
  70 static MagickBooleanType
  71   WriteCIPImage(const ImageInfo *,Image *,ExceptionInfo *);
  72 \f
  73 /*
  74 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  75 %                                                                             %
  76 %                                                                             %
  77 %                                                                             %
  78 %   R e g i s t e r C I P I m a g e                                           %
  79 %                                                                             %
  80 %                                                                             %
  81 %                                                                             %
  82 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  83 %
  84 %  RegisterCIPImage() adds properties for the CIP IP phone image format to
  85 %  the list of supported formats.  The properties include the image format
  86 %  tag, a method to read and/or write the format, whether the format
  87 %  supports the saving of more than one frame to the same file or blob,
  88 %  whether the format supports native in-memory I/O, and a brief
  89 %  description of the format.
  90 %
  91 %  The format of the RegisterCIPImage method is:
  92 %
  93 %      size_t RegisterCIPImage(void)
  94 %
  95 */
  96 ModuleExport size_t RegisterCIPImage(void)
  97 {
  98   MagickInfo
  99     *entry;
 100
 101   entry=AcquireMagickInfo("CIP","CIP","Cisco IP phone image format");
 102   entry->encoder=(EncodeImageHandler *) WriteCIPImage;
 103   entry->flags^=CoderAdjoinFlag;
 104   (void) RegisterMagickInfo(entry);
 105   return(MagickImageCoderSignature);
 106 }
 107 \f
 108 /*
 109 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 110 %                                                                             %
 111 %                                                                             %
 112 %                                                                             %
 113 %   U n r e g i s t e r C I P I m a g e                                       %
 114 %                                                                             %
 115 %                                                                             %
 116 %                                                                             %
 117 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 118 %
 119 %  UnregisterCIPImage() removes format registrations made by the
 120 %  CIP module from the list of supported formats.
 121 %
 122 %  The format of the UnregisterCIPImage method is:
 123 %
 124 %      UnregisterCIPImage(void)
 125 %
 126 */
 127 ModuleExport void UnregisterCIPImage(void)
 128 {
 129   (void) UnregisterMagickInfo("CIP");
 130 }
 131 \f
 132 /*
 133 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 134 %                                                                             %
 135 %                                                                             %
 136 %                                                                             %
 137 %   W r i t e C I P I m a g e                                                 %
 138 %                                                                             %
 139 %                                                                             %
 140 %                                                                             %
 141 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 142 %
 143 %  Procedure WriteCIPImage() writes an image to a file in the Cisco IP phone
 144 %  image format.
 145 %
 146 %  The format of the WriteCIPImage method is:
 147 %
 148 %      MagickBooleanType WriteCIPImage(const ImageInfo *image_info,
 149 %        Image *image,ExceptionInfo *exception)
 150 %
 151 %  A description of each parameter follows.
 152 %
 153 %    o image_info: the image info.
 154 %
 155 %    o image:  The image.
 156 %
 157 %    o exception: return any errors or warnings in this structure.
 158 %
 159 */
 160 static MagickBooleanType WriteCIPImage(const ImageInfo *image_info,Image *image,
 161   ExceptionInfo *exception)
 162 {
 163   char
 164     buffer[MagickPathExtent];
 165
 166   const char
 167     *value;
 168
 169   MagickBooleanType
 170     status;
 171
 172   register const Quantum
 173     *p;
 174
 175   register ssize_t
 176     i,
 177     x;
 178
 179   ssize_t
 180     y;
 181
 182   unsigned char
 183     byte;
 184
 185   /*
 186     Open output image file.
 187   */
 188   assert(image_info != (const ImageInfo *) NULL);
 189   assert(image_info->signature == MagickCoreSignature);
 190   assert(image != (Image *) NULL);
 191   assert(image->signature == MagickCoreSignature);
 192   if (image->debug != MagickFalse)
 193     (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
 194   assert(exception != (ExceptionInfo *) NULL);
 195   assert(exception->signature == MagickCoreSignature);
 196   status=OpenBlob(image_info,image,WriteBinaryBlobMode,exception);
 197   if (status == MagickFalse)
 198     return(status);
 199   (void) WriteBlobString(image,"<CiscoIPPhoneImage>\n");
 200   value=GetImageProperty(image,"label",exception);
 201   if (value != (const char *) NULL)
 202     (void) FormatLocaleString(buffer,MagickPathExtent,"<Title>%s</Title>\n",
 203       value);
 204   else
 205     {
 206       char
 207         basename[MagickPathExtent];
 208
 209       GetPathComponent(image->filename,BasePath,basename);
 210       (void) FormatLocaleString(buffer,MagickPathExtent,"<Title>%s</Title>\n",
 211         basename);
 212     }
 213   (void) WriteBlobString(image,buffer);
 214   (void) FormatLocaleString(buffer,MagickPathExtent,
 215     "<LocationX>%.20g</LocationX>\n",(double) image->page.x);
 216   (void) WriteBlobString(image,buffer);
 217   (void) FormatLocaleString(buffer,MagickPathExtent,
 218     "<LocationY>%.20g</LocationY>\n",(double) image->page.y);
 219   (void) WriteBlobString(image,buffer);
 220   (void) FormatLocaleString(buffer,MagickPathExtent,"<Width>%.20g</Width>\n",
 221     (double) (image->columns+(image->columns % 2)));
 222   (void) WriteBlobString(image,buffer);
 223   (void) FormatLocaleString(buffer,MagickPathExtent,"<Height>%.20g</Height>\n",
 224     (double) image->rows);
 225   (void) WriteBlobString(image,buffer);
 226   (void) FormatLocaleString(buffer,MagickPathExtent,"<Depth>2</Depth>\n");
 227   (void) WriteBlobString(image,buffer);
 228   (void) WriteBlobString(image,"<Data>");
 229   (void) TransformImageColorspace(image,sRGBColorspace,exception);
 230   for (y=0; y < (ssize_t) image->rows; y++)
 231   {
 232     p=GetVirtualPixels(image,0,y,image->columns,1,exception);
 233     if (p == (const Quantum *) NULL)
 234       break;
 235     for (x=0; x < ((ssize_t) image->columns-3); x+=4)
 236     {
 237       byte=(unsigned char)
 238         ((((size_t) (3*ClampToQuantum(GetPixelLuma(image,p+3*GetPixelChannels(image)))/QuantumRange) & 0x03) << 6) |
 239          (((size_t) (3*ClampToQuantum(GetPixelLuma(image,p+2*GetPixelChannels(image)))/QuantumRange) & 0x03) << 4) |
 240          (((size_t) (3*ClampToQuantum(GetPixelLuma(image,p+1*GetPixelChannels(image)))/QuantumRange) & 0x03) << 2) |
 241          (((size_t) (3*ClampToQuantum(GetPixelLuma(image,p+0*GetPixelChannels(image)))/QuantumRange) & 0x03) << 0));
 242       (void) FormatLocaleString(buffer,MagickPathExtent,"%02x",byte);
 243       (void) WriteBlobString(image,buffer);
 244       p+=GetPixelChannels(image);
 245     }
 246     if ((image->columns % 4) != 0)
 247       {
 248         byte=0;
 249         for ( ; x < (ssize_t) image->columns; x++)
 250         {
 251           i=x % 4;
 252           switch (i)
 253           {
 254             case 0:
 255             {
 256               byte|=(unsigned char) (((size_t) (3*ClampToQuantum(GetPixelLuma(
 257                 image,p+MagickMin(i,3)*GetPixelChannels(image)))/
 258                 QuantumRange) & 0x03) << 6);
 259               break;
 260             }
 261             case 1:
 262             {
 263               byte|=(unsigned char) (((size_t) (3*ClampToQuantum(GetPixelLuma(
 264                 image,p+MagickMin(i,2)*GetPixelChannels(image)))/
 265                 QuantumRange) & 0x03) << 4);
 266               break;
 267             }
 268             case 2:
 269             {
 270               byte|=(unsigned char) (((size_t) (3*ClampToQuantum(GetPixelLuma(
 271                 image,p+MagickMin(i,1)*GetPixelChannels(image)))/
 272                 QuantumRange) & 0x03) << 2);
 273               break;
 274             }
 275             case 3:
 276             {
 277               byte|=(unsigned char) (((size_t) (3*ClampToQuantum(GetPixelLuma(
 278                 image,p+MagickMin(i,0)*GetPixelChannels(image)))/
 279                 QuantumRange) & 0x03) << 0);
 280               break;
 281             }
 282           }
 283         }
 284         (void) FormatLocaleString(buffer,MagickPathExtent,"%02x",~byte);
 285         (void) WriteBlobString(image,buffer);
 286       }
 287     status=SetImageProgress(image,SaveImageTag,(MagickOffsetType) y,
 288       image->rows);
 289     if (status == MagickFalse)
 290       break;
 291   }
 292   (void) WriteBlobString(image,"</Data>\n");
 293   (void) WriteBlobString(image,"</CiscoIPPhoneImage>\n");
 294   (void) CloseBlob(image);
 295   return(MagickTrue);
 296 }