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
once $ "bd"
setcps (-1)
do
-- Accompagnement:
-- Gauche <[c,e] [b,d] [f,a,c]@2>
-- Droite All the way <3
let modIndex = pF "modIndex"
let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gMask = mask "t t <t <t f> t <f [f t]>>"
let g1 = (gDJF1 . gMask)
let g2 = (gDJF2 . gMask)
setcps (86/60/4)
d1 $ g1
$ fix (
(|> note (
-- "<e!4 c!3 e> <c!4>"
"<e e a c e e f e> <c!4 c!4>"
+ "4" -- Proper tuning
+ "[0,12]"
)
)
. (|* gain 0.8)
)
"808bd"
$ midiOn "^42" (<| "k k k k <k!7 ~> k k <k*2 [~ k]>")
$ midiOn ("^41" - "^42") (<| "k k k <k*2 [k k*2] k [~ <k k*2>]>")
$ midiOff ("^41" + "^42") (<| "k . k(<5 <7 [3 7]>>,8,<0!6 3 <3 0>>)")
$ "[bd,808bd:4]"
# midiG' "^78" 0 1.2
d2 $ g1
$ fast 2
$ "~ cp"
# "clap:1"
# midiG' "^79" 0 1.2
d3 $ g2
$ midiOn "^44" (fast "<1!6 2 [2 4]>") -- Gratuitous snare rush
$ ply "2 <2 4>"
$ "sn:27*4"
# midiG' "^80" 0 1.2
d4 $ g2
$ note "<e4 d4 <a3!3 f4>@2>"
# "supersaw" # octave 3
# cut 4
# crushbus 41 (range 16 2.5 "^53")
# panbus 42 (0.5 + 0.1 * perlin)
# room 0.2
# sz 0.5
# dry 0.8
# midiG' "^81" 0 (1.2 - 0.2 * "^53")
d5 $ g2
$ sometimesBy "0 0.05!14 0" (# crush 2)
$ sometimesBy 0.1 (ply 2)
$ swing "1 4"
$ midiOn "^58" (superimpose (
mask "<t!16 f(<14 10>,16)!3 t!13>" .
(|+| note (
arp "<pinkyup <converge thumbupdown>>"
"<c'maj'4!7 c'maj'8>*4"
))
-- . (|* gain 0.86)
))
$ note "e3 <a5 b5 b5 c6>"
# "FMRhodes1"
# pan 0.7
# room 0.4
# midiG' "^82" 0 1.2
# modIndex (range 0 100 "^34")
# crushbus 51 (range 16 2.5 "^54")
d6 -- Break balance
$ g1
$ midiOn "^60" (sometimesBy "0.5!14 0!2" $ ply 2)
$ midiOn "^92" (slice 8 ("0 1 2 3 0 5 6 <7 3 7 [3 3]>"))
$ midiOff "^92" (slice 16 (run 8))
$ loopAt 2
$ "break:26"
# cut 6
# midiG' "^84" 0 1.2