-- Lendemain Divin
do
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 gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (95/60/4)
d1 $ gMute2 $ gF1
  $ fix (|* gain 0.9) "kick:6"
  $ midiOn  "^42" (<| "k <~!8 k!56> . <~!4 k!28> k*<1!3 2>")
  $ midiOff "^42" (<| "k . ~ ~ ~ <~ k ~ [~ k]>")
  -- $ "[techno:0,808bd:2,909,kick:6]"
  $ "[jazz,kick:4]"
  # lpf 6000
  # gain 1.5
d2 $ gMute $ gF1
  $ midiOn "^43" (fast 2)
  $ midiOn "^75" (# "cp")
  $ "~ s*<1!3 <2 4>>"
  # "[snare:32]"
  # note "-4"
  -- # lpf 2000
  # gain 1
d3 $ gF1 $ gMute
  $ midiOn "^76" (ply 2)
  $ midiOn "^44" (struct "t*[16!3 <8 [8 <16 32>]>]")
  -- $ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
  $ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
  -- $ midiOff ("^44" + "^76") (<| "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" )
  $ drumFrom "[rolandtr808,rolandtr606]" "[hh]"
  # n "0!3 <0!3 1>"
  # lpf 4500
  # att (slow 16 $ range 0.001 0.04 cosine)
  # rel 0.4
  # room 0.2 # dry 0.9
  # gain 1.05
d4 $ gF2 -- Basse complainte
  $ midiOn "^89" ((ply "8 <16 [16 8]>")
  -- . (# room "0 0.4")
  -- . (# sz "1 1.2")
  . (# cut 4))
  -- $ note "[c3,ef3,g3,as3,d4,f4]"
  -- Bassline habituelle
  $ midiOff "^57" (
    >| note "<<d4!6 [d4@7 <f4 g4>]!2> <a3!4 [a3@7 <c4 c3>]!4> [<g3 [g3@7 f3]>] d3>"
  )
  $ midiOn "^57" (
    >| note "<[d3@6 c3@2] <as3 as3*2> <[f4@6 f4 g4] [f4@5 g4 f4 c4]> d4>"
    )
  $ "bassWarsaw"
  # crushbus 41 (range 16 2.5 "^53")
  # room 0.2
  # cut "41 42 43 44"
  # gain 1.42
d7 $ gMute3 $ gF3
  $ n "<0 0 <6 5> 0 1 1 2 7>"
  # "come_guitar" # cut 6
  # crushbus 61 (range 16 2.5 "^55")
  # lpfbus 62 (range 10000 7500 "^55")
  # room 0.3
d8 $ gM $ gF3
  $ midiOn "^92" (ply "<4 4 8 16>")
  $ midiOn "^20" (loopAt 4 . (# n 11)) -- Submarine break
  $ midiOn "^36" (# "jungle_breaks:45") -- House Orleanaise
  $ midiOn "^56" (mask "t [t t <t f> <t!3 f>]" . loopAt 1 . (# n 16) . (# lpf 2500)) -- Jumper's break
  $ slice 8 "0 1 2 3*<1 2>"
  $ loopAt 2
  -- $ midiOn "^36" (# n 1)
  $ "jungle_breaks:13"
  # room 0
  # gain 1.2
  # cut 8