/
d-triad.pd
332 lines (332 loc) · 8.16 KB
/
d-triad.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
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
#N canvas 346 32 767 738 10;
#X obj 213 505 + 0;
#X obj 228 456 > 0;
#X obj 228 475 * 12;
#X obj 303 505 + 0;
#X obj 318 475 * 12;
#X obj 393 505 + 0;
#X obj 408 475 * 12;
#X obj 483 505 + 0;
#X obj 498 475 * 12;
#X obj 318 456 > 1;
#X obj 408 456 > 2;
#X obj 498 456 > 3;
#N canvas 73 81 911 522 decode 0;
#X msg 79 224 1 2 5;
#X msg 123 224 1 4 5;
#X msg 285 224 1 5;
#X msg 50 252 1 3 5;
#X msg 154 252 1 3 5 7;
#X msg 214 252 1 3 5 6;
#X obj 276 461 print ***d-triad***_invalid_triad;
#X text 259 446 error;
#X obj 30 294 route m7 m7M m6 7sus2 7sus4;
#X obj 360 294 route m7 m7M m6 7sus2 7sus4;
#X msg 360 224 0 -1 0;
#X msg 409 224 0 0 0;
#X msg 453 224 0 0 0;
#X msg 496 224 0 -1 -1 0;
#X msg 615 224 0 0;
#X msg 544 252 0 0 0 0;
#X msg 483 252 0 0 0 0;
#X msg 424 252 0 0 0 -1;
#X msg 380 252 0 0 0;
#X msg 360 325 0 -1 0 -1;
#X msg 428 325 0 -1 0 0;
#X msg 490 325 0 -1 0 0;
#X msg 554 325 0 0 0 -1;
#X msg 620 325 0 0 0 -1;
#X msg 98 325 1 3 5 7;
#X msg 30 325 1 3 5 7;
#X msg 160 324 1 3 5 6;
#X msg 224 325 1 2 5 7;
#X msg 232 222 1 3 5;
#X msg 166 224 1 3 5 7;
#X msg 94 252 1 3 5 7;
#X msg 30 224 1 3 5;
#X text 151 13 match triad names \, convert to lists of scale degrees
\, and lists of sharp/flat additions;
#X obj 30 -6 inlet;
#N canvas 0 22 450 300 chords_text 0;
#X text 69 14 b7 = flat 7 \, #7 = sharp 7;
#X text 45 46 M = 1 3 5;
#X text 46 59 7 = 1 3 5 b7;
#X text 40 71 7M = 1 3 5 7;
#X text 46 86 6 = 1 3 5 6;
#X text 47 107 m = 1 b3 5;
#X text 41 121 m7 = 1 b3 5 b7;
#X text 35 134 m7M = 1 b3 5 7;
#X text 41 148 m6 = 1 b3 5 6;
#X text 30 171 sus2 = 1 2 5;
#X text 30 182 sus4 = 1 4 5;
#X text 24 199 7sus2 = 1 2 5 b7;
#X text 24 212 7sus4 = 1 4 5 b7;
#X text 36 235 iim = 1 b3 b5 7;
#X text 37 250 aug = 1 3 #5;
#X text 49 270 5 = 1 5;
#X text 167 95 additions: 7 \, 7M \, 6;
#X text 208 54 so:;
#X text 196 79 core: M \, m \, sus2 sus4 \, dim \, aug \, 5;
#X text 158 173 'interesting' terms: b3 \, b5 \, b7 \, #5;
#X text 190 196 first note: none;
#X text 184 209 second note: b3;
#X text 191 224 third note: b5 \, #5;
#X text 185 240 fourth note: b7;
#X restore 592 443 pd chords_text;
#X obj 278 197 sel 5 7 6;
#X obj 614 185 sel 5 7 6;
#X msg 289 325 1 4 5 7;
#X msg 563 224 0 0 1;
#X obj 360 420 outlet sharpflat;
#X obj 30 19 t a a;
#X obj 30 456 outlet scaledegrees;
#X obj 30 420 list;
#X obj 365 143 route m sus2 sus4 dim aug M 7M float five seven six
;
#X obj 30 148 route m sus2 sus4 dim aug M 7M float five seven six;
#X connect 0 0 42 0;
#X connect 1 0 42 0;
#X connect 2 0 42 0;
#X connect 3 0 42 0;
#X connect 4 0 42 0;
#X connect 5 0 42 0;
#X connect 8 0 25 0;
#X connect 8 1 24 0;
#X connect 8 2 26 0;
#X connect 8 3 27 0;
#X connect 8 4 37 0;
#X connect 8 5 6 0;
#X connect 9 0 19 0;
#X connect 9 1 20 0;
#X connect 9 2 21 0;
#X connect 9 3 22 0;
#X connect 9 4 23 0;
#X connect 10 0 39 0;
#X connect 11 0 39 0;
#X connect 12 0 39 0;
#X connect 13 0 39 0;
#X connect 14 0 39 0;
#X connect 15 0 39 0;
#X connect 16 0 39 0;
#X connect 17 0 39 0;
#X connect 18 0 39 0;
#X connect 19 0 39 0;
#X connect 20 0 39 0;
#X connect 21 0 39 0;
#X connect 22 0 39 0;
#X connect 23 0 39 0;
#X connect 24 0 42 0;
#X connect 25 0 42 0;
#X connect 26 0 42 0;
#X connect 27 0 42 0;
#X connect 28 0 42 0;
#X connect 29 0 42 0;
#X connect 30 0 42 0;
#X connect 31 0 42 0;
#X connect 33 0 40 0;
#X connect 35 0 2 0;
#X connect 35 1 30 0;
#X connect 35 2 5 0;
#X connect 36 0 14 0;
#X connect 36 1 17 0;
#X connect 36 2 15 0;
#X connect 37 0 42 0;
#X connect 38 0 39 0;
#X connect 40 0 44 0;
#X connect 40 1 43 0;
#X connect 42 0 41 0;
#X connect 43 0 10 0;
#X connect 43 1 11 0;
#X connect 43 2 12 0;
#X connect 43 3 13 0;
#X connect 43 4 38 0;
#X connect 43 5 18 0;
#X connect 43 6 16 0;
#X connect 43 7 36 0;
#X connect 43 8 14 0;
#X connect 43 9 17 0;
#X connect 43 10 15 0;
#X connect 43 11 9 0;
#X connect 44 0 31 0;
#X connect 44 1 0 0;
#X connect 44 2 1 0;
#X connect 44 3 29 0;
#X connect 44 4 28 0;
#X connect 44 5 3 0;
#X connect 44 6 4 0;
#X connect 44 7 35 0;
#X connect 44 8 2 0;
#X connect 44 9 30 0;
#X connect 44 10 5 0;
#X connect 44 11 8 0;
#X restore 396 149 pd decode;
#X obj 303 528 + 0;
#X obj 393 528 + 0;
#X obj 483 528 + 0;
#X text 51 458 inversions bump up octave;
#X obj 498 414 r \$0-inv;
#X text 83 518 add on sharp/flat;
#X obj 333 651 pack f f f f;
#X msg 489 629 0;
#X obj 333 694 outlet MIDI;
#X obj 177 386 d-gate5 0;
#X obj 297 266 t a b;
#X obj 257 266 t a b;
#X obj 217 266 t a b;
#X obj 177 266 t a b;
#X obj 62 83 s \$0-inv;
#X obj 2 -4 inlet;
#X obj 396 85 t a b;
#X obj 177 217 unpack f f f f;
#X obj 447 376 unpack f f f f;
#X obj 213 528 + 0;
#X text 517 631 reset;
#X obj 423 109 s \$0-resetoutput;
#X obj 489 605 r \$0-resetoutput;
#X msg 345 323 3;
#X text 198 201 ask the d-modes oracle;
#X text 156 369 send each oracle-answer to the correct outlet;
#X msg 318 323 2;
#X msg 291 323 1;
#X msg 264 323 0;
#X text 638 637 part of dlib;
#X text 416 703 released under the GNU General Public License v3+;
#X text 535 664 copyright damian stewart 2008;
#X text 505 678 damian@frey.co.nz | www.frey.co.nz;
#X msg 225 111 detune \$1;
#X obj 43 138 d-note 3;
#X obj 43 116 unpack s f;
#X obj -20 83 route float;
#X obj 408 414 r \$0-inv;
#X obj 318 414 r \$0-inv;
#X obj 228 414 r \$0-inv;
#X obj 58 329 d-modes ionian 52;
#X obj 225 86 d-default \$3 0;
#X obj 136 162 d-default-symbol \$1 ionian;
#X text 324 126 decode chord string into scale degrees and accidentals
;
#X obj 127 84 t b a b;
#X obj 177 353 spigot 1;
#X obj 192 332 r \$0-block;
#X obj 152 140 s \$0-block;
#X msg 166 105 0;
#X msg 127 105 1;
#X obj 225 134 s \$0-dmodesctl;
#X obj 58 301 r \$0-dmodesctl;
#X obj -20 191 s \$0-dmodesctl;
#X obj 136 184 s \$0-mode;
#X obj 107 276 r \$0-mode;
#X obj 157 309 + 0;
#X obj 2 33 route root inversion inv mode detune degree deg;
#X obj 212 55 - 1;
#X obj -20 162 d-default \$2 60;
#X obj 260 572 s \$0-root;
#X obj 408 569 r \$0-root;
#X obj 408 589 + 12;
#X msg 546 521 1;
#X obj 213 549 t a a;
#X obj 578 521 r \$0-gotfourth;
#X obj 546 499 r \$0-resetoutput;
#X msg 578 542 0;
#X msg 349 243 bang;
#X obj 349 269 s \$0-gotfourth;
#X text 385 251 did we get a fourth note?;
#X text 555 461 no fourth note - stuff with;
#X text 556 475 tonic octave if \$4 == 1;
#X obj 546 563 spigot \$4;
#X obj 408 610 spigot 0;
#X connect 0 0 32 0;
#X connect 1 0 2 0;
#X connect 2 0 0 1;
#X connect 3 0 13 0;
#X connect 4 0 3 1;
#X connect 5 0 14 0;
#X connect 6 0 5 1;
#X connect 7 0 15 0;
#X connect 8 0 7 1;
#X connect 9 0 4 0;
#X connect 10 0 6 0;
#X connect 11 0 8 0;
#X connect 12 0 30 0;
#X connect 12 1 31 0;
#X connect 13 0 19 1;
#X connect 14 0 19 2;
#X connect 15 0 19 3;
#X connect 17 0 11 0;
#X connect 19 0 21 0;
#X connect 20 0 19 3;
#X connect 20 0 19 2;
#X connect 20 0 19 1;
#X connect 22 0 0 0;
#X connect 22 1 3 0;
#X connect 22 2 5 0;
#X connect 22 3 7 0;
#X connect 23 0 68 0;
#X connect 23 1 36 0;
#X connect 24 0 68 0;
#X connect 24 1 39 0;
#X connect 25 0 68 0;
#X connect 25 1 40 0;
#X connect 26 0 68 0;
#X connect 26 1 41 0;
#X connect 28 0 69 0;
#X connect 29 0 12 0;
#X connect 29 1 34 0;
#X connect 30 0 26 0;
#X connect 30 1 25 0;
#X connect 30 2 24 0;
#X connect 30 3 23 0;
#X connect 30 3 80 0;
#X connect 31 0 32 1;
#X connect 31 1 13 1;
#X connect 31 2 14 1;
#X connect 31 3 15 1;
#X connect 32 0 76 0;
#X connect 35 0 20 0;
#X connect 36 0 22 1;
#X connect 39 0 22 1;
#X connect 40 0 22 1;
#X connect 41 0 22 1;
#X connect 46 0 63 0;
#X connect 47 0 65 0;
#X connect 48 0 47 0;
#X connect 48 1 47 1;
#X connect 49 0 71 0;
#X connect 49 1 48 0;
#X connect 50 0 10 0;
#X connect 51 0 9 0;
#X connect 52 0 1 0;
#X connect 53 8 58 0;
#X connect 54 0 46 0;
#X connect 55 0 66 0;
#X connect 57 0 62 0;
#X connect 57 1 55 0;
#X connect 57 2 61 0;
#X connect 58 0 22 0;
#X connect 59 0 58 1;
#X connect 61 0 60 0;
#X connect 62 0 60 0;
#X connect 64 0 53 0;
#X connect 67 0 53 1;
#X connect 68 0 53 2;
#X connect 69 0 49 0;
#X connect 69 1 27 0;
#X connect 69 2 27 0;
#X connect 69 3 57 0;
#X connect 69 4 54 0;
#X connect 69 5 70 0;
#X connect 69 6 70 0;
#X connect 69 7 29 0;
#X connect 70 0 68 1;
#X connect 71 0 65 0;
#X connect 73 0 74 0;
#X connect 74 0 86 0;
#X connect 75 0 85 0;
#X connect 76 0 19 0;
#X connect 76 1 72 0;
#X connect 77 0 79 0;
#X connect 78 0 75 0;
#X connect 79 0 85 0;
#X connect 80 0 81 0;
#X connect 85 0 86 1;
#X connect 86 0 19 3;