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