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. mcakeon reblogged this from livingdisorder
  9. livingdisorder reblogged this from livingdisorder
  10. peetrtweetr reblogged this from intothecontinuum
  11. grungeejumping reblogged this from intothecontinuum
  12. gutsur reblogged this from cindylikesgifs
  13. jo3s3pp3 reblogged this from cindylikesgifs
  14. cindylikesgifs reblogged this from opticaldisillusion
  15. freethinkingart reblogged this from opticaldisillusion
  16. opticaldisillusion reblogged this from intothecontinuum
  17. sparkelingsadness reblogged this from franticdays
  18. nomainland reblogged this from blunted-junglist
  19. chickenkun12 reblogged this from ammerikan
  20. ammerikan reblogged this from ribsi
  21. danielkuehn reblogged this from beautifulfuckingshit
  22. xxbacardi7xx reblogged this from idealmentesuperficial
  23. lorenzofacedtheworld reblogged this from tiedyethirdeye
  24. immortalrights reblogged this from perlywerly
  25. perlywerly reblogged this from intothecontinuum
  26. macylayne reblogged this from crozieee
  27. crozieee reblogged this from iamyeezus411
  28. iamyeezus411 reblogged this from nuuwandaa
  29. nuuwandaa reblogged this from your-lethal-addiction
  30. your-lethal-addiction reblogged this from pheruh-is-the-name
  31. pheruh-is-the-name reblogged this from highmariaa
  32. valaki-szeressen-engem-is reblogged this from ashbeetee
  33. ashbeetee reblogged this from whore--monic