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

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