-- some polyhedrons created along the way...
tetrahedron :: RealFloat a => Model a
tetrahedron = modelAutoNormals tetrahedronPoints tetrahedronFaces
tetrahedron :: RealFloat a => Model a
tetrahedron = modelAutoNormals tetrahedronPoints tetrahedronFaces
tetrahedron = modelAutoNormals tetrahedronPoints tetrahedronFaces