Spherical Coordinates as Art Objects

SphericalPlot3D[\[Phi]/3+3Cos[3\[Theta]],{\[Theta],0,2Pi},{\[Phi],0,2Pi},
PlotPoints->20,ImageSize->500,Mesh->False,Boxed->False,
Axes->False,PlotStyle->Opacity[.2],
ColorFunction->Function[{x,y,z},
ColorData["DeepSeaColors"][Cos[x]-Sin[z]]]]