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

Re: ExampleData[{"Geometry3D", "Torus"}]

• To: mathgroup at smc.vnet.net
• Subject: [mg120443] Re: ExampleData[{"Geometry3D", "Torus"}]
• From: Heike Gramberg <heike.gramberg at gmail.com>
• Date: Fri, 22 Jul 2011 19:47:12 -0400 (EDT)
• References: <201107220106.VAA16736@smc.vnet.net>

I'm not familiar with Torus[] but another option might be to use 
RevolutionPlot3D, i.e.

torus[r1_, r2_] :=
 RevolutionPlot3D[{r1 + r2 Cos[t], 0, r2 Sin[t]}, {t, 0, 2 Pi},
  Mesh -> False, PlotPoints -> 60, Boxed -> False, Axes -> False]

torus[1, 0.5]

Heike

On 22 Jul 2011, at 02:06, Joseph O'Rourke wrote:

> Thanks, Oliver.  I know how to make a torus via ParametricPlot3D[], 
and by using the deprecated Torus[] function. I was wondering if 
ExampleData[] could be adjusted so that one would have the same control 
as with the old Torus[] function.  The reason I wanted this is that the 
torus produced by ExampleData[] looks much nicer than that produced by 
Torus[].  Or, at least, I cannot get the latter to look as smooth when 
rendered as the former.  But maybe I should just use ParametricPlot3D[] 
with Mehs->None as you suggest.  Thanks again for your attention.
>

• References:
  • Re: ExampleData[{"Geometry3D", "Torus"}]
    • From: "Joseph O'Rourke" <orourke@scinix.smith.edu>