intothecontinuum: Inspired by Vasilj Godzh Mathematica code: s[q_] := (SeedRandom[q]; RandomReal[])r[S_, a_, v_, w_, t_] := S (1 + .05 Sin[v*a] Cos[w*a] + .1 Cos[8*a] + .025 Sin[a + t])F[Q_, S_, M_, v_, w_, th_, t_] := {EdgeForm[{AbsoluteThickness[th], Black}], FaceForm[White], Polygon[ Table[ {{0, 0}, {r[S, (a + s[Q*a]) 2 Pi/M, v, w, t] Cos[(a + s[Q*a]) 2 Pi/M], r[S, (a + s[Q*a]) 2 Pi/M, v, w, t] Sin[(a + s[Q*a]) 2 Pi/M]}, {r[S, (a + 1 + s[Q (Mod[a, M] + 1)]) 2 Pi/M, v, w, t] Cos[(a + 1 + s[Q (Mod[a, M] + 1)]) 2 Pi/M], r[S, (a + 1 + s[Q (Mod[a, M] + 1)]) 2 Pi/M, v, w, t] Sin[(a + 1 + s[Q (Mod[a, M] + 1)]) 2 Pi/M]}}, {a, 1, M, 1}]]}Manipulate[ Graphics[ Table[ Translate[ Reverse@ Table[ F[i*j, (1 + .3 i^1.7), 125 + 25 i, 3 + Round[9 s[i*j]], 3 + Round[9 s[2 i*j]], .6, t + s[j] 2 Pi], {i, 1, 4, 1}], {17*s[j], 23.8*s[2 j]}], {j, 1, 46, 1}], PlotRange -> {{.5, 17.5}, {-1.2, 22.6}}, ImageSize -> {500, 700}], {t, 0, 2Pi}]
View Separately

intothecontinuum:

Inspired by Vasilj Godzh

Mathematica code:

s[q_] := (SeedRandom[q]; RandomReal[])

r[S_, a_, v_, w_, t_] := 
 S (1 + .05 Sin[v*a] Cos[w*a] + .1 Cos[8*a] + .025 Sin[a + t])

F[Q_, S_, M_, v_, w_, th_, t_] :=
 {EdgeForm[{AbsoluteThickness[th], Black}], FaceForm[White],
  Polygon[
   Table[
    {{0, 0},
     {r[S, (a + s[Q*a]) 2 Pi/M, v, w, t] Cos[(a + s[Q*a]) 2 Pi/M],
      r[S, (a + s[Q*a]) 2 Pi/M, v, w, t] Sin[(a + s[Q*a]) 2 Pi/M]},
     {r[S, (a + 1 + s[Q (Mod[a, M] + 1)]) 2 Pi/M, v, w, t] Cos[(a + 1 + s[Q (Mod[a, M] + 1)]) 2 Pi/M],
      r[S, (a + 1 + s[Q (Mod[a, M] + 1)]) 2 Pi/M, v, w, t] Sin[(a + 1 + s[Q (Mod[a, M] + 1)]) 2 Pi/M]}},
    {a, 1, M, 1}]]}

Manipulate[
 Graphics[
  Table[
   Translate[
    Reverse@
     Table[
      F[i*j, (1 + .3 i^1.7), 125 + 25 i, 
         3 + Round[9 s[i*j]], 3 + Round[9 s[2 i*j]],
        .6, t + s[j] 2 Pi],
      {i, 1, 4, 1}],
    {17*s[j], 23.8*s[2 j]}],
   {j, 1, 46, 1}],
  PlotRange -> {{.5, 17.5}, {-1.2, 22.6}}, 
  ImageSize -> {500, 700}],
 {t, 0, 2Pi}]

5409 Notes/ Hide

  1. trashymommarocks reblogged this from mathology
  2. querida-fiori reblogged this from sim-souironica
  3. krahembuhl reblogged this from id-eology
  4. physalis1 reblogged this from oh-noo
  5. oh-noo reblogged this from mathology
  6. mathology reblogged this from intothecontinuum
  7. mia-narga reblogged this from brbnightmares
  8. gonzopix reblogged this from intothecontinuum
  9. viendollover reblogged this from id-eology
  10. orweel reblogged this from id-eology
  11. aquilo-que-restou-de-mim reblogged this from id-eology
  12. nulllull reblogged this from whatyoucantmeasure
  13. somewheretobehappy4ever reblogged this from id-eology
  14. das-alte-leid reblogged this from id-eology
  15. wanna-be-marylin reblogged this from id-eology
  16. sim-souironica reblogged this from id-eology
  17. bigapplee reblogged this from liarsthenight
  18. dcmdycfza reblogged this from id-eology
  19. talitaanascimento reblogged this from gatos-vao-dominar-o-mundo
  20. feelings-otaku reblogged this from id-eology
  21. juliacacao reblogged this from id-eology
  22. daydreams-of-a-teenager reblogged this from id-eology
  23. m-a-y-b-ee reblogged this from id-eology
  24. elizfranca reblogged this from id-eology
  25. nataliapsss reblogged this from id-eology
  26. mimundoesdifentealdeellos reblogged this from id-eology
  27. idashblack reblogged this from id-eology
  28. we-are-queen-s reblogged this from id-eology
  29. liarsthenight reblogged this from id-eology
  30. mindofanaughtygirl reblogged this from id-eology
  31. m-o-l-l-y-s-l-i-p-s reblogged this from id-eology
  32. gatos-vao-dominar-o-mundo reblogged this from id-eology
  33. gay-i-suppose reblogged this from id-eology
  34. s0rrisos-falsos reblogged this from id-eology
  35. le-panqueca reblogged this from id-eology
  36. fazendocoisasempensar reblogged this from id-eology