Re: How to apply EdgeForm to ParametricPlot3D?
- To: mathgroup at christensen.cybernetics.net
- Subject: [mg1765] Re: [mg1697] How to apply EdgeForm to ParametricPlot3D?
- From: Allan Hayes <hay at haystack.demon.co.uk>
- Date: Wed, 26 Jul 1995 00:52:45 -0400
Gabriel Berriz <berriz at husc.harvard.edu>
in [mg1697] How to apply EdgeForm to ParametricPlot3D?
asked
> Is it possible to apply the EdgeForm Graphics3D directive to a
> surface plot done with ParametricPlot3D?
Gabriel,
Yes: ParametricPlot3D takes an optional fourth coordinate that can
be used to generate directives.
Examples
ParametricPlot3D[
{Sin[x] Cos[y], Cos[x] Cos[y], Sin[y], EdgeForm[]},
{x, 0, Pi/2}, {y, 0, Pi/2},PlotPoints -> 5];
ParametricPlot3D[
{Sin[x] Cos[y], Cos[x] Cos[y], Sin[y], EdgeForm[Hue[y]]},
{x, 0, Pi/2}, {y, 0, Pi/2},PlotPoints -> 5];
Much more can be done (but we have to turn off the lighting if we
want our to use our own shading of the polygons)
ParametricPlot3D[
{Sin[x] Cos[y], Cos[x] Cos[y], Sin[y],
{Hue[y], EdgeForm[Hue[x+y],Thickness[.01 x]]}},
{x, 0, Pi/2}, {y, 0, Pi/2},
PlotPoints -> 5, Lighting ->False
];
Here is how it works
Short[Shallow[InputForm[%],7],7]
Graphics3D[{{Hue[0.1963495408493621],
EdgeForm[Hue[<<1>>], Thickness[<<1>>]], Polygon[{<<4>>}]},
{Hue[0.1963495408493621], EdgeForm[Hue[<<1>>], Thickness[<<1>>]],
Polygon[{<<4>>}]}, {Hue[0.1963495408493621],
EdgeForm[Hue[<<1>>], Thickness[<<1>>]], Polygon[{<<4>>}]}, <<12>>,
{Hue[0.3744467859455344], EdgeForm[Hue[<<1>>], Thickness[<<1>>]],
Polygon[{<<4>>}]}}, {PlotRange -> Automatic, <<30>>}]
Allan Hayes
hay at haystack.demon.co.uk