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. lzoblack reblogged this from intothecontinuum
  2. fa361 reblogged this from intothecontinuum
  3. rosansay reblogged this from suvorovus
  4. boglarkakovacs reblogged this from huttlgertrud
  5. feeltherealpower reblogged this from intothecontinuum
  6. endless-gray reblogged this from dutotmartine
  7. dutotmartine reblogged this from intothecontinuum
  8. carlosxcutajar reblogged this from intothecontinuum
  9. huttlgertrud reblogged this from fuck-it-im-leaving000
  10. aur0 reblogged this from trippiest
  11. sl0wly-illuminating reblogged this from shr0om-tea
  12. gnomerocker reblogged this from trippiest
  13. shr0om-tea reblogged this from differentrealities
  14. differentrealities reblogged this from intothecontinuum
  15. universal-sphere reblogged this from everybodyhateszoe
  16. itsmofa reblogged this from rock-ps
  17. aletrokis reblogged this from schroederhouse
  18. take-it-sleazy69 reblogged this from impurrmanence
  19. s4lv4t1on reblogged this from impurrmanence
  20. impurrmanence reblogged this from steezyzjt
  21. steezyzjt reblogged this from trippiest
  22. m-iss-you reblogged this from rock-ps
  23. rock-ps reblogged this from the-fake-truth
  24. iheartsyourmom reblogged this from dtfloljkforeveralone
  25. nothing-gold--can-stay reblogged this from the-fake-truth
  26. the-fake-truth reblogged this from dtfloljkforeveralone
  27. dtfloljkforeveralone reblogged this from trippiest
  28. sophisticatedignorance-xo reblogged this from shutup-or-nutup
  29. emanolinno reblogged this from trippiest
  30. lsdmonster reblogged this from trippiest