Here are some interesting links I found in January & February:
box[x_, x1_, x2_, a_, b_] := Tanh[a (x - x1)] + Tanh[-b (x - x2)];
ex[z_, z0_, s_] := Exp[-(z - z0)^2/s]
(*and*)
r[z_, x_] := (*body*).4 (1.0 - .4 ex[z, .8, .15] +
Sin[2 Ï x]^2 + .6 ex[z, .8, .25] Cos[2 Ï x]^2
+ .3 Cos[2 Ï x]) 0.5 (1 + Tanh[4 z]) +
(*legs*)
(1 - .2 ex[z, -1.3, .9]) 0.5 (1 + Tanh[-4 z])
(.5 (1 + Sin[2 Ï x]^2 + .3 Cos[2 Ï x])*((Abs[Sin[2 Ï x]])^1.3
+ .08 (1 + Tanh[4 z]) ) ) +
(*improve butt*)
.13 box[Cos[Ï x], -.45, .45, 5, 5] box[z, -.5, .2, 4, 2] -
0.1 box[Cos[Ï x], -.008, .008, 30, 30] box[z, -.4, .25, 8, 6] -
.05 Sin[Ï x]^16 box[z, -.55, -.35, 8, 18]
(*and finally*)
ParametricPlot3D[
(*shift butt belly*)
{.1 Exp[-(z-.8)^2/.6] - .18 Exp[-(z -.1)^2/.4], 0, 0}
+ {r[z, x] Cos[2 Ï x], r[z, x] Sin[2 Ï x],z},
{x, 0, 1}, {z, -1.5, 1.5},
PlotPoints -> {150, 50}, Mesh -> None,
AxesLabel -> {"x", "y", "z"}]