mistakes.tidal

mistakes.tidal

-- Tidal: http://tidal.lurk.org/
-- Tidal-midi: https://github.com/tidalcycles/tidal-midi/
-- audio: https://soundcloud.com/xq0/mistakes-were-made

cps 1

let wf0 n = within(0, n)
    sw' d h f = sometimes(within (d, h) f)
    cho n pat chord = preplace(1,1) pat $ listToPat [ch + n | ch <- chord]

b $ stack[
stut 2 0 0.75 $ drum "bd ~",
stut 2 0 0.75 $ append' (drum "[cr sn] [~ bd]") (slowcat[drum "[~ bd] [sn, oh]",drum "[~ ~] [sn oh]"]),
slowcat[drum "cp [oh cp]",drum "cp [[ch oh] ag]",drum "cp [[ch oh] cl*2]",drum "cp [oh cl*2]"]
drum "{[~ ch] ch*2}%4"
] # dch "0.1" # stt "0" # std "0" # sag "0.75" # scl "0.75" # scr "1"

q $ every 2 (sw' 0.5 1 (# decay "0.5")) $ palindrome $ slowcat[
note (cho 48 "1 [~ 1] 1 1 " [0, 3, 7, 5])
,note (cho 48 "1 [~ 1] 1 1 " [5, 3, 10, 7])
]# dur "0.2" # decay "1" # lfoint "0.05" # lforate "0.8"

q $ iter 4 . (density 2) . sometimes(# decay (scale 0.9 1 sine1)) $ palindrome $ slowcat[
note (cho 48 "1 1 1 1 " [0, 3, 7, 5])
,note (cho 48 "1 1 1 1 " [5, 3, 10, 7])
] # dur "[0.05 0.1]/2" # lfoint "0.05" # lforate "0.8" # decay (scale 0.7 0.9 $ density 2 $ sine1)