| Wolfram Technology Guide: Real-Time 3D Graphics | ◄ previous | next ► |
In[1]:= | GraphicsGrid[
Table[Graphics3D[{Specularity[White, 30], Sphere[]},
Lighting ->
Table[{"Spot", ColorData["Rainbow", RandomReal[]],
RandomReal[{-5, 5}, 3], 30 °}, {4}]], {3}, {3}]] |
Out[1]= ![]() | ![]() |