once $ "bd"
setcps (-1)

do
-- Accompagnement:
-- Gauche <[c,e] [b,d] [f,a,c]@2>
-- Droite All the way <3
let modIndex = pF "modIndex"
let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
-- DESHADOW(#96): now global in BootTidal.hs; body kept in case it was music
-- let gMask = mask "t t <t <t f> t <f [f t]>>"
let g1 = (gDJF1 . gMask)
let g2 = (gDJF2 . gMask)
setcps (86/60/4)
d1 $ g1
  $ fix (
    (|> note (
            -- "<e!4 c!3 e> <c!4>"
            "<e e a c e e f e> <c!4 c!4>"
            + "4" -- Proper tuning
            + "[0,12]"
    )
    )
    . (|* gain 0.8)
    )
    "808bd"
  -- FIXME(#94) d1 drives more controls than the grid gives it (BT1 only — BL1-3 are the family mutes). ^41 now belongs to another orbit, so this step STILL FIRES ACROSS COLUMNS — turning ^41 for its new owner also moves this. NOT commented out: this is a `$`-step and something above it is a partial application waiting for it, so removing it would stop the whole block compiling. Fold it onto d1's own control with gSel.
  $ midiOn "^41" (<| "k k k k <k!7 ~> k k <k*2 [~ k]>")
  $ midiOn ("^41" - "^41")  (<| "k k k <k*2 [k k*2] k [~ <k k*2>]>")
  $ midiOff ("^41" + "^41") (<| "k . k(<5 <7 [3 7]>>,8,<0!6 3 <3 0>>)")
  $ "[bd,808bd:4]"
  # midiG' "^78" 0 1.2
d2 $ g1
  $ fast 2
  $ "~ cp"
  # "clap:1"
  # midiG' "^79" 0 1.2
d3 $ g2
  $ midiOn "^43" (fast "<1!6 2 [2 4]>") -- Gratuitous snare rush
  $ ply "2 <2 4>"
  $ "sn:27*4"
  # midiG' "^80" 0 1.2
d4 $ g2
  $ note "<e4 d4 <a3!3 f4>@2>"
  # "supersaw" # octave 3
  # cut 4
  # crushbus 41 (range 16 2.5 "^32")
  # panbus 42 (0.5 + 0.1 * perlin)
  # room 0.2
  # sz 0.5
  # dry 0.8
  # midiG' "^81" 0 (1.2 - 0.2 * "^32")
d5 $ g2
  $ sometimesBy "0 0.05!14 0" (# crush 2)
  $ sometimesBy 0.1 (ply 2)
  $ swing "1 4"
  $ midiOn "^89" (superimpose (
    mask "<t!16 f(<14 10>,16)!3 t!13>" .
    (|+| note (
    arp "<pinkyup <converge thumbupdown>>"
    "<c'maj'4!7 c'maj'8>*4"
  ))
  -- . (|* gain 0.86)
  ))
  $ note "e3 <a5 b5 b5 c6>"
  # "FMRhodes1"
  # pan 0.7
  # room 0.4
  # midiG' "^82" 0 1.2
  # modIndex (range 0 100 "^33")
  # crushbus 51 (range 16 2.5 "^53")
d6 -- Break balance
  $ g1
  $ midiOn "^90" (sometimesBy "0.5!14 0!2" $ ply 2)
  $ midiOn "^58" (slice 8 ("0 1 2 3 0 5 6 <7 3 7 [3 3]>"))
  $ midiOff "^58" (slice 16 (run 8))
  $ loopAt 2
  $ "break:26"
  # cut 6
  # midiG' "^84" 0 1.2
