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

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!
> 
> 
>