-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathMIDI2DOMO.pd
More file actions
235 lines (235 loc) · 5.51 KB
/
MIDI2DOMO.pd
File metadata and controls
235 lines (235 loc) · 5.51 KB
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
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
#N canvas 34 181 834 536 12;
#X declare -path maxlib;
#X obj 50 27 notein, f 10;
#X obj 51 173 bag, f 5;
#X msg 128 147 flush;
#X obj 98 56 sel 0;
#X obj 129 78 b;
#X obj 128 124 t b b, f 9;
#X obj 51 200 mod 12;
#X msg 51 227 1 \$1;
#X obj 51 251 <<;
#X obj 51 275 |;
#X obj 87 275 f;
#X msg 188 150 0;
#X obj 87 304 t b f;
#X obj 87 352 f;
#X obj 68 421 s /GAMME;
#X obj 87 328 del 1;
#X obj 128 101 del 50;
#X obj 158 377 s /CHORD;
#X obj 258 275 spigot;
#X obj 258 299 t f b;
#X msg 302 298 0;
#X msg 297 252 1;
#X obj 296 428 s /BASS;
#X obj 293 70 declare -path maxlib;
#X floatatom 403 302 5 0 0 0 - - -;
#X symbolatom 446 263 48 0 0 0 - - -;
#X floatatom 490 224 5 0 0 0 - - -;
#X floatatom 532 224 5 0 0 0 - - -;
#X floatatom 577 224 5 0 0 0 - - -;
#X floatatom 623 224 5 0 0 0 - - -;
#X floatatom 468 245 5 0 0 0 - - -;
#X floatatom 424 282 5 0 0 0 - - -;
#X obj 490 198 unpack f f f f f f, f 32;
#X obj 403 146 maxlib/chord;
#X floatatom 667 224 5 0 0 0 - - -;
#N canvas 138 81 591 662 guess_scale 1;
#X obj 32 4 inlet bass;
#X obj 343 45 inlet chord;
#X obj 32 99 t b f, f 22;
#X obj 32 155 text sequence \$0-scales;
#X msg 128 128 step;
#X obj 343 69 list length;
#X floatatom 343 93 5 0 0 0 - - -;
#X msg 32 128 line 0 \, step;
#X obj 32 179 list split 1;
#X obj 32 28 t b f, f 6;
#X obj 32 76 f, f 6;
#X obj 32 51 del 10;
#X symbolatom 32 632 10 0 0 0 - - -;
#X obj 72 203 t b a, f 30;
#X obj 72 227 list, f 8;
#X obj 95 286 list split 1;
#X obj 95 337 -, f 14;
#X obj 95 361 mod 12;
#X obj 318 264 list split 1;
#X obj 358 288 t a;
#X msg 364 313 const 0;
#X msg 318 313 \$1 1;
#X obj 364 339 s \$0-testScale;
#X obj 318 238 t a b;
#X obj 409 174 table \$0-testScale 12;
#X obj 95 385 tabread \$0-testScale;
#X obj 135 311 t a;
#X obj 72 255 t b a b;
#X obj 95 409 sel 0;
#X msg 95 433 1;
#X msg 138 434 0;
#X obj 72 463 f;
#X obj 72 488 sel 0 1;
#X obj 223 434 t b b b;
#X obj 246 461 list, f 10;
#X obj 246 486 list split 1;
#X obj 286 511 t a;
#X msg 246 561 1 \$1;
#X obj 246 585 <<;
#X obj 246 609 |;
#X obj 282 609 f;
#X msg 350 461 0;
#X obj 246 510 +;
#X obj 246 534 mod 12;
#X obj 223 634 f;
#X obj 273 640 s /GAMME;
#X obj 400 524 print;
#X obj 95 518 del 0;
#X floatatom 167 611 5 0 0 0 - - -;
#X connect 0 0 9 0;
#X connect 1 0 5 0;
#X connect 1 0 14 1;
#X connect 2 0 7 0;
#X connect 2 1 16 1;
#X connect 2 1 42 1;
#X connect 3 0 8 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 7 0 3 0;
#X connect 8 0 12 0;
#X connect 8 1 13 0;
#X connect 9 0 11 0;
#X connect 9 1 10 1;
#X connect 10 0 2 0;
#X connect 11 0 10 0;
#X connect 13 0 14 0;
#X connect 13 1 23 0;
#X connect 13 1 34 1;
#X connect 14 0 27 0;
#X connect 15 0 16 0;
#X connect 15 1 26 0;
#X connect 16 0 17 0;
#X connect 17 0 25 0;
#X connect 18 0 21 0;
#X connect 18 1 19 0;
#X connect 19 0 18 0;
#X connect 20 0 22 0;
#X connect 21 0 22 0;
#X connect 23 0 18 0;
#X connect 23 1 20 0;
#X connect 25 0 28 0;
#X connect 26 0 15 0;
#X connect 27 0 31 0;
#X connect 27 1 15 0;
#X connect 27 2 30 0;
#X connect 28 0 29 0;
#X connect 29 0 31 1;
#X connect 30 0 31 1;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 32 1 47 0;
#X connect 33 0 44 0;
#X connect 33 1 34 0;
#X connect 33 2 41 0;
#X connect 34 0 35 0;
#X connect 35 0 42 0;
#X connect 35 1 36 0;
#X connect 36 0 35 0;
#X connect 37 0 38 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 39 0 44 1;
#X connect 40 0 39 1;
#X connect 41 0 40 0;
#X connect 42 0 43 0;
#X connect 43 0 37 0;
#X connect 44 0 45 0;
#X connect 44 0 48 0;
#X connect 47 0 4 0;
#X restore 486 357 pd guess_scale;
#X obj 296 349 mod 12;
#X msg 296 375 1 \$1;
#X obj 296 399 <<;
#N canvas 698 132 575 363 normalize 0;
#X obj 73 15 inlet;
#X obj 73 39 t b a b, f 14;
#X obj 120 68 list split 1, f 16;
#X obj 120 92 mod 12;
#X obj 174 91 t a;
#X obj 220 119 t a;
#X obj 73 151 list;
#X msg 252 69 list;
#X obj 120 119 list append;
#X obj 73 175 outlet;
#X obj 275 213 s \$0-chord;
#X msg 275 187 const 0;
#X msg 229 187 \$1 1;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 1 1 2 0;
#X connect 1 2 7 0;
#X connect 2 0 3 0;
#X connect 2 1 4 0;
#X connect 3 0 8 0;
#X connect 3 0 12 0;
#X connect 4 0 2 0;
#X connect 5 0 6 1;
#X connect 5 0 8 1;
#X connect 6 0 9 0;
#X connect 7 0 5 0;
#X connect 7 0 11 0;
#X connect 8 0 5 0;
#X connect 11 0 10 0;
#X connect 12 0 10 0;
#X restore 581 330 pd normalize;
#X obj 677 329 table \$0-chord 12;
#X obj 604 356 text define -k \$0-scales;
#A set majeur 0 2 4 5 7 9 11 \; min_nat 0 1 3 5 7 8 10 \; min_harm
0 2 3 5 7 8 11 \; min_asc 0 2 3 5 7 9 11 \; min_desc 0 2 3 5 7 8 10
\; ton 0 2 4 6 8 10 \; dim 0 2 3 5 6 8 9 11 \; aug 0 3 4 7 8 11 \;
dodeca 0 1 2 3 4 5 6 7 8 9 10 11 \;;
#X connect 0 0 1 0;
#X connect 0 0 33 0;
#X connect 0 1 1 1;
#X connect 0 1 3 0;
#X connect 0 1 33 1;
#X connect 1 0 6 0;
#X connect 2 0 1 0;
#X connect 3 1 4 0;
#X connect 4 0 16 0;
#X connect 5 0 2 0;
#X connect 5 1 11 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 9 1;
#X connect 10 0 12 0;
#X connect 10 0 18 0;
#X connect 11 0 10 0;
#X connect 11 0 21 0;
#X connect 12 0 15 0;
#X connect 12 1 13 1;
#X connect 13 0 17 0;
#X connect 15 0 13 0;
#X connect 16 0 5 0;
#X connect 18 0 19 0;
#X connect 19 1 20 0;
#X connect 20 0 18 1;
#X connect 21 0 18 1;
#X connect 32 0 26 0;
#X connect 32 1 27 0;
#X connect 32 2 28 0;
#X connect 32 3 29 0;
#X connect 32 4 34 0;
#X connect 33 0 24 0;
#X connect 33 0 36 0;
#X connect 33 1 31 0;
#X connect 33 2 25 0;
#X connect 33 3 30 0;
#X connect 33 4 32 0;
#X connect 33 4 39 0;
#X connect 36 0 37 0;
#X connect 36 0 35 0;
#X connect 37 0 38 0;
#X connect 38 0 22 0;
#X connect 39 0 35 1;