Antichamber

Una escultura virtual, inspirada en un objeto que aparece dentro del video-juego llamado Antichamber (que ha ganado varios premios por su extraño manejo de espacios no-euclidianos dentro de él). Si no lo conocen es hora de hacerlo…

http://bit.ly/Qnmfio

intothecontinuum:

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}]