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>