Re: polygon edges
- To: mathgroup at smc.vnet.net
- Subject: [mg40771] Re: polygon edges
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 17 Apr 2003 03:32:51 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <b7iqsm$jtc$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
<< Graphics`SurfaceOfRevolution`
Block[{$DisplayFunction = Identity},
gr = SurfaceOfRevolution[1 - x^2, {x, 0, 1}];
];
Show[
gr /. Graphics3D[prim_, opts___] :>
Graphics3D[{EdgeForm[], prim}, opts]
]
Regards
Jens
David Turner wrote:
>
> 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.