-- polyhedron geometry functions


-- tetrahedron


tetrahedronPoints :: RealFloat a => [Point3f a]
tetrahedronPoints = [ Point3f 1 1 1
                    , Point3f (-1) 1 (-1)
                    , Point3f 1 (-1) (-1)
                    , Point3f (-1) (-1) 1
                    ]
tetrahedronPoints :: RealFloat a => [Point3f a]
tetrahedronPoints = [ Point3f 1 1 1
                    , Point3f (-1) 1 (-1)
                    , Point3f 1 (-1) (-1)
                    , Point3f (-1) (-1) 1
                    ]
tetrahedronPoints = [ Point3f 1 1 1
                    , Point3f (-1) 1 (-1)
                    , Point3f 1 (-1) (-1)
                    , Point3f (-1) (-1) 1
                    ]