Mathematical Principles for Scientific Computing and Visualization  
http://www.farinhansford.com/books/scv
by Gerald Farin and Dianne Hansford

This notebook demonstrates polyhedra.

Figure 13.13 was created with this notebook.

See Chapter 13: Facets for details.

Updated May 2008

(* Define three polyhedra *)

tet = PolyhedronData["Tetrahedron"];
dod = PolyhedronData["Dodecahedron"];
icosa = PolyhedronData["Icosahedron"];


(* Graphics3D[{Yellow,Opacity[.8],tet}]  *)
tpic = Graphics3D[{Opacity[.5],Glow[Yellow],EdgeForm[Gray],PolyhedronData["Tetrahedron", "Faces"]},Lighting->None];

dpic = Graphics3D[{Opacity[.5],Glow[Yellow],EdgeForm[Gray],PolyhedronData["Dodecahedron", "Faces"]},Lighting->None];

ipic = Graphics3D[{Opacity[.5],Glow[Yellow],EdgeForm[Gray], PolyhedronData["Icosahedron", "Faces"]},Lighting->None];


GraphicsGrid[{tpic, dpic, ipic}]

(* pic=Show[tet,dod,icoso,Boxed->False,ViewPoint->{-2.67`,-3.385`,3.02`}] *)



(* Export["polyhedra.eps",pic]
*)