MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

graphics


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



  • Prev by Date: v.6 Manipulate
  • Next by Date: Re: Making sense of Directive[ ]
  • Previous by thread: v.6 Manipulate
  • Next by thread: Re: graphics