In[321]:=

Out[321]=

In[322]:=

Out[322]=

In[323]:=

Out[323]=

In[324]:=

Out[324]=

In[325]:=

Out[325]=

In[326]:=

Out[326]=

In[327]:=

Out[327]=

In[328]:=

Out[328]=

In[329]:=

Out[329]//InputForm=

Graphics3D[GraphicsComplex[{{-5/6, -1/6, -1/6}, {-5/6, -1/6, 1/6}, {-5/6, 1/6, -1/6}, {-5/6, 1/6, 1/6}, {-1/2, -1/2, -1/2}, {-1/2, -1/2, 1/2},
   {-1/2, 1/2, -1/2}, {-1/2, 1/2, 1/2}, {-1/6, -5/6, -1/6}, {-1/6, -5/6, 1/6}, {-1/6, -1/6, -5/6}, {-1/6, -1/6, 5/6}, {-1/6, 1/6, -5/6},
   {-1/6, 1/6, 5/6}, {-1/6, 5/6, -1/6}, {-1/6, 5/6, 1/6}, {1/6, -5/6, -1/6}, {1/6, -5/6, 1/6}, {1/6, -1/6, -5/6}, {1/6, -1/6, 5/6},
   {1/6, 1/6, -5/6}, {1/6, 1/6, 5/6}, {1/6, 5/6, -1/6}, {1/6, 5/6, 1/6}, {1/2, -1/2, -1/2}, {1/2, -1/2, 1/2}, {1/2, 1/2, -1/2}, {1/2, 1/2, 1/2},
   {5/6, -1/6, -1/6}, {5/6, -1/6, 1/6}, {5/6, 1/6, -1/6}, {5/6, 1/6, 1/6}},
  Polygon[{{28, 15, 4, 12}, {28, 12, 18, 29}, {28, 29, 21, 15}, {15, 21, 5, 4}, {5, 21, 29, 18}, {4, 5, 18, 12}, {26, 31, 24, 14},
    {26, 14, 2, 9}, {26, 9, 19, 31}, {31, 19, 7, 24}, {7, 19, 9, 2}, {24, 7, 2, 14}, {8, 1, 10, 20}, {8, 20, 32, 23}, {8, 23, 13, 1},
    {1, 13, 25, 10}, {25, 13, 23, 32}, {10, 25, 32, 20}, {6, 17, 30, 22}, {6, 22, 16, 3}, {6, 3, 11, 17}, {17, 11, 27, 30}, {27, 11, 3, 16},
    {30, 27, 16, 22}}]]]

In[330]:=

Out[330]=

In[331]:=

Out[331]=

In[332]:=

Out[332]=

Geometry