Explorations of Color Schemes

SphericalPlot3D[Sin[12\[Theta]]*Tan[\[Phi]/5]+Cos[21\[Phi]],
{\[Theta],0,2 Pi},{\[Phi],0,2 Pi},PlotRange->{{-4,4},{-4,4},{-4,4}},
PlotPoints->30,ImageSize->600,Mesh->False,
Boxed->False,Axes->False,Exclusions->{Cos[\[Phi]]==0},
ColorFunction->Function[{x,y,z,\[Theta],\[Phi],r},
ColorData["BrightBands"][.7-r]]]