snowflake :=
Module[{a},
a = Accumulate[{{0, 0.1}}~Join~RandomReal[{-1, 1}, {5, 2}]];
a = a.Transpose@RotationMatrix[{a[[-1]], {0, 1}}];
a = a~Join~Rest@Reverse[a.{{-1, 0}, {0, 1}}];
Polygon[Flatten[a.RotationMatrix[# [Pi]/3] & /@ Range[6], 1]]];
Graphics[{Black, snowflake}, Background -> White]
Export[“test.pdf”, %];