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. kevinevinmartin reblogged this from intothecontinuum
  2. flawsinchemistry reblogged this from hexteri-a
  3. lelunamoon reblogged this from harlequinbones
  4. dgizer1 reblogged this from sciencefunny
  5. theenshanter reblogged this from gamecube420
  6. przy-mnie-tylko-marzniesz reblogged this from palxvin
  7. kawaii-hitler-desu reblogged this from janes-shenanigans
  8. janes-shenanigans reblogged this from sinusodial-functions
  9. lefttocry reblogged this from jaymesnayr
  10. ericsgotlegs reblogged this from intothecontinuum
  11. tumuulus reblogged this from narobe
  12. nelsonwon reblogged this from gamecube420
  13. applepiedpiper reblogged this from flyingsaucereyes
  14. alexrothstein reblogged this from chrisferentinos
  15. chrisferentinos reblogged this from gamecube420
  16. suit-with-specs reblogged this from ryugazaki-rei-chan
  17. mhmmm-ok reblogged this from gamecube420
  18. something--inexplicable reblogged this from rad-wavvvvvves
  19. omgbagelsinmypantaloons reblogged this from zombie--boy
  20. theuntoldstorry reblogged this from chewlseatumbls
  21. zombie--boy reblogged this from ryugazaki-rei-chan
  22. madeoftigerseye reblogged this from gamecube420
  23. juliancasitablancas reblogged this from angr-y
  24. ryugazaki-rei-chan reblogged this from angr-y
  25. angr-y reblogged this from sa-turn
  26. wizardsandpearls reblogged this from sa-turn
  27. epythymyy reblogged this from gamecube420
  28. sa-turn reblogged this from flyingsaucereyes