aboutsummaryrefslogtreecommitdiff
path: root/controctopus/midi-tentacle-multi.pd
blob: 3ee186e68e42228bad971b0789beab02c454f9b3 (plain)
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
333
334
#N canvas 745 148 532 641 10;
#X obj 141 161 cnv 15 158 78 empty empty \$1\$2->\$3 4 14 0 10 -86277
-260097 0;
#X obj 65 126 r \$0popup;
#N canvas 259 247 595 362 init 0;
#X obj 41 141 s \$0assgnList;
#X msg 41 119 a b c d e f g h i j k l m n o p;
#X obj 288 143 s \$0channelR;
#X obj 160 295 s \$0popup;
#X obj 41 97 initbang;
#X obj 288 101 initbang;
#X obj 160 187 initbang;
#X msg 160 209 bgcolour #ee0000;
#X obj 170 249 savebang;
#X msg 160 274 options press 'get' to load parameters;
#X msg 288 122 0;
#X msg 160 226 name No-Destination;
#X connect 1 0 0 0;
#X connect 4 0 1 0;
#X connect 5 0 10 0;
#X connect 6 0 11 0;
#X connect 6 0 7 0;
#X connect 6 0 9 0;
#X connect 7 0 3 0;
#X connect 8 0 9 0;
#X connect 9 0 3 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X restore 31 361 pd init;
#X obj 288 257 s \$0popOut;
#X obj 288 134 r \$0setPopup;
#N canvas 667 135 215 526 memento 0;
#X obj 14 10 originator-p \$1 \$0;
#X obj 14 55 r \$0assgnList;
#X obj 14 109 s \$0assgnList;
#X obj 15 175 r \$0params;
#X obj 15 259 s \$0popup;
#X obj 14 82 commun-c \$2-assignments \$0;
#X obj 15 207 commun-c \$2-parameters \$0;
#X obj 15 231 list trim;
#X obj 16 361 commun-c \$2-channel \$0;
#X obj 16 338 r \$0channel;
#X obj 16 384 s \$0channelR;
#X obj 16 425 r \$0demux;
#X obj 16 451 commun-c \$2-demux \$0;
#X obj 16 475 s \$0demux;
#X connect 1 0 5 0;
#X connect 3 0 6 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X restore 31 339 pd memento;
#X obj 156 139 s \$0params;
#N canvas 55 208 632 552 listops 0;
#X obj 35 207 list-idx;
#X obj 35 119 r \$0channel;
#X obj 35 182 list;
#X obj 35 143 t b f;
#X obj 402 256 list-delete;
#X obj 330 355 list-insert;
#X obj 474 230 r \$0channel;
#X obj 366 301 r \$0channel;
#X obj 402 209 list;
#X obj 425 186 r \$0assgnList;
#X obj 330 193 t a b;
#X obj 330 381 s \$0assgnList;
#X obj 88 166 r \$0assgnList;
#X obj 330 161 r \$0popOut;
#X text 43 239 don't set the placeholders (see init);
#X obj 35 284 route a b c d;
#X obj 35 323 route e f g h;
#X obj 35 363 route i j k l;
#X obj 35 403 route m n o p;
#X obj 35 256 list trim;
#X obj 35 483 s \$0setPopup;
#X obj 35 443 list;
#X obj 142 379 s \$0popup;
#X msg 142 357 name No-Destination;
#X connect 0 0 19 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 2 0;
#X connect 3 1 0 1;
#X connect 4 0 5 2;
#X connect 5 0 11 0;
#X connect 6 0 4 1;
#X connect 7 0 5 1;
#X connect 8 0 4 0;
#X connect 9 0 8 1;
#X connect 10 0 5 0;
#X connect 10 1 8 0;
#X connect 12 0 2 1;
#X connect 13 0 10 0;
#X connect 15 0 23 0;
#X connect 15 1 23 0;
#X connect 15 2 23 0;
#X connect 15 3 23 0;
#X connect 15 4 16 0;
#X connect 16 0 23 0;
#X connect 16 1 23 0;
#X connect 16 2 23 0;
#X connect 16 3 23 0;
#X connect 16 4 17 0;
#X connect 17 0 23 0;
#X connect 17 1 23 0;
#X connect 17 2 23 0;
#X connect 17 3 23 0;
#X connect 17 4 18 0;
#X connect 18 0 23 0;
#X connect 18 1 23 0;
#X connect 18 2 23 0;
#X connect 18 3 23 0;
#X connect 18 4 21 0;
#X connect 19 0 15 0;
#X connect 21 0 20 0;
#X connect 23 0 22 0;
#X restore 31 315 pd listops;
#N canvas 935 166 242 368 16channelOuts 0;
#X obj 18 23 rchannel-multi \$0 \$1 \$2 \$3 \$4 1;
#X obj 18 43 rchannel-multi \$0 \$1 \$2 \$3 \$4 2;
#X obj 18 63 rchannel-multi \$0 \$1 \$2 \$3 \$4 3;
#X obj 18 83 rchannel-multi \$0 \$1 \$2 \$3 \$4 4;
#X obj 18 103 rchannel-multi \$0 \$1 \$2 \$3 \$4 5;
#X obj 18 123 rchannel-multi \$0 \$1 \$2 \$3 \$4 6;
#X obj 18 143 rchannel-multi \$0 \$1 \$2 \$3 \$4 7;
#X obj 18 163 rchannel-multi \$0 \$1 \$2 \$3 \$4 8;
#X obj 18 183 rchannel-multi \$0 \$1 \$2 \$3 \$4 9;
#X obj 18 203 rchannel-multi \$0 \$1 \$2 \$3 \$4 10;
#X obj 18 223 rchannel-multi \$0 \$1 \$2 \$3 \$4 11;
#X obj 18 263 rchannel-multi \$0 \$1 \$2 \$3 \$4 13;
#X obj 18 283 rchannel-multi \$0 \$1 \$2 \$3 \$4 14;
#X obj 18 303 rchannel-multi \$0 \$1 \$2 \$3 \$4 15;
#X obj 18 323 rchannel-multi \$0 \$1 \$2 \$3 \$4 16;
#X obj 18 243 rchannel-multi \$0 \$1 \$2 \$3 \$4 12;
#X restore 31 293 pd 16channelOuts;
#X obj 166 61 list-extend;
#X obj 189 405 r \$0getParams;
#X obj 280 166 cnv 15 15 15 empty \$0demuxDisplay 1 1 9 0 11 -261234
-33289 0;
#X obj 208 577 s;
#X obj 240 61 r \$1/clearParams;
#X obj 228 452 s \$1/clearParams;
#X obj 145 211 popup 150 25 #ee0000 No-Destination press 'get' to load
parameters;
#X obj 157 184 hradio 10 1 0 8 \$0chRow1 \$0chRow1R empty 0 -8 0 10
-166441 -166441 -166441 0;
#X obj 157 193 hradio 10 1 0 8 \$0chRow2 \$0chRow2R empty 0 -8 0 10
-166441 -166441 -166441 0;
#X obj 238 187 cnv 15 35 15 empty \$0channelDisp Omni 2 7 0 10 -66577
-260818 0;
#X obj 145 188 hradio 12 1 0 1 \$0chRow0 \$0chRow0R empty 0 -8 0 10
-260818 -62784 -166441 0;
#N canvas 0 65 921 562 3RowRadio 0;
#X obj 258 324 r \$0chRow1;
#X obj 508 334 r \$0chRow2;
#X obj 258 454 s \$0chRow1R;
#X obj 508 455 s \$0chRow2R;
#X obj 297 53 r \$0chRow1;
#X obj 397 53 r \$0chRow2;
#X obj 368 189 s \$0channel;
#X obj 25 1 r \$0channelR;
#X obj 64 77 moses 9;
#X obj 108 100 - 9;
#X obj 64 144 s \$0chRow1R;
#X obj 108 122 s \$0chRow2R;
#X obj 64 109 - 1;
#X obj 397 87 + 8;
#X obj 297 86 + 0;
#X obj 379 235 r \$0channel;
#X msg 452 280 label Ch.\$1;
#X obj 379 302 s \$0channelDisp;
#X obj 433 167 s \$0channelSet;
#X msg 258 372 color -7.39328e+06 18 1;
#X msg 268 395 color -7.39328e+06 -7.39328e+06 1;
#X msg 508 372 color -7.39328e+06 18 1;
#X msg 518 395 color -7.39328e+06 -7.39328e+06 1;
#X obj 349 128 + 1;
#X obj 379 258 sel 0;
#X msg 379 280 label Omni;
#X obj 217 53 r \$0chRow0;
#X obj 28 334 r \$0chRow0;
#X obj 25 54 moses 1;
#X obj 25 166 s \$0chRow0R;
#X obj 28 454 s \$0chRow0R;
#X msg 284 419 color 1 1 1;
#X msg 38 395 color 1 1 1;
#X msg 534 419 color 1 1 1;
#X obj 288 167 == 0;
#X obj 288 189 s \$0omni;
#X obj 349 150 t a a a;
#X obj 559 199 r \$0omni;
#X obj 559 222 sel 0 1;
#X obj 559 282 s \$0channelDisp;
#X msg 559 250 color 2 7;
#X msg 623 250 color 2 14;
#X msg 28 372 color 14 18 1;
#X connect 0 0 19 0;
#X connect 0 0 20 0;
#X connect 0 0 31 0;
#X connect 1 0 21 0;
#X connect 1 0 22 0;
#X connect 1 0 33 0;
#X connect 4 0 14 0;
#X connect 5 0 13 0;
#X connect 7 0 28 0;
#X connect 8 0 12 0;
#X connect 8 1 9 0;
#X connect 9 0 11 0;
#X connect 12 0 10 0;
#X connect 13 0 23 0;
#X connect 14 0 23 0;
#X connect 15 0 24 0;
#X connect 16 0 17 0;
#X connect 19 0 2 0;
#X connect 20 0 3 0;
#X connect 21 0 3 0;
#X connect 22 0 2 0;
#X connect 23 0 36 0;
#X connect 24 0 25 0;
#X connect 24 1 16 0;
#X connect 25 0 17 0;
#X connect 26 0 36 0;
#X connect 27 0 42 0;
#X connect 27 0 32 0;
#X connect 28 0 29 0;
#X connect 28 1 8 0;
#X connect 31 0 30 0;
#X connect 32 0 2 0;
#X connect 32 0 3 0;
#X connect 33 0 30 0;
#X connect 34 0 35 0;
#X connect 36 0 34 0;
#X connect 36 1 6 0;
#X connect 36 2 18 0;
#X connect 37 0 38 0;
#X connect 38 0 40 0;
#X connect 38 1 41 0;
#X connect 40 0 39 0;
#X connect 41 0 39 0;
#X connect 42 0 30 0;
#X restore 31 383 pd 3RowRadio;
#X obj 31 478 s \$0channelR;
#X obj 31 433 r \$1/showChannel;
#X obj 31 456 clip 0 16;
#X obj 223 477 loadbang;
#X msg 223 554 symbol \$1\$2/getParams;
#X obj 166 41 r \$0paramsList;
#X obj 279 186 cnv 15 15 30 empty empty empty 20 12 0 14 -258113 -66577
0;
#X obj 282 190 bng 9 250 50 0 \$0getParams \$0getParamsR get -2 14
2 11 -249808 -159808 -1;
#N canvas 0 22 398 329 omniOut 0;
#X obj -274 246 s PDOSC;
#X obj -274 218 prepent;
#X obj -274 101 r \$1\$2;
#X obj -96 102 t b a;
#X obj -150 133 symbol /none;
#X obj -29 20 r \$1/demux;
#X obj -150 156 list prepend 1;
#X obj -150 177 list prepend \$3;
#X msg -150 201 \$1\$2\$3;
#X obj -150 21 r \$0popOut;
#X obj -50 177 s \$0demuxDisplay;
#X obj -50 133 list-l2s;
#X obj -50 156 prepent label;
#X obj -274 180 spigot 0;
#X obj -229 141 r \$0omni;
#X obj -29 47 s \$0demux;
#X obj -96 80 r \$0demux;
#X connect 1 0 0 0;
#X connect 2 0 13 0;
#X connect 3 0 4 0;
#X connect 3 1 6 1;
#X connect 3 1 11 0;
#X connect 4 0 6 0;
#X connect 5 0 15 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 1 1;
#X connect 9 0 4 0;
#X connect 11 0 12 0;
#X connect 12 0 10 0;
#X connect 13 0 1 0;
#X connect 14 0 13 1;
#X connect 16 0 3 0;
#X restore 134 293 pd omniOut;
#N canvas 0 22 385 257 receiveParams 0;
#X obj 38 17 loadbang;
#X obj 38 40 list append \$3 1;
#X obj 38 106 s \$0paramsList;
#X obj 38 86 iem_r;
#X msg 38 64 set \$1\$2/paramsList;
#X text 11 144 this is equivalent to (if \$1 is /sfs) [r /sfs1/paramsList]
\; the iem_r is required since I'm assuming \$11 (\$1-1) would be interpreted
as dollar-eleven;
#X text 14 201 a similar trick is used in the parent for getParams
;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X restore 190 377 pd receiveParams;
#X obj 145 89 list;
#X obj 145 15 r \$0doneGettingParams;
#X obj 189 428 t b b b;
#X obj 189 601 s \$0doneGettingParams;
#X obj 223 500 list append \$3;
#X obj 223 531 list append 1;
#X obj 145 114 prepent options;
#X connect 1 0 15 0;
#X connect 4 0 15 1;
#X connect 9 0 31 1;
#X connect 10 0 33 0;
#X connect 13 0 9 1;
#X connect 15 1 3 0;
#X connect 22 0 23 0;
#X connect 23 0 21 0;
#X connect 24 0 35 0;
#X connect 25 0 12 1;
#X connect 26 0 9 0;
#X connect 31 0 37 0;
#X connect 32 0 31 0;
#X connect 33 0 34 0;
#X connect 33 1 12 0;
#X connect 33 2 14 0;
#X connect 35 0 36 0;
#X connect 36 0 25 0;
#X connect 37 0 6 0;
#X connect 37 0 15 0;
#X coords 0 -1 1 1 160 80 2 140 160;