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
resetCycles
do
let sawHarmonic = pF "sawHarmonic"
let mix = pF "mix"
setcps (110/60/4)
d1
$ mask "<<f!4 t f!3> t!12 f!4 t f!3 t!8>"
$ "k . <k [~k~~]>" # "[jazz,cpu2]"
-- $ "k k k k" # "[jazz,kick:5]"
# lpf 4000
# gain 0.75
d2
$ struct ("t*<4 4 4 4 [4 8]!2 16 [16 8]>")
$ "~ s ~ s"
# "sn:20"
# lpf 2000
# gain 0.8
d3
-- $ mask "<f!7 f!21>"
-- $ superimpose (
-- (# "amencutup:4")
-- . (# lpf 2000) . (|* gain 0.8)
-- )
$ "d d d d d d d*2 d"
# "[drum:2,amencutup:5]"
# gain (slow 16 $ range 0.4 0.6 saw)
# pan (slow 16 $ sine)
# room 0.2 # dry 0.99
d4 -- Gauche
$ mask "<f!4 t!12 f!8 t!8>"
$ note "<c3!3 as3> . ~ [gs3 g3]"
# "superpiano"
# velocity 0.45
# gain (slow 64 $ range 0.8 1 sine)
# pan 0.45
d5 -- Droite 2/3
$ whenmod 16 10 (superimpose (const
$ note (
"[gs5 g5 gs5 ~] [g5 ~ . <gs5 as5>] . ~"
)
# "superpiano"
# pan 0.65
# velocity 0.4
))
$ mask "<f!6 t!10 t!8 f!4 t!4>"
$ note (
"<c3 [as4 gs3 g3 ~] cs3 c3> . ~ <[gs3 g3][gs3 g3 f3]>"
+ 12)
# "superpiano"
# pan 0.55
# velocity 0.45
d6 -- Horloge
$ fast 8
$ note "<0 -2>"
# "drum:2"
# hpf 5000
# hpq 0.3
# room 0.1 # dry 0.98
# gain 0.45
d7
$ mask "<f!8 t!8>"
$ note "[gs5 g5 gs5 ~] [g5 ~ . <gs5 as5>] . <~ ~ [<g5 ~> ~ . <gs5 ~>] [~ as5]> ~"
# "strings"
# sawHarmonic 1.9
# pan 0.1
# mix 0.8
# gain 0.8
# room 0.2