Some more one-line #Mathematica:
In[1]:=Graphics3D[Rotate[Translate[Tube[Append[#, First[#]], 0.1], -0.4 Mean[#]], 18 \[Degree], Mean[#]] & /@ N[First /@ First[Normal[PolyhedronData["Dodecahedron", "GraphicsComplex"]]]]]
Out[1]=pic.twitter.com/qNNe1K9e9x
-
-
Hmm. I don’t see why not!
-
Some parameters required adjusting, but lo and behold!pic.twitter.com/ei12ZjIVsu
- 1 more reply
New conversation -
Loading seems to be taking a while.
Twitter may be over capacity or experiencing a momentary hiccup. Try again or visit Twitter Status for more information.