![intothecontinuum:
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}]](https://lh3.googleusercontent.com/blogger_img_proxy/AEn0k_vURSkxtC2Kqwn0pEWApn8ejIE8x1H7BReP2DJd40X8c9hy7eL9WcRu_egs2WKBiSANXqtNfw4ZMwcXKUzLwSvKxxrTbLjGwUJh0LQWTtMLbQ4eBWFJF2Rlqk9mbURCaqxIpIgzgTOTThhjPi-01qXHiuIsELfCKUjvBcPwTuCNqvA=s0-d)
Subscribe to:
Post Comments (Atom)
Social Icons
Capt'n fav scroll
It's a beautiful story
Eyecatchin' planks
-
Sudah lama tidak post blog. Aku makin lama makin malas. Nda pernah rajin-rajin. Laptop baru aku menyakitkan hati. P/s : ra... -
Sekarang ni isu Pesawat MH370 memang popular kan? Masing-masing sedekahkan Al-Fatihah kepada para penumpang pesawat MH370. Masa syok-s... -
Not only it has Bleach and Naruto, Gintama also has Prince of Tennis shown in the series... Gintama Ep. 62 (Season 1) It... -
Know what it means? It happens when you suddenly lost all your thought for a moment . That's what you called "Brain fart&quo... -
For the past few days, my brain is still struggling to find what is the actual shoutout for Satan special technique when he was fighting ... -
SHORTCUT FOR SYSTEM PROPERTIES DIALOGUE BOX To get system properties dialogue box, we will either ' right-click on MYCOMPUTER icon -...
-
Interesting Fact -Part III- 1. It's physically impossible for you to lick your elbow. 2. Richard Millhouse Nixon was the first US...
No comments:
Post a Comment