5000 points: one for each of you!
Try to pick one and follow it for as long as you can.
Mathematica code:
G[p_, q_, a_, b_, c_, t_] :=
Graphics[
Table[
{Opacity[.7],
Disk[
{.71*Cos[a (.04*t + n)*2 Pi/1000 + p],
Cos[b (.04*t + n)*2 Pi/1000 + q]},
.002*Cos[c (.04*t + n)*2 Pi/1000] + .005]},
{n, 1, 1000}],
PlotRange -> {{-.715, .715}, {-1.005, 1.005}}, ImageSize -> 500]
Manipulate[
Show[
G[0, .2, 29, 13, 11, t],
G[0, .2, 19, 31, 9, t],
G[.3, .29, 3, 23, 17, t],
G[0, .3, 43, 7, 3, t],
G[.1, .13, 31, 19, 2, t]],
{t,1,25,1}]
somos dos puntos que un día se encontraron para seguir juntos
My friend timed me. 20 minutes 14 seconds and 50 milliseconds. 20.14.50