Animate[ReliefPlot[Table[Sin[i^2+j^2],{i,-4,4,.05},{j,-4,4,.05}],ColorFunction->None,MaxPlotPoints->Infinity,LightingAngle->θ,BoxRatios->{1,1,.2},ImageSize->150],{θ,0,2Pi},AnimationRunning->False]