Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

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.
>



  • Prev by Date: Re: How Can I Include a Button in a Manipulate
  • Next by Date: Re: Producing an image that only contains its interior and boundary but, no exterior.
  • Previous by thread: Re: ExampleData[{"Geometry3D", "Torus"}]
  • Next by thread: Re: ExampleData[{"Geometry3D", "Torus"}]