Generated with Mathematica!SphericalPlot3D[1 + Sin[5 [Phi]]/5, {[Theta], 0, Pi}, {[Phi], 0, 2 Pi},PlotStyle -> Directive[Orange, Opacity[0.7], Specularity[White, 10]],Mesh -> None, PlotPoints -> 30, {Axes -> False, Boxed -> False}]
