Watch

rot[t_]={{Cos[t],-Sin[t]},{Sin[t],Cos[t]}}

Manipulate[
Show[
Graphics[{{Polygon[{{-2,8},{-2,-8},{2,-8},{2,8}}]},{Circle[{0,0}.rot[0.5t],5],EdgeForm[Black],FaceForm[LightGray],Disk[{0,0}.rot[0.5t],5]},{Thick,{Circle[{0,0},3.7],FaceForm[Gray],Disk[{0,0},3.7]}},{Circle[{0,0},3.5],EdgeForm[{Thick,Gray}],FaceForm[Black],Disk[{0,0},3.5]},
{White,{Text[Style[12,Large,Italic],{0,3*Sin[Pi/2]}],Text[Style[1,Large,Italic],{3*Cos[Pi/3],3*Sin[Pi/3]}],Text[Style[2,Large,Italic],{3*Cos[Pi/6],3*Sin[Pi/6]}],Text[Style[3,Large,Italic],{3*Cos[0],3*Sin[0]}],Text[Style[4,Large,Italic],{3*Cos[-Pi/6],3*Sin[-Pi/6]}],Text[Style[5,Large,Italic],{3*Cos[-Pi/3],3*Sin[-Pi/3]}],Text[Style[6,Large,Italic],{3*Cos[-Pi/2],3*Sin[-Pi/2]}],Text[Style[7,Large,Italic],{3*Cos[-2Pi/3],3*Sin[-2Pi/3]}],Text[Style[8,Large,Italic],{3*Cos[-5Pi/6],3*Sin[-5Pi/6]}],Text[Style[9,Large,Italic],{3*Cos[Pi],3*Sin[Pi]}],Text[Style[10,Large,Italic],{3*Cos[5Pi/6],3*Sin[5Pi/6]}],Text[Style[11,Large,Italic],{3*Cos[2Pi/3],3*Sin[2Pi/3]}]}},{LightGray,EdgeForm[Black],Polygon[{{0.3,-0.5},{0,1.5},{-0.3,-0.5},{0.3,-0.5},{0,1.5}}.rot[0.5t]]},{LightGray,EdgeForm[Black],Polygon[{{0.3,-0.5},{0,3},{-0.3,-0.5},{0.3,-0.5}}.rot[6t]]},{Black,Circle[{0,0},0.1],Disk[{0,0},0.1]}}],If[5Pi/3≤t≤19Pi/3,Graphics[{Circle[{0,4.5}.rot[0.5t],0.3],EdgeForm[{Red}],FaceForm[Red],Disk[{0,4.5}.rot[0.5t],0.3]}],Graphics[{Circle[{0,4.5}.rot[0.5t],0.3],EdgeForm[{Yellow}],FaceForm[Yellow],Disk[{0,4.5}.rot[0.5t],0.3]}]],PlotRange->{{-6,6},{-6,6}}],{t,0,8Pi},SaveDefinitions->True]