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