Re: Mesh on graphics3D objects

• To: mathgroup at smc.vnet.net
• Subject: [mg14350] Re: Mesh on graphics3D objects
• From: Hans Staugaard <hans.staugaard at get2net.dk>
• Date: Thu, 15 Oct 1998 00:28:53 -0400
• Organization: Tele2 Internet Kunde
• References: <6vurcc\$8l1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Here are three ways:
Here I use a torus as an example

(1) p1=ParametricPlot3D[
{Cos[t](3+Cos[f]),Sin[t](3+Cos[f]),Sin[f]},
{t,0,2Pi},{f,0,2Pi}]

Show[Graphics3D[{EdgeForm[],p1[[1]]}]]

(2) ParametricPlot3D[
{Cos[t](3+Cos[f]),Sin[t](3+Cos[f]),Sin[f],EdgeForm[]},
{t,0,2Pi},{f,0,2Pi}]

And if i want to use my own colorfunction i can use method (1), or i can
use

(3) ParametricPlot3D[
{Cos[t](3+Cos[f]),Sin[t](3+Cos[f]),Sin[f],{EdgeForm[],colorfun}},
{t,0,2Pi},{f,0,2Pi},Lighting->False]

Hans

Scott Morrison Wrote:
>
> I am trying to plot a complicated surface in Mathematica, using
> ParametricPlot3D or SurfaceListPlot3D (from Graphics`Graphics3D`).
> These both produce Graphics3D objects.
> I am trying to remove the mesh drawn over the surface (for Plot3D this
> is easily acheived with Mesh->False). Does anyone know how to do this?
> I can't work out anything!
>
> Thanks, Scott Morrison
> scott at morrison.fl.net.au

```

• Prev by Date: Re: Sigh...anyone care to explain this?
• Next by Date: Re: Help With PlotLegend, please.
• Previous by thread: Re: Mesh on graphics3D objects
• Next by thread: RE: Mesh on graphics3D objects