Q: Graphics3D
- To: mathgroup at smc.vnet.net
- Subject: [mg13320] Q: Graphics3D
- From: Ulf Saalmann <us at mpipks-dresden.mpg.de>
- Date: Mon, 20 Jul 1998 02:49:40 -0400
- Organization: TU Dresden (URZ)
- Sender: owner-wri-mathgroup at wolfram.com
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)