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
setcps 0.6
d1 -- beat: default chill, run tous les 64
$ whenmod 128 164 ( -- run
const $ "[r r?] r r [r r?]" # s "kick:5"
# release 0.8
# gain 0.8
)
$ euclid "<1 2>" 4
$ s "<k k*2 <k*2 k> k>"
# s "kick:5"
# release 0.8
-- # room 0.5
-- # size 0.5
d2 -- Carillons / Claps
-- claps apparaissent et disparaissent
-- $ whenmod 64 48 (fix (# gain "<0.9,0.025 .. 0.5>") (s "clap"))
-- $ whenmod 64 32 (fix (# gain "<0.5,0.025 .. 0.9>") (s "clap"))
$ whenmod 64 0 (fix (# gain "0") (s "clap"))
$ fix (# n (wchoose [(0.8,0),(0.2,1)])) (s "clap")
$ s "hh(<4 4 4 2>,4) clap" # n "8 8 8 <8 8 8 9> 3"
d4 -- Basse
-- $ rev
$ jux degrade
$ note (scale "aeolian"
"<[<3 [4 3]> . ~ <0 3>] [<0 3?> 1 0 1]> . <~ ~ <0 1>? ~>~"
)
# s "bassWarsaw"
# attack "3"
# room 0.3
# size 0.8
|- note 30
d5 -- Synth fou dub
-- $ fast 2
$ superimpose (|+ note "<5 5 3 3 0 0>")
$ note (scale "major" "~ 0")
# s "cheapPiano1"
|- note 12
# gain "<0.75 .. 1 1 .. 0.65>"
# room "<0.2 .. 2 2 .. 0.2>"
# size "<0.8 .. 0.2>"
# dry "1,0.2 .. 4 5,0.5 .. 1"
d6 -- lead harpe joyeuse
-- $ jux rev
-- $ sometimes (fast 2)
-- $ sometimes (off 0.125 (|+ 5))
$ "h?*8"
# n (scale "aeolian" "0 2 4 <7 9> <0 -3>")
# s "harpsichord2"
# gain "<0.9,0.05 .. 0.7 0.7,0.05 .. 0.9>"
d7
$ someCycles (degrade . off 0.5 (|+ 0))
$ s "~ dsynth(<4 3 5>,8)"
-- $ off 0.25 (|- note 7)
# note (scale "major" "0 7")
|- note "<12 9 7 12 5>"
# gain 0.7
-- |- note "<5 10 12 10 5>"
solo 5
mute 4
unmute 4