import Sound.Tidal.ParVagues.Control


setcps 0.5

do
let gDJF = (# djfbus 1 (range 0.1 0.9 "^49"))
let gDeg = (degradeBy (0.9 * "0 ^29!7 0"))
let g = gDJF
let chill = "<t!16 f!16 1!32>"
d1 $ g
  $ midiOn "^41"  (<| "k k k <k [<~ k> k]>")
  $ midiOff "^41" (<| "k . k(<1 <3 5>>,8)")
  $ "jazz"
  # midiG' "^78" 0 1.4
d2 $ g $ gDeg
  $ "~ . s <~!3 s> <~!7 s> <~ ~ s <~ <s ~>>>"
  # "snare:34"
  # midiG' "^79" 0 2
  # note (range "-12" "12" "^51")
d3 $ g $ gDeg
  $ juxBy "52" rev
  $ whenmod 16 8 (often (slow "<4!3 2>"))
  $ midiOn "^44" (splice 16 ("0 1 2 3*<4 4 2 4> 0 1 6 7(3,8)"))
  $ loopAt 2
  $ "break"
  # midiG' "^80" 0 1.8
  # cut 3
d4 $ g $ gDeg
  $ midiOn "^41" (fast 2)
  $ "hh*[4 <4 4 4 8 [8 4]!2 4 8>]"
  # midiG' "^81" 0 1.8
  # note (range "-12" "12" "^53")
d5 
  $ someCyclesBy 0.2 (scramble 4)
  $ rarely (ply "2 <4 8>")
  $ slice 8 (run 8)
  $ loopAt "<1!6 2 2>"
  $ "breaks165"
  # cut 3
  # midiG' "^82" 0 1.8