Thursday, December 26, 2019

AugmentedPolyhedron Examples


AP=AugmentedPolyhedron[PolyhedronData["Spikey",
"Polyhedron"],2];
PAP=Table[AP[[1]][[AP[[2,i]]]],
{i,Length[AP[[2]]]}];
Show[Graphics3D[Table[Style[Tube[PAP[[i]],.03],
Hue[Pi*i/192]],{i,Length[AP[[2]]]}]],
Boxed->False,ImageSize->600]


No comments:

Post a Comment