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
d4 $ s "arp:0"
# gain 0.9
d3
$ fast 4
$ s "kick:5"
d2 $ s "[dr dr?]*4"
# s "drum"
d5
$ fast 4
$ s "~ ulgab?:1"
--- BELOW: Pas hardcore du tout
d1 $ s "kick?:5*4"
# gain 0.8
d2
$ fast 2
$ whenmod 16 10 (# s "sn [sn, cp]")
$ s "sn [sn, cp]"
# gain 0.8
d3
$ whenmod 16 8 (|- note 7)
$ someCycles (|+ note 5)
$ someCycles (|- note 7)
$ note (scale "major" 7)
# s "bassWarsaw"
# gain 0.6
d4 -- basse grave
$ iter 3
$ chop "<<1 4> 2>"
$ someCycles (|+ note 5)
$ someCycles (|- note 7)
$ note (scale "major" 7)
# s "ikedaBass"
|- note 21
# gain 0.8
d5 -- choeur fou
$ whenmod 64 60 (# gain "<0.8 0.75 0.7 0.65>")
$ whenmod 64 32 (# gain 0.9)
$ whenmod 8 4 (|- note 7) -- quinte
-- $ superimpose ((|+ note 5) . degrade) -- variations quinte
$ someCyclesBy 0.2 rev
$ chop "<2 4 6 8>"
$ off 0.25 (|+ 7)
$ s "moogBass" # cut 1
# note (scale "major" "<1 0 [1 3] ~>")
# gain 0.9