home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / ps / drawba.rts < prev    next >
Text File  |  1991-04-10  |  2KB  |  68 lines
  1.  
  2. %!
  3. % Bitmap of Bart Simpson.  Drawn and compiled into PostScript
  4. % by Steve Hawley, 6/90.  The image tiles very well.
  5. %
  6. /bartbits <
  7.     00911114C014200000622228A0162000
  8.     8C444448A4C431A914288888AAA42AAB
  9.     8C311118C4A229910022222800000000
  10.     00244448000014010028888800001C01
  11.     00311114092214D90062222412AA1554
  12.     00444446091494D50088CCCD40010000
  13.     01117AAAC0002000062251117FE04000
  14.     FC4440004460FFFF8888C00048C18888
  15.     111140005147111122224000629A2222
  16.     4444400045E444448888C00048888888
  17.     11114000311111112222200022222222
  18.     4444601DC44444448888A02228888888
  19.     11112041111111112222204552222222
  20.     44445041144444448888902228888888
  21.     1111101DF11111112222300012222222
  22.     44447000144444448888880018888888
  23.     1111B000F11111112222A00062222222
  24.     44448800244444448888F01FE8888888
  25.     11111020111111112222282722222222
  26.     44444819444444448888880288888888
  27.     11111405111111112222240A222A2222
  28.     4547C414F45444448D8C6BEB18948888
  29.     3C9A10040927911142FE00040FE86222
  30.     700200020801C44488FE00020FE28888
  31.     109A0002092111112D2A10021236A222
  32.     55446001F45544448A8FA00188888888
  33.     111120009111111122222000A2222222
  34.     44446000C44444448888C00048888888
  35.     11114000511111112222400062222222
  36.     44444000444444448888C00048888888
  37.     1111400051111111FA223001FFFFFFFF
  38.     06444FFE000000000188888C00000000
  39. > def
  40.  
  41. % The bitmap is inverted, so I use this routine to flip all the
  42. % bits.
  43. 0 1 bartbits length 1 sub
  44.     { dup bartbits exch get 255 xor bartbits 3 1 roll put } bind for
  45.  
  46. /bart { % width height x y => ---
  47. %% procedure to draw an image of Bart Simpson
  48.     gsave translate scale
  49.     % bart is 64x64
  50.         64 64 1 [64 0 0 -64 0 64] {//bartbits} image
  51.     grestore
  52. } bind def
  53.  
  54. 0 30.71988 800 {  % draw a page of barts.
  55.     18 exch moveto
  56.     gsave
  57.         0 30.71988 550 {
  58.             30.71988 30.71988 currentpoint bart 30.71988 0 rmoveto
  59.         } for
  60.     grestore
  61. } bind for
  62.  
  63. % this does just a single one
  64. % 72 72 300 400 bart
  65.  
  66. showpage
  67.  
  68.