MathGroup Archive 2007

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

Search the Archive

Re: drawings

  • To: mathgroup at smc.vnet.net
  • Subject: [mg75963] Re: drawings
  • From: Szabolcs <szhorvat at gmail.com>
  • Date: Mon, 14 May 2007 03:36:49 -0400 (EDT)
  • Organization: University of Bergen
  • References: <f26om6$52h$1@smc.vnet.net>

dimitris wrote:
> 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
> 
> 

Yes, I know that you can draw almost anything with Mathematica, but it 
is not the most appropriate tool for all kinds of work. There are many 
programs that you can use to make drawings like this, e.g. InkScape, 
http://www.inkscape.org/

Use Mathematica only for those drawings which are more easily generated 
algorithmically or require high precision (plotting a function etc.)

But here is a solution anyway:

Graphics[
     {{GrayLevel[.95],
         Disk[{0, 0}, {13, 4}],
         Disk[{0, 0}, 13, {-Pi, 0}]},
       {Thickness[0.008],
         Circle[{0, 0}, {13, 4}],
         Circle[{0, 0}, 13, {-Pi, 0}]}},
     AspectRatio -> Automatic] // Show

Szabolcs


  • Prev by Date: Re: Why Sort[{"AX", "!D", "EX"}] -> {"AX", "!D", "EX"} ?
  • Next by Date: Re: Plot & warning messages (v6)
  • Previous by thread: drawings
  • Next by thread: Units package in v6