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. laconicallybrilliant reblogged this from intothecontinuum
  2. ofmightyopposites reblogged this from joolabee
  3. cthulhufantasy reblogged this from hewesnewyork
  4. letmebeyourfavoritenightmare reblogged this from morgasm-in-your-coffee
  5. preciouss-moments reblogged this from eleanors-blog
  6. moonescapee reblogged this from 69shadesofgray
  7. eleanors-blog reblogged this from sportsciencemusic
  8. ridingwithmusic reblogged this from sportsciencemusic
  9. alexispippen reblogged this from lukepopspunk
  10. rom-sp4ceknight reblogged this from ph0t0guy
  11. misspolymath reblogged this from intothecontinuum
  12. you-me-and-the-universe reblogged this from myycupoftea
  13. e-tops78 reblogged this from the-terror-and-deep-girl
  14. xrodasx13 reblogged this from kitslam
  15. mir-ific reblogged this from toba-toba
  16. plus-petit-chou reblogged this from psychomath
  17. theehokeypokey reblogged this from obeydonkey
  18. obeydonkey reblogged this from psychomath
  19. immahuntchudown reblogged this from sportsciencemusic
  20. psychomath reblogged this from isometries
  21. centrad reblogged this from teamswagvannah
  22. syonthehedgehog reblogged this from 32vianna
  23. 32vianna reblogged this from isrotheradical
  24. mesamphetamine reblogged this from wendyleaf
  25. inconspicuouslycynicall reblogged this from wendyleaf
  26. wendyleaf reblogged this from alejandrocueva
  27. alejandrocueva reblogged this from daayumdee
  28. ayooitst reblogged this from immaninja15
  29. isrotheradical reblogged this from phase-the-moon
  30. hazeln-ut reblogged this from n-o-cturnal
  31. phase-the-moon reblogged this from daayumdee
  32. daayumdee reblogged this from underscorechris
  33. immaninja15 reblogged this from chanelhi
  34. imnatalieexo reblogged this from chanelhi
  35. chanelhi reblogged this from lesleygutierrez
  36. yuperz reblogged this from lesleygutierrez
  37. lesleygutierrez reblogged this from underscorechris
  38. underscorechris reblogged this from morning-w0uld
  39. old-soul-new-body reblogged this from lightningboltsareglowing
  40. luckiest-man reblogged this from at-treelevel
  41. teamswagvannah reblogged this from at-treelevel
  42. fernandaxoxo reblogged this from morning-w0uld
  43. lukepopspunk reblogged this from morgasm-in-your-coffee