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: CircleEmpty.ps
Message-ID: <2254@optilink.UUCP>
Date: 29 Aug 89 22:36:21 GMT
Organization: Optilink Corporation, Petaluma, CA
Lines: 19

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!