swap function

tidalcycles · Dec 19, 2018 · ac34671 · ac34671
1 parent 36759ee
commit ac34671
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Sound/Tidal/UI.hs b/src/Sound/Tidal/UI.hs
@@ -1654,3 +1654,7 @@ smooth p = Pattern Analog $ \st@(State a cm) -> tween st a $ query monoP (State
                | otherwise = fromRational $ (eventPartStart e - wholeStart e) / (delta' $ whole e)
             delta' a = stop a - start a
     monoP = mono p
+
+-- | Takes a list of tuples, in order to swap values in the given pattern
+swap :: Eq a => [(a, b)] -> Pattern a -> Pattern b
+swap things p = filterJust $ (\x -> lookup x things) <$> p