kellegous.com
Snowflake-A-Thon 2005 — Outtakes
Below are some potential snowflakes that were left to accumulate on the drawing board. Besides not looking very much like snowflakes, they're also pretty scary looking. After a little more head-tapping and eye-squinting, I settled on a final snowflake design.
<<Graphics`Polyhedra`
<<Graphics`Shapes`
Show[
Graphics3D[
Stellate[Geodesate[
Cube[], 5], 15]], Boxed -> False,
LightSources -> {{{1, 0, 1}, RGBColor[1, 0.4, 0.4]},
{{-1, 1, 1}, RGBColor[0.3, 1, 0.1]}, {{-1, -1, 1},
RGBColor[0.2, 0.2, 0.9]}},
DefaultColor -> RGBColor[0.5, 0.5, 0.5]];
Export["004.pdf",%,"PDF"];
<<Graphics`Polyhedra`
<<Graphics`Shapes`
Show[
Graphics3D[
Partition[
Stellate[
Geodesate[
Icosahedron[],
15],
2.00],
675][[Range[11,20]]]],
Boxed->False,
ViewPoint->{0,1,2},
LightSources-> {
{{ 1, 0, 1},RGBColor[ 1, 0.4, 0.4]},
{{-1, 1, 1},RGBColor[0.3, 1, 1]},
{{-1,-1, 1},RGBColor[0.2, 0.2, 0.9]}},
DefaultColor->RGBColor[0.5,0.5,0.5]];
Export["003.pdf",%,"PDF"];