RotationTransform - 3D Graph Examples

RTPT[poly_,n_,d_,p_,s_]:=Graphics3D[

Table[Tube[RotationTransform[i*Pi/n,{0,0,1},
p]/@PolyhedronData[poly,"Edges","Coordinates"],d],{i,2n}],
Boxed->False,ViewPoint->Top,

Background->Black,ImageSize->s];
{RTPT["EscherSolid",8,.02,{1.2,1.2,1.2},300],
RTPT["Dodecahedron",8,.07,{1,1,1},300]}

RTPT["GyroelongatedPentagonalBirotunda",

4,.02,{1.3,1.3,1.3},600]