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