Generated using Mathematica!

SphericalPlot3D[2 + Sin[3 th] Sin[3 ph],
{th, 0, Pi}, {ph, 0, 2 Pi},
PlotStyle -> Directive[Orange, Opacity[0.6], Specularity[White, 10]],
ColorFunction -> Function[{x, y, z}, Hue[Rescale[x y z, {1, 5^3}]]],
ColorFunctionScaling -> False,
Mesh -> None, {Axes -> False, Boxed -> False}]