cramer@optilink.UUCP (Clayton Cramer) (08/30/89)
Tired of looking up how to draw a circle every time you need one?
%!
/CircleEmpty
{% draw a circle
% (x center, y center, radius, gray, width)
gsave
/Width exch def /Gray exch def /Radius exch def /Y exch def /X exch def
newpath X Y Radius 0 360 arc closepath Gray setgray Width setlinewidth
stroke
grestore} bind def
%%DEMO
100 600 75 0.5 20 CircleEmpty
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!