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
do
resetCycles
setcps (82/60/4)
let modIndex = pF "modIndex"
let chords = "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
let chordsMin = "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
let chordsMin = "<[c] <[f] [g]>>"
let gPontHPF = (whenmod 64 32 (# djfbus 1 (slow 16 $ range 0.5 0.9 cosine)))
let g = (# djfbus 2 (range 0.05 0.95 "^49"))
d1 $ g
$ mask "<f!4 [t f] f!2 [f!3 t] t!56>" -- Intro
$ fix (
(|* gain 0.9)
. (# lpf 200)
. (# att 0.2)
. (# rel 10))
("reverbkick")
$ "k . <k!2 <k ~> ~> [~ <~ k>] <~ [~ <~ k>]> k" -- Chaloupé/élagué
# "[jazz,reverbkick]"
# lpf 5000
# midiG' "^78" 0 1
d2
$ mask "<f!16 t!48>" -- Intro
$ g
$ fast 2 $ "~ snare:20"
# att 0.125
# rel 2
# gain 0.85
# midiG' "^79" 0 1.2
d3
$ g
$ someCyclesBy "<1!4 0!28>" (slow "<4!3 [4 2]>") -- Intro
$ someCyclesBy "<0!32 1!8 0!24>" (slow 2) -- Pont
$ ply "<2 [4 <2!3 <4 8>>]>" -- TODO: Plutot des triolets?
$ "d <~ d> d <d ~ d d>"
# "drum:2"
# cut 3
# gain 0.6
# pan 0.3
# midiG' "^80" 0 0.9
d4
$ g
$ mask "<f!8 t!24>"
$ struct "<t!8 [~ t] t!6 t(3,8)> . t(<3 [3 <5 1>]>,[8 <8!3 1>])"
$ arp "up!3 <converge <down downup>>"
$ note (chordsMin - 24)
# "bassWarsaw"
# crushbus 41 (range 14 8 "^53")
# pan 0.3
# room 0.2
# gain 0.6
# midiG' "^81" 0 1.1
d5 $ g
$ note (chords - 24)
# "FMRhodes1"
# att 1 # rel 2
# modIndex (range 0 2 "^54")
# room 0.8
# dry 1
# sz 0.2
# gain 0.7
# pan 0.68
# midiG' "^82" 0 1.2
d6 -- Fantomatic break loop
$ g
$ mask "<t!4 t(<5!3 [8 5]>,8)!3 t([5 8],8)>"
$ ply ("1 <1!3 2>")
$ iter "1 <4!3 1>"
$ slice 16 (run 16)
$ loopAt 2
$ "break"
-- # gain 0.45
# midiG' "^84" 0 1