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?

> 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

```

• Prev by Date: Curve-fitting software needed
• Next by Date: Re: Putting Mathematica Graphics into TeX or LaTeX?
• Previous by thread: Re: Re: How to apply EdgeForm to ParametricPlot3D?
• Next by thread: Re:Re: Clear value of pre calculated expresion