Re: How to apply EdgeForm to ParametricPlot3D?

*To*: mathgroup at christensen.cybernetics.net*Subject*: [mg1725] Re: [mg1697] How to apply EdgeForm to ParametricPlot3D?*From*: John Fultz <jfultz>*Date*: Thu, 20 Jul 1995 23:56:37 -0400

> Hello. Is it possible to apply the EdgeForm Graphics3D directive to a > surface plot done with ParametricPlot3D? The Book says nothing to the > contrary, but I haven't found a way of getting it to work > (i.e. ParametricPlot3D *always* draws black edges on the polygons > forming the surface, regardless of EdgeForm directives). Does anybody > know how to do it? > > Thanks in advance, > > Gabriel Yes, it can be done very easily. The following command shows a ParametricPlot3D modified so it has no edges: ParametricPlot3D[ {Sin[x] Cos[y], Cos[x] Cos[y], Sin[y]}, {x, 0, Pi/2}, {y, 0, Pi/2}]; Show[Graphics3D[EdgeForm[]],%]; Or, you can do it in one command by doing: Show[Graphics3D[EdgeForm[]], ParametricPlot3D[{Sin[x] Cos[y], Cos[x] Cos[y], Sin[y]}, {x, 0, Pi/2}, {y, 0, Pi/2}, DisplayFunction->Identity]]; John Fultz Wolfram Research, Inc.