do
resetCycles
once $ "igor:4" # cut 7 # gain 0.6
setcps (150/60/4)
let gF = whenmod 64 48 (# djfbus 1 (slow 16 $ range 0.5 0.05 saw))
d1 $ gF
  $ mask "<t!8 f!7 t t!16 f t!15 f t!15 f!16 t!16 f!4 t!12 f t!15>"
  $ "k*4"
  # "[bd,jazz]"
  # lpf 200
  # att 0
  # rel 0.7
  # room 2.7
  # sz 0.2
  # dry 1
  # gain 0.7
  # crush 8
  # note "-2"
d2 $ gF -- Running hats
  $ mask "<t!8 t!2 f!6 f!8 t!8 t!48>"
  $ someCyclesBy "<0!32 1!32>" (<| "h([<12!3 16> <6 8>],<12!3 8>)")
  $ someCyclesBy "<1!32 0!32>" (<| "[~ h h <~!7 h>]*4")
  $ "h2ogmhh"
  # n "[0,1]"
  # pan 0.4
  # dry 1
  # room 0.4
  # gain (slow 16 $ range 0.3 0.4 saw)
d4 -- BURNING MOOG
  $ mask "<f!8 t!56 f!16 t!16 f!16 t!16>"
  $ whenmod 32 16 (off "h" (
    (# cut 41)
    . (|+ note 12)
    . (|* gain 0.75)
    . (# leslie perlin)
    . (# crush 5.10)
  ))
  $ someCyclesBy "<1!16 0.5!16 0!32>" (# delay 0)
  $ note (scale "aeolian" ("<0 0 0 4> <1 2 3 1> . ~!3 <~ 2>"))
  # "moog"
  # legato 2
  # delay (slow 16 $ range 0.25 0.65 saw)
  # delayfb (0.5 + 0.25 * perlin)
  # delaytime (slow 4 $ "<<q e> <h 1>>")
  # gain (slow 16 $ range 0.37 0.5 (fast 4 $ cosine))
  # crushbus 40 (slow 32 $ range 16 5 (saw + 0.2 * perlin))
  # cut 4
d5 -- Phantom Choirs
  $ mask "<f!64 t!32 f!16 t!16>"
  $ note (scale "aeolian" "<0 <0 4>(3,3)> . <1 2 <3 5> 12>"
    - 12
  )
  # "moogBass"
  # gain 0.5
d5
  $ mask "<f!16 t!8 f!8 t!48>"
  $ "[dr,drum:2](<4 <8 <12 16>>>,12)"
  # gain 0.45
  # pan 0.8
d10  -- Announcing cymbals
  $ mask "<f!64 t!8 <t f>!8 f!48>"
  $ "h2ogmcy:3"
  # cut 10
  # gain (slow 8 $ range 0.35 0.65 saw)
  # hpf (slow 16 $ range 0   6500 saw)


-- Igor ressort - TODO rework
d9
 $ "igor:15"
 # cut 7
 # gain 0.56
 # begin (0  + "<0 0.1 0.2 0.3>")
 # end   (0.02 + "<0 0.1 0.2 0.3>")
 # att 0
 # rel 2


once $ "moog:4" # cut 4

once $ "fbass:40" # cut 4 # gain 0.7


d3
  $ "<w!3 [w|w*2] w w w*2!2>"
  # "wobble"
  # crush (slow 16 $ range 16 3.5 saw)
  # gain 0.8
  # legato 2
  # pan 0.6