Drawing an icosahedron

Here’s how I drew the icosahedron in this post.

I started with the following Mathematica code:

Graphics3D[{PolyhedronData["Icosahedron", "Faces"]}, Boxed -> False]

By default, Mathematica draws 3D figures in a bounding box. The option Boxed -> False removes the box to just show the icosahedron.

The PolyhedraData function can take many other polyhedra as arguments.

I exported the image from Mathematica as an SVG file and used Inkscape to export the SVG file to a PNG image. I could have saved the image directly to PNG from Mathematica, but the Mathematica image was jagged and I thought Inkscape might handle the edges better.