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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
do
d1 $ s "bd" # gain 0.8
d2 $ ply ("<1!2 2 4>" * "<4!3 1>") $ s "drum:8"
d3 $ slice 8 ("0 1 2 3")
$ sound "break:8" # gain 0.95
d4
$ whenmod 8 6 (degrade)
$ superimpose (
every 2 (often (# silence))
. slow 2 . arp "updown" . (|- note 24))
$ struct "t([3|5|7],8,<0 4>)"
$ note ("<c'maj f'maj c'min c'maj>")
# s "superpiano" # velocity 0.45
-- TECHNO JAMBON FROMAGE SLICE
do
solo 1 -- kick
solo 2 -- drumroll
unsolo 3 -- bass
solo 4 -- clap simple
solo 5 -- piano
solo 6 -- Vocal British
unsolo 7 -- Vocal bev
solo 9 -- clap double echo
solo 10 -- Jambon fromage
setcps 0.5
d1
-- $ "k k k <k!3 [~ k]>"
$ "k . k(<3 <1 5 3 4>>,8)"
# s "reverbkick"
# lpf (slow 16 $ range 200 2000 perlin)
# gain 0.95
d2 -- Drumroll / hat regulo 8 accelere
$ superimpose ( -- Hats
const $ s "ho:[0|1](3,8,<2>)" # gain 0.8 # cut 2
)
$ whenmod 32 24 (degradeBy "0 0.5!7")
$ whenmod 32 16 (fast 2)
$ fast "16 8"
$ s "drum:8"
d2 -- Drumroll ternaire!
$ fast 4 $ s "d d*1 d*2"
# s "dr"
# note ("<0!12 -2 -4 -8 -10>")
d3 -- SMOKE ON THE BAD RYTHM
$ mask "t(1,4)"
$ superimpose ((|+ note 12) . (# gain 0.65))
$ note (slowcat
["c ds f ~", "c ds [fs f] ~", "c ds f [~ ds]", "~ c"]
- 24)
# s "supersaw"
# voice 0.1 # gain (slow 40 $ range 0.5 0.8 sine)
d3 -- Basse slow sonore
$ mask "t(<1!2 2!2 3!2 4!2>,4,<0 1 2 3>)"
-- $ chop "4"
$ note ("c <ds!4 gs!4> [g <f!3 gs>]") # octave 3
# s "supersaw" # voice 0.1 # gain 0.85
d4 $ s "cp"
# gain 0.8 # room 0.5 # dry 1
d5 -- Piano fou
$ superimpose (|> note ("c4'maj*12" + "<0 12 24>"))
$ note ("c!6 [c <ds f ds!2 f!3 [f c] [c f]>] ~")
# s "superpiano" # velocity 0.65
# gain (slow 100 $ range 0.6 0.9 cosine)
d6
$ often (# crush 16)
$ slice 4 "<0!3 1>*4" $ s "bsvocals"
# gain (slow 40 $ range 0.3 0.8 sine)
# cut 6
d7
$ slice 4 "0(<4!7 1>,8)" $ s "bev" # cut 7
# gain 1 # room 0.9 # sz 0.4
d9
$ every' 4 3 (off 0.125 id)
$ s "~ ~ ~ cp"
# room 0.8 # sz 0.5 # lpf 2000
d10
$ slice 4 ("<3!3 <0!3 1>>")
$ "macron:7" # gain 0.95
# cut 10
-- DUBIFICATION?
do
d1
$ s "jazz(3,8)"
d2
$ fast "<16!3 [4 <4 8>]>" $ s "drum:8"
d3
$ whenmod 32 24 (mask "t(1,4)")
$ note ("[0*2 <7!5 5!2 3!2 2>]*2")
# s "superpiano"
# octave 6
# velocity 0.4
# room 0.4 # sz 0.2
d4 -- Basse electrique
$ often (superimpose (# crush 4.5))
$ note (scale "aeolian" ("0 ~ . ~ 4 ~ 0(2,<2!2 4 8>)"))
# s "bassWarsaw" # octave 3
# gain (slow 16 $ range 0.75 0.9 sine)
d5
$ s "ho(<1 3 <5 7>>,8) hc([1|2|4],4)" # n "0 [2]"
# cut 5
# gain 0.75
-- Jazz-hop?
do
d1 $ "k . k(3,8)" # s "reverbkick" # gain 0.6
d2 $ "~ sn:1" # gain 0.8
d3 $ s "dr*4" # gain 0.7
d4
$ scramble "<4!4 8 2>"
$ note (scale "aeolian" (run 8))
# s "brass:13" # gain 0.5
do
d1 $ whenmod 32 24 (slow 2) $ "sequential:3*4"
d2 $ "~ sequential"
d3
$ jux rev
$ "sequential:2(6,8,<0 4>)"
# gain (slow 32 $ range 0.6 0.9 saw)
d4
$ superimpose ( -- Arpeges
superimpose ( -- Bassline
swing 2 . (|> "bassWarsaw")
. (# octave 2)
. (|* gain 1.3)
) .
arp "downup" . (|- note 12) . (# cut 41)
)
$ note ("<c7'maj'4 f7'maj'2 c7'min'4 c7'maj'2>") # "sax:6"
# gain 0.85
# cut 4
d5 $ ""