Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!gem.mps.ohio-state.edu!uakari.primate.wisc.edu!xanth!ames!haven!umd5!zben From: zben@umd5.umd.edu (Ben Cranston) Newsgroups: comp.lang.postscript Subject: Re: PostScript in PostScript Summary: Well, h*ll, it's only one page... Keywords: graphical newsgroup Message-ID: <5507@umd5.umd.edu> Date: 24 Oct 89 22:07:54 GMT References: <7800@cg-atla.UUCP> <1655@atanasoff.cs.iastate.edu> Reply-To: zben@umd5.umd.edu (Ben Cranston) Distribution: comp Organization: University of Maryland, College Park Lines: 39 In article <1655@atanasoff.cs.iastate.edu> hascall@atanasoff.UUCP (John Hascall) writes: > %!PS > gsave > /Times-Roman findfont 180 scalefont setfont > newpath 36 550 moveto > (Groovy) false charpath clip pathbbox > 2 index sub dup mul exch 3 index sub dup mul add sqrt > /r exch def pop pop > -90 1 90 { > newpath 36 550 moveto > dup cos r mul exch sin r mul rlineto stroke > } for > grestore > showpage > % > % John Hascall %!PS-Adobe /slashpage { newpath 0 5 1584 { % for 0 0 2 index moveto lineto } for stroke } bind def /Helvetica-Bold findfont 216 scalefont setfont 612 0 translate 90 rotate % landscape newpath 0 0 moveto 792 0 lineto 792 612 lineto 0 612 lineto closepath clip slashpage (THINK!) dup stringwidth pop -2 div 396 add 220 newpath moveto true charpath clip 1 setgray fill 0 setgray 792 0 translate -1 1 scale slashpage showpage -- Sig DS.L ('ZBen') ; Ben Cranston * Computer Science Center Network Infrastructures Group * University of Maryland at College Park