New in Wolfram Mathematica 6: Automated Computational Aesthetics  previous | next 
Automatic Region-of-Interest Selection
Mathematica 6 automatically picks the range of parameters to pick out interesting features of surfaces.
In[1]:=

Click for copyable input
Plot3D[Abs[Gamma[x + I y]], {x, -5, 3}, {y, -1, 1}, 

 ColorFunction -> "Rainbow"]
Out[1]=