tidal 1.2.0 → 1.2.1

raw patch · 5 files changed

+29/−19 lines, 5 files

Files

• BootTidal.hs +25/−15
• src/Sound/Tidal/Pattern.hs +1/−1
• src/Sound/Tidal/Version.hs +1/−1
• tidal.cabal +1/−1
• tidal.el +1/−1

@@ -5,11 +5,12 @@ 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})+tidal <- startTidal (superdirtTarget {oLatency = 0.15, oAddress = "127.0.0.1", oPort = 57120}) (defaultConfig {cFrameTimespan = 1/20}) -- , cSendParts = False})+--tidal <- startTidal (dirtTarget {oLatency = 0.1}) (defaultConfig {cFrameTimespan = 1/20, cSendParts = True})  :{ let p = streamReplace tidal-    hush = streamHush tidal+    --hush = streamHush tidal     list = streamList tidal     mute = streamMute tidal     unmute = streamUnmute tidal@@ -38,30 +39,39 @@     anticipate i = transition tidal True (Sound.Tidal.Transition.anticipate) i     anticipateIn i t = transition tidal True (Sound.Tidal.Transition.anticipateIn t) i     forId i t = transition tidal False (Sound.Tidal.Transition.mortalOverlay t) i-    d1 = p 1 . (|< orbit 0) -    d2 = p 2 . (|< orbit 1) -    d3 = p 3 . (|< orbit 2) -    d4 = p 4 . (|< orbit 3) -    d5 = p 5 . (|< orbit 4) -    d6 = p 6 . (|< orbit 5) -    d7 = p 7 . (|< orbit 6) -    d8 = p 8 . (|< orbit 7) +    munge i = selectF (cF 0 (show $ 50 + i)) [id, (# (delayfb (cF 0 (show $ 30 + i)) # delayt (select (cF 0 (show $ 70+i)) [1/3, 1/6]) # lock 1 # delay (cF 0 (show $ 20 + i))))] . selectF (cF 0 (show $ 90 + i)) [id, (# (room (cF 0 (show $ 40 + i)) # sz 0.8))] . selectF (cF 0 (show $ 80 + i)) [id, (# djf (cF 0.5 (show $ 40 + i)))]+    d1 = p 1 . munge 1 . (|< orbit 0) +    d2 = p 2 . munge 2 . (|< orbit 1) +    d3 = p 3 . munge 3 . (|< orbit 2) +    d4 = p 4 . munge 4 . (|< orbit 3) +    d5 = p 5 . munge 5 . (|< orbit 4) +    d6 = p 6 . munge 6 . (|< orbit 5) +    d7 = p 7 . munge 7 . (|< orbit 6) +    d8 = p 8 . munge 8 . (|< orbit 7)      d9 = p 9 . (|< orbit 8)     d10 = p 10 . (|< orbit 9)     d11 = p 11 . (|< orbit 10)-    d12 = p 12 . (|< orbit 11)+    d12 = p 12     d13 = p 13     d14 = p 14     d15 = p 15     d16 = p 16-:}--:{-let setI = streamSetI tidal+    jux' fs p = stack $ map (\n -> (fs !! n) p |+ pan (pure $ fromIntegral n / fromIntegral ((length fs)-1))) [0 .. (length fs)-1]+    hush = mapM_ ($ silence) [d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16]+    only = (hush >>)+    gtfo = (const silence)+    pd = phaserdepth+    pr = phaserrate+    setI = streamSetI tidal     setF = streamSetF tidal     setS = streamSetS tidal     setR = streamSetI tidal     setB = streamSetB tidal+    metre = cB True "metre"+    setMetre = setB "metre"+    vowelF = pF "vowel" :}+let within' = curry within+let within = within'  :set prompt "tidal> "

@@ -318,7 +318,7 @@                      part' <- subArc fPart xPart                      return (Event whole' part' (f x))                 )-                (query px $ st {arc = fWhole})+                (query px $ st {arc = fPart})  instance Applicative Pattern where   -- | Repeat the given value once per cycle, forever

@@ -1,4 +1,4 @@ module Sound.Tidal.Version where  tidal_version :: String-tidal_version = "1.2.0"+tidal_version = "1.2.1"

@@ -1,5 +1,5 @@ name:                tidal-version:             1.2.0+version:             1.2.1 synopsis:            Pattern language for improvised music -- description: homepage:            http://tidalcycles.org/

@@ -95,7 +95,7 @@      nil      tidal-interpreter-arguments)     (tidal-see-output))-  (tidal-send-string (concat ":script " tidal-boot-script-path))+  (tidal-send-string (concat ":script /home/alex/src/tidal/BootTidal.hs")) )  (defun tidal-see-output ()