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
do
let gG a = (gain ("^77" * a)) -- gain Global
let gM' l h a = (gG (range l h a)) -- gain Modéré
let gM a = (gM' 0.2 0.8 a) -- gain Modéré doux
let gF = (# djf ("^49"))
let gRm = (# room 0.12)
let g = (gF . gRm)
let g = (id)
setcps (120/60/4)
d1
$ g
$ every' 8 6 (# silence)
$ sometimesBy "^42" (slow 2)
$ fast 4
$ "[jazz,tech:5]"
# gM' 0 1.2 "^78"
d2
$ g
$ every' 8 7 (mask "f . f t")
$ rarely (ply 2)
$ rarely (mask "t(3,4)")
$ "hh*8"
# gM' 0 1.3 "^79"
d3 $ g
$ sometimesBy "^57" ( -- OFF ARP!
off "q" id . (arpeggiate . (# legato 1))
)
$ note "<e'min7 f'maj7 d'sus4 a4'min7>"
# octave 4
# "bassWarsaw"
# gM' 0 1.1 "^81"
# room 0.5 # sz 0.5
# crush (range 16 5.2 "^53")
d4
$ g
$ whenmod 4 2 (superimpose ((# "clap") . (# lpf 5000) . (|* gain 0.8)))
$ fast 2 $ "~ cp*<1!3 2 2 1 0 2>" # lpf 2000
# gM' 0 0.9 "^83"