Replace the 'find_containing_tetrahedra' function with a more-efficient 'find_contain...

[spline3.git] / src / Grid.hs

diff --git a/src/Grid.hs b/src/Grid.hs
index 6a9a8e5edd9ee62907a1486e29c25b334bedc041..ab698c1ba537a96a7971fbd8b2505548bfde9c30 100644 (file)
--- a/src/Grid.hs
+++ b/src/Grid.hs
@@ -7,7 +7,7 @@ where
 import qualified Data.Array.Repa as R
 import Test.QuickCheck (Arbitrary(..), Gen, Positive(..))
 
-import Cube (Cube(Cube), find_containing_tetrahedra)
+import Cube (Cube(Cube), find_containing_tetrahedron)
 import FunctionValues
 import Point (Point)
 import ScaleFactor
@@ -129,7 +129,7 @@ zoom_result g (sfx, sfy, sfz) (R.Z R.:. i R.:. j R.:. k) =
     k' = (fromIntegral k) / (fromIntegral sfz)
     p  = (i', j', k') :: Point
     c = find_containing_cube g p
-    t = head (find_containing_tetrahedra c p)
+    t = find_containing_tetrahedron c p
     f = polynomial t