MathGroup Archive 1998

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

Search the Archive

Q: Graphics3D


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)


  • Prev by Date: Re: keys in a hash table (aka, all assigned indices in an array): awf
  • Next by Date: Conditions on patterns in Flat functions
  • Previous by thread: Re: keys in a hash table (aka, all assigned indices in an array): awf
  • Next by thread: Re: Q: Graphics3D