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: More Comments & CircleSolid.ps
Message-ID: <2255@optilink.UUCP>
Date: 29 Aug 89 22:41:05 GMT
Organization: Optilink Corporation, Petaluma, CA
Lines: 20

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!