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