IH/iihmsp13/img/W_B-scale/10_invader.eps

   1 %!PS-Adobe-3.0 EPSF-3.0
   2 %%Creator: (ImageMagick)
   3 %%Title: (10_invader.eps)
   4 %%CreationDate: (2011-07-05T19:49:01+02:00)
   5 %%BoundingBox: -0 -0 64 64
   6 %%HiResBoundingBox: 0 0 64 64
   7 %%DocumentData: Clean7Bit
   8 %%LanguageLevel: 1
   9 %%Pages: 1
  10 %%EndComments
  11
  12 %%BeginDefaults
  13 %%EndDefaults
  14
  15 %%BeginProlog
  16 %
  17 % Display a color image.  The image is displayed in color on
  18 % Postscript viewers or printers that support color, otherwise
  19 % it is displayed as grayscale.
  20 %
  21 /DirectClassPacket
  22 {
  23   %
  24   % Get a DirectClass packet.
  25   %
  26   % Parameters:
  27   %   red.
  28   %   green.
  29   %   blue.
  30   %   length: number of pixels minus one of this color (optional).
  31   %
  32   currentfile color_packet readhexstring pop pop
  33   compression 0 eq
  34   {
  35     /number_pixels 3 def
  36   }
  37   {
  38     currentfile byte readhexstring pop 0 get
  39     /number_pixels exch 1 add 3 mul def
  40   } ifelse
  41   0 3 number_pixels 1 sub
  42   {
  43     pixels exch color_packet putinterval
  44   } for
  45   pixels 0 number_pixels getinterval
  46 } bind def
  47
  48 /DirectClassImage
  49 {
  50   %
  51   % Display a DirectClass image.
  52   %
  53   systemdict /colorimage known
  54   {
  55     columns rows 8
  56     [
  57       columns 0 0
  58       rows neg 0 rows
  59     ]
  60     { DirectClassPacket } false 3 colorimage
  61   }
  62   {
  63     %
  64     % No colorimage operator;  convert to grayscale.
  65     %
  66     columns rows 8
  67     [
  68       columns 0 0
  69       rows neg 0 rows
  70     ]
  71     { GrayDirectClassPacket } image
  72   } ifelse
  73 } bind def
  74
  75 /GrayDirectClassPacket
  76 {
  77   %
  78   % Get a DirectClass packet;  convert to grayscale.
  79   %
  80   % Parameters:
  81   %   red
  82   %   green
  83   %   blue
  84   %   length: number of pixels minus one of this color (optional).
  85   %
  86   currentfile color_packet readhexstring pop pop
  87   color_packet 0 get 0.299 mul
  88   color_packet 1 get 0.587 mul add
  89   color_packet 2 get 0.114 mul add
  90   cvi
  91   /gray_packet exch def
  92   compression 0 eq
  93   {
  94     /number_pixels 1 def
  95   }
  96   {
  97     currentfile byte readhexstring pop 0 get
  98     /number_pixels exch 1 add def
  99   } ifelse
 100   0 1 number_pixels 1 sub
 101   {
 102     pixels exch gray_packet put
 103   } for
 104   pixels 0 number_pixels getinterval
 105 } bind def
 106
 107 /GrayPseudoClassPacket
 108 {
 109   %
 110   % Get a PseudoClass packet;  convert to grayscale.
 111   %
 112   % Parameters:
 113   %   index: index into the colormap.
 114   %   length: number of pixels minus one of this color (optional).
 115   %
 116   currentfile byte readhexstring pop 0 get
 117   /offset exch 3 mul def
 118   /color_packet colormap offset 3 getinterval def
 119   color_packet 0 get 0.299 mul
 120   color_packet 1 get 0.587 mul add
 121   color_packet 2 get 0.114 mul add
 122   cvi
 123   /gray_packet exch def
 124   compression 0 eq
 125   {
 126     /number_pixels 1 def
 127   }
 128   {
 129     currentfile byte readhexstring pop 0 get
 130     /number_pixels exch 1 add def
 131   } ifelse
 132   0 1 number_pixels 1 sub
 133   {
 134     pixels exch gray_packet put
 135   } for
 136   pixels 0 number_pixels getinterval
 137 } bind def
 138
 139 /PseudoClassPacket
 140 {
 141   %
 142   % Get a PseudoClass packet.
 143   %
 144   % Parameters:
 145   %   index: index into the colormap.
 146   %   length: number of pixels minus one of this color (optional).
 147   %
 148   currentfile byte readhexstring pop 0 get
 149   /offset exch 3 mul def
 150   /color_packet colormap offset 3 getinterval def
 151   compression 0 eq
 152   {
 153     /number_pixels 3 def
 154   }
 155   {
 156     currentfile byte readhexstring pop 0 get
 157     /number_pixels exch 1 add 3 mul def
 158   } ifelse
 159   0 3 number_pixels 1 sub
 160   {
 161     pixels exch color_packet putinterval
 162   } for
 163   pixels 0 number_pixels getinterval
 164 } bind def
 165
 166 /PseudoClassImage
 167 {
 168   %
 169   % Display a PseudoClass image.
 170   %
 171   % Parameters:
 172   %   class: 0-PseudoClass or 1-Grayscale.
 173   %
 174   currentfile buffer readline pop
 175   token pop /class exch def pop
 176   class 0 gt
 177   {
 178     currentfile buffer readline pop
 179     token pop /depth exch def pop
 180     /grays columns 8 add depth sub depth mul 8 idiv string def
 181     columns rows depth
 182     [
 183       columns 0 0
 184       rows neg 0 rows
 185     ]
 186     { currentfile grays readhexstring pop } image
 187   }
 188   {
 189     %
 190     % Parameters:
 191     %   colors: number of colors in the colormap.
 192     %   colormap: red, green, blue color packets.
 193     %
 194     currentfile buffer readline pop
 195     token pop /colors exch def pop
 196     /colors colors 3 mul def
 197     /colormap colors string def
 198     currentfile colormap readhexstring pop pop
 199     systemdict /colorimage known
 200     {
 201       columns rows 8
 202       [
 203         columns 0 0
 204         rows neg 0 rows
 205       ]
 206       { PseudoClassPacket } false 3 colorimage
 207     }
 208     {
 209       %
 210       % No colorimage operator;  convert to grayscale.
 211       %
 212       columns rows 8
 213       [
 214         columns 0 0
 215         rows neg 0 rows
 216       ]
 217       { GrayPseudoClassPacket } image
 218     } ifelse
 219   } ifelse
 220 } bind def
 221
 222 /DisplayImage
 223 {
 224   %
 225   % Display a DirectClass or PseudoClass image.
 226   %
 227   % Parameters:
 228   %   x & y translation.
 229   %   x & y scale.
 230   %   label pointsize.
 231   %   image label.
 232   %   image columns & rows.
 233   %   class: 0-DirectClass or 1-PseudoClass.
 234   %   compression: 0-none or 1-RunlengthEncoded.
 235   %   hex color packets.
 236   %
 237   gsave
 238   /buffer 512 string def
 239   /byte 1 string def
 240   /color_packet 3 string def
 241   /pixels 768 string def
 242
 243   currentfile buffer readline pop
 244   token pop /x exch def
 245   token pop /y exch def pop
 246   x y translate
 247   currentfile buffer readline pop
 248   token pop /x exch def
 249   token pop /y exch def pop
 250   currentfile buffer readline pop
 251   token pop /pointsize exch def pop
 252   /Times-Roman findfont pointsize scalefont setfont
 253   x y scale
 254   currentfile buffer readline pop
 255   token pop /columns exch def
 256   token pop /rows exch def pop
 257   currentfile buffer readline pop
 258   token pop /class exch def pop
 259   currentfile buffer readline pop
 260   token pop /compression exch def pop
 261   class 0 gt { PseudoClassImage } { DirectClassImage } ifelse
 262 } bind def
 263 %%EndProlog
 264 %%Page:  1 1
 265 %%PageBoundingBox: 0 0 64 64
 266 userdict begin
 267 DisplayImage
 268 0 0
 269 64 64
 270 12
 271 64 64
 272 1
 273 1
 274 1
 275 1
 276 8D19FDAAC47FC77D7DFFED89C9EB467B655DB24409CE5B6DAC7AB3776583E3124DFFBDFE4FBD6E
 277 E4C96F5B9FBE3B47416E17C47B78CFCD8D05C935F3A67DE957D2CBB6F8DA0B2A717563F9ED0DAF
 278 9C9145187DE77E2FF8FF8392FB31CEEFF6FAD0B4FDDFFBFFFC4129CFFFB72FCFBECF3FDF7BCC2D
 279 FFE79A5F396FC1BFF6B125A23F07DD8BF5B5A6F882C7FD19F7AAF66A36DFF8E7F8FADD52A457E7
 280 DFFEA31C47347FFFFFFF4ADF3E7FFFFFFFFFD8DA08E7FFFFFFFF9CDE1E3AFFFFFFFF2618C5DDFF
 281 FFFFFF8DD16B0FF8BFFFDFFEBD505FFC3FFEBFFF4BE17FFF7FFE3FFEE547EFFEFFFE7FFFD1DE7F
 282 FD7FFF9FFFAF17DFFC7FFECFFE3BD5FFFFFFFFFFFFFDFFFFFFFFFFFFFFF575FFFFFFFFFFFFEF9F
 283 FFFFFFFFFFFFC82DFFFFFFFFFFFFCDD7FFFFFFFFFFFFDFF7FF7FFFFFFF27DA4BFFFFFFFFFFD7F5
 284 C3F5FFFFFFFFE7C6E7FC7FFFFFFF37D175FEFFFFFFFF67F6BFF3FDC5EACF6FEB03F07E0ED6EFDF
 285 EAB7FEFFDE58BFDFF153F3F99A9F1FBFE8D9F7FCCD7C7F07DEBBFEFAE8BF3F1FCE5FB4F7FE9FFF
 286 6FA76C24CFFDFFF2C56A1995A7FF7FF4CF1F5E724FFFBFF42D3FD691B7FF7FF9CD4373E5F08A9E
 287 787AD15BFAB8C2C35FB5E805BFA7AF6438C0A6E5F93BA02E5527EDC53AD83F551556B27B3B7BC2
 288 BC077036D62C5A0253FCB6C977BDE5E4E1F60BDB759E99F3964222C0ABBFBFD9F36768EF40EBF4
 289 8B9BFCA77F
 290 end
 291 %%PageTrailer
 292 %%Trailer
 293 %%EOF