Wolfram Technology Guide: Automated Computational Aesthetics  previous | next 
Automatic Region-of-Interest Selection
Mathematica 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]=