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

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}]
 
  1. krissnewone reblogged this from visualcake
  2. visualcake reblogged this from popcornforyoureyes
  3. just-a-mad-man-with-a-box reblogged this from air-h0stess
  4. crosslablaurenbrand reblogged this from intothecontinuum
  5. prestonisnthip reblogged this from internetsmiternet
  6. virtualvcr reblogged this from crimewwavve
  7. simonesantemilo reblogged this from bhagavana
  8. whossasha reblogged this from whatsurdadlike
  9. our-kaleidoscope-eyes reblogged this from babylacuna
  10. neptune-go-nowservepluto reblogged this from automaticmotion
  11. air-h0stess reblogged this from themiddleofadventure
  12. jonsaysnot reblogged this from perplexitee
  13. insanelydopeshxt reblogged this from perplexitee
  14. dxtopia reblogged this from internetsmiternet
  15. perplexitee reblogged this from bolloxs
  16. gh057f4c3 reblogged this from bolloxs
  17. spawnkid reblogged this from babylacuna
  18. bolloxs reblogged this from licorneuil
  19. windows69magic reblogged this from whatsurdadlike
  20. why-so-loud reblogged this from witchhousepoland
  21. shawtytakeadrank reblogged this from internetsmiternet
  22. ladosopuestos reblogged this from melaninacorpse
  23. thezonuleofzinn reblogged this from licorneuil
  24. internetsmiternet reblogged this from crimewwavve
  25. crimewwavve reblogged this from poplatch
  26. whitemaleanimefan reblogged this from yurameshi
  27. radrandom reblogged this from poplatch
  28. nickcasey reblogged this from babylacuna