diff --git a/README.md b/README.md index 638cc39..a4a52fb 100644 --- a/README.md +++ b/README.md @@ -18,12 +18,6 @@ To send patterns to [SuperDirt](https://github.com/musikinformatik/SuperDirt), u d1 $ sound "bd cp" ```` -To send patterns to [classic dirt](https://github.com/tidalcycles/dirt), use `c1` .. `c9`, e.g.: - -```` -c1 $ sound "bd cp" -```` - # Configurable Boot Options By default, Atom will use a default Tidal bootup sequence that doesn't really do @@ -48,24 +42,56 @@ If you create your own boot file, you may start with the default: ``` :set -XOverloadedStrings :set prompt "" -:module Sound.Tidal.Context - -(cps, nudger, getNow) <- cpsUtils' - -(d1,t1) <- superDirtSetters getNow -(d2,t2) <- superDirtSetters getNow -(d3,t3) <- superDirtSetters getNow -(d4,t4) <- superDirtSetters getNow -(d5,t5) <- superDirtSetters getNow -(d6,t6) <- superDirtSetters getNow -(d7,t7) <- superDirtSetters getNow -(d8,t8) <- superDirtSetters getNow -(d9,t9) <- superDirtSetters getNow - - -let bps x = cps (x/2) -let hush = mapM_ ($ silence) [d1,d2,d3,d4,d5,d6,d7,d8,d9] -let solo = (>>) hush +:set prompt-cont "" + +import Sound.Tidal.Context + +-- total latency = oLatency + cFrameTimespan +tidal <- startTidal (superdirtTarget {oLatency = 0.1, oAddress = "127.0.0.1", oPort = 57120}) (defaultConfig {cFrameTimespan = 1/20}) + +let p = streamReplace tidal +let hush = streamHush tidal +let list = streamList tidal +let mute = streamMute tidal +let unmute = streamUnmute tidal +let solo = streamSolo tidal +let unsolo = streamUnsolo tidal +let once = streamOnce tidal False +let asap = streamOnce tidal True +let nudgeAll = streamNudgeAll tidal +let setcps = asap . cps +let xfade = transition tidal (Sound.Tidal.Transition.xfadeIn 4) +let xfadeIn t = transition tidal (Sound.Tidal.Transition.xfadeIn t) +let histpan t = transition tidal (Sound.Tidal.Transition.histpan t) +let wait t = transition tidal (Sound.Tidal.Transition.wait t) +let waitT f t = transition tidal (Sound.Tidal.Transition.waitT f t) +let jump = transition tidal (Sound.Tidal.Transition.jump) +let jumpIn t = transition tidal (Sound.Tidal.Transition.jumpIn t) +let jumpIn' t = transition tidal (Sound.Tidal.Transition.jumpIn' t) +let jumpMod t = transition tidal (Sound.Tidal.Transition.jumpMod t) +let mortal lifespan release = transition tidal (Sound.Tidal.Transition.mortal lifespan release) +let interpolate = transition tidal (Sound.Tidal.Transition.interpolate) +let interpolateIn t = transition tidal (Sound.Tidal.Transition.interpolateIn t) +let clutch = transition tidal (Sound.Tidal.Transition.clutch) +let clutchIn t = transition tidal (Sound.Tidal.Transition.clutchIn t) +let anticipate = transition tidal (Sound.Tidal.Transition.anticipate) +let anticipateIn t = transition tidal (Sound.Tidal.Transition.anticipateIn t) +let d1 = p "1" +let d2 = p "2" +let d3 = p "3" +let d4 = p "4" +let d5 = p "5" +let d6 = p "6" +let d7 = p "7" +let d8 = p "8" +let d9 = p "9" +let d10 = p "10" +let d11 = p "11" +let d12 = p "12" +let d13 = p "13" +let d14 = p "14" +let d15 = p "15" +let d16 = p "16" :set prompt "tidal> " ```