Skip to content
This repository was archived by the owner on Jun 13, 2025. It is now read-only.

Added OSC playback control for silencing individual patterns #863

Merged
yaxu merged 1 commit into from
Nov 6, 2021
Merged

Added OSC playback control for silencing individual patterns #863

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 5 additions & 1 deletion src/Sound/Tidal/Stream.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -558,7 +558,6 @@ streamReplace s k !pat
updatePS Nothing = PlayState pat' False False [pat']
pat' = pat # pS "_id_" (pure $ fromID k)


streamMute :: Stream -> ID -> IO ()
streamMute s k = withPatIds s [k] (\x -> x {mute = True})

Expand Down Expand Up @@ -594,6 +593,9 @@ streamUnmuteAll s = modifyMVar_ (sPMapMV s) $ return . fmap (\x -> x {mute = Fal
streamUnsoloAll :: Stream -> IO ()
streamUnsoloAll s = modifyMVar_ (sPMapMV s) $ return . fmap (\x -> x {solo = False})

streamSilence :: Stream -> ID -> IO ()
streamSilence s k = withPatIds s [k] (\x -> x {pattern = silence, history = silence:history x})

streamAll :: Stream -> (ControlPattern -> ControlPattern) -> IO ()
streamAll s f = do _ <- swapMVar (sGlobalFMV s) f
return ()
Expand Down Expand Up @@ -682,6 +684,8 @@ ctrlResponder waits c (stream@(Stream {sListen = Just sock}))
= streamUnsoloAll stream
act (O.Message "/hush" [])
= streamHush stream
act (O.Message "/silence" (k:[]))
= withID k $ streamSilence stream
act m = hPutStrLn stderr $ "Unhandled OSC: " ++ show m
add :: String -> Value -> IO ()
add k v = do sMap <- takeMVar (sStateMV stream)
Expand Down