Re: EdgeForm in ParametricPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg16234] Re: EdgeForm in ParametricPlot3D
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 5 Mar 1999 00:40:59 -0500
- Organization: Universitaet Leipzig
- References: <7bg2ph$5o8@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Mark, sp = ParametricPlot3D[{Sin[t] Sin[p], Sin[t] Cos[p], Cos[t],EdgeForm[]},{t, 0, Pi}, {p, 0, 2Pi}, PlotPoints->25]; will do what You want. Regards Jens "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]; > > Show @ Graphics3D[{EdgeForm[], Apply[List, sp]}]; > > It works but gives errors. > > Any suggestions?