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
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment