Mathematica uses multiple default light sources chosen with noncommensurate parameters suitable for the widest range of possible forms and surfaces.

Table[Plot3D[Sin[x + y^2], {x, -3, 3}, {y, -2, 2}, 

  ViewPoint -> RandomReal[20, {3}], Ticks -> None], {6}]