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}]

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}]
 
  1. unhallowed-fox reblogged this from unhallowed-fox
  2. wisdomisaround reblogged this from intothecontinuum
  3. nabala reblogged this from regrubg
  4. sesquipedalianexcess reblogged this from intothecontinuum
  5. justarandomone reblogged this from porcelainspine
  6. thankyoufornothingg reblogged this from porcelainspine
  7. f-luttery reblogged this from porcelainspine
  8. fearorfire reblogged this from porcelainspine
  9. porcelainspine reblogged this from intothecontinuum
  10. smugdadaist reblogged this from buddhabrot
  11. echelon4l reblogged this from mandolinaes
  12. jeanderoche reblogged this from intothecontinuum
  13. suchisasami reblogged this from intothecontinuum
  14. savagexa reblogged this from intothecontinuum
  15. leauchy reblogged this from demystifyme
  16. clazzjassicalrockhop reblogged this from intothecontinuum
  17. daark-side reblogged this from fernandopiltz
  18. incondited-yoni reblogged this from soleius
  19. soleius reblogged this from crackersaregreatwithamnesia
  20. crackersaregreatwithamnesia reblogged this from klonopin-kids
  21. sundegai2013 reblogged this from sundegai
  22. seleniclunar reblogged this from dystopiabella
  23. fantasminhabebe reblogged this from fugaz67
  24. jpixiepoison reblogged this from fluorescentfunk
  25. where-weve-been-is-who-we-are reblogged this from mechanicalbubble
  26. mechanicalbubble reblogged this from serpenteatserpent
  27. serpenteatserpent reblogged this from pachi-pachi
  28. pachi-pachi reblogged this from neonexperience
  29. jimmynewland reblogged this from intothecontinuum
  30. gettingtwisted reblogged this from prxmethevn
  31. tsukimadrigal reblogged this from dystopiabella
  32. sebastianvi reblogged this from dystopiabella
  33. gambita reblogged this from thevuas
  34. kannibalking reblogged this from dystopiabella