Re: EdgeForm in ParametricPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg16202] Re: EdgeForm in ParametricPlot3D
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Fri, 5 Mar 1999 00:40:39 -0500
- References: <7bg2ph$5o8@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
William B. Marks wrote in message <7bg2ph$5o8 at smc.vnet.net>...
>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?
>
William:
Use the optional forth "style" coordinate.
ParametricPlot3D[{Sin[t] Sin[p], Sin[t] Cos[p], Cos[t], EdgeForm[]},{t, 0,
Pi},
{p, 0, 2Pi}, PlotPoints->25];
(column in the upcoming Mathematica in Education and Research 8.1)
Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565