Re: Not drawing lines at polygon edges, in ParametricPlot3D

*To*: mathgroup at smc.vnet.net*Subject*: [mg21953] Re: Not drawing lines at polygon edges, in ParametricPlot3D*From*: "Allan Hayes" <hay at haystack.demon.co.uk>*Date*: Sat, 5 Feb 2000 22:22:20 -0500 (EST)*References*: <87ged9$1ok@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Aram, NO EDGES: We can use a fourth, "styling", coordinate to give any list of directives to the polygons as functions of the coordinate x and y (a single directive can be given without listing it): f[x_, y_] = 2 - x^2 - y^2; pg1 = ParametricPlot3D[{x, y, f[x, y], EdgeForm[]}, {x, -1, 1}, {y, -1, 1}, PlotPoints -> 5]; More generally pg2 = ParametricPlot3D[{x, y, f[x, y], {EdgeForm[Thickness[ .02], Hue[1 - f[x, y]/2]], Hue[f[x, y]/2]}}, {x, -1, 1}, {y, -1, 1}, Lighting -> False, PlotPoints -> 5]; TRANSPARENT (WireFrame) We can use a standard package (look for WireFrame in HelpBrowser > Master Index) << Graphics`Shapes` ?WireFrame "WireFrame[graphics3D] replaces all polygons in the three-dimensional \ graphics object by outlines." Show[WireFrame[pg2]]; Oddly, the edges pick up the colors from the polygons face colors and EdgeForm[...] is lost. We could do our own programming: pg2[[1]] Show[pg2 /. {___, EdgeForm[d___], ___, Polygon[pts_]} :> {d, Line[Append[pts, First[pts]]]}] -- Allan --------------------- Allan Hayes Mathematica Training and Consulting Leicester UK www.haystack.demon.co.uk hay at haystack.demon.co.uk Voice: +44 (0)116 271 4198 Fax: +44 (0)870 164 0565 "Aram Schiffman" <aram at sirius.com> wrote in message news:87ged9$1ok at smc.vnet.net... > As the subject header says ... how can I render a ParametricPlot3D, but not > have the lines drawn at the polygon edges? I've tried every obvious (to me) > option, but no dice. > > Also, can I make my 3D object transparent, in ParametricPlot3D? > > Thanks in advance, > > Aram > > >