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: [mg1700] Re: How to apply EdgeForm to ParametricPlot3D?
  • From: wagner at bullwinkle.cs.Colorado.EDU (Dave Wagner)
  • Date: Mon, 17 Jul 1995 03:34:29 -0400
  • Organization: University of Colorado, Boulder

In article <DBKyKB.4BF at wri.com>,
Gabriel Berriz  <berriz at husc.harvard.edu> wrote:
>
>
>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?

You can apply EdgeForm to *any* Graphics3D object.  The form of a
Graphics3D object is "Graphics3D[primitives, options]", where each
of the two parts is a list. (A list of polygons, lines, and so forth
in the first case, and a list of options in the second.)  Hence the
following does what you want with the Graphics3D object "g3dobj":

Show[Graphics3D[{EdgeForm[whatever], g3dobj[[1]]}, g3dobj[[2]] ]]

where "whatever" is a list of style directives.  Note that the primitives
(the first element of the object) can be arbitrarily nested, so there's
no problem adding another level of nesting to it.  You can leave out
the second componenet if you want to, but then you would lose any special
formatting options that were already in the object.

Here's an example.  I have no idea what this gizmo is but it was the
first thing I could think of plotting parametrically.

In[1]:=
ParametricPlot3D[{Sin[u], Cos[u]Sin[t], Cos[t]}, {u,-Pi,0}, {t,0,Pi}]

In[2]:=
Show[Graphics3D[{EdgeForm[Hue[0]], %[[1]]}, %[[2]]]]

		Dave Wagner
		Principia Consulting
		(303) 786-8371
		dbwagner at princon.com
		http://www.princon.com/princon


  • Prev by Date: Re: Re: MathLink documentation
  • Next by Date: Looking to buy Mathmatica for Windows?
  • Previous by thread: How to apply EdgeForm to ParametricPlot3D?
  • Next by thread: Re: How to apply EdgeForm to ParametricPlot3D?