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