RE: Drawing a Washer, Polar Plot Question

*To*: mathgroup at smc.vnet.net*Subject*: [mg29734] RE: [mg29728] Drawing a Washer, Polar Plot Question*From*: "David Park" <djmp at earthlink.net>*Date*: Thu, 5 Jul 2001 06:08:00 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Bob, If you have Version 4.1 you can do it this way. Needs["Graphics`Graphics`"] Needs["Graphics`InequalityGraphics`"] p1 = PolarPlot[4 Cos[t] - 2, {t, 0, 2Pi}]; p2 = InequalityPlot[1 < x^2 + y^2 < 4, {x, -2, 2}, {y, -2, 2}, Fills -> GrayLevel[0.8]]; Show[p1, p2, Frame -> True, AxesFront -> True]; If you don't have Version 4.1 you could do it using my DrawingPaper packages this way. Needs["Graphics`DrawingPaper`"] Needs["Graphics`FilledDrawing`"] Show[Graphics[ {DrawPolarR[4*Cos[t] - 2, {t, 0, 2*Pi}], FilledDraw[{1, 2}, {t, 0, 2*Pi}, Fills -> {GrayLevel[0.7]}] /. DrawingTransform[ #2*Cos[#1] & , #2*Sin[#1] & ]}], AspectRatio -> Automatic, PlotRange -> Automatic, Background -> Linen, {Frame -> True}]; I drew a filled band in the theta-r plane and then used DrawingTransform to bend it into a washer in the x-y plane. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ > From: Robert B. Love [mailto:rlove at antispam.neosoft.com] To: mathgroup at smc.vnet.net > > > I have a polar plot of my data that lookes the way I want. Now > I want to add a grey "washer" shaped exclusion zone on top of > the plot. I see there is a nice Disk two dimensional graphics > object that is almost what I want. It draws a filled in circle > centered on {x,y} of radius r. What I want is some thing that > draws a filled in circle between r1 and r2, centered on {x,y}. > Is there some way I can do this easily? I've tried combining two > Disks of different colors and sizes but no luck. > > All advice is appreciated. > > > -- > ---------------------------------------------------------------- > Bob Love > rlove at neosoft.com > ---------------------------------------------------------------- > >