alt

ejconlon · Feb 17, 2024 · 28be946 · 28be946
1 parent c5a6ba9
commit 28be946
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/minipat-dirt/src/Minipat/Dirt/Prelude.hs b/minipat-dirt/src/Minipat/Dirt/Prelude.hs
@@ -23,6 +23,8 @@ module Minipat.Dirt.Prelude
   , slowList
   , fastAppend
   , slowAppend
+  , alt
+  , rand
   )
 where
 
@@ -186,6 +188,12 @@ fastAppend s1 s2 = estreamSeq [(s1, 1), (s2, 1)]
 slowAppend :: S a -> S a -> S a
 slowAppend s1 s2 = slowBy 2 (fastAppend s1 s2)
 
+alt :: Seq (S a) -> S a
+alt = estreamAlt
+
+rand :: Seq (S a) -> S a
+rand = estreamRand
+
 -- TODO
 -- seqPLoop :: Seq (CycleTime, CycleTime, S a) -> S a
 -- rev :: S a -> S a