pm alias for polymeter

tidalcycles · Mar 2, 2025 · 5c3f2b3 · 5c3f2b3
1 parent 32a814d
commit 5c3f2b3
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/tidal-core/src/Sound/Tidal/Stepwise.hs b/tidal-core/src/Sound/Tidal/Stepwise.hs
@@ -132,6 +132,9 @@ polymeter pats = stack $ map (pace targetSteps) pats'
     targetSteps = _lcmsteps pats'
     pats' = filter hasSteps pats
 
+pm :: [Pattern a] -> Pattern a
+pm = polymeter
+
 {-
 s_while :: Pattern Bool -> (Pattern a -> Pattern a) -> Pattern a -> Pattern a
 s_while patb f pat@(Pattern _ (Just t) _) = while (_steps t patb) f pat