-- Inspiration: https://www.youtube.com/watch?v=4jXfnbJvmIQ

do
setcps (93/60/4)
let gF1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = midiOn "^73" (mask "f f f t")
d1 $ gF1
  $ gMask
  $ fix (|* gain 0.9) "jazz"
  $ "k*<1!3 2> ~ . <k <~!3 k>>"
  -- # "[808bd,808bd:3,bd:2]"
  # "[jazz,kick:8,bd:2,808bd:3,808bd:4]"
  # room 0.2 # dry 1.1 # sz 0.8
  # legato 2
  # midiG' "^78" 0 1.4
d2 $ gF1 $ gMask -- snare cassant
  $ fix (|* gain 0.85) "snare:16"
  $ "~ <sn!3 <~ sn>> ~ <sn!6 ~ sn>"
  # "[snare:2,snare:16,tek_hh:1]"
  # lpf 7000
  # midiG' "^79" 0 1.4
  # pan 0.7
d3 $ gF1 $ gMask
  $ midiOn "^76" (ply 2)
  $ midiOn "^44" (ply 2)
  $ "[~ drum:2]*4"
  # pan 0.4
  # midiG' "^80" 0 1.4
d4 $ gMask $ gF1
  -- $ mask "<f!3 t>"
  $ "<h [~ h]> . h*<2 [4 4 4 1]> ~"
  # "snare:5" # hpf 5000
  # legato "1 . [1 0.5] ~"
  # gain 0.8
  # midiG' "^81" 0 1.2
  # cut 4
  # pan 0.2
d8 $ gMask $ gF1
  $ midiOn "^92" (ply "<2!3 [<4 1> 1]>")
  $ chop 8
  $ loopAt 2
  $ "break/2"
  # cut 8
  # midiG' "^84" 0 1
d9
  $ (0.25 ~>) -- Calage
  -- Simple one
  $ note "<[~ cs7*2 cs7 as6 gs6 fs6 ds6@2] ~>"
  -- Complete one
  -- $ note "<[~ cs7*2 cs7 as6 gs6 fs6 ds6@2] [[~ as6] [gs6 ~] [~ <gs6 cs7>] [<fs6 as6> ~]]>"
  # "superpiano" # velocity 0.5
  # midiG' "^82" 0 1.5
  -- # room "<0.2!3 0.8>"
  # dry 1.8


once $ arpeggiate $ note "a'maj'4" # "superpiano"
  # gain 1