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.