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

   1 %!PS-Adobe-3.0 EPSF-3.0
   2 %%Creator: (ImageMagick)
   3 %%Title: (40_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 FFFFFBFFFFFFFFFFFFFFFFFFFFFBFFFFFFFFFFFFFFFFFFFFDFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 277 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFFFEFFFFFFFFFF
 278 FFFFBFFFFFFFFFFFFFFFFFFFFFFFFFFFDFFFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 279 FFFFFFFFFEFFFFFFFD7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3EFFFFFFFFFF7FFFFFFFF
 280 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFFFFFFFFFFFFFFDFFFF7FFFFFFFFFFF7FFFFFF
 281 FFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFFFFBFFFFFFFFEFBFFF
 282 FFFFFFFFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 283 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 284 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7FFDFFEF
 285 FFFFFFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFFFFFFFFFFFFFFFFFFFFFF
 286 FFFFFFFFFFFFFFFFBFFFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFFFFBFFFFFFF
 287 FFFFFFFFFF7BFFFFFFF7FBFFFFFFFFFFFFFDFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7FFFFFFFFFFFF
 288 FFFFFFFFFFFFFFFFFFFFFFBFFFDFF7FFFFFFFFFFFFFFFFFFDFFDFFFFFFFFFFFEFBFFFFFFFFFFFF
 289 F7FFFFFFFF
 290 end
 291 %%PageTrailer
 292 %%Trailer
 293 %%EOF