RE: polygon edges
- To: mathgroup at smc.vnet.net
- Subject: [mg40768] RE: [mg40756] polygon edges
- From: "David Park" <djmp at earthlink.net>
- Date: Thu, 17 Apr 2003 03:32:38 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
David, They don't seem to give you an easy way to sneak in EdgeForm[]. Here is one way. Needs["Graphics`SurfaceOfRevolution`"] plot1 = SurfaceOfRevolution[1 - x^2, {x, 0, 1}, DisplayFunction -> Identity]; Show[Graphics3D[ {EdgeForm[], First[plot1]}]]; If you are using the DrawGraphics package from my web site, it is all more direct and intuitive. Needs["DrawGraphics`DrawingMaster`"] Draw3DItems[ {EdgeForm[], DrawSurfaceOfRevolution[1 - x^2, {x, 0, 1}]} ] David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: David Turner [mailto:dturner at faulkner.edu] To: mathgroup at smc.vnet.net Hello, I wish to display the result of SurfaceOfRevolution[1-x^2, {x,0,1}] with polygon edges suppressed. How can this be achieved? So far, I have had no luck using EdgeForm[]. Thanks in advance.