-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy path171201_Scale.pd
300 lines (300 loc) · 7.26 KB
/
171201_Scale.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
#N canvas 443 23 985 542 10;
#N canvas 805 578 480 192 //SCLGUI 0;
#X obj 3 91 r \$0-csnd;
#X msg 3 135 color \$1 \$1;
#X obj 3 157 s \$0-crcv;
#X msg 3 47 color \$1 \$1;
#X obj 3 3 r \$0-dbsnd;
#X obj 3 69 s \$0-dbrcv;
#X msg 66 135 color \$1 \$1;
#X obj 66 91 r \$0-dsnd;
#X obj 66 157 s \$0-drcv;
#X msg 129 135 color \$1 \$1;
#X msg 192 135 color \$1 \$1;
#X obj 129 91 r \$0-esnd;
#X obj 129 157 s \$0-ercv;
#X obj 192 91 r \$0-fsnd;
#X obj 192 157 s \$0-frcv;
#X msg 255 135 color \$1 \$1;
#X msg 318 135 color \$1 \$1;
#X msg 381 135 color \$1 \$1;
#X obj 255 91 r \$0-gsnd;
#X obj 255 157 s \$0-grcv;
#X obj 318 91 r \$0-asnd;
#X obj 318 157 s \$0-arcv;
#X obj 381 91 r \$0-bsnd;
#X obj 381 157 s \$0-brcv;
#X msg 72 47 color \$1 \$1;
#X obj 72 3 r \$0-ebsnd;
#X obj 72 69 s \$0-ebrcv;
#X msg 192 47 color \$1 \$1;
#X msg 261 47 color \$1 \$1;
#X msg 330 47 color \$1 \$1;
#X obj 192 3 r \$0-gbsnd;
#X obj 192 69 s \$0-gbrcv;
#X obj 261 3 r \$0-absnd;
#X obj 261 69 s \$0-abrcv;
#X obj 330 3 r \$0-bbsnd;
#X obj 330 69 s \$0-bbrcv;
#X obj 3 25 * 15;
#X obj 3 113 * 15;
#X obj 72 25 * 15;
#X obj 66 113 * 15;
#X obj 129 113 * 15;
#X obj 192 25 * 15;
#X obj 192 113 * 15;
#X obj 255 113 * 15;
#X obj 261 25 * 15;
#X obj 318 113 * 15;
#X obj 330 25 * 15;
#X obj 381 113 * 15;
#X connect 0 0 37 0;
#X connect 1 0 2 0;
#X connect 3 0 5 0;
#X connect 4 0 36 0;
#X connect 6 0 8 0;
#X connect 7 0 39 0;
#X connect 9 0 12 0;
#X connect 10 0 14 0;
#X connect 11 0 40 0;
#X connect 13 0 42 0;
#X connect 15 0 19 0;
#X connect 16 0 21 0;
#X connect 17 0 23 0;
#X connect 18 0 43 0;
#X connect 20 0 45 0;
#X connect 22 0 47 0;
#X connect 24 0 26 0;
#X connect 25 0 38 0;
#X connect 27 0 31 0;
#X connect 28 0 33 0;
#X connect 29 0 35 0;
#X connect 30 0 41 0;
#X connect 32 0 44 0;
#X connect 34 0 46 0;
#X connect 36 0 3 0;
#X connect 37 0 1 0;
#X connect 38 0 24 0;
#X connect 39 0 6 0;
#X connect 40 0 9 0;
#X connect 41 0 27 0;
#X connect 42 0 10 0;
#X connect 43 0 15 0;
#X connect 44 0 28 0;
#X connect 45 0 16 0;
#X connect 46 0 29 0;
#X connect 47 0 17 0;
#X restore 22 28 pd //SCLGUI;
#X obj 201 10 r \$0-dbsnd;
#X obj 138 10 r \$0-csnd;
#X obj 270 10 r \$0-dsnd;
#X obj 333 10 r \$0-ebsnd;
#X obj 402 10 r \$0-esnd;
#X obj 465 10 r \$0-fsnd;
#X obj 528 10 r \$0-gbsnd;
#X obj 597 10 r \$0-gsnd;
#X obj 660 10 r \$0-absnd;
#X obj 729 10 r \$0-asnd;
#X obj 792 10 r \$0-bbsnd;
#X obj 861 10 r \$0-bsnd;
#X obj 165 64 pack f 0;
#X obj 228 64 pack f 1;
#X obj 297 64 pack f 2;
#X obj 360 64 pack f 3;
#X obj 429 64 pack f 4;
#X obj 492 64 pack f 5;
#X obj 555 64 pack f 6;
#X obj 624 64 pack f 7;
#X obj 687 64 pack f 8;
#X obj 756 64 pack f 9;
#X obj 819 64 pack f 10;
#X obj 888 64 pack f 11;
#X obj 108 91 until;
#X obj 108 113 i;
#X obj 138 113 + 1;
#X obj 108 135 sel 11;
#X obj 108 157 t b b;
#X msg 123 174 0;
#X obj 3 140 t f f;
#X obj 3 184 sel 1;
#X obj 30 250 i;
#X obj 60 250 + 1;
#X obj 108 59 t b b;
#X obj 3 250 *;
#X obj 3 272 pack;
#X obj 3 206 t b b;
#X msg 3 228 1;
#X obj 205 163 table \$0-notes 12;
#X obj 165 91 tabwrite \$0-notes;
#X obj 3 162 tabread \$0-notes;
#X obj 3 294 tabwrite \$0-scale;
#X obj 138 32 t b f;
#X obj 201 32 t b f;
#X obj 270 32 t b f;
#X obj 333 32 t b f;
#X obj 402 32 t b f;
#X obj 465 32 t b f;
#X obj 528 32 t b f;
#X obj 597 32 t b f;
#X obj 660 32 t b f;
#X obj 729 32 t b f;
#X obj 792 32 t b f;
#X obj 861 32 t b f;
#X msg 69 223 0;
#X obj 114 299 s \$0-sclnmb;
#X obj 114 277 + 1;
#X obj 381 217 tgl 17 1 \$0-csnd \$0-crcv C 5 9 1 10 -241291 -241291
-1 1 1;
#X obj 391 197 tgl 17 1 \$0-dbsnd \$0-dbrcv Db 3 9 1 10 -262144 -262144
-1 0 1;
#X obj 401 217 tgl 17 1 \$0-dsnd \$0-drcv D 6 9 1 10 -241291 -241291
-1 1 1;
#X obj 421 217 tgl 17 1 \$0-esnd \$0-ercv E 5 9 1 10 -241291 -241291
-1 1 1;
#X obj 411 197 tgl 17 1 \$0-ebsnd \$0-ebrcv Eb 3 9 1 10 -262144 -262144
-1 0 1;
#X obj 441 217 tgl 17 1 \$0-fsnd \$0-frcv F 5 9 1 10 -241291 -241291
-1 1 1;
#X obj 461 217 tgl 17 1 \$0-gsnd \$0-grcv G 5 9 1 10 -241291 -241291
-1 1 1;
#X obj 481 217 tgl 17 1 \$0-asnd \$0-arcv A 5 9 1 10 -241291 -241291
-1 1 1;
#X obj 501 217 tgl 17 1 \$0-bsnd \$0-brcv B 5 9 1 10 -241291 -241291
-1 1 1;
#X obj 451 197 tgl 17 1 \$0-gbsnd \$0-gbrcv Gb 3 9 1 10 -262144 -262144
-1 0 1;
#X obj 471 197 tgl 17 1 \$0-absnd \$0-abrcv Ab 3 9 1 10 -262144 -262144
-1 0 1;
#X obj 491 197 tgl 17 1 \$0-bbsnd \$0-bbrcv Bb 3 9 1 10 -262144 -262144
-1 0 1;
#X obj 381 176 cnv 17 137 17 empty empty Scale 5 10 1 12 -1 -262144
0;
#X text 199 144 TOGGLE NOTES ARRAY;
#X text 241 219 SCALE ARRAY;
#X obj 205 235 table \$0-scale 12;
#X obj 560 203 tabread \$0-scale;
#X floatatom 560 247 5 0 0 1 MIDI - -, f 5;
#X obj 560 266 mtof;
#X floatatom 560 288 5 0 0 1 Frequency - -, f 5;
#X obj 560 337 phasor~;
#X obj 560 359 *~ 2;
#X obj 560 381 -~ 1;
#X obj 560 307 t f b;
#X msg 633 341 1 \, 0 100;
#X obj 633 363 line~;
#X obj 560 403 *~;
#X obj 560 445 clip~ -1 1;
#X obj 560 467 hip~ 3;
#X obj 560 489 dac~;
#X obj 560 425 *~ 0.5;
#X obj 560 181 %;
#X obj 680 126 r \$0-sclnmb;
#X obj 560 225 +;
#X obj 665 208 * 12;
#X obj 665 164 /;
#X obj 665 186 i;
#X obj 560 137 t f f;
#X obj 563 98 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262130
-1 -1 4700 1;
#X floatatom 560 118 5 0 0 0 - - -, f 5;
#X connect 1 0 45 0;
#X connect 2 0 44 0;
#X connect 3 0 46 0;
#X connect 4 0 47 0;
#X connect 5 0 48 0;
#X connect 6 0 49 0;
#X connect 7 0 50 0;
#X connect 8 0 51 0;
#X connect 9 0 52 0;
#X connect 10 0 53 0;
#X connect 11 0 54 0;
#X connect 12 0 55 0;
#X connect 13 0 41 0;
#X connect 14 0 41 0;
#X connect 15 0 41 0;
#X connect 16 0 41 0;
#X connect 17 0 41 0;
#X connect 18 0 41 0;
#X connect 19 0 41 0;
#X connect 20 0 41 0;
#X connect 21 0 41 0;
#X connect 22 0 41 0;
#X connect 23 0 41 0;
#X connect 24 0 41 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 26 0 28 0;
#X connect 26 0 31 0;
#X connect 27 0 26 1;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 1 25 1;
#X connect 30 0 26 1;
#X connect 31 0 42 0;
#X connect 31 1 36 1;
#X connect 32 0 38 0;
#X connect 33 0 34 0;
#X connect 33 0 37 1;
#X connect 33 0 58 0;
#X connect 34 0 33 1;
#X connect 35 0 25 0;
#X connect 35 1 56 0;
#X connect 36 0 37 0;
#X connect 37 0 43 0;
#X connect 38 0 39 0;
#X connect 38 1 33 0;
#X connect 39 0 36 0;
#X connect 42 0 32 0;
#X connect 44 0 35 0;
#X connect 44 1 13 0;
#X connect 45 0 35 0;
#X connect 45 1 14 0;
#X connect 46 0 35 0;
#X connect 46 1 15 0;
#X connect 47 0 35 0;
#X connect 47 1 16 0;
#X connect 48 0 35 0;
#X connect 48 1 17 0;
#X connect 49 0 35 0;
#X connect 49 1 18 0;
#X connect 50 0 35 0;
#X connect 50 1 19 0;
#X connect 51 0 35 0;
#X connect 51 1 20 0;
#X connect 52 0 35 0;
#X connect 52 1 21 0;
#X connect 53 0 35 0;
#X connect 53 1 22 0;
#X connect 54 0 35 0;
#X connect 54 1 23 0;
#X connect 55 0 35 0;
#X connect 55 1 24 0;
#X connect 56 0 33 1;
#X connect 58 0 57 0;
#X connect 75 0 92 0;
#X connect 76 0 77 0;
#X connect 77 0 78 0;
#X connect 78 0 82 0;
#X connect 79 0 80 0;
#X connect 80 0 81 0;
#X connect 81 0 85 0;
#X connect 82 0 79 0;
#X connect 82 1 83 0;
#X connect 83 0 84 0;
#X connect 84 0 85 1;
#X connect 85 0 89 0;
#X connect 86 0 87 0;
#X connect 87 0 88 0;
#X connect 87 0 88 1;
#X connect 89 0 86 0;
#X connect 90 0 75 0;
#X connect 91 0 90 1;
#X connect 91 0 94 1;
#X connect 92 0 76 0;
#X connect 93 0 92 1;
#X connect 94 0 95 0;
#X connect 95 0 93 0;
#X connect 96 0 90 0;
#X connect 96 1 94 0;
#X connect 97 0 98 0;
#X connect 98 0 96 0;