-- ____  _     ____  _        _____  _     _  ____    ____  ____  ____  _  __
-- /  __\/ \ /\/  __\/ \  /|  /__ __\/ \ /|/ \/ ___\  /  __\/  _ \/  _ \/ |/ /
-- | | //| | |||  \/|| |\ ||    / \  | |_||| ||    \  | | //| / \|| / \||   /
-- | |_\\| \_/||    /| | \||    | |  | | ||| |\___ |  | |_\\| \_/|| \_/||   \
-- \____/\____/\_/\_\\_/  \|    \_/  \_/ \|\_/\____/  \____/\____/\____/\_|\_\
-- ____  _     ____  _        _____  _     _  ____    ____  ____  ____  _  __
-- /  __\/ \ /\/  __\/ \  /|  /__ __\/ \ /|/ \/ ___\  /  __\/  _ \/  _ \/ |/ /
-- | | //| | |||  \/|| |\ ||    / \  | |_||| ||    \  | | //| / \|| / \||   /
-- | |_\\| \_/||    /| | \||    | |  | | ||| |\___ |  | |_\\| \_/|| \_/||   \
-- \____/\____/\_/\_\\_/  \|    \_/  \_/ \|\_/\____/  \____/\____/\____/\_|\_\
-- ____  _     ____  _        _____  _     _  ____    ____  ____  ____  _  __
-- /  __\/ \ /\/  __\/ \  /|  /__ __\/ \ /|/ \/ ___\  /  __\/  _ \/  _ \/ |/ /
-- | | //| | |||  \/|| |\ ||    / \  | |_||| ||    \  | | //| / \|| / \||   /
-- | |_\\| \_/||    /| | \||    | |  | | ||| |\___ |  | |_\\| \_/|| \_/||   \
-- \____/\____/\_/\_\\_/  \|    \_/  \_/ \|\_/\____/  \____/\____/\____/\_|\_\
-- 🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥🔥
--
do
  let modIndex = pF "modIndex"
  let g =  (# djfbus 1 (range 0.1 0.9 "^49"))
  let g2 = (# djfbus 2 (range 0.05 0.95 "^50"))
  let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
  let gMute = (midiOn "^73" (mask "f*16"))
  let gM = gMask . gMute
  setcps (120/60/4)
  d1 $ g $ gMute
    $ midiOn "^42" (<| "k*4" )
    $ midiOff "^42" (<| "k . k(3,8)")
    $ fix (# lpf 200) "kick"
    $ "[jazz,kick:4]"
    # midiG' "^78" 0 1.5
  d2 $ g $ gM
    $ midiOn "^43" (fast 2 . (# note "<8!15 -2>"))
    $ "~ cp" # note "<8!3 -2>" # lpf 4000
    # midiG' "^79" 0 1.8
  d5 $ g $ gM -- Le comburant
    $ midiOn "^76" (off "e" id)
    $ midiOn "^44" (off (- "s") (|* gain 0.9))
    -- $ "~ t*<1!8 2 1!6 2> ~ t ~ <t!3 t*<2!3 1>> ~ <t!7 t*2>"
    $ "~ t ~ t ~ t ~ t*2"
    # "cpu2:3"
    # midiG' "^80" 0 1.65
  d3 $ g $ gM -- L'étincelle
    $ someCyclesBy "^36" (slow "<2!3 [2 1]>")
    $ midiOn "^92" ((iter 4))
    $ midiOn "^60" (
      (# delay 0.85)
      . (# delayfb "<0.25!3 <0.5 0.9>>")
      . (# delayt 0.125)
      . (|* gain 0.9))
    $ (|* speed (range 0.25 1.75 "^56"))
    $ chop 16
    $ loopAt 4
    $ "drums_nes:3"
    # lpf 4000
    # midiG' "^84" 0 1.3
    # pan 0.2
  d4 $ g2 -- Le combustible
    $ midiOn "^57" (
      (superimpose (arp "up <up up updown up>" . (|+ note "c'min'8"))) .
      (# "bassWarsaw") . (|- note 24)
    )
    $ midiOff "^57" ( midiOn "^17"
      ((superimpose (
        struct "t . <t t(<1 2 <3 8>>,8)>"
      .  arp "up"
      . (|+ note "[0,12]"))) .
      (# "bassWarsaw") . (|- note 24))
    )
    $ note (scale "aeolian" (
      "<0 [0, <<7 7 8 9>!3 <8 8 8 7>>]>"
    ))
    # "cpluck:0"
    # roombus 42 (range 0 0.8 "^33") # sz 0.6
    # crushbus 41 (range 16 1.4 ("^53" - 0.12 * (fast 2 perlin)))
    # midiG' "^81" 0 1.85
    # pan 0.3
  d6 $ g2 $ gMask -- La fumee
    $ sometimesBy (1 - "^18") (mask "t <t <t!4 f!4>> . f!3 <t f>")
    -- $ sometimesBy (1 - "^18") ()
    $ midiOn "^90" (ply 2)
    $ midiOn  "^58" (>| note (scale "aeolian" (arp "down" ("<0!2 3 [0 3]> . <~ 0> <~ ~ 0 12>" |+| "c'maj'4"))))
    $ midiOff "^58" (>| note (scale "aeolian" (arp "up" ("<0!2 3 [0 3]>" |+| "c'maj'4"))))
    $ "cpluck:1"
    # crushbus 61 (range 16 1.4 ("^54"))
    # cut 6
    # room (slow 8 $ range 0 0.4 saw)
    # sz 0.5
    # pan 0.7
    # midiG' "^82" 0 1.65
  d7 $ loopAt 8 -- L'auteur TODO: Rework? Replace? Remix?
    $ "90s_synatm:16"
    # cut 7
    # octerbus 71 (range 0 2.4 ("^55"))
    # room 0.2 # dry 1 # orbit 4
    # midiG' "^83" 0 0.93
  d8 -- Dark Event
   $ mask "<f!14 t t>"
   $ "90s_megafx:268@2"
   # release 3
   # att 0.1
   # cut 8
   # note (-4)
   -- # n (4 + "<1 1 [2|3|4] <1 4>>")
   # midiG' "^20" 0 1
   # room 0.2 # dry 1
   # pan "<0.3!3 <0.7 0.3>>"