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
d1
-- $ every 2 (0.125 ~>)
-- $ every 4 (off 0.125 (|+0))
-- $ every' 8 7 (rev)
-- $ every' 8 8 (# gain 0)
-- $ every' 16 15 (# gain 0)
-- $ every' 16 16 (off 0.25 (|+0))
-- $ every 2 ""
$ every 4 (degrade)
$ every 4 (off 0.125 (|+0))
$ every' 8 7 (sometimes $ hurry 2)
$ s "house(4,4)"
d2
$ every 2 (rev)
$ every' 4 3 (# gain "0 1")
$ every' 8 6 (fast 2)
$ s "dr*3 ~ dr*2 <~ <dr dr*2>>"
once $ s "superpiano*8"
# note ("0 2 4 5 7 9 11 12")
-- Main gauche:
-- A B C D
-- A: do1,do2
-- B: la1,la2
-- C: fa1,fa2
-- D: fa2,fa3
d3
$ every 4 (off 0.125 (|+ n 0))
$ every' 4 1 (off 0.125 (# note 5))
$ every' 4 2 (off 0.125 (# note "<[0,3] [0,5]>"))
$ every' 4 2 (off 0.5 (# note "<[0,3] [0,5]>"))
$ s "superpiano" --todo remove last
# velocity 0.6
# note "[[-14,-7] [-2,5] [-11,-4] [-4,3]]"
# sustain 2
# pan 0
-- Main droite:
-- A B C D
d4
$ every 1 (off 0.25 (# note (-12)))
$ every' 4 0 (# note (choose [2,7]))
$ every' 4 1 (# note (choose [7,12]))
$ every' 4 2 (# note (choose [5,10]))
$ every' 4 3 (# note (choose [12,17]))
$ euclid "<3 5 7 16>" 8
$ s "superpiano"
# note "[15,19]"
# velocity 0.4
# pan 1
d5
$ s "alphabet*4"
# n (irand 26)
# gain 0.7