New in Wolfram Mathematica 6: Real-Time 3D Graphics  previous | next 
Arbitrary Lighting Models
Mathematica 6 adds support for multiple lighting models that can be used in real time.
In[1]:=

Click for copyable input
GraphicsGrid[

 Table[Graphics3D[{Specularity[White, 30], Sphere[]}, 

   Lighting -> 

    Table[{"Spot", ColorData["Rainbow", RandomReal[]], 

      RandomReal[{-5, 5}, 3], 30 °}, {4}]], {3}, {3}]]
Out[1]=