Re: How to suppress the mesh in ParametricPlot3D ?
- To: mathgroup at smc.vnet.net
- Subject: [mg35319] Re: How to suppress the mesh in ParametricPlot3D ?
- From: "Raf" <r_a_f at yahoo.it>
- Date: Mon, 8 Jul 2002 03:16:54 -0400 (EDT)
- References: <ag6ebb$bnj$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Just a curiosity; It'only a my impression, or some function (as for example in this case, ParametricPlot3D) are not very well documented on the Mathematica help? Where is the description of the "second form of ParametricPlot3D"? It speaks only about the possibility of indicate a shading; it's true? In this case, can you suggest me a good lecture about this undocumented aspects of Mathematica (for example where do you learn this second form of PP3D)? Regards, Raf. "David Park" <djmp at earthlink.net> ha scritto nel messaggio news:ag6ebb$bnj$1 at smc.vnet.net... > Jos, > > This is a frequent question on MathGroup. And rightly so because in this > case the standard graphics paradigm is awkward and confusing. First, Mesh > has nothing to do with it. Mesh is an option for SurfaceGraphics (Plot3D and > DensityPlot) and has nothing to do Graphics3D. That is the confusing part. > The proper method is to set EdgeForm[] for the surface. EdgeForm is a > directive that tells how the polygon edges in the surface are to be > rendered. EdgeForm[] directs that the edges are not to be drawn. > > But, how do you sneak EdgeForm in? That is the awkward part. The most direct > way is to use the second form of ParametricPlot3D. You add the graphics > directives for the surface as a 4'th "coordinate" in the parametrization. > (You could have a list of directives.) > > sphere2 = {Sin[v]Cos[u], Sin[v]Sin[u], Cos[v], EdgeForm[]}; > > Then use normal ParametricPlot3D. > > ParametricPlot3D[sphere2 // Evaluate, {u, 0, 2 Pi}, {v, 0, Pi}, > PlotPoints -> 50]; > > If you want to work with the regular parametrization of the sphere... > > sphere = {Sin[v]Cos[u], Sin[v]Sin[u], Cos[v]}; > plot1 = ParametricPlot3D[sphere // Evaluate, {u, 0, 2 Pi}, {v, 0, Pi}, > PlotPoints -> 50]; > > Extract the First part of plot 1, which contains the primitive graphics for > the sphere and combine it with EdgeForm[]. > > Show[Graphics3D[{EdgeForm[], First[plot1]}], > Axes -> True]; > > The DrawGraphics package at my web site handles it in a slightly more > natural matter. You just give the directives you want and then draw the > surface you want. You could combine a number of different surfaces with > different directives in that manner, adding one after the other. > > Needs["DrawGraphics`DrawingMaster`"] > > Draw3DItems[ > {EdgeForm[], > ParametricDraw3D[sphere // Evaluate, {u, 0, 2 Pi}, {v, 0, Pi}, > PlotPoints -> 50]}, > Axes -> True]; > > David Park > djmp at earthlink.net > http://home.earthlink.net/~djmp/ > > > > -----Original Message----- > > From: Jos R Bergervoet [mailto:antispam at nospam.com] To: mathgroup at smc.vnet.net > > Sent: Friday, July 05, 2002 2:21 AM > > Subject: [mg35319] How to suppress the mesh in ParametricPlot3D ? > > > > > > How can I get a partametric 3D plot without gridlines on it? I tried > > "Mesh -> False" (also SurfaceMesh) but to no avail! > > > > > > sphere = {Sin[v]Cos[u], Sin[v]Sin[u], Cos[v]} > > > > ParametricPlot3D[sphere, {u,0,2Pi}, {v, 0,Pi}, PlotPoints -> 50] > > (* OK, but meshed *) > > > > ParametricPlot3D[sphere, {u,0,2Pi}, {v, 0,Pi}, > > PlotPoints -> 50, Mesh -> False] (* not accepted *) > > > > > > Thanks for any clues, > > > > Jos > > > >