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 >