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

   1 /*
   2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   3 %                                                                             %
   4 %                                                                             %
   5 %                                                                             %
   6 %                            SSSSS   CCCC  RRRR                               %
   7 %                            SS     C      R   R                              %
   8 %                             SSS   C      RRRR                               %
   9 %                               SS  C      R R                                %
  10 %                            SSSSS   CCCC  R  R                               %
  11 %                                                                             %
  12 %                                                                             %
  13 %                      Read ZX-Spectrum SCREEN$ Format                        %
  14 %                                                                             %
  15 %                              Software Design                                %
  16 %                              Catalin Mihaila                                %
  17 %                               October 2003                                  %
  18 %                                                                             %
  19 %                                                                             %
  20 %  Copyright 1999-2018 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 %    https://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/blob.h"
  44 #include "MagickCore/blob-private.h"
  45 #include "MagickCore/cache.h"
  46 #include "MagickCore/exception.h"
  47 #include "MagickCore/exception-private.h"
  48 #include "MagickCore/image.h"
  49 #include "MagickCore/image-private.h"
  50 #include "MagickCore/list.h"
  51 #include "MagickCore/magick.h"
  52 #include "MagickCore/memory_.h"
  53 #include "MagickCore/monitor.h"
  54 #include "MagickCore/monitor-private.h"
  55 #include "MagickCore/pixel-accessor.h"
  56 #include "MagickCore/quantum-private.h"
  57 #include "MagickCore/static.h"
  58 #include "MagickCore/string_.h"
  59 #include "MagickCore/module.h"
  60 \f
  61 /*
  62 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  63 %                                                                             %
  64 %                                                                             %
  65 %                                                                             %
  66 %   R e a d S C R I m a g e                                                   %
  67 %                                                                             %
  68 %                                                                             %
  69 %                                                                             %
  70 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  71 %
  72 %  ReadSCRImage() reads a Scitex image file and returns it.  It allocates
  73 %  the memory necessary for the new Image structure and returns a pointer to
  74 %  the new image.
  75 %
  76 %  The format of the ReadSCRImage method is:
  77 %
  78 %      Image *ReadSCRImage(const ImageInfo *image_info,ExceptionInfo *exception)
  79 %
  80 %  A description of each parameter follows:
  81 %
  82 %    o image_info: the image info.
  83 %
  84 %    o exception: return any errors or warnings in this structure.
  85 %
  86 */
  87 static Image *ReadSCRImage(const ImageInfo *image_info,ExceptionInfo *exception)
  88 {
  89     char zxscr[6144];
  90     char zxattr[768];
  91     int octetnr;
  92     int octetline;
  93     int zoneline;
  94     int zonenr;
  95     int octet_val;
  96     int attr_nr;
  97     int pix;
  98     int piy;
  99     int binar[8];
 100     int attrbin[8];
 101     int *pbin;
 102     int *abin;
 103     int z;
 104     int one_nr;
 105     int ink;
 106     int paper;
 107     int bright;
 108
 109   unsigned char colour_palette[] = {
 110       0,  0,  0,
 111       0,  0,192,
 112     192,  0,  0,
 113     192,  0,192,
 114       0,192,  0,
 115       0,192,192,
 116     192,192,  0,
 117     192,192,192,
 118       0,  0,  0,
 119       0,  0,255,
 120     255,  0,  0,
 121     255,  0,255,
 122       0,255,  0,
 123       0,255,255,
 124     255,255,  0,
 125     255,255,255
 126   };
 127
 128   Image
 129     *image;
 130
 131   MagickBooleanType
 132     status;
 133
 134   register Quantum
 135     *q;
 136
 137   ssize_t
 138     count;
 139
 140   /*
 141     Open image file.
 142   */
 143   assert(image_info != (const ImageInfo *) NULL);
 144   assert(image_info->signature == MagickCoreSignature);
 145   if (image_info->debug != MagickFalse)
 146     (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s",
 147       image_info->filename);
 148   assert(exception != (ExceptionInfo *) NULL);
 149   assert(exception->signature == MagickCoreSignature);
 150   image=AcquireImage(image_info,exception);
 151   status=OpenBlob(image_info,image,ReadBinaryBlobMode,exception);
 152   if (status == MagickFalse)
 153     {
 154       image=DestroyImageList(image);
 155       return((Image *) NULL);
 156     }
 157   image->columns = 256;
 158   image->rows = 192;
 159   status=SetImageExtent(image,image->columns,image->rows,exception);
 160   if (status == MagickFalse)
 161     return(DestroyImageList(image));
 162   count=ReadBlob(image,6144,(unsigned char *) zxscr);
 163   if (count != 6144)
 164     ThrowReaderException(CorruptImageError,"ImproperImageHeader");
 165   count=ReadBlob(image,768,(unsigned char *) zxattr);
 166   if (count != 768)
 167     ThrowReaderException(CorruptImageError,"ImproperImageHeader");
 168   for(zonenr=0;zonenr<3;zonenr++)
 169   {
 170       for(zoneline=0;zoneline<8;zoneline++)
 171         {
 172         for(octetline=0;octetline<8;octetline++)
 173       {
 174           for(octetnr=(zoneline*32);octetnr<((zoneline*32)+32);octetnr++)
 175             {
 176             octet_val = zxscr[octetnr+(256*octetline)+(zonenr*2048)];
 177             attr_nr = zxattr[octetnr+(256*zonenr)];
 178
 179             pix = (((8*octetnr)-(256*zoneline)));
 180             piy = ((octetline+(8*zoneline)+(zonenr*64)));
 181
 182             pbin = binar;
 183             abin = attrbin;
 184
 185             one_nr=1;
 186
 187             for(z=0;z<8;z++)
 188           {
 189               if(octet_val&one_nr)
 190             {
 191                 *pbin = 1;
 192             } else {
 193                 *pbin = 0;
 194             }
 195               one_nr=one_nr*2;
 196               pbin++;
 197           }
 198
 199             one_nr = 1;
 200
 201             for(z=0;z<8;z++)
 202           {
 203               if(attr_nr&one_nr)
 204             {
 205                 *abin = 1;
 206             } else {
 207                 *abin = 0;
 208             }
 209               one_nr=one_nr*2;
 210               abin++;
 211           }
 212
 213             ink = (attrbin[0]+(2*attrbin[1])+(4*attrbin[2]));
 214             paper = (attrbin[3]+(2*attrbin[4])+(4*attrbin[5]));
 215             bright = attrbin[6];
 216
 217             if(bright) { ink=ink+8; paper=paper+8; }
 218
 219             for(z=7;z>-1;z--)
 220           {
 221               q=QueueAuthenticPixels(image,pix,piy,1,1,exception);
 222               if (q == (Quantum *) NULL)
 223                 break;
 224
 225               if(binar[z])
 226             {
 227                 SetPixelRed(image,ScaleCharToQuantum(
 228                   colour_palette[3*ink]),q);
 229                 SetPixelGreen(image,ScaleCharToQuantum(
 230                   colour_palette[1+(3*ink)]),q);
 231                 SetPixelBlue(image,ScaleCharToQuantum(
 232                   colour_palette[2+(3*ink)]),q);
 233             } else {
 234                 SetPixelRed(image,ScaleCharToQuantum(
 235                   colour_palette[3*paper]),q);
 236                 SetPixelGreen(image,ScaleCharToQuantum(
 237                   colour_palette[1+(3*paper)]),q);
 238                 SetPixelBlue(image,ScaleCharToQuantum(
 239                   colour_palette[2+(3*paper)]),q);
 240             }
 241
 242               pix++;
 243           }
 244         }
 245       }
 246     }
 247   }
 248   (void) CloseBlob(image);
 249   return(GetFirstImageInList(image));
 250 }
 251 \f
 252 /*
 253 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 254 %                                                                             %
 255 %                                                                             %
 256 %                                                                             %
 257 %   R e g i s t e r S C R I m a g e                                           %
 258 %                                                                             %
 259 %                                                                             %
 260 %                                                                             %
 261 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 262 %
 263 %  RegisterSCRImage() adds attributes for the SCR image format to
 264 %  the list of supported formats.  The attributes include the image format
 265 %  tag, a method to read and/or write the format, whether the format
 266 %  supports the saving of more than one frame to the same file or blob,
 267 %  whether the format supports native in-memory I/O, and a brief
 268 %  description of the format.
 269 %
 270 %  The format of the RegisterSCRImage method is:
 271 %
 272 %      size_t RegisterSCRImage(void)
 273 %
 274 */
 275 ModuleExport size_t RegisterSCRImage(void)
 276 {
 277   MagickInfo
 278     *entry;
 279
 280   entry=AcquireMagickInfo("SCR","SCR","ZX-Spectrum SCREEN$");
 281   entry->decoder=(DecodeImageHandler *) ReadSCRImage;
 282   entry->flags^=CoderAdjoinFlag;
 283   (void) RegisterMagickInfo(entry);
 284   return(MagickImageCoderSignature);
 285 }
 286 \f
 287 /*
 288 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 289 %                                                                             %
 290 %                                                                             %
 291 %                                                                             %
 292 %   U n r e g i s t e r S C R I m a g e                                       %
 293 %                                                                             %
 294 %                                                                             %
 295 %                                                                             %
 296 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 297 %
 298 %  UnregisterSCRImage() removes format registrations made by the
 299 %  SCR module from the list of supported formats.
 300 %
 301 %  The format of the UnregisterSCRImage method is:
 302 %
 303 %      UnregisterSCRImage(void)
 304 %
 305 */
 306 ModuleExport void UnregisterSCRImage(void)
 307 {
 308   (void) UnregisterMagickInfo("SCR");
 309 }