In[74]:=

Out[74]=

In[75]:=

Out[75]=

In[76]:=

Out[76]=

In[77]:=

Out[77]=

In[78]:=

Out[78]=

In[79]:=

Out[79]=

In[80]:=

Out[80]=

In[81]:=

Out[81]=

In[82]:=

Out[82]//InputForm=

Graphics3D[GraphicsComplex[{{-(1/Sqrt[2]), 0, 0}, {0, 1/Sqrt[2], 0}, {0, 0, -(1/Sqrt[2])}, {0, 0, 1/Sqrt[2]},
   {0, -(1/Sqrt[2]), 0}, {1/Sqrt[2], 0, 0}}, Polygon[{{4, 5, 6}, {4, 6, 2}, {4, 2, 1}, {4, 1, 5}, {5, 1, 3}, {5, 3, 6}, {3, 1, 2},
    {6, 3, 2}}]]]

In[83]:=

Out[83]=

In[84]:=

Out[84]=

In[85]:=

Out[85]=

Platonic Polyhedra