do
-- resetCycles
setcps (92/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 $ gF1 $ gM2
  $ mask "<f!8 t!56>"
  $ fix (# lpf 400) "gtkick"
  $ "k ~ <~ [~ k*<1 1 2 1>]> [<~!7 k> <~!3 k*<1 2>>]"
  # "[gtkick:1,jazz]"
  # att 0.01
  # rel 0.5
  # cut 1
  # gain 1.3
d2 $ gF1 $ gM1 -- Submarine snare sable mouvant inspired
  -- $ mask "<f!7 [f t] t!8>"
  $ "~ s ~ [s*<1 2> <~ [~ s] ~ [~ s] ~!3 [~ s]>]"
  # "snare:36"
  # att 0.03
  # rel 4
  # lpf 4000
  # octersub 2
  # cut 2
  # gain 1.6
d3 $ gF1 $ gM1 -- Drumroll fantome
  $ mask "<f!16 f!11 [f t] t!4>"
  $ whenmod 32 24 (juxBy 0.4 rev)
  $ "~ h ~ h ~ h*<1!3 2> ~ h*<1!7 [4 <4 <2 8>>]>"
  # drumFrom "rolandtr808" "oh"
  # cut 3
  # room 0.3 # dry 1.9
  # sz 0.8
  # pan 0.7
d4 $ gF2 $ gM3 -- MEDIEVAL DARK BASSLINE <3
  $ superimpose (
    (|+| note (
      "<0 [0 <12 [12 0]>]>" +
      "0(3,8) 0(3,8)" +"0 0 0 <7>"
      + 12
      )) . (# cut 41) . (|* ampbus 43 "^33")
    )
  $ midiOn "^89" (ply "<4 <8 [8 . 16 <32 64>]>>" . (# cut 41))
  $ superimpose ((# crushbus 41 (range 16 2.8 "^53"))
  . (# hpf 300)
  . (# lpf 10000)
  . (|* gain 1.5))
  $ note "<f cs>/2"
  # "moog" # n "[0]"
  # room 0.5 # dry 1.4 # sz 0.8
  # cut 4
  # lpf 500
d5 $ gF3 $ gM3 -- Le barde du Temps
  $ whenmod 64 8 (slice 4 "<0 0 <0!16 1!16> <[<0 1>]!8 [<2 [2 3]>]!8>>")
  $ loopAt 4
  $ "medieval:38"
  # cut 5
  -- # room 0.2 # dry 1.1
d8 $ gF1 $ gM1 -- MEDIEVAL BREAK EMULATION
  $ stack [
  -- LOST SOUL BREAKBEAT
  midiOn "^60" (mask "t(4,8,1)") $
  midiOn "^92" (ply "2 <2 4>") $
  chop 8
  -- $ mask "<f!8 t!56>"
  $ midiOff "^36" (slice 2 "<0 0 1 1 [0 <1 ~>]!3 <1 [0 . 0 1*[2 4]]>>")
  $ midiOn "^36" (loopAt 1 . (# n 23))
  $ loopAt 2
  $ midiOn "^56" (# n 45)
  $ "jungle_breaks:42"
 # pan "0.4 . 0.6!3 0.4",
 -- La quincaillerie:
 mask "<f!16 t!16>" $ "~!5 h ~ <~!7 h>" # n "<12!3 11>"
 # gain 0.8
 # "medieval" # legato "<1!3 [1|0.2]>",
 -- La forge nouvelle:
 (0.125 ~>)
 $ "medieval:16" # pan 0.8
 # gain (slow 16 $ range 0.5 0.8 saw)
 # room 0.4 # dry 0.6
 # sz (range 0.2 0.8 perlin)
 # cut 81,
 ""]
 # cut 8
d9 -- Choeur Medieval
  $ slow 2
  $ note ("<<gs4!4 gs4 ef4 gs4> <f4!7 b4>>"
        -- + "0 <0!12 -7!4>"
  )
  # "medieval:216" |- note ("8")
  -- # "moogBass"
  # cut 9
  # rel 4
  # room 0.4
  # gain 1.3
d10 $ gF3 $ gM3 -- Des visiteurs venus d'ailleurs
  $ mask "<t f!3 t f!3 t f!3 t t f t t!16>"
  $ n (cat [0,"<~ 1>"
 -- "visiteurs:2/4"
  ])
  # "visiteurs"
  # lpf 2500
  # cut 10
d6 $ gF2 $ gM3 $ "meth_bass:3"
  # note "-9"
  # crushbus 61 (range 16 2.5 "^30")
  # cut 6 # gain 1.4

  -- once $ "visiteurs:9" # end 0.56 # rel 1.3 # cut 4

once $ "visiteurs:1"  # cut 4

once $