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
-- Lendemain Divin
do
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gF3 = (# djfbus 3 (range 0.05 0.95 "^51"))
let gMask = (midiOn "^41" (mask "t . <f t f <f t>> <t f f <t f>>"))
let gMute = (midiOn "^73" (mask "f*16"))
let gMute2 = (midiOn "^74" (mask "f*16"))
let gMute3 = (midiOn "^75" (mask "f*16"))
let gM = gMask . gMute
let gM2 = gMask . gMute2
let gM3 = gMask . gMute3
setcps (95/60/4)
d1 $ gMute2 $ gF1
$ fix (|* gain 0.9) "kick:6"
$ midiOn "^42" (<| "k <~!8 k!56> . <~!4 k!28> k*<1!3 2>")
$ midiOff "^42" (<| "k . ~ ~ ~ <~ k ~ [~ k]>")
-- $ "[techno:0,808bd:2,909,kick:6]"
$ "[jazz,kick:4]"
# lpf 6000
# gain 1.5
d2 $ gMute $ gF1
$ midiOn "^43" (fast 2)
$ midiOn "^75" (# "cp")
$ "~ s*<1!3 <2 4>>"
# "[snare:32]"
# note "-4"
-- # lpf 2000
# gain 1
d3 $ gF1 $ gMute
$ midiOn "^76" (ply 2)
$ midiOn "^44" (struct "t*[16!3 <8 [8 <16 32>]>]")
-- $ midiOn "^76" (struct "t*[8 <8 16> <16 8 8 16> <16 [32 <64 128>]>]")
$ fix ((|* gain (slow 32 $ range 0.3 1.3 saw))) "oh"
-- $ midiOff ("^44" + "^76") (<| "~ h ~ h ~ h*<1!3 2 1 1 2 2> ~ h*<1!7 2>" )
$ drumFrom "[rolandtr808,rolandtr606]" "[hh]"
# n "0!3 <0!3 1>"
# lpf 4500
# att (slow 16 $ range 0.001 0.04 cosine)
# rel 0.4
# room 0.2 # dry 0.9
# gain 1.05
d4 $ gF2 -- Basse complainte
$ midiOn "^89" ((ply "8 <16 [16 8]>")
-- . (# room "0 0.4")
-- . (# sz "1 1.2")
. (# cut 4))
-- $ note "[c3,ef3,g3,as3,d4,f4]"
-- Bassline habituelle
$ midiOff "^57" (
>| note "<<d4!6 [d4@7 <f4 g4>]!2> <a3!4 [a3@7 <c4 c3>]!4> [<g3 [g3@7 f3]>] d3>"
)
$ midiOn "^57" (
>| note "<[d3@6 c3@2] <as3 as3*2> <[f4@6 f4 g4] [f4@5 g4 f4 c4]> d4>"
)
$ "bassWarsaw"
# crushbus 41 (range 16 2.5 "^53")
# room 0.2
# cut "41 42 43 44"
# gain 1.42
d7 $ gMute3 $ gF3
$ n "<0 0 <6 5> 0 1 1 2 7>"
# "come_guitar" # cut 6
# crushbus 61 (range 16 2.5 "^55")
# lpfbus 62 (range 10000 7500 "^55")
# room 0.3
d8 $ gM $ gF3
$ midiOn "^92" (ply "<4 4 8 16>")
$ midiOn "^20" (loopAt 4 . (# n 11)) -- Submarine break
$ midiOn "^36" (# "jungle_breaks:45") -- House Orleanaise
$ midiOn "^56" (mask "t [t t <t f> <t!3 f>]" . loopAt 1 . (# n 16) . (# lpf 2500)) -- Jumper's break
$ slice 8 "0 1 2 3*<1 2>"
$ loopAt 2
-- $ midiOn "^36" (# n 1)
$ "jungle_breaks:13"
# room 0
# gain 1.2
# cut 8