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