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
do
-- resetCycles
setcps (120/60/4)
let gDJF = whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.05 0.45 saw))
let g = gDJF
-- d10 $ mask "<t!32 t(2,8)!8 t!24>" $ "dr*8" # gain 0.4 -- Guideline
d1 $ g
$ mask "<t!128 [t f] f!127>" -- Outro
$ mask "<f!8 t!24 f!16 t!16 t!32>"
$ whenmod 32 16 (<| "k . k(<3!3 <5 [5 3]>>,8)")
$ fix (|* 0.68) ("jazz")
$ "k . ~ k <~ k> <~!3 k>"
# "[808bd:2,jazz]"
# lpf 200
# gain 1.35
d2 -- Snare classique
$ mask "<t!128 [t f t f] f!127>" -- Outro
$ g
$ mask "<f!7 t!25 f!8 t!24>"
$ fast 2
$ ply "<1!3 2>"
$ "~ <sn:2!3 <sn:4!3 [sn:4 sn:2]>>"
# note "-2"
# room 0.8 # dry 1 # sz 0.87
# gain 0.7
d3 -- Drumroll analogique
$ g
$ mask "<t!128 t(12,16) t(4,16)!127>" -- Outro
$ mask "<t(<2 4 4 7>,8)!4 t!60>"
$ whenmod 8 6 (ply "<1 [2 <[1 2] [2 4]>]> <0.5 [4 0.5]>")
$ "dr*<8 <8 [8 4]> 16 [8 . 4 16]>"
# "h2ogmsn" # n "<[14 13 13 12]!6 11 10>"
# gain 0.5
# room 0.4
# pan (slow 2 $ range "<0.6!3 0.4>" "<0.4!3 0.6>" isaw)
# sz 0.012
# dry 0.97
d4 -- Lead Guitar: Signor Loop
$ mask "<f!3 t t!60>"
-- V1: LoopAll
-- $ someCyclesBy "<f!16 t!16>" (slice 16 (slow 2 $ "<8 9 9 8 8 10 11 [12 13]>"))
-- $ someCyclesBy "<t!16 f!16>" (slice 16 (slow 2 $ "<5 1 5 1 5 2 2 3 5 1 5 6 5 6 6 7>"))
-- V2: Storytold
$ someCyclesBy "<f!32 f!16 t!16>" (slice 16 "<8 8 10 8 10 10 8 <10 12>> <9 9 3 9 11 12 13 13>")
$ someCyclesBy "<f!32 t!16 f!16>" (slice 16 "<5 6 5 7> <7 8 6 8*2>")
$ someCyclesBy "<t!32 f!32>" (slice 16 "<5 <5!3 [5 6]> <5!3 7> <1 3 1 8>>")
-- 0/16:Toi
-- 1/16:Viens, Je Reviens
-- 2/16:pour toi
-- 3/16:oui toi, que toi
-- 4/16:Pause
-- 5/16:Bonjour
-- 6/16: Et c'est bien toi que je
-- 7/16 veux...
-- 8/16: Oui c'est toi
-- 9/16: toi, toi, toi
-- 10/16: Bien toi
-- 11/16: Je te vois t'en aller
-- 12/16: Va...
-- 13/16: Il y en aura d'autres
-- 14/16:Pause
$ "latin"
# cut 4
# room 0.84
# dry 1.12
# pan 0.35
# sz 0.9
# lpqbus 41 (slow 4 $ range 0 0.5 sine)
# lpfbus 42 (range 500 5000 (slow 8 $ sine + 0.25 * perlin))
# gain 0.8
d5
$ g -- Support guitar
$ whenmod 4 3 (ply "<1 2>" . (# begin 0.56) . (# end 0.58))
$ "latin"
# begin 0
# end 0.044
# cut 5
# room 0.4
# dry 1
# sz 0.6
# pan 0.8
# gain 0.8
d6 $ g -- Core BREAK
$ mask "<f!32 t!32>"
$ slice 4 ("0 <1 ~> <2 0> <3 <~ 3>>")
$ loopAt 1
$ "breaks125:0"
# gain (slow 16 $ range 0.45 0.8 saw)
# pan 0.4
d9 $ g -- Support break
$ mask "<f!16 t!16>"
$ slice 32 "0*<1!7 2> 1*<1!7 2> 2*<1 1 2 <1 2>> 3*<1 2>"
$ loopAt 2
$ "break:29"
# cut 7
# gain (0.65 + (slow 32 $ range 0 0.1 saw))
# pan 0.23
# room 0.2 # dry 1 # sz 0.2