Interactive Color Exploration

Manipulate[Plot3D[3Sin[x^2-6 Pi*y(1 -y)],{x,-Pi ,Pi},{y,0,1}, PlotPoints->30,
                                MaxRecursion->1,Mesh->Full,MeshStyle->Gray,
                Boxed->False,Axes->False,ImageSize->Large,
                                PlotStyle->Opacity[0.8],
ColorFunction->(ColorData[scheme][#3] &)],
          {scheme,{"Pastel","NeonColors","BrightBands","MintColors"}}]