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

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}]
 
  1. johnconnor10 reblogged this from chaaoos
  2. spenc4551 reblogged this from lesionread-inspiration
  3. jeanderoche reblogged this from intothecontinuum
  4. miwasuniverse reblogged this from conversatron
  5. gadevoi reblogged this from intothecontinuum
  6. mexamergrrrl reblogged this from kngddyrbt
  7. kngddyrbt reblogged this from pinkzombi
  8. blackandwhitemakeslight reblogged this from livingdisorder
  9. mcakeon reblogged this from livingdisorder
  10. livingdisorder reblogged this from livingdisorder
  11. peetrtweetr reblogged this from intothecontinuum
  12. grungeejumping reblogged this from intothecontinuum
  13. gutsur reblogged this from cindylikesgifs
  14. jo3s3pp3 reblogged this from cindylikesgifs
  15. cindylikesgifs reblogged this from opticaldisillusion
  16. freethinkingart reblogged this from opticaldisillusion
  17. opticaldisillusion reblogged this from intothecontinuum
  18. sparkelingsadness reblogged this from franticdays
  19. nomainland reblogged this from blunted-junglist
  20. chickenkun12 reblogged this from ammerikan
  21. ammerikan reblogged this from ribsi
  22. danielkuehn reblogged this from beautifulfuckingshit
  23. xxbacardi7xx reblogged this from idealmentesuperficial
  24. lorenzofacedtheworld reblogged this from tiedyethirdeye
  25. immortalrights reblogged this from perlywerly
  26. perlywerly reblogged this from intothecontinuum
  27. macylayne reblogged this from crozieee
  28. crozieee reblogged this from iamyeezus411
  29. iamyeezus411 reblogged this from nuuwandaa
  30. nuuwandaa reblogged this from your-lethal-addiction
  31. your-lethal-addiction reblogged this from pheruh-is-the-name
  32. pheruh-is-the-name reblogged this from highmariaa
  33. valaki-szeressen-engem-is reblogged this from ashbeetee