Manipulate[Show[ParametricPlot3D[{Sin[t],2*Sin[t/2],1+Cos[t]},{t,-2Pi,2Pi},PlotStyle->Blue],Graphics3D[{Red,PointSize[0.1],Point[{Sin[u],2*Sin[u/2],1+Cos[u]}],RGBColor[0.25,0.4,0.2],Cuboid[{-0.6,-0.375,0},{0.6,0.375,1.5}]}],ViewPoint->{0.54,-0.43,0.38}],{{u,-2*Pi},-2Pi,2Pi,AnimationRunning->True,ControlType->Animator},ContentSize->Large]
Out[]=
