drawings
- To: mathgroup at smc.vnet.net
- Subject: [mg75932] drawings
- From: dimitris <dimmechan at yahoo.com>
- Date: Sun, 13 May 2007 05:57:11 -0400 (EDT)
I have
In[2595]:=
surf = Block[{$DisplayFunction = Identity}, ParametricPlot[{13*Cos[u],
4*Sin[u]}, {u, 0, 2*Pi}, PlotStyle -> Thickness[0.008],
PlotPoints -> 100]];
surfgr = surf /. Line[x_] :> {GrayLevel[0.95], Polygon[x]};
halfspa = Block[{$DisplayFunction = Identity},
ParametricPlot[13*{Cos[u], Sin[u]}, {u, Pi, 2*Pi}, PlotStyle ->
Thickness[0.008],
PlotPoints -> 100]];
halfspagr = halfspa /. Line[x_] :> {GrayLevel[0.95], Polygon[x]};
Show[halfspagr, surfgr, halfspa, surf, Axes -> False];
I am searching for more direct ways to produce the same output!
Thanks
Dimitris