home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / ps / moreroac.hes < prev    next >
Encoding:
Text File  |  1991-04-10  |  5.9 KB  |  127 lines
  1.  
  2. %! roachsheet.ps - draw a sheet of roaches
  3. %
  4. % Copyright (C) 1991 by Jef Poskanzer (jef@well.sf.ca.us).
  5. %
  6. % Permission to use, copy, modify, and distribute this software and its
  7. % documentation for any purpose and without fee is hereby granted, provided
  8. % that the above copyright notice appear in all copies and that both that
  9. % copyright notice and this permission notice appear in supporting
  10. % documentation.  This software is provided "as is" without express or
  11. % implied warranty.
  12. %
  13. % Roach bitmap derived from xroach by J. T. Anderson (jta@locus.com).
  14.  
  15. /roachmask {
  16.     1 setgray
  17.     96 96 false
  18.     [ 96 0 0 -96 0 96 ]
  19.     {<ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  20.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  21.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  22.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  23.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  24.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  25.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  26.     fffffffffffffffffffffffffcfffffffffffffffffffffffcffffffffff
  27.     fffcfffffffff9fffffffffffffc7ffffffff1fffffffffffffc3fffffff
  28.     c3fffffcfffffffc1fffffff83fffff0fffffffe0fffffff07ffffc1ffff
  29.     ffff007ffffe0fffe003ffffffff8003fffc1ff00007ffffffffc0007ff8
  30.     3fe0000ffffffffffe000ff87fc0003ffffffffffff007f0ff8000ffffff
  31.     fffffffe03f0ff003fffffffffffffffc1e07e0ffffffffffffffffff000
  32.     001ffffffffffffffffffc00001fffffffffffffff00000000003fffffff
  33.     fffff800000000003fffffffffffc000000000001f3fff3ffffe00000000
  34.     00001f3fff3ffff00000000000000fffcfffffc000000000000007ffcfff
  35.     ff00000000000000000fffffff00000000000000000fffffff0000000000
  36.     0000000fffffff00000000000000000fffffff00000000000000000fffff
  37.     ff80000000000000000fffffff80000000000000000fffffff8000000000
  38.     0000000fffffff80000000000000000fffffff80000000000000000fffff
  39.     ffc000000000000001ff3fffffc000000000000003ff3fffffc000000000
  40.     0000073ffcffffc0000000000000073ffcffffe00000000000000fffffff
  41.     fff00000000000000ffffffffffe0000000000001fffffffffffc0000000
  42.     00003fffffffffffff800000003fffffffffffffffff0000003fffffffff
  43.     fffffffffcfc783ffffffffffffffffff8f8fc01fffffffffffffc0001f0
  44.     7e000ffffffffffff00003f07f0000ffffffffffc0000ff83fc0000fffff
  45.     ffffc0003ffc3ff0000fffffffff800ffffe1fffc007ffffffff83ffffff
  46.     1fffff07ffffffff07ffffff8fffffc3fffffffe0fffffffc7fffff3ffff
  47.     fffc1fffffffe3fffffffffffffc3ffffffff1ffffffffffffffffffffff
  48.     f8fffffffffffffffffffffffcffffffffffffffffffffffffffffffffff
  49.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  50.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  51.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  52.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  53.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  54.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  55.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  56.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  57.     ffffffffffffffffffffffff>}
  58.     imagemask
  59. } def
  60.  
  61. /roach {
  62.     0 setgray
  63.     96 96 false
  64.     [ 96 0 0 -96 0 96 ]
  65.     {<ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  66.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  67.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  68.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  69.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  70.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  71.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  72.     fffffffffffffffffffffffffcfffffffffffffffffffffffcffffffffff
  73.     fffcfffffffff9fffffffffffffc7ffffffff1fffffffffffffc3fffffff
  74.     c3fffffcfffffffc1fffffff83fffff0fffffffe0fffffff07ffffc1ffff
  75.     ffff007ffffe0fffe003ffffffff8003fffc1ff00007ffffffffc0007ff8
  76.     3fe0000ffffffffffe000ff87fc0003ffffffffffff007f0ff8000ffffff
  77.     fffffffe03f0ff003fffffffffffffffc1e07e0ffffffffffffffffff000
  78.     001ffffffffffffffffffc00003fffffffffffffff00000000603fffffff
  79.     fffff800000000c03fffffffffffc000000001801f3fff3ffffe00000000
  80.     01801f3fff3ffff00000000003000fffcfffffc000000000030007ffcfff
  81.     ff00000000000700000fffffff00000000000700000fffffff0000000000
  82.     0e000c0fffffff00000000000e000c0ffffffffffffffffffe00000fffff
  83.     fffffffffffffe00000fffffff80000000000e000c0fffffff8000000000
  84.     0e000c0fffffff80000000000e00000fffffff80000000000600000fffff
  85.     ffc000000000060001ff3fffffc000000000070003ff3fffffc000000000
  86.     0300073ffcffffc0000000000300073ffcffffe00000000003000fffffff
  87.     fff00000000001000ffffffffffe0000000001801fffffffffffc0000000
  88.     01c03fffffffffffff80000000ffffffffffffffffff0000007fffffffff
  89.     fffffffffcfc783ffffffffffffffffff8f8fc01fffffffffffffc0001f0
  90.     7e000ffffffffffff00003f07f0000ffffffffffc0000ff83fc0000fffff
  91.     ffffc0003ffc3ff0000fffffffff800ffffe1fffc007ffffffff83ffffff
  92.     1fffff07ffffffff07ffffff8fffffc3fffffffe0fffffffc7fffff3ffff
  93.     fffc1fffffffe3fffffffffffffc3ffffffff1ffffffffffffffffffffff
  94.     f8fffffffffffffffffffffffcffffffffffffffffffffffffffffffffff
  95.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  96.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  97.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  98.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  99.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  100.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  101.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  102.     ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
  103.     ffffffffffffffffffffffff>}
  104.     imagemask
  105. } def
  106.  
  107. /oneroach {
  108.     roachmask
  109.     roach
  110. } def
  111.  
  112. /rpasg {
  113.     rand 612 mod  rand 792 mod  translate
  114.     rand 360 mod  rotate
  115.     rand 30 mod 20 add  dup
  116.     rand 2 mod 1 eq { neg } if
  117.     scale
  118. } def
  119.  
  120. 500 {
  121.     gsave rpasg oneroach grestore
  122. } repeat
  123.  
  124. showpage
  125.  
  126.  
  127.