restart; with(plots): with(plottools):animate(rotate, [plot3d([(2+(1/2)*sin(8*t))*.5*q^2, (2+(1/2)*sin(8*t))*cos(t+sin(16*t)/16)*.5*q^2, (2+(1/2)*sin(8*t))*sin(t+sin(16*t)/16)*q], t=0..2*Pi, q=0..2*Pi, color=[1-sin(q),1-cos(q),0]), 0,0,a],a=0..2*Pi,frames=50);