MathGroup Archive 2007

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

Search the Archive

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



  • Prev by Date: Mathematica 6: How to add documentation for user packages?
  • Next by Date: Units package in v6
  • Previous by thread: Re: Mathematica 6: How to add documentation for user packages?
  • Next by thread: Re: drawings