Algorithmic Art

Polar swims

Feeling pretty accomplished with the first draft.

WfPlot[ t_ ] := Graphics[ Table[ {AbsoluteThickness[3], Line[ Table[ {i + If[Mod[i, 2] == 0, .5*Sin[j*2 Pi/66 + t], 0], (-1)^i*.5 + .4*j},  {i, 1, 19}]]}, {j, 1, 69, 1}], PlotRange -> {{1, 19}, {.8, 27.2}}, ImageSize -> {500, 500}] Manipulate[ WfPlot[ t ], {t, 0, 2Pi}] LogPolar[x_, y_] := {Log[Sqrt[x^2 + y^2]], ArcTan[x, y]} Manipulate[ ImageTransformtion[ WfPlot[ t ], LogPolar[#[[1]], #[[2]]] &, DataRange -> {{-Pi, Pi}, {-Pi, Pi}}], {t,0,2Pi}]

Islamic parquet deformation as described here [pdf].

Follow the link and click over the applet to switch between different visualizations

Montblanc Mesh (by onformative)

Montblanc Mesh (by onformative)

Montblanc Mesh (by onformative)