Re: how fill PolarPlot?

*To*: mathgroup at smc.vnet.net*Subject*: [mg84443] Re: how fill PolarPlot?*From*: dflatin at rcn.com*Date*: Mon, 24 Dec 2007 04:50:05 -0500 (EST)*References*: <fkla2t$3sh$1@smc.vnet.net>

How about Module[{leaf, clover}, leaf = FullGraphics@ RegionPlot[(x^2 + y^2)^(3/2) <= x^2 - y^2, {x, -0.02, 1}, {y, -1, 1}, Frame -> False, AspectRatio -> Automatic]; clover = PolarPlot[Cos[2 theta], {theta, 0, 2 Pi}]; Show[{leaf, clover}] ] Or you could use Module[{leaf, clover}, leaf = RegionPlot[(x^2 + y^2)^(3/2) <= x^2 - y^2, {x, -0.02, 1}, {y, -1, 1}, Frame -> False, AspectRatio -> Automatic]; clover = PolarPlot[Cos[2 theta], {theta, 0, 2 Pi}]; Show[{leaf, clover}, PlotRange -> All] ] But for some reason on my machine the second plot is not anti-aliased. I am not really clear on when and where Mathematica uses anti- aliasing, but I wish it was more consistent. When using Prolog I didn't get the same error message as you did. Instead the error was: "Graphics is not a Graphics primitive or directive" I am using Mathematica 6.0.1 on Mac OS X 10.4.10 Dan On Dec 23, 4:34=A0am, Murray Eisenberg <mur... at math.umass.edu> wrote: > I Mathematica 6 I have a PolarPlot, e.g., a 4-leaved rose: > > =A0 =A0PolarPlot[Cos[2 theta], {theta, 0, 2 Pi}] > > How can I fill the inside -- or, what I really want, just the leaf in > the right half-plane -- with some color? > > I note that Filling does not seem to be an option for PolarPlot (or for > what would be almost as good, ParametricPlot). > > I tried including the following (obtained by converting from : > > =A0 =A0Prolog->RegionPlot[(x^2 + y^2)^(3/2) <= x^2-y^2, {x,-0.02,1},{y,-= 1,1}, > =A0 =A0 =A0 =A0Frame->False, AspectRatio->Automatic] > > However, that led to a mysterious error message: > > =A0 =A0$Aborted is not a Graphics primitive or directive. > > (Perhaps because of an incompatibility of a Prolog with cartesian > coordinates inside a polar coordinate plot??) > > -- > Murray Eisenberg =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 mur... at math.umass= .edu > Mathematics & Statistics Dept. > Lederle Graduate Research Tower =A0 =A0 =A0phone 413 549-1020 (H) > University of Massachusetts =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0413 545-2859 (W= ) > 710 North Pleasant Street =A0 =A0 =A0 =A0 =A0 =A0fax =A0 413 545-1801 > Amherst, MA 01003-9305