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
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