hello_dub.tidal 2.52 KB
resetCycles

do
let delayPiano = ((# delay 0.5) . (# delayfb 0.8) . (# delayt "q"))
let delayTrump = ((# delay 0.65) . (# delayfb 0.9) . (# delayt "e"))
let breakLPF = whenmod 32 24 (# djfbus 1 (max 0.1 (range 0.4 0 (slow 8 cosine))))
let breakLPFLight = whenmod 32 24 (# djfbus 1 (max 0.3 (range 0.4 0 (slow 8 cosine))))
let g = breakLPF
d1 $ g
  $ mask "<f!8 t!120>"
  $ whenmod 16 12 (fast 2)
  $ "k k k <k  k*2 [~ k] k*2>"
  # "[cpu,bd:6]"
  # lpf 2000
  # cut 1
  # gain 0.8
d2 $ g
  $ mask "<f!12 t!116>"
  $ mask "<f!6 t f t!8 f!4 t!11 f>"
  $ "~ s"
  # "h2ogmsn"
  # n "<8!6 7 6>"
  # gain (slow 16 $ range 0.4 0.6 saw)
  # room 0.5 # dry 0.9 # sz 0.6
  # pan 0.4
d3 $ g -- Stubborn bassline
  $ whenmod 16 14 (chop 2)
  $ mask "<f f f t f f t t f t f t f t t t t!116>"
  $ whenmod 32 24 (# crushbus 31 (range 16 5 saw))
  $ mask "t(<1!4 3!4 5!4 [5 8]!2 8 [5 8] 8!16>,<4!4 8!28>)"
  $ note ("e3 . e3(<3!3 5 3 3 5 [5 <3 8>]>,8)"
  |+| "0!7 <0!12 12*2!12 0!4 12*2!4>"
  )
  # "bassWarsaw" # gain 0.7
  # room 0.4
  # sz 0.1
d4 $ g -- Piano contretemps quinte-ish
  $ mask "<f!8 t!8 t!8 t!4 f!4 f!4 f!3 t f!4 t!4 t!24 f!8>"
  $ every' 64 39 (delayPiano)
  $ every' 64 27 (delayPiano)
  $ someCyclesBy "<0 <0.5 0.9>>" (ply "1 2")
  $ fast 2
  $ note ("~ 0"
  + "<e5 e5 <d5!4 a4!4> <d5!3 a4!4 d5>>"
  + "[0,<7 7 5 5 7 7 7 3>]")
  # "superpiano"
  # velocity 0.39
d6 -- Distant guitar
  $ g
  $ mask "<<f t>!24 f!8 t!8 f!8 t!16>"
  $ "g(<[1 5]!4 5 1 3 10>,16)"
  # "rootsGuitar:2"
  # note "<5 5 3 3>"
  # gain 0.49
  # att 0
  # rel 0.7
d10 -- Distant metal drums
  $ breakLPFLight
  $ sometimesBy "0 0.25!3 <0.3!3 0.9>" (ply 2)
  $ "808sd*8"
  # n "[9|10]*16"
  # pan 0.8
  # gain (0.47 + 0.1 * perlin)
d8 $ g
  $ mask "<f!6 t f f!8>"
  $ every' 16 6 (delayTrump)
  -- $ whenmod 16 12 (delayTrump)
  $ off "h" (
    whenmod 16 8 (scramble 4)
    . whenmod 16 4 (|* gain 1.05)
  )
  $ slice 4 "<2 3 2 3 3 3 ~>"
  $ "rootsTrump"
  # gain 0.5
  # cut 21
d9 $ breakLPFLight
  $ mask "<f!3 [f t] f!3 t t!120>"
  $ fix (whenmod 8 6 (degradeBy "0.5 <0.5!4 0.8!3 1>")) (n 1)
  $ n (stack [
    "[~ <1!8 0!8> ~ 1 ~ 1*<1 2 1 2 1 1 2 2 0!8 1!6 2 2> ~ <1!8 <1 0>!8>]",
    "~ <~!7 3>" -- Whoosh
  ,""])
  # "tech"
  # gain (slow 4 $ range 0.35 "<0.5!8 0.7!8>" saw)
d11 -- Les poulettes d'Igor
  $ mask "<t!6 f <f t>>"
  $ mask "<t!32 f!8 t t f!6 t!8 f!3 t t t f t>"
  $ whenmod 16 8 (off "e" (chop "4 <1 2>"))
  $ "igor:10"
  # begin ("<0 0.25 0 0 0.5 0.5 0.5 0.5>" + 0.05 * perlin)
  # gain (min 0.45 $ slow 16 (range 0.7 0 saw))
  # cut 11
  # room 0.3
  # leslie 0.26
  # lrate 1.7