-
Notifications
You must be signed in to change notification settings - Fork 0
/
assembler-high.pd
168 lines (168 loc) · 4.11 KB
/
assembler-high.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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
#N canvas 294 0 976 683 10;
#X obj 118 29 inlet;
#X obj 208 29 inlet;
#X obj 309 29 inlet;
#X obj 29 329 i;
#X obj 52 329 + 1;
#X floatatom 29 360 5 0 0 0 - - -;
#X msg 44 299 0;
#X obj 77 360 moses;
#X msg 29 149 1;
#X msg 92 119 0;
#X obj 44 269 t b;
#X obj 127 420 + 1;
#X obj 104 420 i 0;
#X floatatom 104 451 5 0 0 0 - - -;
#X obj 289 179 list;
#X obj 289 209 zl nth;
#X obj 289 119 t b f;
#X floatatom 289 240 5 0 0 0 - - -;
#X obj 409 179 list;
#X obj 409 209 zl nth;
#X obj 409 119 t b f;
#X obj 409 329 list;
#X obj 409 269 t b f;
#X obj 409 359 zl nth;
#X floatatom 409 420 5 0 0 0 - - -;
#X obj 174 480 moses;
#X obj 104 390 t b b;
#X obj 201 420 list length;
#X obj 201 390 list;
#X obj 201 542 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 29 420 0;
#X floatatom 409 240 5 0 0 0 - - -;
#X obj 104 210 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 104 330 - 1;
#X obj 201 450 + 1;
#X obj 384 91 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 322 179 5 0 0 0 - - -;
#X msg 56 119 1;
#X obj 29 29 inlet;
#X obj 440 421 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 29 209 metro 350;
#X obj 39 59 s ah_start;
#X obj 118 59 s ah_durlist;
#X obj 208 59 s ah_pitchlist;
#X obj 309 59 s ah_keylist;
#X obj 92 89 r ah_done;
#X obj 56 149 s ah_note_index;
#X obj 44 239 r ah_note_index;
#X obj 104 300 r ah_currdur;
#X obj 29 390 r ah_done;
#X obj 174 510 s ah_note_index;
#X obj 201 570 s ah_done;
#X obj 222 360 r ah_durlist;
#X obj 289 269 s ah_currdur;
#X obj 310 149 r ah_durlist;
#X obj 289 89 r ah_note_index;
#X obj 409 89 r ah_note_index;
#X obj 430 149 r ah_pitchlist;
#X obj 430 299 r ah_keylist;
#X obj 409 389 expr $f1 + ($f2 * 12);
#X obj 532 359 i 0;
#X obj 442 329 + 1;
#X obj 409 509 makenote 1;
#X obj 466 449 r ah_currdur;
#X obj 532 329 - 2;
#X obj 466 479 expr $f1 * $f2 - 5;
#X obj 571 449 i 350;
#X obj 80 179 r ah_tempo;
#X obj 571 419 r ah_tempo;
#X obj 169 119 i;
#X obj 184 89 r master_tempo;
#X obj 169 149 s ah_tempo;
#X obj 29 89 t b b b;
#X obj 399 29 inlet;
#X obj 399 59 s ah_octave;
#X obj 532 299 r ah_octave;
#X obj 409 569 outlet;
#X obj 466 569 outlet;
#X obj 526 569 outlet;
#X text 525 584 adsr;
#X text 465 584 vel;
#X text 408 584 pitch;
#X obj 526 509 adsr-builder;
#X connect 0 0 42 0;
#X connect 1 0 43 0;
#X connect 2 0 44 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 7 0;
#X connect 6 0 3 1;
#X connect 7 1 26 0;
#X connect 8 0 40 0;
#X connect 9 0 40 0;
#X connect 10 0 6 0;
#X connect 11 0 12 1;
#X connect 12 0 11 0;
#X connect 12 0 13 0;
#X connect 13 0 25 0;
#X connect 14 0 15 0;
#X connect 15 0 17 0;
#X connect 16 0 14 0;
#X connect 16 1 36 0;
#X connect 17 0 53 0;
#X connect 18 0 19 0;
#X connect 19 0 31 0;
#X connect 20 0 18 0;
#X connect 20 1 19 1;
#X connect 21 0 23 0;
#X connect 22 0 21 0;
#X connect 22 1 61 0;
#X connect 23 0 59 0;
#X connect 24 0 39 0;
#X connect 24 0 62 0;
#X connect 25 0 50 0;
#X connect 25 1 29 0;
#X connect 26 0 12 0;
#X connect 26 1 28 0;
#X connect 27 0 34 0;
#X connect 28 0 27 0;
#X connect 29 0 51 0;
#X connect 30 0 12 0;
#X connect 31 0 22 0;
#X connect 33 0 7 1;
#X connect 34 0 25 1;
#X connect 36 0 15 1;
#X connect 37 0 46 0;
#X connect 38 0 41 0;
#X connect 38 0 72 0;
#X connect 40 0 3 0;
#X connect 40 0 32 0;
#X connect 45 0 9 0;
#X connect 45 0 37 0;
#X connect 47 0 10 0;
#X connect 48 0 33 0;
#X connect 49 0 30 0;
#X connect 52 0 28 1;
#X connect 54 0 14 1;
#X connect 55 0 16 0;
#X connect 55 0 35 0;
#X connect 56 0 20 0;
#X connect 57 0 18 1;
#X connect 58 0 21 1;
#X connect 59 0 24 0;
#X connect 60 0 59 1;
#X connect 61 0 23 1;
#X connect 62 0 76 0;
#X connect 62 1 77 0;
#X connect 63 0 65 0;
#X connect 64 0 60 0;
#X connect 65 0 62 2;
#X connect 65 0 82 0;
#X connect 66 0 65 1;
#X connect 67 0 40 1;
#X connect 68 0 66 0;
#X connect 69 0 71 0;
#X connect 70 0 69 1;
#X connect 72 0 8 0;
#X connect 72 1 37 0;
#X connect 72 2 69 0;
#X connect 73 0 74 0;
#X connect 75 0 64 0;
#X connect 82 0 78 0;