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