ContourPlot[Sin[3*x]*Cos[2*y]*y,{x,0,5},{y,0,5},
  {Background->GrayLevel[0],Axes->False,ColorFunction->Hue,PlotPoints->200}]