Re: EdgeForm in ParametricPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg16197] Re: EdgeForm in ParametricPlot3D
- From: Martin Kraus <mkraus at theorie3.physik.uni-erlangen.de>
- Date: Fri, 5 Mar 1999 00:40:37 -0500
- Organization: Regionales Rechenzentrum Erlangen, Germany
- References: <7bg2ph$5o8@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
William B. Marks wrote:
>
> How to make a sphere without meshlines? My way is inelegant:
>
> sp = ParametricPlot3D[{Sin[t] Sin[p], Sin[t] Cos[p], Cos[t]},{t, 0, Pi},
> {p, 0, 2Pi}, PlotPoints->25];
The fourth component may hold graphics directives:
sp = ParametricPlot3D[{Sin[t] Sin[p], Sin[t] Cos[p], Cos[t],
EdgeForm[]},{t, 0, Pi},
{p, 0, 2Pi}, PlotPoints->25];
> Show @ Graphics3D[{EdgeForm[], Apply[List, sp]}];
>
> It works but gives errors.
>
> Any suggestions?
Obviously you do not know what this line does. :)
Here is the same solution without warnings:
Show[Graphics3D[{EdgeForm[], First[sp]}]];
Greetings
Martin Kraus