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. blackandwhitemakeslight reblogged this from livingdisorder
  2. mcakeon reblogged this from livingdisorder
  3. livingdisorder reblogged this from livingdisorder
  4. peetrtweetr reblogged this from intothecontinuum
  5. grungeejumping reblogged this from intothecontinuum
  6. gutsur reblogged this from cindylikesgifs
  7. jo3s3pp3 reblogged this from cindylikesgifs
  8. cindylikesgifs reblogged this from opticaldisillusion
  9. freethinkingart reblogged this from opticaldisillusion
  10. opticaldisillusion reblogged this from intothecontinuum
  11. sparkelingsadness reblogged this from franticdays
  12. nomainland reblogged this from blunted-junglist
  13. chickenkun12 reblogged this from ammerikan
  14. ammerikan reblogged this from ribsi
  15. danielkuehn reblogged this from beautifulfuckingshit
  16. xxbacardi7xx reblogged this from idealmentesuperficial
  17. lorenzofacedtheworld reblogged this from tiedyethirdeye
  18. immortalrights reblogged this from perlywerly
  19. perlywerly reblogged this from intothecontinuum
  20. macylayne reblogged this from crozieee
  21. crozieee reblogged this from iamyeezus411
  22. iamyeezus411 reblogged this from nuuwandaa
  23. nuuwandaa reblogged this from your-lethal-addiction
  24. your-lethal-addiction reblogged this from pheruh-is-the-name
  25. pheruh-is-the-name reblogged this from highmariaa
  26. valaki-szeressen-engem-is reblogged this from ashbeetee
  27. ashbeetee reblogged this from whore--monic
  28. the-primary-colors-of-nerd reblogged this from intothecontinuum
  29. th3naikst3r reblogged this from n-aw
  30. n-aw reblogged this from the-cosmic-giggle
  31. smileyface22 reblogged this from 420mushroomevee and added:
    Vibin’
  32. balancenergy reblogged this from souliquid
  33. gbegetx reblogged this from psilocibyn-mushrooms
  34. franticdays reblogged this from quirkycarousel
  35. talishita reblogged this from quirkycarousel
  36. quirkycarousel reblogged this from pittykitty