Algorithmic Art @algorithmicart - Tumblr Blog

Polar swims

I’ve been fascinated and borderline obsessed with cymatics over the past few months. Which is the idea that certain frequencies can resonate and cause 3D forms and pattern symmetry. As my own personal first processing project from scratch I developed a sketch that simulated this idea. Controlled by iPad using OSC, minim library and the Lemur app.

Feeling pretty accomplished with the first draft.

hekuli

luccica

hekuli: spores-1inv.p5

hekuli

luccica

hekuli: spores-1inv.p3

intothecontinuum

Some more inspiration from Bridget Riley — think Blaze 1 (1962). The first image is what you get after transforming the second image into log-polar coordinates.

Mathematica code:

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