-- Atelier de force motrice
do
-- resetCycles
setcps (125/60/4)
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 gM1 = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
d1 -- Kick premier`
  $ gF1 $ gMute2
  $ midiOff "^42" (<| "k . ~ k ~ ~ ")
  $ midiOn "^42"  (<| "k k k k")
  -- $ superimpose ((# hpf 500) . (# delay "<0!2 <0 0.2> 0.2>") . (# delayt 0.25))
  $ "[kick:4,jazz]"
  # lpf 5000
  # gain 0.93
d2 $ gM1 $ gF1 -- Snare second
  $ fix (# lpf 4000) "snare"
  $ midiOff "^43" (mask "<t!16 f!16>")
  $ "~ s ~ s*<1!3 2>"
  # "[rampleM8:8,snare:45]"
  # note "-2"
d3 $ gM1 $ gF1
  -- $ midiOn "^44" (mask "t([16 <16 [32 64]>],64)" . chop 16 . ply 4)
  $ "hh(3,8) hh(<3!3 5>,8)"
  # "rampleM8:4"
  # gain (fast 8 $ range 0.85 0.95 perlin)
d4 $ gMute3 $ gF2
  $ midiOff "^89" (slice 4 "1 2*<1 2> 3*<1 4> 4") -- ON OFF
  $ chop 16 $ loopAt 4
  $ "nujazz_bass125:1"
  # cut 4
  # octersub (slow 32 $ range 0 0.9 sine)
  -- # room (slow 32 $ range 0.2 0.8 cosine)
  -- # dry 1.3
  # pan 0.3
  # crushbus 41 (range 16 4 "^53")
  # octerbus 42 (range 0 0.94 "^33")
  # gain 1.3
  -- # sz (slow 8 $ range 0.7 0.1 sine)
d5 $ gM3 $ gF3
  $ midiOn "^58" (off 0.125 id . rev)
  $ note ("[g@2 ~!4 <f ~ as5 c6>]" - 12)
  # crushbus 51 (range 16 5 "^54")
  # modIndex (range 0 2 "^34")
  # "FMRhodes1"
  # gain 1.2
  -- # room 0.2
  -- # legato 0.25
d7 $ gM3 $ gF3
  $ midiOn "^59" (struct "<t(3,8)!3 [t(3,8) t(<3!3 5>,8)]>")
  $ note ("<c g <ef!3 as> f>"
   -- - 12
   )
  # pan 0.9
  # room 0.4
  # "giorgio_syn:22"
  # crushbus 71 (range 12 3.4 "^55")
  # cut 7
  # gain 1.2
d8 $ gM1 $ gF1
  $ midiOn "^60" (ply "1 <2 4>")
  $ midiOn "^92" (iter "1 <1 4>")
  $ midiOn "^36" ((|* gain 0.9) . loopAt 2 . (#  "jungle_breaks:16"))
  $ midiOn "^56" ((|* gain 0.9) . loopAt 0.5 . (#  "jungle_breaks:36"))
  $ chop 16
  $ loopAt 2
  $ "break:2"
  # gain 1.5
d10
  $ mask "<f!2 t!2>"
  -- $ loopAt 1
  $ "risers:2" # end 0.5
  -- # att 0.04
  -- # rel 4
  -- # room 0.8
  # cut 10
d9
  $ n "<~ ~ 27 ~ ~ ~ ~ <29 21>>"
  # "jungle_vocals"
  # cut 9
  # gain 1
  # room 0.4
d11 $ gF3 $ gM3
  $ whenmod 64 32 (superimpose (
    (stut 4 0.65 "e")
    . (# n 3)
    . (|* gain 0.9)
    . (# cut 110)))
  $ note "<c5 <g4!8 ef5!8> <bf4 bf4 bf4 ds4> <ef4 ef4 ef4 d4>>"
  # "cbow:2"
  # cut 11
d6 $ gM3 $ gF2 $ note
  (
    "<g4 c4 ds4 <ds4 f4>>"
    - 5 -- calage
    + 24
    )
  # "meth_bass:3"
  # cut 6
  # gain 0.7