From: Michael Orlitzky Date: Wed, 26 Oct 2011 03:55:20 +0000 (-0400) Subject: Inline find_containing_tetrahedron. X-Git-Tag: 0.0.1~78 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=71c69c67074e6eb6ce7520739bc729691525b20b;p=spline3.git Inline find_containing_tetrahedron. --- diff --git a/src/Cube.hs b/src/Cube.hs index 3c82f67..11762a5 100644 --- a/src/Cube.hs +++ b/src/Cube.hs @@ -620,6 +620,7 @@ in_left_half cube (Point _ y _) = -- This can throw an exception, but the use of 'head' might -- save us some unnecessary computations. -- +{-# INLINE find_containing_tetrahedron #-} find_containing_tetrahedron :: Cube -> Point -> Tetrahedron find_containing_tetrahedron cube p = candidates `V.unsafeIndex` (fromJust lucky_idx)