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-2016 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 39 /* 41 Include declarations. 42 */ 43 #include "MagickCore/studio.h" 44 #include "MagickCore/blob.h" 45 #include "MagickCore/blob-private.h" 46 #include "MagickCore/cache.h" 47 #include "MagickCore/exception.h" 48 #include "MagickCore/exception-private.h" 49 #include "MagickCore/image.h" 50 #include "MagickCore/image-private.h" 51 #include "MagickCore/list.h" 52 #include "MagickCore/magick.h" 53 #include "MagickCore/memory_.h" 54 #include "MagickCore/monitor.h" 55 #include "MagickCore/monitor-private.h" 56 #include "MagickCore/pixel-accessor.h" 57 #include "MagickCore/quantum-private.h" 58 #include "MagickCore/static.h" 59 #include "MagickCore/string_.h" 60 #include "MagickCore/module.h" 61 62 /* 64 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 65 % % 66 % % 67 % % 68 % R e a d S C R I m a g e % 69 % % 70 % % 71 % % 72 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 73 % 74 % ReadSCRImage() reads a Scitex image file and returns it. It allocates 75 % the memory necessary for the new Image structure and returns a pointer to 76 % the new image. 77 % 78 % The format of the ReadSCRImage method is: 79 % 80 % Image *ReadSCRImage(const ImageInfo *image_info,ExceptionInfo *exception) 81 % 82 % A description of each parameter follows: 83 % 84 % o image_info: the image info. 85 % 86 % o exception: return any errors or warnings in this structure. 87 % 88 */ 89 static Image *ReadSCRImage(const ImageInfo *image_info,ExceptionInfo *exception) 90 { 91 char zxscr[6144]; 92 char zxattr[768]; 93 int octetnr; 94 int octetline; 95 int zoneline; 96 int zonenr; 97 int octet_val; 98 int attr_nr; 99 int pix; 100 int piy; 101 int binar[8]; 102 int attrbin[8]; 103 int *pbin; 104 int *abin; 105 int z; 106 int one_nr; 107 int ink; 108 int paper; 109 int bright; 110 111 unsigned char colour_palette[] = { 112 0, 0, 0, 113 0, 0,192, 114 192, 0, 0, 115 192, 0,192, 116 0,192, 0, 117 0,192,192, 118 192,192, 0, 119 192,192,192, 120 0, 0, 0, 121 0, 0,255, 122 255, 0, 0, 123 255, 0,255, 124 0,255, 0, 125 0,255,255, 126 255,255, 0, 127 255,255,255 128 }; 129 130 Image 131 *image; 132 133 MagickBooleanType 134 status; 135 136 register Quantum 137 *q; 138 139 ssize_t 140 count; 141 142 /* 143 Open image file. 144 */ 145 assert(image_info != (const ImageInfo *) NULL); 146 assert(image_info->signature == MagickCoreSignature); 147 if (image_info->debug != MagickFalse) 148 (void) LogMagickEvent(TraceEvent,GetMagickModule(),"%s", 149 image_info->filename); 150 assert(exception != (ExceptionInfo *) NULL); 151 assert(exception->signature == MagickCoreSignature); 152 image=AcquireImage(image_info,exception); 153 status=OpenBlob(image_info,image,ReadBinaryBlobMode,exception); 154 if (status == MagickFalse) 155 { 156 image=DestroyImageList(image); 157 return((Image *) NULL); 158 } 159 image->columns = 256; 160 image->rows = 192; 161 status=SetImageExtent(image,image->columns,image->rows,exception); 162 if (status == MagickFalse) 163 return(DestroyImageList(image)); 164 count=ReadBlob(image,6144,(unsigned char *) zxscr); 165 (void) count; 166 count=ReadBlob(image,768,(unsigned char *) zxattr); 167 for(zonenr=0;zonenr<3;zonenr++) 168 { 169 for(zoneline=0;zoneline<8;zoneline++) 170 { 171 for(octetline=0;octetline<8;octetline++) 172 { 173 for(octetnr=(zoneline*32);octetnr<((zoneline*32)+32);octetnr++) 174 { 175 octet_val = zxscr[octetnr+(256*octetline)+(zonenr*2048)]; 176 attr_nr = zxattr[octetnr+(256*zonenr)]; 177 178 pix = (((8*octetnr)-(256*zoneline))); 179 piy = ((octetline+(8*zoneline)+(zonenr*64))); 180 181 pbin = binar; 182 abin = attrbin; 183 184 one_nr=1; 185 186 for(z=0;z<8;z++) 187 { 188 if(octet_val&one_nr) 189 { 190 *pbin = 1; 191 } else { 192 *pbin = 0; 193 } 194 one_nr=one_nr*2; 195 pbin++; 196 } 197 198 one_nr = 1; 199 200 for(z=0;z<8;z++) 201 { 202 if(attr_nr&one_nr) 203 { 204 *abin = 1; 205 } else { 206 *abin = 0; 207 } 208 one_nr=one_nr*2; 209 abin++; 210 } 211 212 ink = (attrbin[0]+(2*attrbin[1])+(4*attrbin[2])); 213 paper = (attrbin[3]+(2*attrbin[4])+(4*attrbin[5])); 214 bright = attrbin[6]; 215 216 if(bright) { ink=ink+8; paper=paper+8; } 217 218 for(z=7;z>-1;z--) 219 { 220 q=QueueAuthenticPixels(image,pix,piy,1,1,exception); 221 if (q == (Quantum *) NULL) 222 break; 223 224 if(binar[z]) 225 { 226 SetPixelRed(image,ScaleCharToQuantum( 227 colour_palette[3*ink]),q); 228 SetPixelGreen(image,ScaleCharToQuantum( 229 colour_palette[1+(3*ink)]),q); 230 SetPixelBlue(image,ScaleCharToQuantum( 231 colour_palette[2+(3*ink)]),q); 232 } else { 233 SetPixelRed(image,ScaleCharToQuantum( 234 colour_palette[3*paper]),q); 235 SetPixelGreen(image,ScaleCharToQuantum( 236 colour_palette[1+(3*paper)]),q); 237 SetPixelBlue(image,ScaleCharToQuantum( 238 colour_palette[2+(3*paper)]),q); 239 } 240 241 pix++; 242 } 243 } 244 } 245 } 246 } 247 (void) CloseBlob(image); 248 return(GetFirstImageInList(image)); 249 } 250 251 /* 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 287 /* 289 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 290 % % 291 % % 292 % % 293 % U n r e g i s t e r S C R I m a g e % 294 % % 295 % % 296 % % 297 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 298 % 299 % UnregisterSCRImage() removes format registrations made by the 300 % SCR module from the list of supported formats. 301 % 302 % The format of the UnregisterSCRImage method is: 303 % 304 % UnregisterSCRImage(void) 305 % 306 */ 307 ModuleExport void UnregisterSCRImage(void) 308 { 309 (void) UnregisterMagickInfo("SCR"); 310 } 311
