-- Part 2 : Transe dub
do
  setcps (60/60/2)
  d1 -- Kick techno (mask 4) / trance (mask 12)
  -- TODO: at 12, not really transe yet
    -- $ mask "t(11,12)"
    $ whenmod 64 32 (|> n "[0 0 <0 ~>]*4")
    $ s "k!3 . k <k ~> k . k!3 . k k <k!4 ~ ~ k k ~ k>"
    # s "jazz"
    # gain 0.6
    # lpf (slow 8 $ range 50 15000 sine)
  d2 -- Hitrolls
    $ every 3 (fast 2)
    $ s "hh(<1 <3 5>>,8)"
    # gain 0.75
    # pan ("<0.5!3 [0.25|0.75]*1>")
    # lpf ((slow 19 $ range 2 20 sine) * 1000)
  d3 -- Bassline
    $ superimpose (fast 2 . (# crush 6))
    $ note (
      slowcat [
      "0 3 5 ~ <~ 5> <5 ~> 5 ~",
      "<5 ~> <~ 5> 5 5 <3!3 8> ~ <3!7 7> ~"
      ]
      )
    |- note 24
    # s "supersaw"
    # voice 0.2
    # pan 0.6
    # gain 0.3
  d4 -- guitare pompe
    $ whenmod 64 48 (degradeBy "<0.5!8 0.4!4 0.2!2 0.1 0>")
    $ note ("~ <5 3 3 5 5 3 5 5>") # s "supermandolin" # gain 0.6
    # room (slow 100 $ range 0 1 saw) # dry 1 # sz "<0.1 0.9 0.9 0.1>"
    # lpf (slow 16 $ range 200 20000 sine)
  d5  -- Toms
    $ someCyclesBy "<0.25 0.75>" (
      (slow 4) . (stut 4 0.95 (1/16))
    )
    $ someCycles (off 0.25 id)
    $ degradeBy (slow 8 $ "<1 [0.75 . 0.5 0] 0>")
    $ stack [
    "808lt*3" # n "<0!2 1>",
    "808ht:2*<4!4 <[8 3] [8 5]>>" # n "0 2"
    ]
    # gain 0.45
    # room (slow 16 $ range 0.2 0.8 saw)
    # sz 0.8 # dry 0.8
    # pan (slow 64 $ range 0.3 0.8 sine)
    # delay 0.5


once $ note "0 1 [~ 2] 2 2 . 2*2 1 0 [~ 0]"
  # s "bass3" # gain 0.7