tetrahedron21 c,
tetrahedron22 c,
tetrahedron23 c]
+
+
+-- | Takes a 'Cube', and returns all Tetrahedra belonging to it that
+-- contain the given 'Point'.
+find_containing_tetrahedra :: Cube -> Point -> [Tetrahedron]
+find_containing_tetrahedra c p =
+ filter contains_our_point all_tetrahedra
+ where
+ contains_our_point = flip contains_point p
+ all_tetrahedra = tetrahedrons c