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