EdgeForm in ParametricPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg16191] EdgeForm in ParametricPlot3D
- From: "William B. Marks" <bmarks at helix.nih.gov>
- Date: Tue, 2 Mar 1999 01:13:26 -0500
- Sender: owner-wri-mathgroup at wolfram.com
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];
Show @ Graphics3D[{EdgeForm[], Apply[List, sp]}];
It works but gives errors.
Any suggestions?