I’m high as fuck.

intothecontinuum:


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:

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}]