Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

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

Search the Archive

Re: Q: Graphics3D

  • To: mathgroup at
  • Subject: [mg13381] Re: Q: Graphics3D
  • From: Martin Kraus <mkraus at>
  • Date: Thu, 23 Jul 1998 03:32:29 -0400
  • Organization: Univ. Erlangen-Nuernberg, Theoret. Physik III
  • References: <6ouocl$>
  • Sender: owner-wri-mathgroup at

Ulf Saalmann wrote:
> Hello,
> using the following functions
> -------------------------------------------------
> Needs["Graphics`Shapes`"];
> SetOptions[Graphics3D,LightSources->{}];
> a=Graphics3D[TranslateShape[Sphere[],{+1,0,0}],
>              AmbientLight->RGBColor[1,0,0]];
> b=Graphics3D[TranslateShape[Sphere[],{-1,0,0}],
>              AmbientLight->RGBColor[0,1,0]];
> Show[{a,b}];
> -------------------------------------------------
> Mathematica shows two red spheres.
> (1) Why I don't get a red and green one?
> (2) How to obtain a red and green one (with Lightning->True)?
> Thanks for any help.    Ulf (us at

The problem is that the AmbientLight option can have only one setting
(in this case red) for both plots when they are compined. In order to
have a red and green sphere, define white LightSources and make the
surface of the spheres red and green respectively. (With a simple color
directive in front of the shapes or with the more sophisticated
SurfaceColor directive.)

Hope that helps


  • Prev by Date: Re: Math3.0 OptionInspector | NotebookOptions | PrintingOptions | Headers --> all 'None' keeps printing headers. HELP
  • Next by Date: Re: MathLink with PowerPlant
  • Previous by thread: Re: Q: Graphics3D
  • Next by thread: Re: Q: Graphics3D