From 037fbb08df3d65ac74b85a27cd20a6534fc7c61d Mon Sep 17 00:00:00 2001
From: Alex McLean <alex@slab.org>
Date: Tue, 9 Apr 2024 15:22:42 +0100
Subject: [PATCH] stepcat

---
 src/Sound/Tidal/Core.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/Sound/Tidal/Core.hs b/src/Sound/Tidal/Core.hs
index 6ac6b242..9705bb7d 100644
--- 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