Ring of ten rhombohedra

Golden rhombohedron ring is placed on Pentart lattice and associated shapas are shown.
In[]:=
fi=GoldenRatio;​​alf=ArcTan[fi];​​bet=ArcTan[1/fi];​​bet1=ArcTan[1/fi^2];​​e=N[Sqrt[1+1/fi^2]];​​h=dia*(Sin[bet-bet1]/2);​​u=24;​​w1={Thickness[0.0005],Line[{{{0,-u,0},{0,u,0}},{{fi,-u,0},{fi,u,0}},{{fi+1,-u,0},{fi+1,u,0}},{{2fi+1,-u,0},{2fi+1,u,0}},{{2fi+2,-u,0},{2fi+2,u,0}},{{3fi+2,-u,0},{3fi+2,u,0}},{{4fi+2,-u,0},{4fi+2,u,0}},{{4fi+3,-u,0},{4fi+3,u,0}},{{5fi+3,-u,0},{5fi+3,u,0}}}]};​​w2=Translate[w1,{5fi+3,0,0}];​​w={w1,w2};w5=Table[Rotate[w,i2Pi/10,{0,0,1}],{i,10}];​​Graphics3D[w5,BoxedFalse,SphericalRegionTrue,ViewPoint{0,0,100},ImageSize400]
Out[]=
In[]:=
​​dia=N[Sqrt[1+(1+fi)^2]];​​rtr=Sqrt[1+fi^2];​​vA={1/fi,1,0};​​vB={0,2,0};​​vC={-1/fi,1,0};​​vD={0,0,0};​​vE={1/fi,fi,1};​​vF={0,fi+1,1};​​vG={-1/fi,fi,1};​​vH={0,1/fi,1};​​r1=Polygon[{vD,vC,vB,vA}];​​r2=Polygon[{vE,vF,vG,vH}];​​r3=Polygon[{vD,vA,vE,vH}];​​r4=Polygon[{vA,vB,vF,vE}];​​r5=Polygon[{vB,vC,vG,vF}];​​r6=Polygon[{vC,vD,vH,vG}];​​prGR={r1,r2,r3,r4,r5,r6};​​q=N[1/fi/Tan[2*(Pi/10)]];​​p=N[1/fi/Sin[2*(Pi/10)]];​​side=2*q+p;​​k=side/2/Sin[2*(Pi/20)];​​h1=Rotate[prGR,Pi,{0,1,0}];​​h2=Rotate[h1,bet,{1,0,0}];rr1=Rotate[h2,2*(Pi/5),{0,0,1}];rr2=Rotate[h2,-2*(Pi/5),{0,0,1}];ringp={Table[Rotate[{rr1,rr2},i*2*(Pi/5),{0,0,1},{0,k,0}],{i,5}]};​​ringc=Translate[ringp,{0,-k,0}];​​rh=Scale[Rotate[GraphicsComplex[PolyhedronData["RhombicHexecontahedron","VertexCoordinates"],Polygon[PolyhedronData["RhombicHexecontahedron","FaceIndices"]]],Pi/2,{0,0,1}],e*{1,1,1}];​​rhp=Translate[rh,{0,-k,0}];​​Graphics3D[{ringc,Pink,rhp},Boxed->False,ViewPoint->{0,0,10},ImageSize->200]
Out[]=
In[]:=
Graphics3D[{w5,ringc,Pink,rhp},Boxed->False,ViewPoint->{0,0,10},ImageSize->400]
Out[]=
In[]:=
ringa=Scale[ringc,1/fi^2];​​ringb=Scale[ringc,1/fi];​​ringd=Scale[ringc,fi];​​ringe=Scale[ringc,fi^2];​​ringf=Scale[ringc,fi^3];​​​​Graphics3D[{w5,Red,ringa,Green,ringb,Yellow,ringc,Cyan,ringd,Pink,ringe,Yellow,ringf},BoxedFalse,SphericalRegionTrue,ViewPoint{0,0,100},ImageSize500]
Out[]=
In[]:=
pp=fiTan[2Pi/20];​​rr=fiCos[2Pi/20];​​vP={fi,pp,0};​​vR={fi,-pp,0};​​PR={Thickness[0.004],Line[{vP,vR}]};​​ten=Table[Rotate[PR,i2Pi/10,{0,0,1}],{i,10}];​​tenser=Table[Scale[ten,fi^i],{i,6}];​​Graphics3D[{ten,tenser,w5},BoxedFalse,SphericalRegionTrue,ViewPoint{0,0,100},ImageSize400]