maihudson:Image data courtesy of Marina Abramovic and Sean Kelly Gallery, NYMathematica code:MA = Im
maihudson:Image data courtesy of Marina Abramovic and Sean Kelly Gallery, NYMathematica code:MA = ImageCrop[Import["marina.jpg"],1300];MAc = ImageData[MA, "Byte"];MAg = ImageData[ColorConvert[MA, "GrayLevel"], "Byte"];waves[x_, y_, w_, a_, t_] := Sin[w ((Cos[a] + Sin[a]) x + (Sin[a] - Cos[a]) y) + t*2 Pi]Manipulate[ Graphics[ Table[ Translate[ {RGBColor[MAc[[y, x]]/255], Opacity[.8], Disk[{x, -y}, (.7 + 5 (1 - MAg[[y, x]]/255))*3 (1 + Sum[waves[x, y, .07, a* 2 Pi/5, t], {a, 0, 4, 1}]/(210))]}, 3*{Cos[2 Pi*(t + x/1300 + y/1300)], Sin[2 Pi*(t + x/1300 + y/1300)]}], {x,1,1300,15}, {y,1,1300,15}], PlotRange -> {{-15, 1315}, {15, -1315}}, ImageSize -> 500],{t,0,.95,.05}]Thank you MAI + t for hosting intothecontinuum! -- source link
#marina abramovic#portrait#image processing#circles#quasicrystal#mathematica