Mathematica 9 is now available
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: [mg14381] RE: [mg14327] Mesh on graphics3D objects
  • From: "Alejandro Osorio" <aosorio at coatepec.uaemex.mx>
  • Date: Sun, 18 Oct 1998 15:09:50 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

Hi Scott

You can do this by preppending the directive "EdgeForm" to the list of
primitives in the Graphics3D object, like the following example:

a) generate some graphics:

f[u_,v_]:={u,v,u^3-3u v^2};
graf=ParametricPlot3D[f[u,v]//Evaluate,{u,-1,1},{v,-1,1},BoxRatios->{1,1,1}]
;

then graf[[1]] is the list of primitives ("Polygon"s) and graf[[2]] the
lisrt of options.

b) now rebuild the first part and use "Show":

Show[Graphics3D[{EdgeForm[],graf[[1]]}],graf[[2]]]

and it's done.

Is there a simpler way to do the same ?

-----Mensaje original-----
De: Scott Morrison <scott at morrison.fl.net.au> Para:
mathgroup at smc.vnet.net <mathgroup at smc.vnet.net> Fecha: Lunes 12 de
Octubre de 1998 5:16 PM Asunto: [mg14327] Mesh on graphics3D objects


>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: Recommended books for Mathematica
  • Next by Date: Re: Adding equations
  • Previous by thread: Re: Mesh on graphics3D objects
  • Next by thread: Re: Limit glitch