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

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}]
 
  1. as-theraincomes reblogged this from narobe
  2. holy-twerk reblogged this from urso2000andlate
  3. thatawkwardpunk reblogged this from thstrysofr
  4. woolie-at-midnight reblogged this from guarjog
  5. translucentwaves reblogged this from rhea137
  6. rhea137 reblogged this from intothecontinuum
  7. alt-gen reblogged this from intothecontinuum
  8. seymouslee reblogged this from 0scillates
  9. isherjot reblogged this from t-emperate
  10. yeahhii reblogged this from actionables
  11. unknownsandsolutions reblogged this from t-emperate
  12. t-emperate reblogged this from urso2000andlate
  13. aromaticunicorn reblogged this from actionables
  14. lvhannies reblogged this from actionables
  15. deadricmanatees reblogged this from emilywhatson
  16. little-lost-panda reblogged this from supermishalock
  17. dorkscanberadtoo reblogged this from actionables
  18. willarmageddon reblogged this from actionables
  19. zourbitch reblogged this from actionables
  20. emilywhatson reblogged this from actionables
  21. officialpornhubstaff reblogged this from actionables
  22. ghettobrides reblogged this from actionables
  23. supermishalock reblogged this from actionables
  24. chandelure-you reblogged this from actionables
  25. megans-random-thoughts reblogged this from actionables
  26. kaitlingaspar reblogged this from actionables
  27. seanthefanboy reblogged this from actionables