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