cramer@optilink.UUCP (Clayton Cramer) (08/30/89)
(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!