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

   1 /*
   2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   3 %                                                                             %
   4 %                                                                             %
   5 %                                                                             %
   6 %                     V   V  IIIII   CCCC   AAA   RRRR                        %
   7 %                     V   V    I    C      A   A  R   R                       %
   8 %                     V   V    I    C      AAAAA  RRRR                        %
   9 %                      V V     I    C      A   A  R R                         %
  10 %                       V    IIIII   CCCC  A   A  R  R                        %
  11 %                                                                             %
  12 %                                                                             %
  13 %                    Read/Write VICAR Rasterfile Format                       %
  14 %                                                                             %
  15 %                              Software Design                                %
  16 %                                   Cristy                                    %
  17 %                                 July 1992                                   %
  18 %                                                                             %
  19 %                                                                             %
  20 %  Copyright 1999-2014 ImageMagick Studio LLC, a non-profit organization      %
  21 %  dedicated to making software imaging solutions freely available.           %
  22 %                                                                             %
  23 %  You may not use this file except in compliance with the License.  You may  %
  24 %  obtain a copy of the License at                                            %
  25 %                                                                             %
  26 %    http://www.imagemagick.org/script/license.php                            %
  27 %                                                                             %
  28 %  Unless required by applicable law or agreed to in writing, software        %
  29 %  distributed under the License is distributed on an "AS IS" BASIS,          %
  30 %  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.   %
  31 %  See the License for the specific language governing permissions and        %
  32 %  limitations under the License.                                             %
  33 %                                                                             %
  34 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  35 %
  36 %
  37 */
  38 \f
  39 /*
  40   Include declarations.
  41 */
  42 #include "MagickCore/studio.h"
  43 #include "MagickCore/attribute.h"
  44 #include "MagickCore/blob.h"
  45 #include "MagickCore/blob-private.h"
  46 #include "MagickCore/cache.h"
  47 #include "MagickCore/colormap.h"
  48 #include "MagickCore/colorspace.h"
  49 #include "MagickCore/colorspace-private.h"
  50 #include "MagickCore/constitute.h"
  51 #include "MagickCore/exception.h"
  52 #include "MagickCore/exception-private.h"
  53 #include "MagickCore/image.h"
  54 #include "MagickCore/image-private.h"
  55 #include "MagickCore/list.h"
  56 #include "MagickCore/magick.h"
  57 #include "MagickCore/memory_.h"
  58 #include "MagickCore/module.h"
  59 #include "MagickCore/monitor.h"
  60 #include "MagickCore/monitor-private.h"
  61 #include "MagickCore/quantum-private.h"
  62 #include "MagickCore/quantum-private.h"
  63 #include "MagickCore/static.h"
  64 #include "MagickCore/string_.h"
  65 #include "MagickCore/string-private.h"
  66 \f
  67 /*
  68   Forward declarations.
  69 */
  70 static MagickBooleanType
  71   WriteVICARImage(const ImageInfo *,Image *,ExceptionInfo *);
  72 \f
  73 /*
  74 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  75 %                                                                             %
  76 %                                                                             %
  77 %                                                                             %
  78 %   I s V I C A R                                                             %
  79 %                                                                             %
  80 %                                                                             %
  81 %                                                                             %
  82 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  83 %
  84 %  IsVICAR() returns MagickTrue if the image format type, identified by the
  85 %  magick string, is VICAR.
  86 %
  87 %  The format of the IsVICAR method is:
  88 %
  89 %      MagickBooleanType IsVICAR(const unsigned char *magick,
  90 %        const size_t length)
  91 %
  92 %  A description of each parameter follows:
  93 %
  94 %    o magick: compare image format pattern against these bytes.
  95 %
  96 %    o length: Specifies the length of the magick string.
  97 %
  98 */
  99 static MagickBooleanType IsVICAR(const unsigned char *magick,
 100   const size_t length)
 101 {
 102   if (length < 14)
 103     return(MagickFalse);
 104   if (LocaleNCompare((const char *) magick,"LBLSIZE",7) == 0)
 105     return(MagickTrue);
 106   if (LocaleNCompare((const char *) magick,"NJPL1I",6) == 0)
 107     return(MagickTrue);
 108   if (LocaleNCompare((const char *) magick,"PDS_VERSION_ID",14) == 0)
 109     return(MagickTrue);
 110   return(MagickFalse);
 111 }
 112 \f
 113 /*
 114 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 115 %                                                                             %
 116 %                                                                             %
 117 %                                                                             %
 118 %   R e a d V I C A R I m a g e                                               %
 119 %                                                                             %
 120 %                                                                             %
 121 %                                                                             %
 122 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 123 %
 124 %  ReadVICARImage() reads a VICAR image file and returns it.  It
 125 %  allocates the memory necessary for the new Image structure and returns a
 126 %  pointer to the new image.
 127 %
 128 %  The format of the ReadVICARImage method is:
 129 %
 130 %      Image *ReadVICARImage(const ImageInfo *image_info,
 131 %        ExceptionInfo *exception)
 132 %
 133 %  A description of each parameter follows:
 134 %
 135 %    o image: Method ReadVICARImage returns a pointer to the image after
 136 %      reading.  A null image is returned if there is a memory shortage or if
 137 %      the image cannot be read.
 138 %
 139 %    o image_info: the image info.
 140 %
 141 %    o exception: return any errors or warnings in this structure.
 142 %
 143 %
 144 */
 145 static Image *ReadVICARImage(const ImageInfo *image_info,
 146   ExceptionInfo *exception)
 147 {
 148   char
 149     keyword[MaxTextExtent],
 150     value[MaxTextExtent];
 151
 152   Image
 153     *image;
 154
 155   int
 156     c;
 157
 158   MagickBooleanType
 159     status,
 160     value_expected;
 161
 162   QuantumInfo
 163     *quantum_info;
 164
 165   QuantumType
 166     quantum_type;
 167
 168   register Quantum
 169     *q;
 170
 171   size_t
 172     length;
 173
 174   ssize_t
 175     count,
 176     y;
 177
 178   unsigned char
 179     *pixels;
 180
 181   /*
 182     Open image file.
 183   */
 184   assert(image_info != (const ImageInfo *) NULL);
 185   assert(image_info->signature == MagickSignature);
 186   if (image_info->debug != MagickFalse)
 187     (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
 188       image_info->filename);
 189   assert(exception != (ExceptionInfo *) NULL);
 190   assert(exception->signature == MagickSignature);
 191   image=AcquireImage(image_info,exception);
 192   status=OpenBlob(image_info,image,ReadBinaryBlobMode,exception);
 193   if (status == MagickFalse)
 194     {
 195       image=DestroyImageList(image);
 196       return((Image *) NULL);
 197     }
 198   /*
 199     Decode image header.
 200   */
 201   c=ReadBlobByte(image);
 202   count=1;
 203   if (c == EOF)
 204     {
 205       image=DestroyImage(image);
 206       return((Image *) NULL);
 207     }
 208   length=0;
 209   image->columns=0;
 210   image->rows=0;
 211   while (isgraph(c) && ((image->columns == 0) || (image->rows == 0)))
 212   {
 213     if (isalnum(c) == MagickFalse)
 214       {
 215         c=ReadBlobByte(image);
 216         count++;
 217       }
 218     else
 219       {
 220         register char
 221           *p;
 222
 223         /*
 224           Determine a keyword and its value.
 225         */
 226         p=keyword;
 227         do
 228         {
 229           if ((size_t) (p-keyword) < (MaxTextExtent-1))
 230             *p++=c;
 231           c=ReadBlobByte(image);
 232           count++;
 233         } while (isalnum(c) || (c == '_'));
 234         *p='\0';
 235         value_expected=MagickFalse;
 236         while ((isspace((int) ((unsigned char) c)) != 0) || (c == '='))
 237         {
 238           if (c == '=')
 239             value_expected=MagickTrue;
 240           c=ReadBlobByte(image);
 241           count++;
 242         }
 243         if (value_expected == MagickFalse)
 244           continue;
 245         p=value;
 246         while (isalnum(c))
 247         {
 248           if ((size_t) (p-value) < (MaxTextExtent-1))
 249             *p++=c;
 250           c=ReadBlobByte(image);
 251           count++;
 252         }
 253         *p='\0';
 254         /*
 255           Assign a value to the specified keyword.
 256         */
 257         if (LocaleCompare(keyword,"Label_RECORDS") == 0)
 258           length=(ssize_t) StringToLong(value);
 259         if (LocaleCompare(keyword,"LBLSIZE") == 0)
 260           length=(ssize_t) StringToLong(value);
 261         if (LocaleCompare(keyword,"RECORD_BYTES") == 0)
 262           image->columns=StringToUnsignedLong(value);
 263         if (LocaleCompare(keyword,"NS") == 0)
 264           image->columns=StringToUnsignedLong(value);
 265         if (LocaleCompare(keyword,"LINES") == 0)
 266           image->rows=StringToUnsignedLong(value);
 267         if (LocaleCompare(keyword,"NL") == 0)
 268           image->rows=StringToUnsignedLong(value);
 269       }
 270     while (isspace((int) ((unsigned char) c)) != 0)
 271     {
 272       c=ReadBlobByte(image);
 273       count++;
 274     }
 275   }
 276   while (count < (ssize_t) length)
 277   {
 278     c=ReadBlobByte(image);
 279     count++;
 280   }
 281   if ((image->columns == 0) || (image->rows == 0))
 282     ThrowReaderException(CorruptImageError,"NegativeOrZeroImageSize");
 283   image->depth=8;
 284   if (image_info->ping != MagickFalse)
 285     {
 286       (void) CloseBlob(image);
 287       return(GetFirstImageInList(image));
 288     }
 289   /*
 290     Read VICAR pixels.
 291   */
 292   (void) SetImageColorspace(image,GRAYColorspace,exception);
 293   quantum_type=GrayQuantum;
 294   quantum_info=AcquireQuantumInfo(image_info,image);
 295   if (quantum_info == (QuantumInfo *) NULL)
 296     ThrowReaderException(ResourceLimitError,"MemoryAllocationFailed");
 297   pixels=GetQuantumPixels(quantum_info);
 298   length=GetQuantumExtent(image,quantum_info,quantum_type);
 299   for (y=0; y < (ssize_t) image->rows; y++)
 300   {
 301     q=QueueAuthenticPixels(image,0,y,image->columns,1,exception);
 302     if (q == (Quantum *) NULL)
 303       break;
 304     count=ReadBlob(image,length,pixels);
 305     (void) ImportQuantumPixels(image,(CacheView *) NULL,quantum_info,
 306       quantum_type,pixels,exception);
 307     if (SyncAuthenticPixels(image,exception) == MagickFalse)
 308       break;
 309     status=SetImageProgress(image,LoadImageTag,(MagickOffsetType) y,
 310       image->rows);
 311     if (status == MagickFalse)
 312       break;
 313   }
 314   SetQuantumImageType(image,quantum_type);
 315   quantum_info=DestroyQuantumInfo(quantum_info);
 316   if (EOFBlob(image) != MagickFalse)
 317     ThrowFileException(exception,CorruptImageError,"UnexpectedEndOfFile",
 318       image->filename);
 319   (void) CloseBlob(image);
 320   return(GetFirstImageInList(image));
 321 }
 322 \f
 323 /*
 324 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 325 %                                                                             %
 326 %                                                                             %
 327 %                                                                             %
 328 %   R e g i s t e r V I C A R I m a g e                                       %
 329 %                                                                             %
 330 %                                                                             %
 331 %                                                                             %
 332 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 333 %
 334 %  RegisterVICARImage() adds attributes for the VICAR image format to
 335 %  the list of supported formats.  The attributes include the image format
 336 %  tag, a method to read and/or write the format, whether the format
 337 %  supports the saving of more than one frame to the same file or blob,
 338 %  whether the format supports native in-memory I/O, and a brief
 339 %  description of the format.
 340 %
 341 %  The format of the RegisterVICARImage method is:
 342 %
 343 %      size_t RegisterVICARImage(void)
 344 %
 345 */
 346 ModuleExport size_t RegisterVICARImage(void)
 347 {
 348   MagickInfo
 349     *entry;
 350
 351   entry=SetMagickInfo("VICAR");
 352   entry->decoder=(DecodeImageHandler *) ReadVICARImage;
 353   entry->encoder=(EncodeImageHandler *) WriteVICARImage;
 354   entry->magick=(IsImageFormatHandler *) IsVICAR;
 355   entry->adjoin=MagickFalse;
 356   entry->description=ConstantString("VICAR rasterfile format");
 357   entry->module=ConstantString("VICAR");
 358   (void) RegisterMagickInfo(entry);
 359   return(MagickImageCoderSignature);
 360 }
 361 \f
 362 /*
 363 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 364 %                                                                             %
 365 %                                                                             %
 366 %                                                                             %
 367 %   U n r e g i s t e r V I C A R I m a g e                                   %
 368 %                                                                             %
 369 %                                                                             %
 370 %                                                                             %
 371 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 372 %
 373 %  UnregisterVICARImage() removes format registrations made by the
 374 %  VICAR module from the list of supported formats.
 375 %
 376 %  The format of the UnregisterVICARImage method is:
 377 %
 378 %      UnregisterVICARImage(void)
 379 %
 380 */
 381 ModuleExport void UnregisterVICARImage(void)
 382 {
 383   (void) UnregisterMagickInfo("VICAR");
 384 }
 385 \f
 386 /*
 387 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 388 %                                                                             %
 389 %                                                                             %
 390 %                                                                             %
 391 %   W r i t e V I C A R I m a g e                                             %
 392 %                                                                             %
 393 %                                                                             %
 394 %                                                                             %
 395 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 396 %
 397 %  WriteVICARImage() writes an image in the VICAR rasterfile format.
 398 %  Vicar files contain a text header, followed by one or more planes of binary
 399 %  grayscale image data.  Vicar files are designed to allow many planes to be
 400 %  stacked together to form image cubes.  This method only writes a single
 401 %  grayscale plane.
 402 %
 403 %  WriteVICARImage was written contributed by gorelick@esther.la.asu.edu.
 404 %
 405 %  The format of the WriteVICARImage method is:
 406 %
 407 %      MagickBooleanType WriteVICARImage(const ImageInfo *image_info,
 408 %        Image *image,ExceptionInfo *exception)
 409 %
 410 %  A description of each parameter follows.
 411 %
 412 %    o image_info: the image info.
 413 %
 414 %    o image:  The image.
 415 %
 416 %    o exception: return any errors or warnings in this structure.
 417 %
 418 */
 419 static MagickBooleanType WriteVICARImage(const ImageInfo *image_info,
 420   Image *image,ExceptionInfo *exception)
 421 {
 422   char
 423     header[MaxTextExtent];
 424
 425   int
 426     y;
 427
 428   MagickBooleanType
 429     status;
 430
 431   QuantumInfo
 432     *quantum_info;
 433
 434   register const Quantum
 435     *p;
 436
 437   size_t
 438     length;
 439
 440   ssize_t
 441     count;
 442
 443   unsigned char
 444     *pixels;
 445
 446   /*
 447     Open output image file.
 448   */
 449   assert(image_info != (const ImageInfo *) NULL);
 450   assert(image_info->signature == MagickSignature);
 451   assert(image != (Image *) NULL);
 452   assert(image->signature == MagickSignature);
 453   if (image->debug != MagickFalse)
 454     (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",image->filename);
 455   assert(exception != (ExceptionInfo *) NULL);
 456   assert(exception->signature == MagickSignature);
 457   status=OpenBlob(image_info,image,WriteBinaryBlobMode,exception);
 458   if (status == MagickFalse)
 459     return(status);
 460   (void) TransformImageColorspace(image,sRGBColorspace,exception);
 461   /*
 462     Write header.
 463   */
 464   (void) ResetMagickMemory(header,' ',MaxTextExtent);
 465   (void) FormatLocaleString(header,MaxTextExtent,
 466     "LBLSIZE=%.20g FORMAT='BYTE' TYPE='IMAGE' BUFSIZE=20000 DIM=2 EOL=0 "
 467     "RECSIZE=%.20g ORG='BSQ' NL=%.20g NS=%.20g NB=1 N1=0 N2=0 N3=0 N4=0 NBB=0 "
 468     "NLB=0 TASK='ImageMagick'",(double) MaxTextExtent,(double) image->columns,
 469     (double) image->rows,(double) image->columns);
 470   (void) WriteBlob(image,MaxTextExtent,(unsigned char *) header);
 471   /*
 472     Write VICAR pixels.
 473   */
 474   image->depth=8;
 475   quantum_info=AcquireQuantumInfo(image_info,image);
 476   if (quantum_info == (QuantumInfo *) NULL)
 477     ThrowWriterException(ResourceLimitError,"MemoryAllocationFailed");
 478   pixels=GetQuantumPixels(quantum_info);
 479   for (y=0; y < (ssize_t) image->rows; y++)
 480   {
 481     p=GetVirtualPixels(image,0,y,image->columns,1,exception);
 482     if (p == (const Quantum *) NULL)
 483       break;
 484     length=ExportQuantumPixels(image,(CacheView *) NULL,quantum_info,
 485       GrayQuantum,pixels,exception);
 486     count=WriteBlob(image,length,pixels);
 487     if (count != (ssize_t) length)
 488       break;
 489     status=SetImageProgress(image,SaveImageTag,(MagickOffsetType) y,
 490       image->rows);
 491     if (status == MagickFalse)
 492       break;
 493   }
 494   quantum_info=DestroyQuantumInfo(quantum_info);
 495   (void) CloseBlob(image);
 496   return(MagickTrue);
 497 }