Re: ParametricPlot3D Question
- To: mathgroup@smc.vnet.net
- Subject: [mg10608] Re: [mg10517] ParametricPlot3D Question
- From: Alfred Gray <gray@hypatia.umd.edu>
- Date: Mon, 26 Jan 1998 04:42:39 -0500
The following command does thoes what you want:
wireframe[surface_,{u_,u0_,u1_},{v_,v0_,v1_},opts___]:=
Module[{plottmp,grtmp},
plottmp = ParametricPlot3D[
surface,{u,u0,u1},{v,v0,v1},
DisplayFunction->Identity,opts];
grtmp = plottmp /.(Polygon[pts_]:>
Line[Append[pts,First[pts]]]);
Show[grtmp,DisplayFunction->$DisplayFunction]]
Alfred Gray
%%%%%%%%%%%%%%%%%%%%%%%%%%
Visit the galleries of surfaces and curves: http://bianchi.umd.edu
Just published: Modern Differential Geometry of Curves and Surfaces,
Second Edition. CRC Press, December 1997.
On Tue, 20 Jan 1998, 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!
>
>
>