-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathchord.pd
310 lines (310 loc) · 6.72 KB
/
chord.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
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
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
#N canvas 0 38 1512 884 12;
#X obj 21 34 inlet;
#X obj 639 34 inlet;
#X obj 639 148 unpack f f f f f f f, f 78;
#X obj 53 148 sel 1 2 3 4 5 6 7, f 82;
#X obj 53 262 t b b b b;
#X obj 134 262 t b b b b;
#X obj 216 262 t b b b b;
#X obj 297 262 t b b b b;
#X obj 379 262 t b b b b;
#X obj 460 262 t b b b b;
#X obj 542 262 t b b b b;
#X obj 639 262 t f f f f;
#X obj 729 262 t f f f f;
#X obj 820 262 t f f f f;
#X obj 910 262 t f f f f;
#X obj 1001 262 t f f f f;
#X obj 1091 262 t f f f f;
#X obj 1182 262 t f f f f;
#X obj 53 353 f;
#X obj 63 375 f;
#X obj 73 397 f;
#X obj 83 419 f;
#X obj 226 353 f;
#X obj 236 375 f;
#X obj 246 397 f;
#X obj 256 419 f;
#X obj 396 353 f;
#X obj 406 375 f;
#X obj 416 397 f;
#X obj 426 419 f;
#X obj 575 353 f;
#X obj 585 375 f;
#X obj 595 397 f;
#X obj 605 419 f;
#X obj 756 353 f;
#X obj 766 375 f;
#X obj 776 397 f;
#X obj 786 419 f;
#X obj 956 353 f;
#X obj 966 375 f;
#X obj 976 397 f;
#X obj 986 419 f;
#X obj 1165 353 f;
#X obj 1175 375 f;
#X obj 1185 397 f;
#X obj 1195 419 f;
#X obj 52 600 pack f f f f, f 169;
#X text 19 11 chord (1 for root \, 5 for fifth \, etc.);
#X obj 972 34 inlet;
#X obj 972 58 f \$2;
#X text 637 14 \$1 mode;
#X obj 639 58 mode \$1;
#X text 969 13 \$2 midi note offset;
#X obj 807 34 loadbang;
#X obj 53 461 +;
#X obj 63 483 +;
#X obj 73 505 +;
#X obj 83 527 +;
#X obj 226 461 +;
#X obj 236 483 +;
#X obj 246 505 +;
#X obj 256 527 +;
#X obj 396 461 +;
#X obj 406 483 +;
#X obj 416 505 +;
#X obj 426 527 +;
#X obj 575 461 +;
#X obj 585 483 +;
#X obj 595 505 +;
#X obj 605 527 +;
#X obj 756 461 +;
#X obj 766 483 +;
#X obj 776 505 +;
#X obj 786 527 +;
#X obj 956 461 +;
#X obj 966 483 +;
#X obj 976 505 +;
#X obj 986 527 +;
#X obj 1165 461 +;
#X obj 1175 483 +;
#X obj 1185 505 +;
#X obj 1195 527 +;
#X obj 52 624 unpack f f f f, f 42;
#X obj 21 58 i;
#X obj 21 82 t b f;
#X obj 102 672 f;
#X obj 183 672 f;
#X obj 247 672 f;
#X obj 310 672 f;
#X obj 21 804 4f, f 44;
#X obj 21 828 pack f f f f, f 44;
#X obj 21 852 outlet;
#X obj 21 648 t b b, f 12;
#X obj 184 696 above 12;
#X obj 247 696 above 12;
#X obj 310 696 above 12;
#X obj 102 696 t b f f;
#X obj 184 720 t b f f;
#X obj 247 720 t b f f;
#X text 141 239 2nd chord;
#X text 61 239 tonic;
#X text 221 239 3rd chord;
#X text 301 239 4th chord;
#X text 383 239 5th chord;
#X text 465 239 6th chord;
#X text 546 239 7th chord;
#X text 59 329 root note;
#X text 220 329 2nd note;
#X text 392 327 3rd note;
#X text 561 330 4th note;
#X text 737 329 5th note;
#X text 934 331 6th note;
#X text 1145 332 7th note;
#X text 1258 486 <--- add the midi note offset;
#X text 1254 376 <--- bang the correct combo of notes \; for the selected
chord;
#X text 393 699 <--- ensure the chord is in standard root position
;
#X connect 0 0 83 0;
#X connect 1 0 51 0;
#X connect 2 0 11 0;
#X connect 2 1 12 0;
#X connect 2 2 13 0;
#X connect 2 3 14 0;
#X connect 2 4 15 0;
#X connect 2 5 16 0;
#X connect 2 6 17 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X connect 3 2 6 0;
#X connect 3 3 7 0;
#X connect 3 4 8 0;
#X connect 3 5 9 0;
#X connect 3 6 10 0;
#X connect 4 0 18 0;
#X connect 4 1 27 0;
#X connect 4 2 36 0;
#X connect 4 3 45 0;
#X connect 5 0 22 0;
#X connect 5 1 31 0;
#X connect 5 2 40 0;
#X connect 5 3 21 0;
#X connect 6 0 26 0;
#X connect 6 1 35 0;
#X connect 6 2 44 0;
#X connect 6 3 25 0;
#X connect 7 0 30 0;
#X connect 7 1 39 0;
#X connect 7 2 20 0;
#X connect 7 3 29 0;
#X connect 8 0 34 0;
#X connect 8 1 43 0;
#X connect 8 2 24 0;
#X connect 8 3 33 0;
#X connect 9 0 38 0;
#X connect 9 1 19 0;
#X connect 9 2 28 0;
#X connect 9 3 37 0;
#X connect 10 0 42 0;
#X connect 10 1 23 0;
#X connect 10 2 32 0;
#X connect 10 3 41 0;
#X connect 11 0 18 1;
#X connect 11 1 19 1;
#X connect 11 2 20 1;
#X connect 11 3 21 1;
#X connect 12 0 22 1;
#X connect 12 1 23 1;
#X connect 12 2 24 1;
#X connect 12 3 25 1;
#X connect 13 0 26 1;
#X connect 13 1 27 1;
#X connect 13 2 28 1;
#X connect 13 3 29 1;
#X connect 14 0 30 1;
#X connect 14 1 31 1;
#X connect 14 2 32 1;
#X connect 14 3 33 1;
#X connect 15 0 34 1;
#X connect 15 1 35 1;
#X connect 15 2 36 1;
#X connect 15 3 37 1;
#X connect 16 0 38 1;
#X connect 16 1 39 1;
#X connect 16 2 40 1;
#X connect 16 3 41 1;
#X connect 17 0 42 1;
#X connect 17 1 43 1;
#X connect 17 2 44 1;
#X connect 17 3 45 1;
#X connect 18 0 54 0;
#X connect 19 0 55 0;
#X connect 20 0 56 0;
#X connect 21 0 57 0;
#X connect 22 0 58 0;
#X connect 23 0 59 0;
#X connect 24 0 60 0;
#X connect 25 0 61 0;
#X connect 26 0 62 0;
#X connect 27 0 63 0;
#X connect 28 0 64 0;
#X connect 29 0 65 0;
#X connect 30 0 66 0;
#X connect 31 0 67 0;
#X connect 32 0 68 0;
#X connect 33 0 69 0;
#X connect 34 0 70 0;
#X connect 35 0 71 0;
#X connect 36 0 72 0;
#X connect 37 0 73 0;
#X connect 38 0 74 0;
#X connect 39 0 75 0;
#X connect 40 0 76 0;
#X connect 41 0 77 0;
#X connect 42 0 78 0;
#X connect 43 0 79 0;
#X connect 44 0 80 0;
#X connect 45 0 81 0;
#X connect 46 0 82 0;
#X connect 48 0 49 0;
#X connect 49 0 54 1;
#X connect 49 0 81 1;
#X connect 49 0 80 1;
#X connect 49 0 79 1;
#X connect 49 0 78 1;
#X connect 49 0 77 1;
#X connect 49 0 76 1;
#X connect 49 0 75 1;
#X connect 49 0 74 1;
#X connect 49 0 73 1;
#X connect 49 0 72 1;
#X connect 49 0 71 1;
#X connect 49 0 70 1;
#X connect 49 0 69 1;
#X connect 49 0 68 1;
#X connect 49 0 67 1;
#X connect 49 0 66 1;
#X connect 49 0 65 1;
#X connect 49 0 64 1;
#X connect 49 0 63 1;
#X connect 49 0 62 1;
#X connect 49 0 61 1;
#X connect 49 0 60 1;
#X connect 49 0 59 1;
#X connect 49 0 58 1;
#X connect 49 0 57 1;
#X connect 49 0 56 1;
#X connect 49 0 55 1;
#X connect 51 0 2 0;
#X connect 53 0 49 0;
#X connect 53 0 51 0;
#X connect 54 0 46 0;
#X connect 55 0 46 1;
#X connect 56 0 46 2;
#X connect 57 0 46 3;
#X connect 58 0 46 0;
#X connect 59 0 46 1;
#X connect 60 0 46 2;
#X connect 61 0 46 3;
#X connect 62 0 46 0;
#X connect 63 0 46 1;
#X connect 64 0 46 2;
#X connect 65 0 46 3;
#X connect 66 0 46 0;
#X connect 67 0 46 1;
#X connect 68 0 46 2;
#X connect 69 0 46 3;
#X connect 70 0 46 0;
#X connect 71 0 46 1;
#X connect 72 0 46 2;
#X connect 73 0 46 3;
#X connect 74 0 46 0;
#X connect 75 0 46 1;
#X connect 76 0 46 2;
#X connect 77 0 46 3;
#X connect 78 0 46 0;
#X connect 79 0 46 1;
#X connect 80 0 46 2;
#X connect 81 0 46 3;
#X connect 82 0 85 1;
#X connect 82 1 86 1;
#X connect 82 2 87 1;
#X connect 82 3 88 1;
#X connect 83 0 84 0;
#X connect 84 0 92 0;
#X connect 84 1 3 0;
#X connect 85 0 96 0;
#X connect 86 0 93 0;
#X connect 87 0 94 0;
#X connect 88 0 95 0;
#X connect 89 0 90 0;
#X connect 89 1 90 1;
#X connect 89 2 90 2;
#X connect 89 3 90 3;
#X connect 90 0 91 0;
#X connect 92 0 89 0;
#X connect 92 1 85 0;
#X connect 93 0 97 0;
#X connect 94 0 98 0;
#X connect 95 0 89 4;
#X connect 96 0 86 0;
#X connect 96 1 93 1;
#X connect 96 2 89 1;
#X connect 97 0 87 0;
#X connect 97 1 94 1;
#X connect 97 2 89 2;
#X connect 98 0 88 0;
#X connect 98 1 95 1;
#X connect 98 2 89 3;