1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
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