Spinning water stream

h = 0.55;
c = ColorData["RedBlueTones"][0.1];
c2 = ColorData["RedBlueTones"][0.9];
Manipulate[
 p[t_, tt_] :=
  If[t < tt, {10, 10},
   If[(t - tt) < (1 - h)/v, (1 - v (t - tt)) {-Sin[t], Cos[t]},
    h {-Sin[(1 - h)/v + tt],
       Cos[(1 - h)/v + tt]} + (t -
        tt - (1 - h)/v) {-h Cos[(1 - h)/v + tt] +
        v Sin[(1 - h)/v + tt], -v Cos[(1 - h)/v + tt] -
        h Sin[(1 - h)/v + tt]}
    ]
   ];
 Graphics[{
   {White, Disk[]},
   Rotate[{GrayLevel[0.2], Line[{{0, -1}, {0, 1}}],
     Line[{{-1, 0}, {1, 0}}], c,
     Rectangle[{-0.05, 1.1}, {0.05, h}]}, \[Theta], {0, 0}],
   {c2, EdgeForm[White],
    Table[
     Disk[p[\[Theta], t], 0.03],
     {t, -2 Pi, 2 Pi - 0.001, 2 Pi/(20 v )}
     ]}
   },
  PlotRange -> 1.1, Background -> c],
 {\[Theta], 0, 2 Pi},
 {{v, 3.1}, 0.5, 10}]