reanimate 0.3.2.2 → 0.3.2.3

raw patch · 4 files changed

+2/−7 lines, 4 files

Files

reanimate.cabal +2/−2
src/Reanimate/Math/EarClip.hs +0/−1
src/Reanimate/Math/Polygon.hs +0/−3
src/Reanimate/Math/Visibility.hs +0/−1

reanimate.cabal view

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

src/Reanimate/Math/EarClip.hs view

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

src/Reanimate/Math/Polygon.hs view

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

src/Reanimate/Math/Visibility.hs view

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