コマ

T=Pi/28

rotX[t_]={{1,0,0},{0,Cos[t],-Sin[t]},{0,Sin[t],Cos[t]}}

rotZ[t_]={{Cos[t],-Sin[t],0},{Sin[t],Cos[t],0},{0,0,1}}

Manipulate[Graphics3D[
{Red,Cylinder[{rotZ[t].rotX[T].{0,0,0+5/2-1/2-1/2},rotZ[t].rotX[T].{0,0,10/11+5/2-1/2-1/2}},100/38],
{Yellow,Cone[{rotZ[t].rotX[T].{0,0,0+5/2-1/2-1/2},rotZ[t].rotX[T].{0,0,-10/5+5/2-1/2-1/2}},10/4],
Cylinder[{rotZ[t].rotX[T].{0,0,10/6+5/2-1/2-1/2},rotZ[t].rotX[T].{0,0,0+5/2-1/2-1/2}},1/10],
Cone[{rotZ[t].rotX[T].{0,0,-3/2+5/2-1/2-1/2},rotZ[t].rotX[T].{0,0,-5/2+5/2-1/2-1/2}},1/7]}},PlotRange->{{-3,3},{-3,3},{-1/2-1/2,5}}]
,{t,0,2Pi},SaveDefinitions->True]