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. haphaez reblogged this from blacko69
  2. rackethoe reblogged this from pocketrunner
  3. mmcelhaney reblogged this from bewaretheblackpanther
  4. kushquality reblogged this from hoodwinkedhero
  5. hoodwinkedhero reblogged this from bewaretheblackpanther
  6. omghast reblogged this from bewaretheblackpanther
  7. kingknowbody reblogged this from bewaretheblackpanther
  8. bewaretheblackpanther reblogged this from blackkrystel
  9. celtic-poetry reblogged this from intothecontinuum
  10. ciclo-pe reblogged this from fleshy-flower
  11. tetrahidrocarbocannabinol reblogged this from g0ld-n
  12. izzyhmurdoch reblogged this from girlmurder
  13. g0ld-n reblogged this from americanaparral
  14. mijlodaniel reblogged this from minimal-o
  15. flaresi reblogged this from narobe
  16. xxbloodybritishxx reblogged this from sad-dolll
  17. sad-dolll reblogged this from girlmurder
  18. g-o-l-f-dub-a-n-g-nigga reblogged this from minimal-o
  19. americanaparral reblogged this from narobe
  20. milkiertea reblogged this from haxelprincess
  21. lue1159 reblogged this from minimal-o
  22. blissful-unawareness reblogged this from kkiselina
  23. l0b0s reblogged this from nach-vorn
  24. jackbarbee reblogged this from minimal-o
  25. littlepeanvt reblogged this from neotravis
  26. siilent reblogged this from nach-vorn
  27. neotravis reblogged this from nach-vorn
  28. nach-vorn reblogged this from narobe