🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.postscript
Article #8955

Re: Postscript idiot needed help (and got it)

#8955
From: rodgers
Date: Mon, 12 Feb 1990 10:54
27 lines
1547 bytes
I'm surprised no-one suggested a fat line doughnut.  How about this
(totally untried) procedure:

% stack when calling: x y rin rout
/donut { %def
  gsave
    1 index	       % x y rin rout rin
    sub                % x y rin thickness
    dup setlinewidth
    2 div add          % x y rcentre
    0 360              % x y rcentre 0 360
    3 -1 roll          % x y 0 360 rcentre
    arc stroke
  grestore
} bind def

Unfortunately I don't have my red book handy so I'm not sure if this
is even close to right but I'm sure someone will delight in telling me
if it's not.  Has anyone got enough time and enthusiasm to muck
about with usertime to see how all these donuts compare?  Woody????  I
would really be interested to know how fills compare with strokes in a
case like this.  My experience with fills has been that they are
really slow.
--
Mark Rodgers                                      Computer Services Section
rodgers@csc.wcc.govt.nz                             Wellington City Council
Telephone (04) 733-130               P.O. Box 2199, Wellington, New Zealand
Technical Details
Message-ID: <1214.25d73e9c@csc.wcc.govt.nz>
Path: arc1-ca.pugleaf.net!utzoo!attcan!uunet!munnari.oz.au!kaukau.comp.vuw.ac.nz!comp.vuw.ac.nz!kosmos!csc!rodgers
References: <17807@rpp386.cactus.org> <9002040147.AA16999@en.ecn.purdue.edu> <4017@hydra.Helsinki.FI>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!attcan!uunet!munnari.oz.au!kaukau.comp.vuw.ac.nz!comp.vuw.ac.nz!kosmos!csc!rodgers
From: rodgers@csc.wcc.govt.nz
Newsgroups: comp.lang.postscript
Subject: Re: Postscript idiot needed help (and got it)
Message-ID: <1214.25d73e9c@csc.wcc.govt.nz>
Date: 12 Feb 90 10:54:20 GMT
References: <17807@rpp386.cactus.org> <9002040147.AA16999@en.ecn.purdue.edu> <4017@hydra.Helsinki.FI>
Organization: Wellington City Council
Lines: 27