Did this for The Daily Dot!

Read more for some code:

rr[n_] := (SeedRandom[n]; RandomReal[])

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

SnowFlake[Q_, x_, y_, R_, S_, k_, h_, o_, s_, N_, PR_, IS_] := 
 Graphics[{
   Rotate[
    Translate[
     Scale[
      Table[
       Table[
        Rotate[
         Translate[
          Scale[
           Table[
            {AbsoluteThickness[k*h^(n - 1)], Opacity[o], White,
             Line[
              {{0, 0}, H[[i]]}]},
            {i, 1, 6, 1}],
           s^(n - 1)],
          {If[n == 1, 0, rr[Q*n]], 0}],
         If[n == 1, 0, (j + rr[Q*n])*Pi/3], {0, 0}],
        {j, 0, 5, 1}],
       {n, 1, N, 1}],
      S],
     {x, y}],
    R, {x, y}]},
  PlotRange -> PR, ImageSize -> IS, Background -> Black]

Manipulate[
  Table[
   SnowFlake[
    Q*f, 4 rr[2 Q*f] - 2,
    1.25 - 2.5 (Mod[t + rr[3 Q*f], 1]),
    (-1)^(Round[rr[4 Q*f]])*t*Ceiling[6 rr[4 Q*f]]*Pi/3,
    .04 + .03 rr[5 Q*f],
    .8, 1, .3, .75, 6, {{-2, 2}, {-6/5, 6/5}}, {500, 300}],
   {f, 1, F, 1}],
{Q, 1, 100, 1}, {F, 1, 50, 1}, {t, 0, 1}]