3D Graphics Objects

SP3D[p_,s_,c_]:=Graphics3D[{c,Opacity[.9],
Table[Style[Sphere[p[[1,1,i]],s],
Specularity[Darker[Green],i]],
{i,Length[p[[1,1]]]}],Darker[Green],
EdgeForm[None],GeometricTransformation[Cylinder[],
{{#{1,0,-1},{1,0,.1},{1,1,-2}},
{-#.1,0,2.1}}]&/@{-1,1}},
Boxed->False,ImageSize->600];
SP3D[PolyhedronData["DeltoidalHexecontahedron"],
1.1,Darker[Blue]]