In[373]:=

Out[373]=

In[374]:=

Out[374]=

In[375]:=

Out[375]=

In[376]:=

Out[376]=

In[377]:=

Out[377]=

In[378]:=

Out[378]=

In[379]:=

Out[379]=

In[380]:=

Out[380]=

In[381]:=

Out[381]//InputForm=

Graphics3D[GraphicsComplex[{{-1/2, -1/2, 0}, {-1/2, 0, -1/2}, {-1/2, 0, 1/2}, {-1/2, 1/2, 0}, {0, -1/2, -1/2}, {0, -1/2, 1/2},
   {0, 0, -(1/Sqrt[2])}, {0, 0, 1/Sqrt[2]}, {0, 1/2, -1/2}, {0, 1/2, 1/2}, {0, -(1/Sqrt[2]), 0}, {0, 1/Sqrt[2], 0}, {1/2, -1/2, 0},
   {1/2, 0, -1/2}, {1/2, 0, 1/2}, {1/2, 1/2, 0}, {-(1/Sqrt[2]), 0, 0}, {1/Sqrt[2], 0, 0}},
  Polygon[{{5, 17, 9}, {10, 17, 6}, {17, 5, 6}, {10, 9, 17}, {5, 9, 18}, {6, 18, 10}, {6, 5, 18}, {10, 18, 9}, {2, 14, 11}, {11, 15, 3},
    {14, 2, 12}, {3, 15, 12}, {3, 2, 11}, {3, 12, 2}, {11, 14, 15}, {14, 12, 15}, {1, 7, 13}, {1, 13, 8}, {7, 4, 16}, {8, 16, 4}, {4, 7, 1},
    {8, 4, 1}, {7, 16, 13}, {8, 13, 16}}]]]

In[382]:=

Out[382]=

In[383]:=

Out[383]=

In[384]:=

Out[384]=

Geometry