Inspired by an exhibit in the Gallery Room in Antichamber

Mathematica code:

v[x_, y_, z_] =

Flatten[Table[ {(-1)^i*x, (-1)^j*y, (-1)^k*z}, {i, 0, 1}, {j, 0,

1}, {k, 0, 1} ], 2];

f = {{1 , 2 , 4 , 3 }, {1 , 2 , 6 , 5 }, {5 , 6 , 8 , 7 }, { 3, 4 ,

8 , 7 }, { 1, 3 , 7 , 5 }, { 2, 4 , 8 , 6 } };

G[x_, y_, z_, s_, H_ , t_] :=

Table[

Translate[

Rotate[

GraphicsComplex[v[x, y, z], Polygon[f]],

h (Cos[t] + 1) Pi/4, {0 , 0, 1 }],

{0, 0, s*h}],

{h, 1, H}]

Manipulate[

Graphics3D[

G[2, 2, .1, .25, 30, t],

Lighting -> "Neutral", ViewPoint -> Front, ViewAngle -> 35 Degree,

Boxed -> False, ImageSize -> 500],

{t, 0, Pi}]