Thingiverse
Spherical Blob
by skymeson
2
Downloads
0
Likes
0
Makes
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}]
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}]
Sign in to leave a comment
Sign in