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
do
setcps (120/60/4)
let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let g1 = (gDJF1)
let g2 = (gDJF2)
d1 $ g1
$ midiOn "^42" (<| "k . k(<<3 1> 1 3 5>,8)")
$ midiOff "^42" (<| "k")
$ "[jazz,909]"
# midiG' "^78" 0 1.2
d2 $ g2 $ "~ snare:42"
# midiG' "^79" 0 1.2
d4 $ g1
$ midiOn "^44" (iter "1 4")
$ midiOn "^76" (ply 2)
$ slice 16 (run "8 <8!3 <[4 8] 4>>")
-- $ midiOn "^44" (loopAt 4)
$ loopAt 2
$ "break:1"
# cut 4
# midiG' "^80" 0 1
# octerbus 40 (range 0 1.2 "^52")
# octersubbus 41 (range 0 5 "^32")
# octersubsubbus 42 (range 0 5 "^16")
d5
$ g2
$ superimpose ( -- étoiles juxées
(|+ note 12)
. juxBy 0.8 (0.5 ~>)
. striate 8
-- . (|* gain 0.8)
)
$ stut 4 0.5 1
$ slow 4 $ "tristram"
# n "<0 1>"
# room 0.84 # sz 0.8 # dry 1
# midiG' "^82" 0 1
d6 $ g2
$ slice 4 "0 <1 ~> <2 [1 2]> [<3 ~> 3]"
$ note (arp "up" ((slow 4 "<a3 af3>") + "c'min'4"))
# "supersaw"
# lpf 3000
# voice 0.1
# midiG' "^81" 0 1
# crushbus 61 (range 16 3.2 "^53")
# room 0.4
-- La pub c'est le mitard
-- Et le prof me voyait
-- La cerise en retard