From 3e9a84d40431b0c55a674e3bcf5c156333d4e876 Mon Sep 17 00:00:00 2001 From: Ian Clester Date: Tue, 17 Oct 2023 22:06:06 -0400 Subject: [PATCH 1/3] Update BootTidal.hs --- docs/configuration/boottidal.md | 19 +++++++++++++++---- 1 file changed, 15 insertions(+), 4 deletions(-) diff --git a/docs/configuration/boottidal.md b/docs/configuration/boottidal.md index 78b7b408d..6d6461a0f 100644 --- a/docs/configuration/boottidal.md +++ b/docs/configuration/boottidal.md @@ -13,18 +13,23 @@ As an example, here is the *vanilla* `BootTidal.hs` file used by the [Pulsar Pac :set prompt "" import Sound.Tidal.Context + import System.IO (hSetEncoding, stdout, utf8) hSetEncoding stdout utf8 --- total latency = oLatency + cFrameTimespan -tidal <- startTidal (superdirtTarget {oLatency = 0.1, oAddress = "127.0.0.1", oPort = 57120}) (defaultConfig {cFrameTimespan = 1/20}) +tidal <- startTidal (superdirtTarget {oLatency = 0.05, oAddress = "127.0.0.1", oPort = 57120}) (defaultConfig {cVerbose = True, cFrameTimespan = 1/20}) :{ -let p = streamReplace tidal +let only = (hush >>) + p = streamReplace tidal hush = streamHush tidal + panic = do hush + once $ sound "superpanic" list = streamList tidal mute = streamMute tidal unmute = streamUnmute tidal + unmuteAll = streamUnmuteAll tidal + unsoloAll = streamUnsoloAll tidal solo = streamSolo tidal unsolo = streamUnsolo tidal once = streamOnce tidal @@ -33,7 +38,10 @@ let p = streamReplace tidal nudgeAll = streamNudgeAll tidal all = streamAll tidal resetCycles = streamResetCycles tidal + setCycle = streamSetCycle tidal setcps = asap . cps + getcps = streamGetcps tidal + getnow = streamGetnow tidal xfade i = transition tidal True (Sound.Tidal.Transition.xfadeIn 4) i xfadeIn i t = transition tidal True (Sound.Tidal.Transition.xfadeIn t) i histpan i t = transition tidal True (Sound.Tidal.Transition.histpan t) i @@ -43,6 +51,7 @@ let p = streamReplace tidal jumpIn i t = transition tidal True (Sound.Tidal.Transition.jumpIn t) i jumpIn' i t = transition tidal True (Sound.Tidal.Transition.jumpIn' t) i jumpMod i t = transition tidal True (Sound.Tidal.Transition.jumpMod t) i + jumpMod' i t p = transition tidal True (Sound.Tidal.Transition.jumpMod' t p) i mortal i lifespan release = transition tidal True (Sound.Tidal.Transition.mortal lifespan release) i interpolate i = transition tidal True (Sound.Tidal.Transition.interpolate) i interpolateIn i t = transition tidal True (Sound.Tidal.Transition.interpolateIn t) i @@ -70,7 +79,8 @@ let p = streamReplace tidal :} :{ -let setI = streamSetI tidal +let getState = streamGet tidal + setI = streamSetI tidal setF = streamSetF tidal setS = streamSetS tidal setR = streamSetR tidal @@ -80,6 +90,7 @@ let setI = streamSetI tidal :set prompt "tidal> " :set prompt-cont "" +default (Pattern String, Integer, Double) ``` ## Controlling Latency From 7102892136858056a1a4e2728a6c9286b95d90a3 Mon Sep 17 00:00:00 2001 From: Ian Clester Date: Tue, 17 Oct 2023 22:06:25 -0400 Subject: [PATCH 2/3] Use Haskell syntax highlighting --- docs/configuration/boottidal.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/docs/configuration/boottidal.md b/docs/configuration/boottidal.md index 6d6461a0f..52c458d09 100644 --- a/docs/configuration/boottidal.md +++ b/docs/configuration/boottidal.md @@ -8,7 +8,7 @@ Everytime you start Tidal, the software is reading from a configuration file usu Some users went really far into customizing their setup: [Jarmlib](https://github.com/jarmitage/jarmlib). You can take a look at their work to see how to extend your configuration file. As an example, here is the *vanilla* `BootTidal.hs` file used by the [Pulsar Package for Tidal](https://raw.githubusercontent.com/tidalcycles/pulsar-tidalcycles/master/lib/BootTidal.hs): -```c +```haskell :set -XOverloadedStrings :set prompt "" From 9f9c560b3b1949053c006ff63ca9e31969aaad04 Mon Sep 17 00:00:00 2001 From: Bernard Gray Date: Tue, 31 Oct 2023 13:23:28 +1100 Subject: [PATCH 3/3] link to tidal upstream boottidal.hs, update contents --- docs/configuration/boottidal.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/docs/configuration/boottidal.md b/docs/configuration/boottidal.md index 52c458d09..f1c0782b8 100644 --- a/docs/configuration/boottidal.md +++ b/docs/configuration/boottidal.md @@ -7,7 +7,7 @@ Everytime you start Tidal, the software is reading from a configuration file usu Some users went really far into customizing their setup: [Jarmlib](https://github.com/jarmitage/jarmlib). You can take a look at their work to see how to extend your configuration file. -As an example, here is the *vanilla* `BootTidal.hs` file used by the [Pulsar Package for Tidal](https://raw.githubusercontent.com/tidalcycles/pulsar-tidalcycles/master/lib/BootTidal.hs): +As an example, here is the *vanilla* `BootTidal.hs` file used by the [upstream Tidal Package](https://github.com/tidalcycles/Tidal/blob/1.9-dev/BootTidal.hs): ```haskell :set -XOverloadedStrings :set prompt ""