/
m_chorddict-help.pd
197 lines (197 loc) · 6.33 KB
/
m_chorddict-help.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
#N struct 1043-symarray float x array symbols 1043-sym;
#N struct 1043-sym symbol name float on;
#N struct 1053-symarray float x array symbols 1053-sym;
#N struct 1053-sym symbol name float on;
#N canvas 379 108 651 691 10;
#X obj 176 376 u_makepoly 8 1 s_rhodey aasas;
#X obj 176 315 makenote 20 1500;
#X obj 176 343 pack 0 0;
#X obj 176 405 soundoutput;
#X obj 176 288 + 60;
#X msg 288 169 dump;
#X msg 330 170 print;
#X floatatom 250 131 5 0 0 2 by_number - -;
#X obj 277 227 route list;
#X symbolatom 344 248 10 0 0 0 - - -;
#X obj 277 264 print dump;
#X msg 125 128 +7;
#X msg 159 127 7;
#X obj 189 240 print notes;
#X obj 176 203 m_chorddict;
#X msg 191 127 -7;
#X msg 68 131 maj7;
#N canvas 359 232 732 608 progressions 0;
#X obj 188 500 + 60;
#X obj 248 443 m_majorscale 60;
#X floatatom 298 477 5 0 0 0 - - -;
#X obj 188 245 list prepend add;
#X obj 188 274 list trim;
#X obj 188 329 textfile;
#X msg 340 301 print;
#X obj 188 352 list split 1;
#X obj 188 375 t b f;
#X obj 188 401 list;
#X msg 287 278 bang;
#X msg 343 277 clear;
#X obj 248 414 - 1;
#X msg 95 65 1 maj \, 4 maj \, 7 o \, 3 - \, 6 - \, 2 - \, 5 maj \,
1 maj;
#X msg 325 95 2 -7 \, 5 maj7;
#X symbolatom 88 418 10 0 0 0 - - -;
#X obj 248 559 outlet;
#X obj 61 191 metro 1000;
#X obj 61 172 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 82 29 here's how to play some chord progressions;
#X text 300 561 to some instrument;
#X msg 432 95 1 maj \, 6 - \, 2 - \, 5 -7 \, 2 -;
#X floatatom 39 418 5 0 0 0 - - -;
#X text 278 415 m_majorscale is zero-based!;
#X obj 284 351 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 138 352 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 131 97 2 m7 \, 5 maj7 \, 1 maj \, 1 maj;
#X msg 257 329 rewind;
#X obj 188 476 m_chorddict;
#X text 291 531 add tonics here.;
#X obj 303 505 - 24;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 1 0 2 0;
#X connect 1 0 16 0;
#X connect 1 0 30 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 5 0 25 0;
#X connect 5 1 27 0;
#X connect 5 1 24 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 7 1 9 1;
#X connect 8 0 9 0;
#X connect 8 1 12 0;
#X connect 9 0 15 0;
#X connect 9 0 22 0;
#X connect 9 0 28 0;
#X connect 10 0 5 0;
#X connect 11 0 5 0;
#X connect 12 0 1 0;
#X connect 13 0 3 0;
#X connect 14 0 3 0;
#X connect 17 0 5 0;
#X connect 18 0 17 0;
#X connect 21 0 3 0;
#X connect 26 0 3 0;
#X connect 27 0 5 0;
#X connect 28 0 0 0;
#X connect 30 0 16 0;
#X restore 440 280 pd progressions;
#X text 80 475 Chord names based on the "Dictionary of Intervals and
Chords" by Benjamin K. Shisler online at: http://www.geocities.com/SoHo/Studios/9783/ci1.html
(good ol' geocities.com ...);
#X text 77 548 These names were used because they are all at least
one character long and don't contain spaces nor special characters.
;
#N canvas 73 4 438 914 chordnames 0;
#X text 50 0 m2 - b 2;
#X text 50 12 M2 - 2;
#X text 50 24 m3 - b 3;
#X text 50 36 M3 - 3;
#X text 50 48 P4 - 4;
#X text 50 60 T - b 5;
#X text 50 72 P5 - 5;
#X text 50 84 m6 - b 6;
#X text 50 96 M6 - 6;
#X text 50 108 m7 - b 7;
#X text 50 120 M7 - 7;
#X text 50 132 maj - - 3 - - 5;
#X text 50 144 majinv1 - b 3 - b 6;
#X text 50 156 majinv2 - - 4 - - 6;
#X text 50 168 - - b 3 - - 5;
#X text 50 180 -inv1 - - 3 - - 6;
#X text 50 192 -inv2 - - 4 - b 6;
#X text 50 204 o - b 3 - b 5;
#X text 50 216 oinv1 - b 3 - - 6;
#X text 50 228 oinv2 - b 5 - - 6;
#X text 50 240 + - # 3 - # 5;
#X text 50 252 sus4 - - 4 - - 5;
#X text 50 264 sus2 - - 2 - - 5;
#X text 50 276 susinv2 - b 4 - # 6;
#X text 50 288 maj7 - - 3 - - 5 - - 7;
#X text 50 300 maj7inv1 - b 3 - - 5 - b 6;
#X text 50 312 maj7inv2 - - 3 - - 4 - - 6;
#X text 50 324 maj7inv3 - b 2 - - 4 - b 6;
#X text 50 336 7 - - 3 - - 5 - b 7;
#X text 50 348 7inv1 - b 3 - b 5 - b 6;
#X text 50 360 7inv2 - b 3 - - 4 - - 6;
#X text 50 372 7inv3 - - 2 - b 5 - - 6;
#X text 50 384 -7 - b 3 - - 5 - b 7;
#X text 50 396 -7inv1 - - 3 - - 5 - - 6;
#X text 50 408 -7inv2 - b 3 - - 4 - b 6;
#X text 50 420 -7inv3 - - 2 - - 4 - - 6;
#X text 50 432 7b5 - - 3 - b 5 - b 7;
#X text 50 444 7b5inv1 - - 2 - b 5 - b 6;
#X text 50 456 o7 - b 3 - b 5 - - 6;
#X text 50 468 +7 - - 3 - b 6 - b 7;
#X text 50 480 +7inv1 - - 3 - b 5 - b 6;
#X text 50 492 +7inv2 - - 2 - - 3 - b 6;
#X text 50 504 +7inv3 - - 2 - b 5 - b 7;
#X text 50 516 sus7 - - 4 - - 5 - b 7;
#X text 50 528 sus7inv1 - - 2 - - 4 - - 5;
#X text 50 540 sus7inv2 - b 3 - - 4 - b 7;
#X text 50 552 sus7inv3 - - 2 - - 5 - - 6;
#X text 50 564 6 - - 3 - - 5 - - 6;
#X text 50 576 6inv1 - b 3 - - 4 - b 6;
#X text 50 588 6inv2 - - 2 - - 4 - - 6;
#X text 50 600 6inv3 - b 3 - - 5 - b 7;
#X text 50 612 -6 - b 3 - - 5 - - 6;
#X text 50 624 maj9 - - 3 - - 5 - - 7 - - 9;
#X text 50 636 9 - - 3 - - 5 - b 7 - - 9;
#X text 50 648 -9 - b 3 - - 5 - b 7 - - 9;
#X text 50 660 9b5 - - 3 - b 5 - b 7 - - 9;
#X text 50 672 +9 - - 3 - # 5 - b 7 - - 9;
#X text 50 684 sus9 - - 4 - - 5 - b 7 - - 9;
#X text 50 696 6/9 - - 3 - - 5 - - 6 - - 9;
#X text 50 708 -6/9 - b 3 - - 5 - - 6 - - 9;
#X text 50 720 7b9 - - 3 - - 5 - b 7 - b 9;
#X text 50 732 7#9 - - 3 - - 5 - b 7 - # 9;
#X text 50 744 7b5#9 - - 3 - b 5 - b 7 - # 9;
#X text 50 756 maj9+ - - 3 - # 5 - - 7 - - 9;
#X text 50 768 -maj9 - b 3 - - 5 - - 7 - - 9;
#X text 50 780 11 - - 5 - b 7 - - 9 - 11;
#X text 50 792 -11 - b 3 - - 5 - b 7 - - 9 - 11;
#X text 50 804 maj9#11 - - 3 - - 5 - - 7 - - 9 # 11;
#X text 50 816 9#11 - - 3 - - 5 - b 7 - - 9 # 11;
#X text 50 828 13 - - 3 - b 7 - - 9 - 13;
#X text 50 840 -13 - b 3 - - 5 - b 7 - - 9 - 11 - 13;
#X text 50 852 11/13 - - 5 - b 7 - - 9 - 11 - 13;
#X text 50 864 maj13 - - 3 - - 5 - - 7 - - 9 - 13;
#X text 50 876 maj13#11 - - 3 - - 5 - - 7 - - 9 - # 11 - 13;
#X text 50 888 13#11 - - 3 - - 5 - b 7 - - 9 - # 11 - 13;
#X text 50 900 -13#11 - b 3 - - 5 - b 7 - - 9 - # 11 - 13;
#X text 50 912 13#11#9 - - 3 - - 5 - - 7 - # 9 - # 11 - 13;
#X text 50 924 majadd9 - - 3 - - 5 - - 9;
#X text 50 936 -add9 - b 3 - - 5 - - 9;
#X restore 451 114 pd chordnames;
#X text 73 27 m_chorddict - converts chord symbols to intervals;
#X connect 0 0 3 0;
#X connect 0 0 3 1;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 0 0;
#X connect 4 0 1 0;
#X connect 5 0 14 1;
#X connect 6 0 14 1;
#X connect 7 0 14 1;
#X connect 8 0 10 0;
#X connect 8 1 9 0;
#X connect 11 0 14 0;
#X connect 12 0 14 0;
#X connect 14 0 4 0;
#X connect 14 0 13 0;
#X connect 14 1 8 0;
#X connect 15 0 14 0;
#X connect 16 0 14 0;
#X connect 17 0 1 0;