diff --git a/reanimate.cabal b/reanimate.cabal
--- a/reanimate.cabal
+++ b/reanimate.cabal
@@ -3,7 +3,7 @@
 --  see http://haskell.org/cabal/users-guide/
 
 name:                reanimate
-version:             0.3.2.2
+version:             0.3.2.3
 -- synopsis:
 -- description:
 license:             PublicDomain
@@ -38,7 +38,7 @@
 
 Flag hmatrix
   Description: Enable hmatrix dependency (requires blas and lapack)
-  Default:     False
+  Default:     True
   Manual:      True
 
 Flag test
diff --git a/src/Reanimate/Math/EarClip.hs b/src/Reanimate/Math/EarClip.hs
--- a/src/Reanimate/Math/EarClip.hs
+++ b/src/Reanimate/Math/EarClip.hs
@@ -28,7 +28,6 @@
     -- worker :: Set.Set Int -> PolyQueue Int -> [(P,P)]
     worker _ears queue | isSimpleQ queue = []
     worker ears queue
-      -- | trace (show (x, Set.member x ears)) False = undefined
       | x `Set.member` ears =
         let dq = dropQ queue
             v0 = prevQ 1 queue
diff --git a/src/Reanimate/Math/Polygon.hs b/src/Reanimate/Math/Polygon.hs
--- a/src/Reanimate/Math/Polygon.hs
+++ b/src/Reanimate/Math/Polygon.hs
@@ -506,9 +506,6 @@
 pCycle p t = mkPolygon $ worker 0 0
   where
     worker acc i
-      -- | segment + acc == limit =
-      --   V.drop i p <>
-      --   V.take i p
       | segment + acc > limit =
         V.singleton (lerp (realToFrac $ (segment + acc - limit)/segment) x y) <>
         -- V.drop (i+1) (polygonPoints p) <>
diff --git a/src/Reanimate/Math/Visibility.hs b/src/Reanimate/Math/Visibility.hs
--- a/src/Reanimate/Math/Visibility.hs
+++ b/src/Reanimate/Math/Visibility.hs
@@ -23,7 +23,6 @@
 go :: (Ord a, Fractional a) => V2 a -> [V2 a] -> [V2 a] -> [V2 a]
 go _z stack [] = stack
 go z stack@(s:s':_ss) (v:vs)
-  -- | isLeftTurn z s v && isRightTurn s' s v = trace ("FF: " ++ show (z,s,s',v)) $ fastForward z stack s (v:vs)
   | isLeftTurn z s v  = {-trace ("Left: " ++ show (z,s,v)) $ -}go z (v:stack) vs
   | isLeftTurn s' s v = {-trace ("Right: " ++ show (s',s,v,vs)) $ -}rightTurn z stack v vs
   | otherwise         = {-trace ("FF: " ++ show (z,s,s',v)) $ -}fastForward z stack s (v:vs)