-- You got a friend in blue
-- You've got a frienemy
-- When the road is a barricade
-- And you're miles and miles from keeping a cool head
-- You just remember what an old cop said
-- Bro, you got a friend in blue
do
setcps (60/60/4)
let gF1 =  (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask =  (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute =  (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gM = gMask . gMute
d1 $ gF1 $ gMute2
  $ fast 2  -- 120BPM!!!
  $ fix (
    (# att 0.001) . (# rel 0.05) .
    (# lpf 1500)) "909"
  $ "k k k k*<2 <4 [4 2]>>"
  # "[909,808bd:3,kick:6]"
  # midiG' "^78" 0 0.9
d2 $ gF1 $ gMute
  $ fast 2
  $ midiOn "^43" (<| "~ cp ~ <cp!3 cp*<2 [2 4]>>")
  $ midiOff "^43" (<| "~ . cp ~ ~ <~!7 cp>")
  $ "cp:1"
  # n "<3!7 [3 4]>"
  # room 0
  # midiG "^79"
d3 $ gMute $ gF1 -- charley double croche
  $ midiOn "^76" (ply 2)
  $ s "hh*16"
  # note "1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 2 1"
  # n 8
  # gain 0.8
  # pan 0.6
  # midiG "^80"
d4 $ gF2
  $ midiOn "^89" (ply "8")
  $ midiOn "^57" (slice 4 ("<0!8 2!8> 0 0 <1!3 3>"))
  $ chop 8
  $ midiOn "^33" (# n 39) -- BassC_120E
  $ "fbass:37" -- BassC_120D
  # cut 4
  # crushbus 41 (range 16 2.5 "^53")
  # room 0
  # pan 0.2
  # midiG' "^81" 0 0.8
d5 $ gF3
  $ midiOn "^90" (ply "<8!4 8 16 [16 32] [32 64]>")
  $ midiOn "^58" (slice 4 ("0"))
  $ chop 16
  $ n "<39!4 37!3 [37 39]>"
  # "fguitar"
  -- 39: La base
  -- 37: high or not?
  -- 38: Rif hesitation
  # cut 5
  # gain 0.8
  # crushbus 51 (range 16 2.5 "^53")
  # midiG' "^82" 0 0.8
d8  -- TODO: Validate or replace ;)
  $ midiOn "^92" (ply 4)
  $ loopAt 1
  $ chop 16
  $ "fbreak80:10"
  # midiG' "^84" 0 0.8



once $"fx_:9"# gain 0.8

once
  $ "fguitar:39"
  # gain 0.7 # cut 5 # pan 0.9




d9 -- Nappe de fond??
  $ "90s_megafx:189"
  # gain "^20"
  # room 0.8
  -- # delay 0.9
  # delayfb 0.85
  # delayt 0.25
  # sz 0.8
  # cut 9


once $ "tek_kick:4"
 # room 0