February 2012
14 posts
January 2012
22 posts
6 tags
4 tags
4 tags
December 2011
18 posts
intothecontinuum:
High-Res (750x750)
Mathematica code:
Animate[ Graphics[ Rotate[ Table[ Circle[{100*Cos[i*Pi/12], 100*Sin[i*Pi/12]}, t+(100 - n) (1 + Sign[100 - n])/2], {n, 0, 100, 1}, {i, 0, 23, 1}], t*Pi/12], PlotRange -> 20, ImageSize ->750], {t, 0, 1}]
4 tags
