sndg:intothecontinuum:Mathematica code: Circles[Ccolor_, BGcolor_, X_, Y_, s_, r_, IS_] := Graph
sndg: intothecontinuum: Mathematica code: Circles[Ccolor_, BGcolor_, X_, Y_, s_, r_, IS_] := Graphics[ Table[ {Ccolor, Disk[{x, y} + s, r]}, {x, -X, X}, {y, -Y, Y}], ImageSize -> IS, Background -> BGcolor, PlotRange -> {{-X-1, X+1}, {-Y-1, Y+1}}]W[x_, y_, w_, a_, t_] := w ((Cos[a] + Sin[a]) x + (Sin[a] - Cos[a]) y) + t*2 PiManipulate[Circles[ If[color==0,White, Black],If[color==0, Black, White], X, Y, .25 r*{Cos[W[x, y, w, a, t]], Sin[W[x, y, w, a, t]]}, r/2, IS],{color,0,1,1}, {IS, {{500}, {500, 700}}},{X, 10, 100, 1}, {Y, 10, 100, 1},{{r, .5}, .1, 1},{{w, 1}, 0, 1},{a, 0, 2 Pi},{t, 0, 1}]Manipulate[ Circles[ White, Black, 10, 14, .25 (.8)*{Cos[W[x, y, .6, 3Pi/2, t]], Sin[W[x, y, .6, 3Pi/2, t]]}, .8/2, {500,700}],{t, 0, 1}] (via TumbleOn) -- source link