🚀 go-pugleaf

In article <3692@ux.acs.umn.edu> edh@ux.acs.umn.edu (Merlinus Ambrosius) writes:
>Hi, we are going to be taking a new Kodak high-speed postscript printer for
>a test drive soon, and I'd like to get my hands on the "toughest" postscript
>programs out there to test it with.  I would have to make sure they do in 
>fact work on Apple LaserWriters first.  If you have anything to pass me



/Times-Roman findfont 35 scalefont setfont
0 0 moveto (Hello) show
/Times-Roman findfont 150 scalefont setfont
newpath 80 220 moveto (Hello) false charpath clip
/inch {72 mul} def
/circle { 0 setlinewidth newpath 0 360 arc stroke} def
/spiro {
	/ncircles exch def
	ncircles {
		80 0 65 circle
		360 ncircles div rotate
		} repeat
	} def
/drawx { 3 3 rmoveto -6 -6 rlineto
	0 6 rmoveto 6 -6 rlineto stroke} def
0 setlinewidth
4 inch 3 inch translate
90 spiro
2 inch 1 inch translate
200 spiro
-3 inch 0 inch translate
150 spiro
grestore
showpage

Try this one...
Mike Kazmierczak
X Systems
Mail replies to: mike%beow.uucp@gatech.edu