MathGroup Archive 1999

[Date Index] [Thread Index] [Author Index]

Search the Archive

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    


  • Prev by Date: Urgent! Add Keyboard command to Mathematica FrontEnd (Mac)
  • Next by Date: Re: How to "Factorize" expanded derivatives
  • Previous by thread: Re: Urgent! Add Keyboard command to Mathematica FrontEnd (Mac)
  • Next by thread: Re: Plotting different shadings in SphericalPlot3D