cramer@optilink.UUCP (Clayton Cramer) (08/30/89)
Always passing in starting coordinates. If you really want to put
the object at the current point, use currentpoint to put it on the
stack. This gives a uniformity of calling method.
%!
/CircleSolid
{% draw a circle
% (x center, y center, radius, gray)
gsave
/Gray exch def /Radius exch def /Y exch def /X exch def
newpath X Y Radius 0 360 arc closepath Gray setgray fill
grestore} bind def
%%DEMO
300 400 100 0.9 CircleSolid
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!