Cleopatra's Horns

I fart in your general direction

Posts tagged drugz

391 notes

intothecontinuum:

Mathematica code:
ID = ImageData[Binarize[Rasterize[Import["Erwin.jpg"], RasterSize -> 100], .7], DataReversed -> True]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}]Parquet[IS_, X_, Y_, u_, v_, k_, rx1_, rx2_, ry1_, ry2_, f_, t_] :=Graphics[ Table[  Tile[ k, rx1 + rx2*x/X, ry1 + ry2/2*(1 + Sin[2 Pi (f*y/Y - t)]), x, y,  ID[[1 + v*y, 1 + u*x]] Pi/2],  {x, 3, X, 1}, {y, 5, Y, 1}], ImageSize -> IS, PlotRange -> {{3, X + 1}, {5, Y + 1}}]Manipulate[Parquet[500, 56, 60, 2, 2, 2, .5, 0, 0, .5, .5, t],{t, 0, 17/18, 1/18}]

intothecontinuum:

Mathematica code:

ID = ImageData[
Binarize[Rasterize[
Import["Erwin.jpg"],
RasterSize -> 100], .7],
DataReversed -> True]

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}]

Parquet[IS_, X_, Y_, u_, v_, k_, rx1_, rx2_, ry1_, ry2_, f_, t_] :=
Graphics[
Table[
Tile[
k,
rx1 + rx2*x/X,
ry1 + ry2/2*(1 + Sin[2 Pi (f*y/Y - t)]),
x, y,
ID[[1 + v*y, 1 + u*x]] Pi/2],
{x, 3, X, 1}, {y, 5, Y, 1}],
ImageSize -> IS, PlotRange -> {{3, X + 1}, {5, Y + 1}}]

Manipulate[
Parquet[500, 56, 60, 2, 2, 2, .5, 0, 0, .5, .5, t],
{t, 0, 17/18, 1/18}]

Filed under drugz

55,176 notes

dvdp:

130406reason for the raised post-frequency: It seems like that after 10 years of independence I’ll  work as an employee in the near future. So I’m enjoying last long sleepless nights with creation for my own fun. 150252*thank_you_for_following!

dvdp:

130406

reason for the raised post-frequency: It seems like that after 10 years of independence I’ll  work as an employee in the near future. So I’m enjoying last long sleepless nights with creation for my own fun. 

150252*thank_you_for_following!

Filed under drugz