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
-
-
-
-
Replying to @CmonMattTHINK @graveolens
Some parameters required adjusting, but lo and behold!pic.twitter.com/ei12ZjIVsu
1 reply 0 retweets 2 likes
Replying to @CmonMattTHINK
I suppose coloring them meaningfully is next? It feels like there's a combinatoric puzzle you're near.
And they can be 3d printed, but with supports to be removed after (at least, F0rm 1abs machines can handle that, here's a print of interlocking dodecahedra by @ikefeitler )pic.twitter.com/JVekFPVptO
4:07 AM - 4 Apr 2019
0 replies
0 retweets
1 like
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.