agresion-contemporanea asked: ayy pashri welcome to this hipster shit called tumblr en vdd hoy en dia es mas porno suicide girls que nada xD
ay mi gordo cuando me mandast esto gracias oye!
amazingartphotography asked: hi! :) would you like to check my art blog? thank you very much! :) i alway follow back :)
np
Modules & Colors by Daniele De Nigris
This project is a study on the relationship between modules and colors, turning some simple shapes into something seemingly more complex and dynamic.
(via thirstyear)
![intothecontinuum:
Mathematica code:
WPlot[x_, y_, h_, k_, N_, R_, m_, s_, w_, v_, t_, px_, py_] := Graphics[ Table[ {AbsoluteThickness[k], Line[ Table[ {x*i + If[Mod[i, 2] == m, s*x*Sin[j*2 Pi/w + i*2 Pi/v + t], 0], (-1)^i*y + h*j}, {i, 1, N}]]}, {j, 1, R, 1}], PlotRange -> {{x + px, N*x - px}, {h - y + py, R*h - y}}, ImageSize -> {500, 700} ]P={1, 0.5, 0.4, 4., 19, 66, 0, 0.434, 0.89, 0.32, 3.34365, 0.09, 0.418}Manipulate[ WPlot[P[[1]], P[[2]], P[[3]], P[[4]], P[[5]], P[[6]], P[[7]], P[[8]], P[[9]], P[[10]], t, P[[12]], P[[13]]],{t, 2Pi, 0}]](http://24.media.tumblr.com/43b227c8b2b7b5e76e9a8269a1ce8d38/tumblr_mg4re6ASry1qfjvexo1_250.gif)
![intothecontinuum:
Inspired by Bridget Riley - Descending (1965)
Mathematica code:
WPlot[x_, y_, h_, k_, N_, R_, m_, s_, w_, v_, t_, px_, py_] := Graphics[ Table[ {AbsoluteThickness[k], Line[Table[{x*i + If[Mod[i, 2] == m, s*x*Sin[j*2 Pi/w + i*2 Pi/v + t], 0], (-1)^i*y + h*j}, {i, 1, N}]]}, {j, 1, R, 1}], PlotRange -> {{x + px, N*x - px}, {h - y + py, R*h - y}}, ImageSize -> {500, 700} ]P={1, 0.5, 0.4, 4, 19, 66, 0, 0.5, 0.99, 0.94, 2.12749, 0., 0.644}Manipulate[ WPlot[P[[1]], P[[2]], P[[3]], P[[4]], P[[5]], P[[6]], P[[7]], P[[8]], P[[9]], P[[10]], t, P[[12]], P[[13]]],{t, 0, 2 Pi}]](http://24.media.tumblr.com/5be7421002df1c3ff1caed0597762148/tumblr_mg361qQvKo1qfjvexo1_250.gif)
![intothecontinuum:
Inspired by Successive Rows of Horizontal Straight Lines from Top to Bottom & Vertical Straight Lines from Left to Right (1972) by Sol LeWitt.
Mathematica code:
BG = Polygon[ {ImageScaled[{0, 0}], ImageScaled[{1, 0}], ImageScaled[{1, 1}], ImageScaled[{0, 1}]}, VertexColors -> {RGBColor[240/255, 237/255, 222/255], RGBColor[229/255, 226/255, 211/255], RGBColor[228/255, 227/255, 209/255], RGBColor[214/255, 215/255, 199/255]}];Manipulate[ Graphics[ Table[ Rotate[ Table[ Table[ Line[ {{Mod[i + j/14 + (1 + r) t + r/2, 12], 0}, {Mod[i + j/14 + (1 + r) t + r/2, 12], 12}}], {j, -i/2, i/2, 1}], {i, 0, 12, 1}], -r*Pi/2, {6, 6}], {r, {0, 1}}], PlotRange -> {{0, 11.5}, {0, 11.5}}, ImageSize -> 500, Prolog -> BG],{{t, 11.05}, 0, 12}]](http://25.media.tumblr.com/5ca96193e984ffefd1ddb7f8674902fe/tumblr_mezxzm0Jl01qfjvexo1_250.gif)
