Manipulate[
  Animate[Graphics[{
     {Rotate[Table[{Orange,Rotate[Rectangle[{-.1, 0}, {.1, 1}],  k*2Pi/5,{0,0}   ]},{k,0,4}], Floor[10*s]/5 t, {0,0}]},
     {Rotate[Table[{Orange,Rotate[Rectangle[{3.1, 0}, {3.3, 1}], k 2Pi/5,{3.2, 0}]},{k,0,4}], Floor[10*s]/5 t, {3.2,0}]} ,
     {Red, Thickness[0.04],{Circle[{0, 0},.9], Circle[{3.2, 0},0.9]}},
     {Thickness[0.025],Blue,Line[{{0, 0}, {1, 1.7}}]},
     {Thickness[0.025],Blue,Line[{{0, 0}, {1.3, -.3}}]}, 
     {Thickness[0.025],Blue,Line[{{1.3,-.3}, {1, 2.2}}]},
     {Thickness[0.025],Blue,Line[{{1.3,-.3}, {2.8, 1.3}}]}, 
     {Thickness[0.025],Blue,Line[{{3.2, 0}, {2.7, 2.15}}]}, 
     {Thickness[0.025],Blue,Line[{{1, 1.7}, {2.7, 1.7}}]}, 
     {Thickness[0.025],Blue,Line[{{2.7, 2.15}, {3.25, 2.15}}]},
     {Thickness[0.025],Green,Polygon[{{.75, 2.1}, {1 .85, 2.4},{1.5,2.2}}]}}, 
     PlotRange -> {{-1.5, 5}, {-1.25, 2.5}}], 
  {t,2Pi,0}],
{s,1,2}]