setcps 0.5


unsolo 1
solo 9
unsolo 3
unsolo 8

d1 $ fast 2 $ s "dr"

do
  solo 1 --
  solo 2 -- Snare
  solo 3 -- Drumroll
  solo 4 -- Bass
  solo 6 -- Choeurs
  solo 8 -- Hihats
  solo 9 -- Vibratinon

do
  setcps (120/60/4)
  d1
    $ whenmod 32 31 (# gain 0.6)
    $ whenmod 32 28 (# gain 0)
    $ whenmod 32 24 (slow 2)
    $ every' 4 3 (degradeBy "0.5 . 0.5 0")
    $ s "k k k <k!3 k*2>" # "jazz"
    # gain 0.6
    # lpf (slow 16 $ range 2000 50 saw)
  d2
    $ s "~ <~!3 s?> . s <~ s>" # "snare:20" # gain 0.7
  d8
    $ whenmod 32 16 (degradeBy "0.5!16 0.2")
    $ s "ho(3,8) hc*<<2 0> 3>" # cut 2 # n "[1|2|3]"
    # gain 0.5
  d3
    $ fast "4 . <6 12>" $ s "drum:2" # gain 0.7
    # pan (slow 8 $ range 0.2 0.8 sine)
  d4 $ note (-24) # s "supersaw" # voice 0.01 # gain 0.4
  d5
    $ whenmod 64 32 (mask "t(1,8)")
    $ superimpose (
      (fast "8 16") .
      (mask "t(1,16)") . (|+ note 12)
    )
    $ stut 4 (slow 4 "0.9") (1/16)
    $ arp "[down,up]"
    $ note ("<f4'min g4'maj d4'min f4'maj>")
    # s "superpiano"
    # velocity 0.3
  d6
    $ superimpose (|+ note 12)
    $ note ("<<f4'min!4 f5'min!4> g4'maj d4'min f4'maj>")
    # s "moogBass" # gain 0.75
  d8 -- vibration montante!
    $ superimpose (|+ note 5)
    $ every' 4 "<0 1 2 3>" (someCycles rev)
    $ sound "bd"
    # note "0 <12 -12>"
    >| speed (
      segment 64
      $ range "<0!4 9!4>" 5 saw
      )
    # gain 0.55
    # pan 1
    # legato 2