Surfaces as Art Object

SphericalPlot3D[-Cos[3\[Theta]]-Cos[16\[Theta]]Sin[3\[Phi]],
{\[Theta],0,2Pi},{\[Phi],0,2Pi},PlotRange->All,
ImageSize->600,PlotPoints->25,Mesh->False,
Boxed->False,Axes->False,PlotStyle->Opacity[.8],
ColorFunction->Function[{x,y,z,\[Theta],\[Phi],r},
ColorData["BrightBands"][.45r]]]