Plotting different shadings in SphericalPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg17187] Plotting different shadings in SphericalPlot3D
- From: adam.smith at hillsdale.edu
- Date: Tue, 20 Apr 1999 01:21:00 -0400
- Organization: Deja News - The Leader in Internet Discussion
- Sender: owner-wri-mathgroup at wolfram.com
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
In[1]:=
<<Graphics`
In[2]:=
thing1 = SphericalPlot3D[1,{t,0,Pi/3},{p,0,2 Pi},
LightSources\[Rule]{{{0.0,0.0,1.0},GrayLevel[0.8]}},
PlotRange->{{-1,1},{-1,1},{-1,1}}]
In[3]:=
thing2 = SphericalPlot3D[1,{t,Pi/3, 2 Pi/3},{p,0,2 Pi},
LightSources\[Rule]{{{0.0,0.0,1.0},GrayLevel[0.4]}},
PlotRange->{{-1,1},{-1,1},{-1,1}}]
In[4]:=
thing3 = SphericalPlot3D[1,{t,2Pi/3,Pi},{p,0,2 Pi},
LightSources\[Rule]{{{0.0,0.0,1.0},GrayLevel[0.8]}},
PlotRange->{{-1,1},{-1,1},{-1,1}}]
In[5]:=
Show[{thing1,thing2,thing3}]
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own