Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1995

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • 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