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
-- Dimanche mineur: Tech breakbeat melancholic
resetCycles
do
let prog = "<d'maj d'major d'min <d'maj a'maj'2>>"
let progMin = "<d'maj'2 d'major'2 d'min'2 <d'min a'maj>>"
setcps (105/60/4)
let g = (whenmod 32 28 (# djf (slow 4 $ range 0.5 0.05 isaw)))
d1 $ g
$ mask "<f!8 t!56>"
$ whenmod 64 32 (<| "k k(<3!3 5>,8)")
$ someCyclesBy "<t!32 f!32>" (<| "k*4")
$ "[kick:5,jazz]"
# lpf 2000
# room 0
# gain 1
d2 $ g
$ mask "<f!4 t!28>"
$ whenmod 64 32 (const
$ slice 8 ("0 1 2*<1 2> <3!3 <~ [~ 3]>>")
$ loopAt 2 $ "fbreak100"
# gain (slow 32 $ range 0.85 1.5 saw)
)
$ fix (|* gain 0.95) (n 7)
$ n (stack [
"[4(5,8),4(<0!3 1>,8,7)]",
"7 7 7 <7!3 [~ 7]>",
""
]) # "hh27"
# gain 0.9
d3 -- Lifeline
$ whenmod 32 30 (slow 2)
$ whenmod 32 28 (slow 2)
$ sometimesBy "0!7 <0 0.1>" (ply 2)
$ "tech:4*4"
# gain (slow 16 $ range 1.2 0.6 perlin)
d4 $ g -- Bass chill hypno
$ mask "<f!8 t!56>"
$ struct "t(5,8,<0!6 4!2>)"
$ arp "<up!6 down!2>"
$ note (prog)
# "bassWarsaw"
# octave 3
# pan 0.2
# legato "<1!3 2>"
# room 0.5
# gain (slow 32 $ range 0.95 0.75 (1 - cosine))
d5 $ g -- Rhodes+arp
$ mask "<f!8 t!56>"
$ mask "<t!16 f!11 t!5>" -- Complement sax
$ whenmod 32 8 (off "h" (
struct "t(12,16)"
. arpeggiate
. (|+ note "[0,12]")
. (|+ pan 0.8)
. (|* gain "<0.85 0.9 1 1.1>")
))
$ note (prog
+ "<0!8 [0 <12 <-12 24>>]!8>" -- spread
)
# "FMRhodes1"
# octave 3
# gain (slow 8 $ range 1 1.16 saw)
d6 -- Fantômes
$ mask "<f!24 t!8 f!16 t!16>"
$ note (progMin)
# "moogBass"
# gain 0.75
# pan 0.85
d7 -- Sax gauche
$ mask "<f!16 t!16>"
$ mask "<f!4 t t f f t!8>"
$ note ("<<-2 0>!3 <0 2>>")
# "sax:2"
# pan 0.35
# gain (slow 4 $ range 0.7 0.9 saw)
d8 -- Sax droit
$ mask "<f!16 t!16>"
$ mask "<f!4 f f t t t!8>"
$ note ("<0 0 <4 7 [0,[12 12]]> 0>")
# "sax:1"
# pan 0.2
# release 2
# cut 8
# gain (slow 4 $ range 0.75 1 saw)
d10 -- Kurt's random interjections
$ mask "<f [f!3 t] f!30 [t!4 f f t f]*4>"
$ off "[s|q|0.375|e]" (# crush 7)
$ off "[h|1]" (# lpf 2000)
$ "kurt" # n (irand 7)
# gain (slow 17 $ range 0.85 1 perlin)
d9 -- Chopped winds
$ mask "<f!3 t f!4 t!56>"
$ someCyclesBy "<1!16 0!112>" (|* gain (slow 16 $ range 0.3 1 saw))
$ whenmod 8 4 (chop "<16!3 8>")
$ "space:3"
# speed (range 0.35 "<1!12 1.5!4>" saw)
# room 0.8 # sz 0.9
# legato 4
# pan 0.9
# gain (slow 64 $ range 0.5 0.75 saw)