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}]
![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}]](http://25.media.tumblr.com/5a4be317a0f1bc8cc97a50094b9348b6/tumblr_mh3qgwLJag1qfjvexo1_500.gif "Source: intothecontinuum")
