Schönhardt Polyhedron

Define vertices and edges:

verts={{1,0,0},{-(1/2),((Sqrt[3])/2),0},{-(1/2),-((Sqrt[3])/2),0},{((Sqrt[3])/2),(1/2),1},{-((Sqrt[3])/2),(1/2),1},{0,-1,1}}
faces={{1,2,3},{4,5,6},{1,2,5},{1,4,5},{2,3,6},{2,5,6},{3,1,4},{3,6,4}}

Define a function to build the polyhedron:

VerticesToSolid[v_List,f_List]:=Polygon[v[[#]]]&/@f

Now render the polyhedron:

Show[Graphics3D[{Opacity[0.8],VerticesToSolid[verts,faces]}],Boxed->False,ViewPoint->{10,0,.5}]

Here is the view from above:

Show[Graphics3D[{Opacity[0.8],VerticesToSolid[verts,faces]}],Boxed->False,ViewPoint->{0,0,10}]

Another Polyhedron

Find two different tetrahedralizations of the following polyhedron.

verts2={{1,0,0},{-(1/2),((Sqrt[3])/2),0},{-(1/2),-((Sqrt[3])/2),0},{0,0,1},{0,0,-1}};
faces2={{1,2,4},{1,3,4},{2,3,4},{1,2,5},{1,3,5},{2,3,5}};
Show[Graphics3D[{Opacity[0.8],VerticesToSolid[verts2,faces2]}],Boxed->False,ViewPoint->{10,0,.5}]

(* upper tetrahedron *)
verts3a=Drop[verts2,-1];
faces3={{1,2,4},{1,3,4},{2,3,4},{1,2,3}};
(* lower tetrahedron *)
verts3b=({0,0,-0.3}+#&) /@ Drop[verts2,{4}];
(* draw the picture *)
Show[Graphics3D[{Opacity[0.8],VerticesToSolid[verts3a,faces3],VerticesToSolid[verts3b,faces3]}],Boxed->False,ViewPoint->{10,0,.5}]

(* left tetrahedron *)
verts3c=Drop[verts2,{2}];
(* right tetrahedron *)
verts3d=({0,0.3,0}+#&) /@ Drop[verts2,{3}];
(* back tetrahedron *)
verts3e=({-0.26,0.15,0}+#&) /@ Drop[verts2,1];
(* draw the picture *)
Show[Graphics3D[{Opacity[0.8],VerticesToSolid[verts3c,faces3],VerticesToSolid[verts3d,faces3],VerticesToSolid[verts3e,faces3]}],Boxed->False,ViewPoint->{10,0,.5}]