\[Omega] = \[Pi]/2;
\[CapitalDelta] = 0.01;
sphr[t_] := Piecewise[{{0, t < 0.5}, {(t - 0.5)/Sqrt[2], 0.5 < t < 1.5}, {1/Sqrt[2], t >= 1.5}}];
landscape = {White, Table[Sphere[{RandomReal[{-4, 4}], RandomReal[{-4, 4}], 0.05}, 0.05], {40}]};
p0 = Table[
GraphicsRow[{
Graphics3D[{
Purple, Table[Sphere[{sphr[\[Tau]], sphr[\[Tau]], 0.11}, 0.02], {\[Tau], 0.5, t, \[CapitalDelta]}], Sphere[{sphr[t], sphr[t], 0.2}, 0.1],
landscape,
Lighter@Gray, Cylinder[{{0, 0, 0}, {0, 0, 0.1}}, 1],
Darker@Green, Cylinder[{{0, 0, 0}, {0, 0, -0.1}}, 10],
Black, Thickness[0.009], Thick, Sphere[{0, 0, 0.1}, 0.05],
Line[{{-Cos[\[Omega] t], -Sin[\[Omega] t], 0.1}, {Cos[\[Omega] t], Sin[\[Omega] t], 0.1}}],
Line[{{-Cos[\[Omega] t + \[Pi]/2], -Sin[\[Omega] t + \[Pi]/2], 0.1}, {Cos[\[Omega] t + \[Pi]/2], Sin[\[Omega] t + \[Pi]/2], 0.1}}]
}, Lighting -> "Neutral",
ViewVector -> {{3, 0, 1.5}, {0, 0, 0}}, ViewVertical -> {0, 0, 1}, ViewAngle -> 50*Degree, Boxed -> False, Background -> Black]
,
Graphics3D[{
Purple, Table[Sphere[{sphr[\[Tau]]*Sqrt[2] Cos[\[Omega] (t - \[Tau]) + \[Pi]/4], sphr[\[Tau]]*Sqrt[2] Sin[\[Omega] (t - \[Tau]) + \[Pi]/4], 0.11}, 0.02], {\[Tau], 0, t, \[CapitalDelta]}],
Sphere[{sphr[t], sphr[t], 0.2}, 0.1],
landscape,
Lighter@Gray, Cylinder[{{0, 0, 0}, {0, 0, 0.1}}, 1],
Darker@Green, Cylinder[{{0, 0, 0}, {0, 0, -0.1}}, 10],
Black, Thickness[0.009], Sphere[{0, 0, 0.1}, 0.05],
Line[{{-Cos[\[Omega] t], -Sin[\[Omega] t], 0.11}, {Cos[\[Omega] t], Sin[\[Omega] t], 0.11}}],
Line[{{-Cos[\[Omega] t + \[Pi]/2], -Sin[\[Omega] t + \[Pi]/2], 0.1}, {Cos[\[Omega] t + \[Pi]/2], Sin[\[Omega] t + \[Pi]/2], 0.1}}]
}, Lighting -> "Neutral", ViewVector -> {{3 Cos[\[Omega] t], 3 Sin[\[Omega] t], 1.5}, {0, 0, 0}}, ViewVertical -> {0, 0, 1}, ViewAngle -> 50*Degree, Boxed -> False, Background -> Black]
}]
, {t, 0, 1.5, 1/20}];
ListAnimate[p0]