Re: How to draw a shaded shpere?
- To: mathgroup at smc.vnet.net
- Subject: [mg8074] Re: [mg8060] How to draw a shaded shpere?
- From: Allan Hayes <hay at haystack.demon.co.uk>
- Date: Tue, 5 Aug 1997 03:22:39 -0400
- Sender: owner-wri-mathgroup at wolfram.com
juana at spcm2.ictp.trieste.it (MORENO JUANA) in [mg8060] How to draw a shaded shpere? wants,for example, show the following without the polygon edges kx=Sin[theta] Cos[phi] ky=Sin[theta] Sin[phi] kz=Cos[theta] shade=15*(1-kz*kz)*(1+15*kz*kz)/64 sphere=ParametricPlot3D[{kx,ky,kz,GrayLevel[shade]},{theta,0,Pi}, {phi,0 , 2 Pi},PlotPoints->{50,50},Axes->False,Boxed->False,Lighting->False]. Juana, Replace GrayLeve[shade] with {GrayLevel[shade], EdgeForm[]}. Allan Allan Hayes hay at haystack.demon.co.uk http://www.haystack.demon.co.uk/training.html voice:+44 (0)116 2714198 fax: +44 (0)116 2718642 Leicester, UK