Coriolis Effect

a = Pi/4;
Manipulate[Show[Graphics[Join[
    {Circle[]},
    Table[
     Line[{{0, 0}, {Sin[ t + 2 Pi i], Cos[ t + 2 Pi i]}}], {i, 0, 1,
      0.1}],
    {Blue, Disk[{Sin[t], Cos[t]}, 0.07], Yellow,
     Disk[{Sin[t + Pi], Cos[t + Pi]}, 0.07], Red,
     Disk[{0, -1} + t {1/(Sqrt[2] a), (1/a) (1 + 1/Sqrt[2])}, 0.04],
     Line[{{0, -1}, {0, -1} +
        t {1/(Sqrt[2] a), (1/a) (1 + 1/Sqrt[2])}}]
     }
    ], PlotRange -> {{-1.2, 1.2}, {-1.2, 1.2}}],
  ParametricPlot[
   RotationMatrix[
     tt - t].({0, -1} +
      tt {1/(Sqrt[2] a), (1/a) (1 + 1/Sqrt[2])}), {tt, -0.001, t}]
  ], {t, 0, Pi/4}]