Re: Scientific Astronomer Color Options
- To: mathgroup at smc.vnet.net
- Subject: [mg34202] Re: [mg34100] Scientific Astronomer Color Options
- From: Omega Consulting <omega_consulting at yahoo.com>
- Date: Thu, 9 May 2002 05:16:07 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
At 03:28 AM 5/4/2002, Prof Andy D Kucar DrPEng wrote:
>Mg,
>
>I would like to be able to set colors of the sunlit and shaded areas in
>the Scientific Astronomer package, and in the
>
>PlanetPlot, PlanetPlot3D commands in particular. I would like to have a
>full control over the FrameLabels in the
>PlanetPlot command as well.
>
>Thank you.
>
>Sincerely, andy at radio4u.com
In appears that PlanetPlot accepts graphics options, so you can set the
FrameLabels.
In[1]:= pp=PlanetPlot[Earth, {1994,11,4,0,0,0},
Frame->True, FrameLabel->{"a","b","c","d"}]
Out[1]= -Graphics-
As for color, there is no method for this built into PlanetPlot or
PlanetPlot3D, but these return standard Graphics and Graphics3D
expressions. You can find out what colors are used.
In[2]:= Cases[pp, _RGBColor|_GrayLevel|_Hue|_CMYKColor, Infinity]
Out[2]= {GrayLevel[0.6],GrayLevel[0.8],RGBColor[0,0,1],RGBColor[0,0,0]}
And then replace them with the colors you want
In[3]:=Show[pp/.{GrayLevel[0.6]->RGBColor[0,1,0],
RGBColor[0,0,1] ->GrayLevel[0]}];
--------------------------------------------------------------
Omega Consulting
"The final answer to your Mathematica needs"
Spend less time searching and more time finding.
http://www.wz.com/internet/Mathematica.html