Create Realistic Surface Images
Mathematica 6 supports realistic surface properties like specularity, as well as sophisticated light source models.
In[1]:=  |  Plot3D[x Sin[x + y^2], {x, -3, 3}, {y, -2, 2},
PlotStyle -> {Orange, Specularity[White, 20]}, Mesh -> None,
PlotPoints -> 50] |
Out[1]=  |  |