-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathgm-sustain.pd
98 lines (98 loc) · 2.62 KB
/
gm-sustain.pd
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
#N canvas -9 -9 1920 988 10;
#X obj 666 37 inlet;
#X obj 70 39 inlet;
#X obj 163 196 unpack f f f;
#X obj 434 78 array define -k \$0-sus-notes 100;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0;
#X obj 407 100 array define -k \$0-sus-voice 100;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0;
#X msg 407 31 const 0;
#X obj 407 9 loadbang;
#X obj 408 184 v \$0-sus-ar-size;
#X obj 408 138 loadbang;
#N canvas -9 -9 1920 988 check-if-sustained 0;
#X obj 35 25 inlet;
#X obj 35 47;
#X connect 0 0 1 0;
#X restore 131 370 pd check-if-sustained;
#X obj 407 56 t a a;
#X obj 666 130 spigot;
#X obj 693 106 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 666 61 t f f;
#X obj 693 83 == 64;
#X obj 666 152 >= 64;
#X obj 208 133 v \$0-sus-ar-size;
#X obj 208 153 + 1;
#X obj 208 173 v \$0-sus-ar-size;
#X obj 163 91 t a b, f 8;
#X msg 408 160 0;
#X obj 705 199 s \$0-sus-state;
#X obj 208 112 spigot;
#X obj 241 89 r \$0-sus-state;
#X obj 624 338 sustain;
#X obj 70 61 route flush mode;
#X obj 666 175 moses 1;
#X obj 666 219 s \$0-fflush;
#X obj 14 110 s \$0-fflush;
#X obj 538 244 r \$0-fflush;
#X obj 232 217 > 0;
#X obj 232 239 t f f;
#X obj 163 303 spigot;
#X obj 226 304 spigot;
#X obj 163 231 pack f f;
#X obj 163 253 t a a;
#X obj 259 259 + 1;
#X obj 259 281 mod 2;
#X obj 407 263 v \$0-sus-ar-size;
#X obj 407 217 loadbang;
#X msg 407 239 0;
#X obj 401 310 array set \$0-sus-notes 100;
#X obj 578 303 array set \$0-sus-voice;
#N canvas 683 396 450 300 note-off-update 0;
#X obj 37 37 inlet;
#X restore 226 326 pd note-off-update;
#X connect 0 0 13 0;
#X connect 1 0 25 0;
#X connect 2 0 34 0;
#X connect 2 1 34 1;
#X connect 2 2 30 0;
#X connect 5 0 10 0;
#X connect 6 0 5 0;
#X connect 8 0 20 0;
#X connect 10 0 4 0;
#X connect 10 1 3 0;
#X connect 11 0 15 0;
#X connect 12 0 11 1;
#X connect 13 0 11 0;
#X connect 13 1 14 0;
#X connect 14 0 12 0;
#X connect 15 0 26 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 19 0 2 0;
#X connect 19 1 22 0;
#X connect 20 0 7 0;
#X connect 22 0 16 0;
#X connect 23 0 22 1;
#X connect 25 0 28 0;
#X connect 25 2 19 0;
#X connect 26 0 27 0;
#X connect 26 1 21 0;
#X connect 30 0 31 0;
#X connect 31 0 32 1;
#X connect 31 1 36 0;
#X connect 33 0 43 0;
#X connect 34 0 35 0;
#X connect 35 0 32 0;
#X connect 35 1 33 0;
#X connect 36 0 37 0;
#X connect 37 0 33 1;
#X connect 39 0 40 0;
#X connect 40 0 38 0;