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
setcps 0.5
-- b0: chirp 2s
-- b1: chirp aigu leger 2s
-- b2: leger monte descend 3s
-- b3: leger haut bas haut 3s
-- b4: siffle aigu cool
d1 $ -- base
s "birds/4"
# room 0.9
# size 0.5
# gain 0.5
d3 -- aigu lead?
$ slow 2 $ up "<0 2 7 0>"
# s "birds:4"
|- up 7
# gain 0.7
d2 -- occasionel padlong
$ s "~ birds:3/8"
# gain 0.9
d5 -- pivert
$ whenmod 64 48 (# gain 0.9)
$ often (stut 5 0.9 0.05)
$ s "birds3:6(<1 1 3 1> ,8)"
# gain 0.9
d6 -- scratch moineau
$ whenmod 128 80 (# gain 1.2)
$ whenmod 128 72 (# gain 1.1)
$ whenmod 128 64 (# gain 1)
-- $ degradeBy "<0 .. 0.5 0.5 .. 0.2 0.2 .. 0.6 0.6 .. 0>"
$ whenmod 16 16 (# up 12)
$ whenmod 16 15 (# up 10)
$ whenmod 8 7 (# up 7)
$ whenmod 8 4 (# up 1)
$ n "0*16"
# s "birds3"
# n (choose [0,0,2])
# gain 0.6