« February 2013 | Main | April 2013 »
Fabienne Verdier
link
Eley Kishimoto
via
Wayne White
Ron Nagle
3D Doodle Pen
Marlene Dumas
Jule die Vrou
Victor Reyes - Down For You from Brock Brake on Vimeo.
Ben Wilson
Donkey Bike
Mao Tan
More...
![circles moving in circles
Mathematica code:
Circles[color_, X_, Y_, s_, r_, IS_] := Graphics[ Table[ {color, Disk[{x, y} + s, r]}, {x, -X, X}, {y, -Y, Y}], ImageSize -> IS]W[x_, y_, w_, a_, t_] := w ((Cos[a] + Sin[a]) x + (Sin[a] - Cos[a]) y) + t*2 PiManipulate[ Show[ Circles[Black, X, Y, 0, r, 500], Circles[White, X, Y, .25 r*{Cos[W[x, y, w, a, t]], Sin[W[x, y, w, a, t]]}, r/2, 500] ],{X, 10, 100, 1}, {Y, 10, 100, 1},{{r, .5}, .1, 1}, {{w, 1}, 0, 1}, {a, 0, 2 Pi},{t, 0, 1}]Manipulate[ Show[ Circles[Black, 10, 10, 0, .6+ .2Cos[t*2Pi/4], 500], Circles[White, 10, 10, .25 (.6+ .2Cos[t*2Pi/4])*{Cos[W[x, y, .75, 3Pi/2, t]], Sin[W[x, y, .75, 3Pi/2, t]]}, (.6+ .2Cos[t*2Pi/4])/2, 500] ],{t, 0, 4}]](https://24.media.tumblr.com/tumblr_mcsnjgOWVC1qfjvexo1_500.gif)