EdgeForm in ListSurfacePlot3D and ParametricPlot3D
- To: mathgroup at yoda.physics.unc.edu
- Subject: EdgeForm in ListSurfacePlot3D and ParametricPlot3D
- From: SCHNEIDR at KNOX.BITNET
- Date: Thu, 8 Jul 1993 10:48 CST
Michael Woodley asked about how to specify the edge form in ParametricPlot3D
and another person asked the same question for ListSurfacePlot3D. Both
questions have the same answer. Simply take the output from either command
and replace Polygon[x] with {EdgeForm[style],Polygon[x]}. Here is an example
for ListSurfacePlot3D
data = Table[{x,y,Sin[x y]},{x,0,2,.2},{y,0,2,.2}];
plot = ListSurfacePlot3D[data,DisplayFunction->Identity];
newplot = plot /. Polygon[x_] :> {EdgeForm[RGBColor[1,0,0]],Polygon[x]};
Show[newplot,DisplayFunction->$DisplayFunction];
It would be very easy for WRI to add this feature as an option for both
commands. If enough users really wanted it, I'm sure they would do it.
Dennis M. Schneider
Knox College
Galesburg, IL 61401