graphics
- To: mathgroup at smc.vnet.net
- Subject: [mg75860] graphics
- From: dimitris <dimmechan at yahoo.com>
- Date: Sat, 12 May 2007 03:04:24 -0400 (EDT)
Hello.
I have
In[254]:=
surf = Block[{$DisplayFunction = Identity}, ParametricPlot[{5*Cos[u],
Sin[u]}, {u, 0, 2*Pi}, Axes -> None,
PlotStyle -> Thickness[0.02], PlotPoints -> 100]];
halfspa = Graphics[{Thickness[0.01], Circle[{0, 0}, 5, {Pi, 2*Pi}]}];
Then
In[242]:=
gr1 = surf /. Line[x_] :> {GrayLevel[0.9], Polygon[x]};
In[256]:=
Show[surf, gr1];
and the ellipse surf is filled with gray color how I want.
Next
In[258]:=
gr2 = halfspa /. Line[x_] :> {GrayLevel[0.9], Polygon[x]};
In[259]:=
Show[halfspa, gr2];
The half circle is not filled with gray color.
Why?
Can somebody point me out a workaround?
Thanks
Dimitris