Merge pull request #1083 from mindofmatthew/set-bpm

Add `getbpm` and `setbpm` to boot functions
tidalcycles · Jul 30, 2024 · dc74821 · dc74821
2 parents c69162e + d83c2cc
commit dc74821
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 4 deletions.
diff --git a/src/Sound/Tidal/Boot.hs b/src/Sound/Tidal/Boot.hs
@@ -29,6 +29,8 @@ module Sound.Tidal.Boot
   , setCycle
   , setcps
   , getcps
+  , setbpm
+  , getbpm
   , getnow
   , d1
   , d2
@@ -216,10 +218,18 @@ setCycle = streamSetCycle tidal
 setcps :: Tidally => Pattern Double -> IO ()
 setcps = once . cps
 
--- | See 'Sound.Tidal.Stream.streamGetcps'.
+-- | See 'Sound.Tidal.Stream.streamGetCPS'.
 getcps :: Tidally => IO Time
 getcps = streamGetCPS tidal
 
+-- | See 'Sound.Tidal.Stream.streamGetBPM'.
+setbpm :: Tidally => Time -> IO ()
+setbpm = streamSetBPM tidal
+
+-- | See 'Sound.Tidal.Stream.streamGetBPM'.
+getbpm :: Tidally => IO Time
+getbpm = streamGetBPM tidal
+
 -- | See 'Sound.Tidal.Stream.streamGetnow'.
 getnow :: Tidally => IO Time
 getnow = streamGetNow tidal

diff --git a/src/Sound/Tidal/Stream/UI.hs b/src/Sound/Tidal/Stream/UI.hs
@@ -28,12 +28,12 @@ streamResetCycles s = streamSetCycle s 0
 streamSetCycle :: Stream -> Time -> IO ()
 streamSetCycle s = Clock.setClock (sClockRef s)
 
-streamSetBPM :: Stream -> Time -> IO ()
-streamSetBPM s = Clock.setBPM (sClockRef s)
-
 streamSetCPS :: Stream -> Time -> IO ()
 streamSetCPS s = Clock.setCPS (cClockConfig $ sConfig s) (sClockRef s)
 
+streamSetBPM :: Stream -> Time -> IO ()
+streamSetBPM s = Clock.setBPM (sClockRef s)
+
 streamGetCPS :: Stream -> IO Time
 streamGetCPS s = Clock.getCPS (cClockConfig $ sConfig s)(sClockRef s)