![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}]](http://24.media.tumblr.com/tumblr_lz45bklFWR1qfjvexo1_500.gif)
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}]](http://24.media.tumblr.com/tumblr_lz45bklFWR1qfjvexo1_500.gif)
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}]