PEC=Function[{p},
Table[{PolyhedronData[p,
"Vertices"][[PolyhedronData[p,"Edges"][[i,1]]]],
PolyhedronData[p,
"Vertices"][[PolyhedronData[p,"Edges"][[i,2]]]]},
{i,Length[PolyhedronData[p,"Edges"]]}]];
Table[Graphics3D[{Tube[PEC[p],.05],
FaceForm[Opacity[.75],White],
Transpose[{ColorData["Crayola",
"ColorList"][[11;;10+Length[#]]],#}]},
Boxed->False]&@PolyhedronData[p,"Polygons"],
{p,{"HexakisIcosahedron","DeltoidalHexecontahedron"}}]
No comments:
Post a Comment