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. what-else-can-i-be reblogged this from itstrillmane
  13. jonsaysnot reblogged this from perplexitee
  14. insanelydopeshxt reblogged this from perplexitee
  15. dxtopia reblogged this from internetsmiternet
  16. perplexitee reblogged this from bolloxs
  17. gh057f4c3 reblogged this from bolloxs
  18. spawnkid reblogged this from babylacuna
  19. bolloxs reblogged this from licorneuil
  20. windows69magic reblogged this from whatsurdadlike
  21. why-so-loud reblogged this from witchhousepoland
  22. shawtytakeadrank reblogged this from internetsmiternet
  23. ladosopuestos reblogged this from melaninacorpse
  24. thezonuleofzinn reblogged this from licorneuil
  25. internetsmiternet reblogged this from crimewwavve
  26. crimewwavve reblogged this from poplatch
  27. whitemaleanimefan reblogged this from yurameshi
  28. radrandom reblogged this from poplatch
  29. nickcasey reblogged this from babylacuna