Re: Q: Graphics3D
- To: mathgroup at smc.vnet.net
- Subject: [mg13381] Re: Q: Graphics3D
- From: Martin Kraus <mkraus at theorie3.physik.uni-erlangen.de>
- Date: Thu, 23 Jul 1998 03:32:29 -0400
- Organization: Univ. Erlangen-Nuernberg, Theoret. Physik III
- References: <6ouocl$iv6@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
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 mpipks-dresden.mpg.de)
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
Martin