Wolfram Technology Guide: Automated Computational Aesthetics  previous | next 
Efficient Relief Plotting
Mathematica lets you add compelling relief to plots of density fields.
In[1]:=

Click for copyable input
ReliefPlot[

 Table[Evaluate[Sum[30 Sin[RandomReal[4, 2].{x, y}], {5}]], {x, 0, 

    10, .05}, {y, 0, 10, .05}] + 550, BoxRatios -> {1, 1, .4}, 

 ColorFunction -> ColorData["VisibleSpectrum"], 

 ColorFunctionScaling -> False]
Out[1]=