Plot3D[Sin[3*x]*Cos[2*y]*y,{x,0,5},{y,0,5},
  {Background->GrayLevel[0],Axes->False,Mesh->False,Boxed->False,PlotPoints->100}]

