Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!csd4.csd.uwm.edu!lll-winken!tekbspa!optilink!cramer
From: cramer@optilink.UUCP (Clayton Cramer)
Newsgroups: comp.lang.postscript
Subject: PostScript Toolset: Boxes
Message-ID: <2252@optilink.UUCP>
Date: 29 Aug 89 22:31:46 GMT
Organization: Optilink Corporation, Petaluma, CA
Lines: 24

(See previous posting concerning PostScript toolset.)

%!
/Box 
    {% draw clear rectangle 
     % (first X, first Y, second X, second Y, box line gray, linewidth)
     gsave
     /Width exch def /Gray exch def
     /UpperY exch def /UpperX exch def /LowerY exch def /LowerX exch def
     LowerX LowerY moveto
     UpperX LowerY lineto
     UpperX UpperY lineto
     LowerX UpperY lineto
     LowerX LowerY lineto 
     closepath Width setlinewidth Gray setgray stroke 
     grestore} bind def
%%DEMO
200 200 400 300 0.75 10 Box
showpage
-- 
Clayton E. Cramer {pyramid,pixar,tekbspa}!optilink!cramer
"No man is an island" is the beginning of the end of personal freedom.
----------------------------------------------------------------------------
Disclaimer?  You must be kidding!  No company would hold opinions like mine!