Re: Removing Graphics3D polygon edges
- To: mathgroup at smc.vnet.net
- Subject: [mg18981] Re: Removing Graphics3D polygon edges
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Tue, 3 Aug 1999 13:44:30 -0400
- References: <7nrdrp$ibd@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Greg Keogh <greg at mira.net> wrote in message news:7nrdrp$ibd at smc.vnet.net... > Hello from Melbourne Australia, > > I can't figure out how to remove the edges of polygons on the surface of a > Graphics3D object created by a ParametricPlot3D. The skeleton of my call > looks like this: > > ParametricPlot3D[{ , , },{ , , },{ , , }, > BoxRatios->{1,1,2},Axes->False,Boxed->False, > PlotPoints->40] > > I want the equivalent smooth appearance one gets from Mesh->False in a > surface plot. I think I'm supposed to include an EdgeForm[] directive, but I > 'm having trouble with the syntax. > > Cheers, > Greg Keogh greg at mira.net > ParametricPlot3D allows a fourth coordintate for styling: we put the directive EdgeForm[] in this ParametricPlot3D[{ x, y , x y , EdgeForm[]}, {x , -1 , 1}, {y , -1, 1}, BoxRatios -> {1, 1, 2}, Axes -> False, Boxed -> False, PlotPoints -> 40] We can do much more: ParametricPlot3D[{ x, y , x y , {EdgeForm[], FaceForm[Hue[x]] }} (*List needed*), {x , -1 , 1}, {y , -1, 1}, BoxRatios -> {1, 1, 2}, Axes -> False, Boxed -> False, PlotPoints -> 40, Lighting -> False] This sort of thing is dealt with in Mathamatica in Education and Research, Vol 8 No.1 Winter 1999 pp 35-40 Allan --------------------- Allan Hayes Mathematica Training and Consulting Leicester UK www.haystack.demon.co.uk hay at haystack.demon.co.uk Voice: +44 (0)116 271 4198 Fax: +44 (0)870 164 0565