intothecontinuum:Mathematica code:Tile[k_, rx_, ry_, x_, y_, r_] := Table[Translate[ Rotate[{Absolut

intothecontinuum:Mathematica code:Tile[k_, rx_, ry_, x_, y_, r_] := Table[ Translate[ Rotate[ {AbsoluteThickness[k], Circle[{i, i}, {rx, ry}, {i*Pi, Pi/2 + i*Pi}]}, r, {.5, .5}], {x, y}], {i, 0, 1, 1}]rr[Q_] := (SeedRandom[Q]; RandomReal[])GCOS[k_, rx1_, rx2_, ry1_, ry2_, X_, Y_, Q_, t_] := Graphics[ Table[ Tile[k,  .75 + .25 Cos[2 Pi*Mod[rx1 + rx2*x/X + t, 1]],  .75 + .25 Cos[2 Pi*Mod[ry1 + ry2*y/Y + t, 1]],  x, y, Floor[3*rr[Q*x*y]] Pi/2], {x, 1, X, 1}, {y, 1, Y, 1}], ImageSize -> 500, PlotRange -> {{1, X + 1}, {1, Y + 1}}]Manipulate[ GCOS[2, .5, .5, .5, .5, 30, 42, 4, t],{t, .05, 1, .05}]] -- source link

More pics about