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. starlightofstarfishes reblogged this from thisoldapt
  2. wolfbusch reblogged this from 01012012
  3. allwayshallways reblogged this from rygadune
  4. jorgenunss reblogged this from intothecontinuum
  5. dj-nicatine reblogged this from thecycliceye
  6. thecycliceye reblogged this from gamecube420
  7. yunh reblogged this from dlwr
  8. urbanhatfitters reblogged this from strivingallazo
  9. strivingallazo reblogged this from intothecontinuum
  10. agirlwhodoesntgiveashit reblogged this from koala-slut
  11. brwnkitty reblogged this from sugarpuf
  12. sugarpuf reblogged this from intothecontinuum
  13. monster-princelet reblogged this from 01012012
  14. tori-san-yamete-kudasai reblogged this from beautyandthemaths
  15. lockrum reblogged this from 01012012
  16. dlwr reblogged this from dildosaggins
  17. sootcloud reblogged this from 01012012
  18. sweeet-s reblogged this from 01012012
  19. thebookthiefstolethetardis reblogged this from thatcrazylittlelord
  20. thatcrazylittlelord reblogged this from 01012012
  21. drinkingbeerfroma reblogged this from 01012012
  22. britasianee reblogged this from 01012012
  23. distrxctixn reblogged this from 01012012
  24. 01012012 reblogged this from ofmightyopposites
  25. thatisnotababysleg reblogged this from tommytuffnutts
  26. hideaki6667 reblogged this from between-truth-and-lies