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