Wolfram Technology Guide: Real-Time 3D Graphics  previous | next 
Arbitrary Lighting Models
Mathematica supports 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]=