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/2, (1 + Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {-1/2, (1 + Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {-1/2, (-1 - Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {-1/2, (-1 - Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {0, -(1/Sqrt[2]), (-9 - 2*Sqrt[2])/64 + (1 + 2*Sqrt[2])/2},
   {0, 1/Sqrt[2], (-9 - 2*Sqrt[2])/64 + (1 + 2*Sqrt[2])/2},
   {1/2, (1 + Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {1/2, (1 + Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {1/2, (-1 - Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {1/2, (-1 - Sqrt[2])/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {-(1/Sqrt[2]), 0, (-9 - 2*Sqrt[2])/64 + (1 + 2*Sqrt[2])/2},
   {1/Sqrt[2], 0, (-9 - 2*Sqrt[2])/64 + (1 + 2*Sqrt[2])/2},
   {(1 + Sqrt[2])/2, -1/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {(1 + Sqrt[2])/2, -1/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {(1 + Sqrt[2])/2, 1/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {(1 + Sqrt[2])/2, 1/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {(1 + Sqrt[2])/2, (1 + Sqrt[2])/2, -1/2 + (-9 - 2*Sqrt[2])/64},
   {(1 + Sqrt[2])/2, (1 + Sqrt[2])/2, 1/2 + (-9 - 2*Sqrt[2])/64},
   {(1 + Sqrt[2])/2, (-1 - Sqrt[2])/2, -1/2 + (-9 - 2*Sqrt[2])/64},
   {(1 + Sqrt[2])/2, (-1 - Sqrt[2])/2, 1/2 + (-9 - 2*Sqrt[2])/64},
   {(-1 - Sqrt[2])/2, -1/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {(-1 - Sqrt[2])/2, -1/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {(-1 - Sqrt[2])/2, 1/2, (-9 - 2*Sqrt[2])/64 + (-1 - Sqrt[2])/2},
   {(-1 - Sqrt[2])/2, 1/2, (-9 - 2*Sqrt[2])/64 + (1 + Sqrt[2])/2},
   {(-1 - Sqrt[2])/2, (1 + Sqrt[2])/2, -1/2 + (-9 - 2*Sqrt[2])/64},
   {(-1 - Sqrt[2])/2, (1 + Sqrt[2])/2, 1/2 + (-9 - 2*Sqrt[2])/64},
   {(-1 - Sqrt[2])/2, (-1 - Sqrt[2])/2, -1/2 + (-9 - 2*Sqrt[2])/64},
   {(-1 - Sqrt[2])/2, (-1 - Sqrt[2])/2, 1/2 + (-9 - 2*Sqrt[2])/64}},
  Polygon[{{7, 15, 13, 9, 3, 21, 23, 1}, {9, 19, 20, 10, 4, 28, 27, 3},
    {1, 25, 26, 2, 8, 18, 17, 7}, {15, 17, 18, 16, 14, 20, 19, 13},
    {21, 27, 28, 22, 24, 26, 25, 23}, {9, 13, 19}, {17, 15, 7}, {27, 21, 3}, {1, 23, 25},
    {20, 14, 10}, {8, 16, 18}, {4, 22, 28}, {26, 24, 2}, {6, 11, 5, 12}, {11, 6, 2, 24},
    {5, 11, 22, 4}, {12, 5, 10, 14}, {6, 12, 16, 8}, {8, 2, 6}, {24, 22, 11}, {4, 10, 5},
    {14, 16, 12}}]]]

In[83]:=

Out[83]=

In[84]:=

Out[84]=

In[85]:=

Out[85]=