-- 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