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