X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCube.hs;h=2878eb06b76ffb54c0685de2543457faf3d8db29;hb=f6d0c289ad3397cf392976c24f3afdb17da5d377;hp=6941425a82be541635168da6d5af85feb1a070b7;hpb=19480b63a1835c71b6fd8ecd23c6f0eb915043ae;p=spline3.git

diff --git a/src/Cube.hs b/src/Cube.hs
index 6941425..2878eb0 100644
--- a/src/Cube.hs
+++ b/src/Cube.hs
@@ -462,8 +462,8 @@ tetrahedron23 c =
                        $ Tetrahedron.fv (tetrahedron0 c)
 
 
-tetrahedrons :: Cube -> [Tetrahedron]
-tetrahedrons c =
+tetrahedra :: Cube -> [Tetrahedron]
+tetrahedra c =
     [tetrahedron0 c,
      tetrahedron1 c,
      tetrahedron2 c,
@@ -497,4 +497,4 @@ find_containing_tetrahedra c p =
     filter contains_our_point all_tetrahedra
     where
       contains_our_point = flip contains_point p
-      all_tetrahedra = tetrahedrons c
+      all_tetrahedra = tetrahedra c