Michelle

intothecontinuum: Mathematica code: Animate[ Graphics[ Rotate[ Table[ {Thickness[.0035], Circle[{20*Cos[i*Pi/12], 20*Sin[i*Pi/12]},   t + (60 - n) (1 + Sign[60 - n])/2]}, {n, 0, 100, 1}, {i, 0, 23, 1}], t*Pi/12], PlotRange -> 15, ImageSize -> 500],{t, 0, 1}]

intothecontinuum:

Mathematica code:

Animate[
  Graphics[
   Rotate[
     Table[
       {Thickness[.0035],
        Circle[{20*Cos[i*Pi/12], 20*Sin[i*Pi/12]},
         t + (60 - n) (1 + Sign[60 - n])/2]}, {n, 0, 100, 1}, 
      {i, 0, 23, 1}], 
     t*Pi/12],
  PlotRange -> 15, ImageSize -> 500],
{t, 0, 1}]

(via clevercunts)

— 3 months ago with 1635 notes
RSS     /      Archive     /      Random
Astronaut by Peter Vidani     /      Tumblr