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
102
103
104
105
106
107
108
109
110
111
once $ "dr" # gain 1.75
do
setcps (80/60/4)
let gPont2 = (someCyclesBy "0!32 1!8 0!24>" (# djf (slow 8 $ range 0.5 1 saw)))
let gPont = (whenmod 32 24 (# djf (slow 8 $ range 0.5 0 sine)))
let g = gPont
let gPonts = gPont . gPont2
d1
$ g
$ "j . j(<1 2 4 5>,8,<0 2 1 <0 3>>)"
# "hh27:5"
# cut 1
# gain 1.5
d2
$ g
$ mask "<f!16 t!16>"
$ whenmod 16 12 (fast "<2 [4 2] 2 [4 . 8 2]>")
$ "~ cp"
# "hh27:2"
# release 0.57
# note "-5"
# gain 1.8
d3 $ g
$ sometimesBy "0 <1!3 0.5> 0 <0!3 0.5>" (ply "[8|8 16|16]")
$ "h h h <h(<1 2>,2,<0!3 1>) [~!3 h]>"
# "[hh27:3,drum:2]"
# release 0.8
# gain 1.25
d10
$ g
$ note (
"<c!3 d>(<3 3 2 5>,8)" -- Rythme
+ "[0,12]" -- Epaisseur
- 36 -- Gamme baseline
)
# "supersaw"
# legato 2
# room 0.7
# sz 0.8
# pan 0.24
# voice 0.03
# gain 0.5
d4 -- BASSLINE Résolue
$ g
$ mask "<f!4 [t f]!4 t!24>"
$ ply "1 <1!4 2 2 [2 4] [8 4]>"
$ slice 4 "<0!4 1 1> . <0!3 1 1 0 2 3>"
$ "fbass:43"
# gain 1.1
# cut 4
# pan 0.2
# room 0.2 # dry 0.99 # sz 0.7
d5 -- Guitare Ressort
-- $ someCyclesBy ("<1!8 0!24>") (|* gain (slow 8 $ min 1 (range 0.5 2 saw)))
$ someCyclesBy "<1!16 0!16>" -- degrade
(mask "f t" . (|* gain (slow 16 $ range 0.5 1 saw)))
$ slice 8 (cat [
"0 . <~ 4> <~!3 6>",
"0 . ~ 0*<1 <2 4>>",
"~ . 0 <3 [6 7]>",
(iter 4 $ "0 1*<1 2 4> <2 3> <3 2> . 4 5 6 7")
])
$ "fguitar:43"
# room 0.1
# dry 0.99
# cut 5
# pan 0.8
# gain 1.1
d6 -- Sliced Electropiano
$ jux (("<q h>" ~>) . (|* gain 0.65) . (# cut 61)) -- Brother echo!
$ someCyclesBy "<0!16 0!8 1!8>" (slice 16 ("<0 1 2 3 4 5 6 7>" + "<0!4 8!4>"))
$ someCyclesBy "<0!16 1!8 0!8>" (slice 16 "<2*2 [0 2 2 2] 2*[8 . 16 4] [3 2 3 2] [3 2 1 0] [4 5 6 5] [3 2 6 7] [4 5 6 7]>")
$ someCyclesBy "<1!16 0!16>" (slice 16 "<0 1 0 1 [0 1] [0 1] [0 . ~ 1] [0 0 0 1]>")
$ "fepiano:26"
# pan 0.3
# gain 1 + "<0!4 0.1!4>"
# cut 6
once $ "fepiano:26"
# gain 0.7
# cut 7
let linput = pI "linput"
let lname = pS "lname"
once $ s "looper" # lname "lHome"
once $ "lHome" # gain 1.6
once $ "hh27:1" -- Ho lo
once $ "hh27:10" -- Ho hi soft
once $ "hh27:2" -- Maracas fermées
once $ "hh27:9" -- Maracas fermées lo
once $ "hh27:3" -- Maracas ouvertes / balai
once $ "hh27:8" -- Same plus aigu
once $ "hh27:4" -- Clochettes
once $ "hh27:5" -- Kick neige
once $ "hh27:6" -- Kick sec
once $ "hh27:12" -- Snare lo
once $ "hh27:11" -- Snare hi