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