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. huttlgertrud reblogged this from fuck-it-im-leaving000
  2. aur0 reblogged this from trippiest
  3. sl0wly-illuminating reblogged this from shr0om-tea
  4. gnomerocker reblogged this from trippiest
  5. shr0om-tea reblogged this from differentrealities
  6. differentrealities reblogged this from intothecontinuum
  7. universal-sphere reblogged this from everybodyhateszoe
  8. itsmofa reblogged this from rock-ps
  9. aletrokis reblogged this from schroederhouse
  10. take-it-sleazy69 reblogged this from impurrmanence
  11. s4lv4t1on reblogged this from impurrmanence
  12. impurrmanence reblogged this from steezyzjt
  13. steezyzjt reblogged this from trippiest
  14. m-iss-you reblogged this from rock-ps
  15. rock-ps reblogged this from the-fake-truth
  16. iheartsyourmom reblogged this from dtfloljkforeveralone
  17. nothing-gold--can-stay reblogged this from the-fake-truth
  18. the-fake-truth reblogged this from dtfloljkforeveralone
  19. dtfloljkforeveralone reblogged this from trippiest
  20. sophisticatedignorance-xo reblogged this from shutup-or-nutup
  21. emanolinno reblogged this from trippiest
  22. lsdmonster reblogged this from trippiest
  23. iinquire reblogged this from trippiest
  24. laurenatsea reblogged this from locketsandpockets
  25. acid-laboratorie reblogged this from popantabus
  26. ielgil reblogged this from popantabus
  27. trippy-viib3s reblogged this from popantabus
  28. locketsandpockets reblogged this from popantabus
  29. effu-sive reblogged this from popantabus
  30. popantabus reblogged this from visual-wanderer
  31. thothanatos reblogged this from memorialacrimosa
  32. alaskank reblogged this from trippiest
  33. fr0stcrunch reblogged this from ambaritzel