Mathematica generated Plot3D of Sin[x+Cos[x]]+Cos[y+Sin[y]] with a ColorFunction and specular reflection created by Jeff Bryant (jeffb@wolfram.com)