Thursday, December 26, 2019

Colorized Polygons


With [{p="GyroelongatedPentagonalBirotunda"},
Graphics3D[{Tube[PolyhedronData[p,"Edges",
"Coordinates"],.03],FaceForm[Opacity[.7],White],
Transpose[{ColorData["Crayola",
"ColorList"][[11;;10+Length[#]]],#}]},
ImageSize->600,Boxed->False]&@PolyhedronData[p,
"Polygons"]]


No comments:

Post a Comment