Animate[
x=2*Cos[t]+0.25*Sin[-t/2];
y=Piecewise[{{2*Sin[t]+0.25*Sin[-t],t<0},{2*Sin[t]+0.25*Sin[t],0≤t}}];
z=0.25*(-Cos[t/2]);
a=Cos[u]*(2+v*Cos[u/2]);
b=Sin[u]*(2+v*Cos[u/2]);
c=v*Sin[u/2];
kyu=Sphere[{x,y,z},0.25];
Show[ParametricPlot3D[{a, b,c},{u,-Pi,Pi},{v,-1,1}],Graphics3D[{kyu}],PlotRange->{{-4.0,4.0},{-4.0,4.0},{-2.0,2.0}}],
{t,-2Pi,2Pi,Pi/50}
]