setcps 0.4

do
  solo 1 -- Kick
  solo 2 -- Snares
  solo 3 -- Drums
  solo 4 -- 
  solo 5
  solo 6
  unsolo 7

do
  d1 -- KICK TECHNOFICATION
    $ sometimesBy "0 0 0.1 0" (# silence) -- skip beat
    $ s "k*2"
    # s "jazz"
    # gain 0.7
  d2
    $ whenmod 16 8 (sometimes (stut 2 0.7 (1/12)))
    $ n "0(1,8,<1 .. 7>)"
    # s "snare:13"
    # gain 0.6
  d3
    -- $ rarely (fast 2)
    $ sometimes (fast 2)
    $ always (fast 2)
    $ s "d*4"
    # s "drum:8"
    # gain 0.8
  d4 $ s "hh(6,16)" # gain 0.9 # n "<0!3 [0!3 1]>"
  -- Pianos
  -- Graves accords sustain
  d5 -- Basse
    $ s "supersaw"
    # note (scale "aeolian" (
      "<c'maj e'maj [c'maj e'maj] [e'maj c'maj]>"
      + "<<0!3 -1> 0 0 <2!3 1>>"
    ) - 24
    )
    # voice 0.1
    # gain 0.4
  d7 -- Cloches
    $ off 0.25 (|+ note "<12 0>")
    $ off 0.125 (|+ note 12)
    $ note (scale "aeolian" (
      "<c'maj e'maj>"
      + "<<0!3 -1> 0 0 <2!3 1>>"
    ) - 24
    )
    # s "superfork"
    # gain 0.6
  d6
    $ whenmod 64 32 (superimpose (-- Arps!
      whenmod 128 64 (swing 2)
      . (off 0.5 (degradeBy "1 1 1 0" . rev))
      . (arp "up")
      . (# velocity (0.4 - (slow 32 $ saw * 0.3)))
      . (|- note 12)
      ))
    $ (0.25 ~>)
    $ note "0*8"
    # note (scale "aeolian" (
      "<c'maj>"
      + "<<0!3 -1> 0 0 <2!3 1>>"
    ) + "<0 12 [0,12]>"
    )
    # s "supersaw"
    # velocity 0.3
    # gain 0


-- Setup: solennel, hip, calme

do
  d1 -- KICK Heartbeat rempli
    $ s (slowcat ["k*2 ~ k ~",
        "k ~ k ~",
        "k(<5 7>,8,<0,5>)",
        "k ~ k ~"
        ])
    # s "jazz"
    # gain 0.65
  d2
    $ sometimes (fast 2)
    $ whenmod 16 8 (sometimes (stut 2 0.7 (1/12)))
    $ degradeBy "<1 0.75 0.5 0.25>"
    $ n "0*8"
    # s "snare:13"
    # gain 0.6
  d3
    $ often (fast 2)
    $ s "d(3,8,<0!7 4>)"
    # s "drum:8"
    # gain 0.8
  d4 $ s "hh*4" # gain 0.6
  -- Pianos
  -- Graves accords sustain
  d5
    $ off 0.125 (|+ note 12)
    $ note (scale "aeolian" (
      "<c'maj e'maj [c'maj e'maj] [e'maj c'maj]>"
      + "<<0!3 -1> 0 0 <2!3 1>>"
    ) - 12
    )
    # s "superpiano"
    # velocity 0.3
    # sustain 1
  -- Aigu fou
  d6
    $ whenmod 64 32 (superimpose (-- Arps!
      whenmod 128 64 (swing 2)
      . (off 0.5 (degradeBy "1 1 1 0" . rev))
      . (arp "up")
      . (# velocity (0.4 - (slow 32 $ saw * 0.3)))
      . (|- note 12)
      ))
    $ (0.25 ~>)
    $ note "0*8"
    # note (scale "aeolian" (
      "<c'maj e'maj [c'maj e'maj] [e'maj c'maj]>"
      + "<<0!3 -1> 0 0 <2!3 1>>"
    ) + 12
    )
    # s "superpiano"
    # velocity 0.3
  d7
    $ s "supersaw"
    # note (scale "aeolian" (
      "<c'maj e'maj [c'maj e'maj] [e'maj c'maj]>"
      + "<<0!3 -1> 0 0 <2!3 1>>"
    ) - 24
    )
    # voice 0.1
    # gain 0.5
