unmute 2
unmute 6

do
  setcps 0.3
  d1 $ s "k . ~ [<~ k> <~ k?>]" # s "reverbkick" # gain 0.5 # lpf 400
  d2 $ s "~ snare:1" # gain 0.75 # delay 0.5
  d3 $ often (stut 4 0.76 0.125) $ fast 4 $ s "~ . drum:8" # gain 0.8
  d4 $ s "[ho(3,8),[~ ~ hc:2*[1|2|3|4] ~]]"  # cut 4 # gain "0.75 0.86"
  d5
    $ whenmod 32 16 ( -- folie aigue
      juxBy 0.25 ((0.125 ~>) . rev . fast 4 . (|+ note 12))
      )
    $ off 0.25 (slow 2 . arp "updown")
    $ note ("<d4'maj7 <d4'maj7 d5'maj7> d4'min7 d4'maj7>")
    # s "superpiano"
    # velocity (slow 100 $ range 0.42 0.54 sine)
    # pan 0.7
  d6
    $ note ("d3"
    + "[0,3(3,8,2)]"
    )
    # s "supersaw" # voice 0.1
    # release "2 0.8!7"
    # gain (slow 88 $ range 0.25 0.5 cosine)
  d7 $ s "hh(<1 3 5>,8)" # cut 7 # gain 0.76 # pan 0.2


-- Intro atm
do
  setcps 0.3
  d1 $ s "k . ~ [<~ k> <~ k?>]" # s "bd" # gain 0.6
  d2 $ s "~ snare:1" # gain 0.5 # delay 0.5
  d3 $ often (stut 4 0.76 0.125) $ fast 4 $ s "~ . drum:8" # gain 0.5
  d4 $ s "[ho(3,8),[~ ~ hc:2*[1|2|3|4] ~]]" # gain "0.5 0.6"
  d5
    $ whenmod 32 16 ( -- folie aigue
      jux ((0.125 ~>) . rev . fast 4 . (|+ note 12))
      )
    $ off 0.25 (slow 2 . arp "updown")
    $ note ("<d4'maj7 <d4'maj7 d5'maj7> d4'min7 d4'maj7>")
    # s "superpiano" # velocity 0.45
  d6
    $ note ("<d3'maj <d3'maj d4'maj> d3'min d3'maj>"
    + "[0,3(3,8,2)]")
    # s "supersaw" # voice 0.1
    # release "2 0.8!7"
    # gain 0.5