This voluptuous model is so super sexy that she is turning Japanese.
with(plots):animate3d
((1+z)*(1-z)/2+z*(1-z)*cos(5*theta-12*Pi*t)+z*(z+1)*sin(thet a+Pi*t),
theta=0..15000*Pi/180,z=-1..1,t=-1..1,coords=cylindrical,
numpoints=3000,frames=100,axes=none,color=red,thickness=3,
style=wireframe,lightmodel=light4,grid=[1000,3],orientation= [0,0]);
(less info)