roachsheet.ps

Article View: comp.lang.postscript

Article #5195

Back to comp.lang.postscript Previous Next

#5195

From: Jef Poskanzer
Date: Thu, 28 Mar 1991 19:57

123 lines
6487 bytes

%! roachsheet.ps - draw a sheet of roaches
%
% Copyright (C) 1991 by Jef Poskanzer (jef@well.sf.ca.us).
%
% Permission to use, copy, modify, and distribute this software and its
% documentation for any purpose and without fee is hereby granted, provided
% that the above copyright notice appear in all copies and that both that
% copyright notice and this permission notice appear in supporting
% documentation.  This software is provided "as is" without express or
% implied warranty.
%
% Roach bitmap derived from xroach by J. T. Anderson (jta@locus.com).

/roachmask {
    1 setgray
    96 96 false
    [ 96 0 0 -96 0 96 ]
    {<ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    fffffffffffffffffffffffffcfffffffffffffffffffffffcffffffffff
    fffcfffffffff9fffffffffffffc7ffffffff1fffffffffffffc3fffffff
    c3fffffcfffffffc1fffffff83fffff0fffffffe0fffffff07ffffc1ffff
    ffff007ffffe0fffe003ffffffff8003fffc1ff00007ffffffffc0007ff8
    3fe0000ffffffffffe000ff87fc0003ffffffffffff007f0ff8000ffffff
    fffffffe03f0ff003fffffffffffffffc1e07e0ffffffffffffffffff000
    001ffffffffffffffffffc00001fffffffffffffff00000000003fffffff
    fffff800000000003fffffffffffc000000000001f3fff3ffffe00000000
    00001f3fff3ffff00000000000000fffcfffffc000000000000007ffcfff
    ff00000000000000000fffffff00000000000000000fffffff0000000000
    0000000fffffff00000000000000000fffffff00000000000000000fffff
    ff80000000000000000fffffff80000000000000000fffffff8000000000
    0000000fffffff80000000000000000fffffff80000000000000000fffff
    ffc000000000000001ff3fffffc000000000000003ff3fffffc000000000
    0000073ffcffffc0000000000000073ffcffffe00000000000000fffffff
    fff00000000000000ffffffffffe0000000000001fffffffffffc0000000
    00003fffffffffffff800000003fffffffffffffffff0000003fffffffff
    fffffffffcfc783ffffffffffffffffff8f8fc01fffffffffffffc0001f0
    7e000ffffffffffff00003f07f0000ffffffffffc0000ff83fc0000fffff
    ffffc0003ffc3ff0000fffffffff800ffffe1fffc007ffffffff83ffffff
    1fffff07ffffffff07ffffff8fffffc3fffffffe0fffffffc7fffff3ffff
    fffc1fffffffe3fffffffffffffc3ffffffff1ffffffffffffffffffffff
    f8fffffffffffffffffffffffcffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffff>}
    imagemask
} def

/roach {
    0 setgray
    96 96 false
    [ 96 0 0 -96 0 96 ]
    {<ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    fffffffffffffffffffffffffcfffffffffffffffffffffffcffffffffff
    fffcfffffffff9fffffffffffffc7ffffffff1fffffffffffffc3fffffff
    c3fffffcfffffffc1fffffff83fffff0fffffffe0fffffff07ffffc1ffff
    ffff007ffffe0fffe003ffffffff8003fffc1ff00007ffffffffc0007ff8
    3fe0000ffffffffffe000ff87fc0003ffffffffffff007f0ff8000ffffff
    fffffffe03f0ff003fffffffffffffffc1e07e0ffffffffffffffffff000
    001ffffffffffffffffffc00003fffffffffffffff00000000603fffffff
    fffff800000000c03fffffffffffc000000001801f3fff3ffffe00000000
    01801f3fff3ffff00000000003000fffcfffffc000000000030007ffcfff
    ff00000000000700000fffffff00000000000700000fffffff0000000000
    0e000c0fffffff00000000000e000c0ffffffffffffffffffe00000fffff
    fffffffffffffe00000fffffff80000000000e000c0fffffff8000000000
    0e000c0fffffff80000000000e00000fffffff80000000000600000fffff
    ffc000000000060001ff3fffffc000000000070003ff3fffffc000000000
    0300073ffcffffc0000000000300073ffcffffe00000000003000fffffff
    fff00000000001000ffffffffffe0000000001801fffffffffffc0000000
    01c03fffffffffffff80000000ffffffffffffffffff0000007fffffffff
    fffffffffcfc783ffffffffffffffffff8f8fc01fffffffffffffc0001f0
    7e000ffffffffffff00003f07f0000ffffffffffc0000ff83fc0000fffff
    ffffc0003ffc3ff0000fffffffff800ffffe1fffc007ffffffff83ffffff
    1fffff07ffffffff07ffffff8fffffc3fffffffe0fffffffc7fffff3ffff
    fffc1fffffffe3fffffffffffffc3ffffffff1ffffffffffffffffffffff
    f8fffffffffffffffffffffffcffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
    ffffffffffffffffffffffff>}
    imagemask
} def

/oneroach {
    roachmask
    roach
} def

/rpasg {
    rand 612 mod  rand 792 mod  translate
    rand 360 mod  rotate
    rand 30 mod 20 add  dup
    rand 2 mod 1 eq { neg } if
    scale
} def

500 {
    gsave rpasg oneroach grestore
} repeat

showpage

Technical Details

Message-ID: <23903@well.sf.ca.us>

Path: arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!apple!well!jef

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!apple!well!jef
From: jef@well.sf.ca.us (Jef Poskanzer)
Newsgroups: comp.lang.postscript
Subject: roachsheet.ps
Message-ID: <23903@well.sf.ca.us>
Date: 28 Mar 91 19:57:40 GMT
Reply-To: Jef Poskanzer <jef@well.sf.ca.us>
Organization: Paratheo-Anametamystikhood Of Eris Esoteric, Ada Lovelace Cabal
Lines: 123