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
64
65
66
setcps 0.5
unsolo 1
solo 9
unsolo 3
unsolo 8
d1 $ fast 2 $ s "dr"
do
solo 1 --
solo 2 -- Snare
solo 3 -- Drumroll
solo 4 -- Bass
solo 6 -- Choeurs
solo 8 -- Hihats
solo 9 -- Vibratinon
do
setcps (120/60/4)
d1
$ whenmod 32 31 (# gain 0.6)
$ whenmod 32 28 (# gain 0)
$ whenmod 32 24 (slow 2)
$ every' 4 3 (degradeBy "0.5 . 0.5 0")
$ s "k k k <k!3 k*2>" # "jazz"
# gain 0.6
# lpf (slow 16 $ range 2000 50 saw)
d2
$ s "~ <~!3 s?> . s <~ s>" # "snare:20" # gain 0.7
d8
$ whenmod 32 16 (degradeBy "0.5!16 0.2")
$ s "ho(3,8) hc*<<2 0> 3>" # cut 2 # n "[1|2|3]"
# gain 0.5
d3
$ fast "4 . <6 12>" $ s "drum:2" # gain 0.7
# pan (slow 8 $ range 0.2 0.8 sine)
d4 $ note (-24) # s "supersaw" # voice 0.01 # gain 0.4
d5
$ whenmod 64 32 (mask "t(1,8)")
$ superimpose (
(fast "8 16") .
(mask "t(1,16)") . (|+ note 12)
)
$ stut 4 (slow 4 "0.9") (1/16)
$ arp "[down,up]"
$ note ("<f4'min g4'maj d4'min f4'maj>")
# s "superpiano"
# velocity 0.3
d6
$ superimpose (|+ note 12)
$ note ("<<f4'min!4 f5'min!4> g4'maj d4'min f4'maj>")
# s "moogBass" # gain 0.75
d8 -- vibration montante!
$ superimpose (|+ note 5)
$ every' 4 "<0 1 2 3>" (someCycles rev)
$ sound "bd"
# note "0 <12 -12>"
>| speed (
segment 64
$ range "<0!4 9!4>" 5 saw
)
# gain 0.55
# pan 1
# legato 2