Visualization Notes
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
‹
›
Home
View web version
No comments:
Post a Comment