Thursday, December 26, 2019

PolyhedronData Examples


AP1=AugmentedPolyhedron[PolyhedronData["SnubDodecahedron",
"Polyhedron"],4];
AP2=AugmentedPolyhedron[PolyhedronData["PentagonalHexecontahedron",
"Polyhedron"],3];
Show[ListPlot3D[AP2[[1]],PlotStyle->Opacity[.3],
ColorFunction->"DeepSeaColors",Mesh->All,MeshStyle->Gray],
Graphics3D[{Blue,FaceForm[Opacity[.7],White],EdgeForm[Gray],AP2}],
   Boxed->False,Axes->False,AspectRatio->1,ImageSize->600]



No comments:

Post a Comment