Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*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 1998

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

Search the Archive

Re: ParametricPlot3D Question



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




  • Prev by Date: RE: Method to eliminate
  • Next by Date: Re: Re[a + I b] = a
  • Prev by thread: ParametricPlot3D Question
  • Next by thread: Re: ParametricPlot3D Question