Mathematica code:
Animate[
Graphics[
Table[
{Thickness[.01],
Circle[{13*Cos[i*2Pi/9], 13*Sin[i*2Pi/9]},
t + (32 - n) (1 + Sign[32 - n])/2]}, {n, 0, 50, 1},
{i, 0, 8, 1}],
PlotRange -> 13, ImageSize -> 500],
{t, 0, 1}]
I’m high as fuck. intothecontinuum: