Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

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

Search the Archive

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