17e5 %! 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 ] {} imagemask } def /roach { 0 setgray 96 96 false [ 96 0 0 -96 0 96 ] {} 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 . 0