#1035 added setcps and other controls to OSC Listener

tidalcycles · Jan 11, 2025 · 00f2b76 · 00f2b76
1 parent d9802aa
commit 00f2b76
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/Sound/Tidal/Stream/Listen.hs b/src/Sound/Tidal/Stream/Listen.hs
@@ -101,6 +101,18 @@ ctrlResponder waits c (stream@(Stream {sListen = Just sock}))
           = streamHush stream
         act (O.Message "/silence" (k:[]))
           = withID k $ streamSilence stream
+        -- Cycle properties commands
+        act (O.Message "/setcps" [O.Float k])
+          = streamSetCPS stream $ toTime k
+        act (O.Message "/setbpm" [O.Float k])
+          = streamSetBPM stream $ toTime k
+        act (O.Message "/setCycle" [O.Float k])
+          = streamSetCycle stream $ toTime k
+        act (O.Message "/resetCycles" _)
+          = streamResetCycles stream
+        -- Nudge all command
+        act (O.Message "/nudgeAll" [O.Double k])
+          = streamNudgeAll stream k
         act m = hPutStrLn stderr $ "Unhandled OSC: " ++ show m
         add :: String -> Value -> IO ()
         add k v = do sMap <- takeMVar (sStateMV stream)