From: Michael Orlitzky Date: Thu, 27 Oct 2011 13:32:40 +0000 (-0400) Subject: Inline the polynomial function. X-Git-Tag: 0.0.1~74 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=f0f481c02b007a086bd09b05dacb6d603dff6c12;p=spline3.git Inline the polynomial function. --- 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`