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: [mg14345] Re: Mesh on graphics3D objects
  • From: "Allan Hayes" <hay at haystack.demon.co.uk>
  • Date: Thu, 15 Oct 1998 00:28:48 -0400
  • References: <6vurcc$8l1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Scott Morrison wrote in message <6vurcc$8l1 at smc.vnet.net>...
>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
>
>

Scott:

For ParametricPlot3D:

ParametricPlot3D[{x,y,x^2+y^2, EdgeForm[]}, {x,0,1},{y,0,1}];

For ListSurfacePlot3D:

<<Graphics`Graphics3D`

apts = Table[{Cos[t] Cos[u], Sin[t] Cos[u],
  Sin[u]}, {t, 0, Pi, Pi/5},
  {u, 0, Pi/2, Pi/10}];

lsp=ListSurfacePlot3D[apts];

Show[lsp/.p:{___Polygon}->{EdgeForm[],p}]

The latter works for any Graphics3D object (except that we have to use

Show[lsp/.p:_Polygon}->{EdgeForm[],p}]

if the polygons are not in a list)

Allan
----------------------
Allan Hayes
Mathematica Training and Consulting
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565




  • Prev by Date: Re: Removing Outer Braces
  • Next by Date: Re: Help With PlotLegend, please.
  • Previous by thread: RE: Mesh on graphics3D objects
  • Next by thread: Re: Mesh on graphics3D objects