-- TECHNO
setcps 0.35

do
  d1 -- BEAT
    $ whenmod 40 35 (# silence) -- pont 2
    $ degradeBy "0 0 0.25 0"
    $ s "0 0 0 <0 [~ 0]>"
    # lpf 300
  d2 -- Snares sur 8
    $ whenmod 40 25 (# silence) -- pont 2
    $ s "snare:7(<[3|5] 5 [5|4] 4>,8,[0|4])"
    # room (slow 16 $ range 0 0.3 saw)
    # size (slow 9 $ range 0 0.6 sine)
    # gain (slow 4 $ 0.7 + rand / 4)
  d3 -- Drumroll basique
    $ whenmod 40 38 (sometimes $ hurry 2)
    $ whenmod 40 35 (fast 2) -- pont 2
    $ s "dr(7,8,<1 .. 7>)"
  d4 -- Claps alternes
    $ fast (slow 4 $ "<1 2>")
    $ s "~ clap"
    # gain (slow 40 $ range 0.7 1 saw)
    # lpf 2000
  d5 -- basse motif
    $ whenmod 16 10 ( -- break 1
      superimpose (# s "subBass2") . (|- gain 0.1))
    $ whenmod 60 64 (swing 2)
    $ arp (slow 8 $ "<thumbup [thumbup down] downup [downup up]>")
    $ note ("f'maj e'min d'maj ~"
    + (slow 4 $ "<0 4 2 <0 12>>") -- descente
    - 24)
    # s "subBass1"
    # room 0.4 # size 0.2