From f0f481c02b007a086bd09b05dacb6d603dff6c12 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Thu, 27 Oct 2011 09:32:40 -0400 Subject: [PATCH] Inline the polynomial function. --- src/Tetrahedron.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Tetrahedron.hs b/src/Tetrahedron.hs index a9e6c2c..0ea0ffb 100644 --- a/src/Tetrahedron.hs +++ b/src/Tetrahedron.hs @@ -96,7 +96,7 @@ instance ThreeDimensional Tetrahedron where b3_unscaled = volume inner_tetrahedron where inner_tetrahedron = t { v3 = p0 } - +{-# INLINE polynomial #-} polynomial :: Tetrahedron -> (RealFunction Point) polynomial t = V.sum $ V.singleton ((c t 0 0 0 3) `cmult` (beta t 0 0 0 3)) `V.snoc` -- 2.43.2