-- Doux ? sombre basse
do
  setcps (120/60/4)
  d1
    $ s "k k <k!3 ~> <k!3 k*2>"
    # s "jazz"
    # gain 0.8
    # lpf (slow 16 $ range 2000 500 sine)
  d2 -- drumroll
    $ fast "8 [16 . 32 [8 16]]" $ s "drum:2"
    # gain (slow 64 $ range 0.8 0.9 cosine)
    # room 0.48 # sz 0.5
  d3
    $ sometimesBy (slow 4 $ "<0 0.2 0.3 0.5>") degrade
    $ jux (fast 2)
    $ note (
      whenmod 16 8 (12 - ) -- renversement
      "0 0 0 2" + -- melodie
      "c3'maj" +  -- accord de base
      "<0!3 12>" -- variation octave
      )
    # s "f(<3!3 <4 8>>,8)" # s "superfork"
    # pan 1
    # gain 0.9
  d4  -- Basse
    $ note ("[0, <3!3 7!3>(3,8)]"
     - 24
    )
    # s "supersaw"
    # voice 0.1
    # gain 0.8
    # pan 0
