Spherical Polyhedron

Author

Eric W. Weisstein
February 23, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Polyhedra/SphericalPolyhedron.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/SphericalPolyhedron.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Platonic Solids

platonics=Platonic/@Range[5]

Show[GraphicsArray[Graphics3D[{Thickness[.03],SphericalPolyhedron[#]//N},Boxed->False,SphericalRegion->True]&/@platonics],
GraphicsSpacing->-.15
]

Show[GraphicsArray[Graphics3D[{Thickness[.03],SphericalPolyhedron[#,10,.6]//N},Boxed->False,SphericalRegion->True]&/@platonics],
GraphicsSpacing->-.15
]

Cube

Show[Graphics3D[SphericalPolyhedron[Cube]],Boxed->False]

<<Graphics`Shapes`

Show[Graphics3D[{Wireframe[Sphere[]],
Thickness[.02],Red,SphericalPolyhedron[Cube]
}
],Boxed->False]

Show[Graphics3D[SphericalPolyhedron[Cube,10,.9]],Boxed->False]

Icosahedron

Show[Graphics3D[SphericalPolyhedron[Icosahedron,20]//N],Boxed->False]

WriteLiveForm["test.m",Show[Graphics3D[{{GrayLevel[.8],Wireframe[Sphere[.95]]},
Thickness[.01],Red,SphericalPolyhedron[Icosahedron,20]//N}],Boxed->False]]

.