d1 -- Variations hardcore
$ whenmod 64 32 (<| s "k*<8 [8 4] 4 <8 16>>")
$ whenmod 64 16  (<| s "k k k <k*2 [~ k]>")
$ whenmod 64 8  (<| s "k*<4 2 2 4 2 2 4 4>")
$ whenmod 64 6  (<| s "k*2")
$ whenmod 64 4  (<| s "<k k*2>")
$ whenmod 64 0  (<| s "k")
$ s "k"
# s "kick:5"
# lpf (slow 64 $ range 200 2000 sine)
# gain 0.8


d1 -- TECHNO
$ whenmod 40 30 (# gain (slow 10 $ range 0.9 0.5 isaw))
$ s "k k k <[~ k] k*2>"
# s "kick:5"
# lpf (slow 16 $ range 200 2000 sine)

d2 -- snares
$ sometimesBy "0 0.5 0.5 0.75" (# n 1)
$ s "s(<3 [3|5]>,8)"
# s "snare"
# n "0"

d9
$ euclid (slow 4 $ "<1 <5 3>>") 8
$ s "glitch:5"
# hpf 2000
# gain 1.2

d3
$ whenmod 8 6 (# gain 0)
$ sometimesBy (slow 8 $ range 0 0.5 sine) (fast 2)
$ degradeBy (slow 8 $ range 0 0.5 cosine)
$ s "dr*12"
# s "drum:8"

d5
$ bite 4 "<0 1> <1 0> <3 2*2> <3 2>"
$ s "s(<1 3>,<1 8>)"
# note (scale "major"
"[0,5]"
+ "<0 2 4 2 7 5 7 9>"
- 28
)

d5 -- basse régulière montée/descente
$ s "b"
# note (scale "major" (-14 + "[0,5]" + (slow 2 $ "<0 <5 -2>>")))
# s "supersaw"
# voice 0.1
# gain 0.8

d6 $ s "birds" # n (irand 6) # speed (range 0.5 2 rand) # gain 0.9

d4
$ jux (# s "cheapPiano1")
$ s "0 <0 <~ 0*2>> 0 0 0*2 0*2 <0 ~> 0"
# note (scale "major" "[0,5]" + (slow 2 $ "<0 5>"))
# s "superpiano"
# velocity 0.5
# room 0.1