AmapolAmada

Ask me anythingNext pageArchive

nevver:

Sucking in the Seventies

(via visualamor)

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}]]
Mas feliz que un enano con tijeras!
visualamor:

truth