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

Re: ParametricPlot3D Question

• To: mathgroup@smc.vnet.net
• Subject: [mg10623] Re: ParametricPlot3D Question
• From: Allan Hayes <hay@haystack.demon.co.uk>
• Date: Tue, 27 Jan 1998 03:09:50 -0500
• References: <6a1lvi$poo@smc.vnet.net>

immortal wrote:
> 
> I'm trying to coax mathematica into drawing my object via
> ParametricPlot3D, but not filling in the polygons, that is, just
> drawing a mesh.  It seems rational that I should use FaceForm, but I
> can't figure out what to tell it to do with the polygons.  Can anyone
> help?
> 
> Thanks!

The function WireFrame in

In[1]:=
<<Graphics`Shapes`

does this

In[2]:=
plt=ParametricPlot3D[ {s,t, s t},{s,0,1},{t,0,1}, PlotPoints ->5]

In[3]:=
Show[WireFrame[plt]]

Or , a do-it-yourself approach:

In[4]:=
Show[plt/.Polygon[pts_] :> Line[Append[pts, pts[[1]]]]]

-- 
Allan Hayes
Training and Consulting
Leicester, UK
hay@haystack.demon.co.uk
http://www.haystack.demon.co.uk
voice: +44 (0)116 271 4198
fax: +44 (0)116 271 8642