Merge pull request #1082 from geikha/dev

add muting with `_` for p and d1-16

src/Sound/Tidal/Boot.hs

@@ -9,6 +9,8 @@ module Sound.Tidal.Boot
   , mkTidalWith
   , only
   , p
+  , _p
+  , p_
   , hush
   , panic
   , list
@@ -44,6 +46,38 @@ module Sound.Tidal.Boot
   , d14
   , d15
   , d16
+  , _d1
+  , _d2
+  , _d3
+  , _d4
+  , _d5
+  , _d6
+  , _d7
+  , _d8
+  , _d9
+  , _d10
+  , _d11
+  , _d12
+  , _d13
+  , _d14
+  , _d15
+  , _d16
+  , d1_
+  , d2_
+  , d3_
+  , d4_
+  , d5_
+  , d6_
+  , d7_
+  , d8_
+  , d9_
+  , d10_
+  , d11_
+  , d12_
+  , d13_
+  , d14_
+  , d15_
+  , d16_
   , getState
   , setI
   , setF
@@ -107,6 +141,14 @@ only = (hush >>)
 p :: Tidally => ID -> ControlPattern -> IO ()
 p = streamReplace tidal
 
+-- | Silences a specific stream, regardless of ControlPattern input. Useful for rapid muting of streams
+_p :: Tidally => ID -> ControlPattern -> IO ()
+_p k _ = streamReplace tidal k silence
+
+-- | Silences a specific stream, regardless of ControlPattern input. Useful for rapid muting of streams
+p_ :: Tidally => ID -> ControlPattern -> IO ()
+p_ = _p
+
 -- | See 'Sound.Tidal.Stream.streamHush'.
 hush :: Tidally => IO ()
 hush = streamHush tidal
@@ -201,6 +243,44 @@ d14 = p 14
 d15 = p 15
 d16 = p 16
 
+-- | Rapidly silence what's playing on the given orbit
+_d1, _d2, _d3, _d4, _d5, _d6, _d7, _d8, _d9, _d10, _d11, _d12, _d13, _d14, _d15, _d16 :: Tidally => ControlPattern -> IO ()
+_d1 = _p 1
+_d2 = _p 2
+_d3 = _p 3
+_d4 = _p 4
+_d5 = _p 5
+_d6 = _p 6
+_d7 = _p 7
+_d8 = _p 8
+_d9 = _p 9
+_d10 = _p 10
+_d11 = _p 11
+_d12 = _p 12
+_d13 = _p 13
+_d14 = _p 14
+_d15 = _p 15
+_d16 = _p 16
+
+-- | Rapidly silence what's playing on the given orbit
+d1_, d2_, d3_, d4_, d5_, d6_, d7_, d8_, d9_, d10_, d11_, d12_, d13_, d14_, d15_, d16_ :: Tidally => ControlPattern -> IO ()
+d1_ = _d1
+d2_ = _d2
+d3_ = _d3
+d4_ = _d4
+d5_ = _d5
+d6_ = _d6
+d7_ = _d7
+d8_ = _d8
+d9_ = _d9
+d10_ = _d10
+d11_ = _d11
+d12_ = _d12
+d13_ = _d13
+d14_ = _d14
+d15_ = _d15
+d16_ = _d16
+
 -- | See 'Sound.Tidal.Stream.streamGet'.
 getState :: Tidally => String -> IO (Maybe Value)
 getState = streamGet tidal