fix steptaper

tidalcycles · Apr 11, 2024 · 31ac616 · 31ac616
1 parent b5ac6f7
commit 31ac616
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Sound/Tidal/Core.hs b/src/Sound/Tidal/Core.hs
@@ -375,7 +375,7 @@ fastcat = fastCat
 -}
 timeCat :: [(Time, Pattern a)] -> Pattern a
 timeCat ((_,p):[]) = p
-timeCat tps = setTactus total $ stack $ map (\(s,e,p) -> compressArc (Arc (s/total) (e/total)) p) $ arrange 0 tps
+timeCat tps = setTactus total $ stack $ map (\(s,e,p) -> compressArc (Arc (s/total) (e/total)) p) $ arrange 0 $ filter (\(t, _) -> t > 0) $ tps
     where total = sum $ map fst tps
           arrange :: Time -> [(Time, Pattern a)] -> [(Time, Time, Pattern a)]
           arrange _ []            = []