Re: Plotting different shadings in SphericalPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg17078] Re: Plotting different shadings in SphericalPlot3D
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 23 Apr 1999 02:32:14 -0400
- Organization: Universitaet Leipzig
- References: <7fh1p4$h0j@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Adam,
colored light has nothing to do with colored material !
scolor[th_]:=Which[th<Pi/3,GrayLevel[0.8],
Pi/3<=th && th<2Pi/3,GrayLevel[0.4],
True,GrayLevel[0.8]
]
SphericalPlot3D[{1,scolor[th]},{th,0,Pi},{phi,0,2Pi},Lighting->False]
will do what you want without any light.
Hope that helps
Jens
adam.smith at hillsdale.edu wrote:
>
> Hi:
>
> I am trying to make a plot of a spherical surface that has top and bottom
> "caps" that are a different shade (or color) than the middle "band". Using
> the code below I can produce 3 separate pictures which look like this. But
> when I try to combine them with Show[ ] the lighting of the first one listed
> is used for all 3 plots. Is there an easy way to do this?
>
> Adam Smith
>