snowflake fractals

Mathematica code:

h[1] = Table[{Cos[n*Pi/3], Sin[n*Pi/3]}, {n, 0, 5, 1}];

h[s_, k_] := Plus @@@ Tuples[Table[s^(n)*h[1], {n, 1, k}]]

SnowFlakeFractal[s1_, s2_, N0_, N_, o_, S_, R_, pr_] :=
Graphics[
Rotate[
Scale[
{White, Opacity[o],
Table[
Rotate[
Translate[
Scale[
Table[Line[
{{0, 0}, h[1][[i]]}],
{i, 1, 6, 1}],
s1^(n - 1)],
h[s2, n]],
.5^n*Pi/3],
{n, N0, N, 1}]},
S],
R],
Background -> Black, PlotRange -> pr, ImageSize -> 500]

Manipulate[
Show[
Table[
SnowFlakeFractal[s1, s2, N0, N, o, S^F, R, pr],
{F,1,6,1}]],
{{s1, .28}, 1, 0}, {{s2, .38}, 1, 0},
{{N0, 4}, 0, 5, 1}, {{N, 5}, 0, 6, 1},
{o, 1, 0}, {{S, 1}, 2, 0}, {{R, 1}, 0, Pi/3},
{{pr, 1}, 6, .001}]

V = {
{.28, .38, .25, .48, .14},
{.26, .4, .3, .4, .14},
{.35, .4, .35, .3, .1},
{.33, .34, .35, .28, .1}
}

Table[
Manipulate[
Show[
Table[
SnowFlakeFractal[V[[i]][[1]],V[[i]][[2]],N0,N,o,V[[i]][[3]]^F,R,pr],
{F,1,6,1}]],
{pr, V[[i]][[4]]], V[[i]][[5]], -.02}],
{i,1,4,1}]
 
  1. gif-jay reblogged this from welcometorealitypark
  2. whitetail-music reblogged this from welcometorealitypark
  3. welcometorealitypark reblogged this from intothecontinuum
  4. s-w-e-e-t-e-s-t-condition reblogged this from geometric-aesthetic and added:
    so nice
  5. smizzthewizz reblogged this from geometric-aesthetic
  6. thekingdomofmali reblogged this from geometric-aesthetic
  7. willowispschopsticks reblogged this from aurif3x
  8. designaroni reblogged this from intothecontinuum
  9. aurif3x reblogged this from geometric-aesthetic
  10. geometric-aesthetic reblogged this from intothecontinuum
  11. lovebuffalo reblogged this from psychomath
  12. matetikus reblogged this from psychomath
  13. rimrider reblogged this from intothecontinuum
  14. elfboi reblogged this from bwansen
  15. bwansen reblogged this from enki2
  16. enki2 reblogged this from intothecontinuum
  17. mauricesmall reblogged this from katiacambia
  18. pendejadas reblogged this from intothecontinuum
  19. troubleshooturself reblogged this from intothecontinuum
  20. dwayne-thebarack-johnson reblogged this from whitetail-music
  21. squishy-ass-witch reblogged this from whitetail-music
  22. colemangilbert reblogged this from hexagonalawarenessproject
  23. migelus-quo reblogged this from whitetail-music
  24. pityequalsfriendship reblogged this from hexagonalawarenessproject
  25. hexagonalawarenessproject reblogged this from intothecontinuum
  26. beautyandthemaths reblogged this from intothecontinuum
  27. mariolunchboxkid reblogged this from intothecontinuum and added:
    Gasp!