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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
-- Dark dub base reguliere
do
resetCycles
setcps (90/4/60)
let mel = ("<c!3 <as4 ds5>>")
let gF = (whenmod 32 16 (# lpf (slow 16 $ range 0 1 sine)))
d1
$ gF
$ whenmod 16 8 (off "s" id)
$ "[electro1:6,reverbkick]"
# lpf 2000 # gain 0.8
d2
$ gF
$ off "e" (|* gain 0.7)
$ fast "<4!3 [4 <[8 4] <8 16>>]>"
$ "h2ogmhh"
# gain 0.45
d3
$ ("0.25" ~>)
$ superimpose (
(|- pan 0.1)
. (# "bassWarsaw")
. (|- note 24)
. (|* gain 0.8)
. (# legato 1)
)
$ note ("c [c d] c ~ ~ ~ <b4!4 f b4!2 f>")
# "bass3:1"
# legato 0.95
# room 0.2
# pan 0.8
# gain 0.65
d4 -- Aigu contretemps
-- $ mask "<f!4 t!8 f!4 t!16 f!8 t!8>"
$ superimpose (
(# "superpiano")
. (|<| "p(<4!4 8!4 12!4 16!4>,8)")
. (# velocity 0.45)
)
$ fast 2
$ "~ p"
# note (mel)
# octave 7
# "pluck"
# gain 0.65
d5 -- Piano grave temps
-- $ mask "<f!8 t!16 f!4 t!4>"
$ off "e" id
$ fast 2
$ note mel
# "superpiano"
# octave 3
# room 4 # dry 0.99 # sz 0.9
# legato 2
# pan 0.25
# velocity (slow 64 $ range 0.35 0.55 sine)
resetCycles
do
d1
$ whenmod 64 32 (
fast "4 4 4 <4 4 2 <2 [4 8]>>"
)
$ "jazz"
# lpf (slow 8 $
"<10000 2000 [1750 1500] [1250 1000] [750 500] [400 200] 150 50>")
# gain 0.8
d2
$ superimpose (
const
$ jux rev
$ euclid 3 8
$ "808mt"
# cut 21
# gain (slow 16 $ range 0.8 0.6 perlin)
)
$ fast "4 . 4 4 <8 8 <6 12> 8>"
$ "808lt"
# gain (slow 32 $ range 0.6 0.9 perlin)
d3 -- Trompettes de la mort
$ n "0 <5 5 6 7 5 5 6 7 8 8 9 7 8 8 9 9>"
# "trump"
# room 0.5
# dry 0.9 # sz 0.8
# pan 0.8
# cut 1
# gain 0.35
d4 -- Bassline elastique
$ "b*2 ~ b . b*<1!4 2!4 [8 4]!4>"
# "bass3" # n "0"
# note ("<d g f d>")
# room (slow 32 $ range 0 0.25 saw)
# sz 0.2
# pan 0.2
# cut 4
# gain (slow 16 $ range 0.4 0.68 sine)
d1 $ "hand:15" # cut 1
once $ "fbass" # note (-2)
once $ "electro1:6"