Surfaces as Art Object 2

f=-.01Floor[3\[Theta]]-Exp[\[Phi]/4];
g=1.6(Sin[Floor[3\[Theta]]]+Cos[2\[Theta]]Sin[5\[Phi]]);
SphericalPlot3D[{f,g},{\[Theta],0,2Pi},{\[Phi],0,2Pi},
ImageSize->600,PlotRange->All,PlotPoints->17,
Mesh->False,Boxed->False,Axes->False,
PlotStyle->{Opacity[.3],Opacity[0.8]},
ExclusionsStyle->{None,Gray},
ColorFunction->Function[{x,y,z,\[Theta],\[Phi],r},
ColorData["BrightBands"][1-z]]]