stepcat

tidalcycles · Apr 9, 2024 · 037fbb0 · 037fbb0
1 parent 5c28e1a
commit 037fbb0
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Sound/Tidal/Core.hs b/src/Sound/Tidal/Core.hs
@@ -423,6 +423,11 @@ pattern to multiple patterns at once:
 stack :: [Pattern a] -> Pattern a
 stack = foldr overlay silence
 
+-- ** stepwise things
+
+stepcat :: [Pattern a] -> Pattern a
+stepcat pats = timecat $ map (\pat -> (fromMaybe 1 $ tactus pat, pat)) pats
+
 -- ** Manipulating time
 
 -- | Shifts a pattern back in time by the given amount, expressed in cycles