PostScript Toolset: CircleEmpty.ps

Article View: comp.lang.postscript

Article #955

Back to comp.lang.postscript Previous Next

#955

From: Clayton Cramer
Date: Tue, 29 Aug 1989 22:36

19 lines
1061 bytes

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!

Technical Details

Message-ID: <2254@optilink.UUCP>

Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!csd4.csd.uwm.edu!lll-winken!tekbspa!optilink!cramer

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!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