forked from LGoodacre/context-sequencer
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathcoord.pd
428 lines (428 loc) · 10.8 KB
/
coord.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
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
#N canvas 67 242 506 482 10;
#X declare -lib zexy -path zexy -path ./;
#N canvas 443 91 724 677 create 1;
#X obj 194 73 symbol \$1-getdim;
#X obj 174 123 send;
#X obj 174 147 receive \$0-gotdim;
#X obj 174 98 symbol \$0-gotdim;
#X obj 53 128 sel x y;
#X obj 53 104 symbol \$2;
#X obj 72 151 f 1;
#X obj 53 232 + 1;
#X obj 174 262 makefilename %d-save;
#X obj 53 255 text get \$0n;
#X obj 53 278 list trim;
#X obj 53 301 route %^;
#X obj 53 324 unpack s f;
#X msg 201 216 symbol \$1-:\$2;
#X obj 201 239 iemguts/oreceive \$0n;
#X obj 150 528 demux;
#X obj 220 379 demux;
#X obj 155 28 ctxfiles/myinit 3;
#X obj 150 663 iemguts/sendcanvas 1;
#X obj 201 193 list append \$2;
#X obj 150 480 - 5;
#X obj 201 308 - 5;
#X obj 201 332 pack f \$0 f;
#X msg 247 403 coords 0 -1 1 1 15 \$3 2 0 -2 \; \$2-receive size 15
\$1;
#X msg 220 440 coords 0 -1 1 1 \$3 15 2 -3 0 \; \$2-receive size \$1
15;
#X obj 201 355 t b l b;
#X msg 277 380 menu-open;
#X msg 201 403 vis 0;
#X obj 357 206 s \$0-dollarzero;
#X obj 98 226 s \$0-xy;
#X obj 110 347 demux;
#X obj 137 324 f 1;
#X obj 128 197 f 9;
#X obj 53 173 t f f f f b b;
#X obj 174 170 t f f f f;
#X obj 443 271 makefilename %d-:color;
#X obj 443 294 iemguts/oreceive \$0n;
#X obj 443 362 pack f \$0;
#X msg 443 385 \; \$2-receive color \$1;
#X obj 443 339 -;
#X obj 383 233 receive \$0-ctrl;
#X obj 383 256 t b f;
#X obj 410 281 * 64;
#X obj 443 317 f;
#X obj 150 457 t f f f;
#X obj 350 513 s \$0-sizee;
#X obj 201 285 t f f f;
#X obj 150 503 zexy/pack 0 \$0 0 0 \$3;
#X obj 155 6 loadbang;
#X msg 177 551 obj 0 0 vsl 15 \$1 0 1 0 0 \$2-send \$2-receive empty
0 -9 0 10 -1 -1 -1 0 1 \, text 3 4 \$5-y \, f 1 \, coords 0 -1 1 1
15 \$3 2 0 -2 \; \$2-receive color \$4;
#X msg 150 613 obj 0 0 hsl \$1 15 0 1 0 0 \$2-send \$2-receive empty
0 -9 0 10 -1 -1 -1 0 1 \, text 4 -1 \$5-x \, coords 0 -1 1 1 \$3 15
2 -3 0 \; \$2-receive color \$4;
#X text 272 37 CREATION ARGS: array name \, x/y \, label \, \$1 (psave)
\, grain;
#X msg 426 501 menu-open \, coords 0 -1 1 1 1 1 1 0 0 \, coords 0 -1
1 1 1 1 0 0 0 \, vis 0;
#X obj 426 478 receive \$0-prop;
#X obj 155 50 t b b b;
#X obj 210 6 receive \$1-plb;
#X obj 449 105 ctxfiles/license;
#X obj 449 168 declare -lib zexy -path zexy -path ./;
#X connect 0 0 1 1;
#X connect 2 0 34 0;
#X connect 3 0 1 0;
#X connect 4 0 33 0;
#X connect 4 1 6 0;
#X connect 5 0 4 0;
#X connect 6 0 33 0;
#X connect 7 0 9 0;
#X connect 8 0 9 3;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 1 12 0;
#X connect 12 1 30 0;
#X connect 13 0 14 0;
#X connect 14 0 46 0;
#X connect 15 0 50 0;
#X connect 15 1 49 0;
#X connect 16 0 24 0;
#X connect 16 1 23 0;
#X connect 17 0 54 0;
#X connect 19 0 13 0;
#X connect 20 0 47 0;
#X connect 21 0 22 0;
#X connect 22 0 25 0;
#X connect 23 0 18 0;
#X connect 24 0 18 0;
#X connect 25 0 27 0;
#X connect 25 1 16 0;
#X connect 25 2 26 0;
#X connect 26 0 18 0;
#X connect 27 0 18 0;
#X connect 30 0 43 1;
#X connect 30 0 47 3;
#X connect 30 1 44 0;
#X connect 31 0 30 1;
#X connect 32 0 9 0;
#X connect 33 0 7 0;
#X connect 33 1 15 1;
#X connect 33 2 16 1;
#X connect 33 3 29 0;
#X connect 33 4 31 0;
#X connect 33 5 32 0;
#X connect 34 0 8 0;
#X connect 34 1 19 0;
#X connect 34 2 35 0;
#X connect 34 3 28 0;
#X connect 35 0 36 0;
#X connect 36 0 43 0;
#X connect 37 0 38 0;
#X connect 39 0 37 0;
#X connect 40 0 41 0;
#X connect 41 0 43 0;
#X connect 41 1 42 0;
#X connect 42 0 39 1;
#X connect 43 0 39 0;
#X connect 44 0 20 0;
#X connect 44 1 47 2;
#X connect 44 2 45 0;
#X connect 46 0 21 0;
#X connect 46 1 22 2;
#X connect 46 2 45 0;
#X connect 47 0 15 0;
#X connect 48 0 17 0;
#X connect 49 0 18 0;
#X connect 50 0 18 0;
#X connect 52 0 18 0;
#X connect 53 0 52 0;
#X connect 54 0 5 0;
#X connect 54 1 3 0;
#X connect 54 2 0 0;
#X connect 55 0 17 0;
#X restore 283 13 pd create;
#N canvas 125 88 871 680 move 0;
#X obj 26 5 keyname;
#X obj 26 28 pack f s;
#X obj 26 51 cyclone/zl rev;
#X obj 26 74 route Control_L Control_R Meta_L Meta_R;
#X obj 123 278 v \$0-dollarzero;
#X obj 92 301 pack f f \$0;
#X msg 92 324 \; \$2-stealarray \$1 \$3-stolearray;
#X obj 178 359 receive \$0-stolearray-1;
#X obj 279 381 receive \$0-stolearray-2;
#X obj 26 135 moses 1;
#X obj 107 255 receive \$0-xy;
#X obj 92 278 +;
#X obj 92 184 t f b b;
#X obj 131 230 text define \$0-points;
#X msg 131 207 clear;
#X obj 279 405 t l l;
#X obj 306 427 list length;
#X obj 178 450 cyclone/iter;
#X obj 178 473 text set \$0-points 1e+10;
#X obj 31 449 receive \$0-send;
#X obj 31 472 spigot;
#X obj 31 495 text search \$0-points near 0;
#X obj 58 542 moses;
#X obj 85 566 -;
#X text 219 208 on control \, steal array list from [gget];
#X text 278 455 set to text object;
#X text 141 541 find closest match between slider and point;
#X obj 26 110 t f f f;
#X obj 75 135 s \$0-ctrl;
#X msg 85 635 set -1;
#X msg 146 635 set -1;
#X obj 58 589 change -1;
#X obj 119 589 change -1;
#X obj 58 710 s \$0-which;
#X msg 604 236 \; \$3-symon-\$2 list + \$1;
#X msg 549 287 \; \$3-symon-\$2 list \$1;
#X obj 549 240 list;
#X obj 549 263 spigot;
#X obj 580 241 f 1;
#X obj 541 189 receive \$0-which;
#X obj 541 355 list prepend \$2;
#X obj 541 448 route \$2;
#X text 156 686 2 = point 2 (beginning of list);
#X obj 647 548 text get \$0-points;
#X msg 647 571 set \$1;
#X obj 647 594 s \$0-receive;
#X obj 541 425 list trim;
#X obj 538 627 s \$0-setme;
#X obj 586 473 list split 1;
#X obj 620 498 t l l;
#X text 688 287 when selection changes \, label new selection and unlabel
old;
#X text 610 450 set other [grab] to the same point;
#X obj 118 659 pack f 1 f 1;
#X obj 58 684 pack f 2 f 0;
#X obj 541 379 send \$1-\$3-sett;
#X obj 541 402 receive \$1-\$3-sett;
#X obj 1 356 receive \$1-\$3-grabn;
#X obj 184 162 f 1;
#X obj 184 139 receive \$1-\$3-allload;
#X obj 178 382 t l l;
#X obj 205 404 list length;
#X obj 205 427 +;
#X obj 18 402 mod 9999;
#X obj 35 425 s \$1-\$3-allload;
#X obj 192 635 +;
#X obj 119 612 t f b f;
#X obj 58 612 t f b f;
#X obj 541 213 t l b l b l l;
#X obj 647 524 cyclone/zl nth 4;
#X obj 369 654 cyclone/zl nth 4;
#X obj 369 631 spigot 1;
#X obj 414 607 t f;
#X obj 1 425 f 1;
#X obj 369 677 s \$1-\$3-toindex;
#X text 227 559 WHICH: point number \, 1/2. \$0 \, local index;
#X obj 16 543 f;
#X obj 31 518 t f f;
#X obj 65 159 t b f;
#X obj 1 379 t b f b b;
#X obj 587 594 v \$0-send;
#X connect 0 0 1 0;
#X connect 0 1 1 1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 27 0;
#X connect 3 1 27 0;
#X connect 3 2 27 0;
#X connect 3 3 27 0;
#X connect 4 0 5 1;
#X connect 4 0 52 2;
#X connect 4 0 53 2;
#X connect 5 0 6 0;
#X connect 7 0 59 0;
#X connect 8 0 15 0;
#X connect 9 1 77 0;
#X connect 10 0 11 1;
#X connect 11 0 5 0;
#X connect 12 0 11 0;
#X connect 12 1 4 0;
#X connect 12 2 14 0;
#X connect 14 0 13 0;
#X connect 15 0 17 0;
#X connect 15 1 16 0;
#X connect 16 0 22 1;
#X connect 16 0 23 1;
#X connect 16 0 61 1;
#X connect 16 0 64 1;
#X connect 17 0 18 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 21 0 76 0;
#X connect 22 0 31 0;
#X connect 22 1 23 0;
#X connect 23 0 32 0;
#X connect 27 0 9 0;
#X connect 27 1 20 1;
#X connect 27 2 28 0;
#X connect 29 0 32 0;
#X connect 30 0 31 0;
#X connect 31 0 66 0;
#X connect 32 0 65 0;
#X connect 36 0 37 0;
#X connect 37 0 35 0;
#X connect 38 0 37 1;
#X connect 39 0 67 0;
#X connect 40 0 54 0;
#X connect 41 1 48 0;
#X connect 43 0 44 0;
#X connect 43 0 79 0;
#X connect 44 0 45 0;
#X connect 46 0 41 0;
#X connect 48 1 49 0;
#X connect 49 0 47 0;
#X connect 49 1 68 0;
#X connect 52 0 33 0;
#X connect 53 0 33 0;
#X connect 55 0 46 0;
#X connect 56 0 78 0;
#X connect 57 0 12 0;
#X connect 58 0 57 0;
#X connect 59 0 17 0;
#X connect 59 1 60 0;
#X connect 60 0 61 0;
#X connect 61 0 62 1;
#X connect 62 0 22 0;
#X connect 64 0 52 3;
#X connect 65 0 52 0;
#X connect 65 1 30 0;
#X connect 65 2 64 0;
#X connect 66 0 53 0;
#X connect 66 1 29 0;
#X connect 66 2 53 3;
#X connect 67 0 40 0;
#X connect 67 1 38 0;
#X connect 67 2 36 1;
#X connect 67 3 36 0;
#X connect 67 4 34 0;
#X connect 67 5 70 0;
#X connect 68 0 43 0;
#X connect 68 0 75 1;
#X connect 69 0 73 0;
#X connect 70 0 69 0;
#X connect 71 0 70 1;
#X connect 72 0 70 1;
#X connect 75 0 43 0;
#X connect 76 0 75 1;
#X connect 76 1 22 0;
#X connect 77 0 75 0;
#X connect 77 1 12 0;
#X connect 78 0 72 0;
#X connect 78 1 62 0;
#X connect 78 2 63 0;
#X connect 78 3 71 0;
#X restore 283 35 pd move;
#N canvas 67 198 450 475 set 0;
#X obj 146 36 receive \$0-which;
#X obj 107 13 receive \$0-setme;
#X obj 38 84 receive \$0-send;
#X obj 65 128 receive \$0-ctrl;
#X obj 38 151 demux;
#X obj 107 36 t l b;
#X obj 38 107 spigot;
#X obj 134 59 f 1;
#X obj 38 345 list prepend;
#X obj 170 128 receive \$0-xy;
#X obj 107 151 list append;
#X text 275 80 1: point # \; 2: point 1/2 \; 3: \$0 \; 4: offset \;
5: x/y (appended) \; 6: value (appended);
#X obj 53 274 receive \$0-sizee;
#X obj 38 298 *;
#X obj 38 321 + 5;
#X obj 182 153 sel 1;
#X obj 182 176 f -5;
#X msg 38 369 \; \$3-setme-\$2 \$6 \$1 \$5 \; \$3-lbb\$2 bang;
#X obj 65 178 receive \$0-xy;
#X obj 38 202 demux;
#X obj 65 226 swap 1;
#X obj 65 249 -;
#X connect 0 0 5 0;
#X connect 1 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 4 1;
#X connect 4 0 19 0;
#X connect 5 0 10 0;
#X connect 5 1 7 0;
#X connect 6 0 4 0;
#X connect 7 0 6 1;
#X connect 8 0 17 0;
#X connect 9 0 10 1;
#X connect 9 0 15 0;
#X connect 10 0 8 1;
#X connect 12 0 13 1;
#X connect 13 0 14 0;
#X connect 14 0 8 0;
#X connect 15 0 16 0;
#X connect 16 0 14 1;
#X connect 18 0 19 1;
#X connect 19 0 13 0;
#X connect 19 1 20 0;
#X connect 20 0 21 0;
#X connect 20 1 21 1;
#X connect 21 0 13 0;
#X restore 283 58 pd set;
#X obj 356 59 inlet;
#N canvas 451 352 726 300 input 0;
#X obj 185 25 receive \$4-;
#X obj 185 71 route float;
#X obj 185 184 s \$0-receive;
#X obj 185 48 route \$3-\$2;
#X obj 248 94 t l b;
#X obj 275 168 line 0 100;
#X obj 275 120 v \$0-send;
#X obj 185 159 * 0.01;
#X obj 331 34 loadbang;
#X obj 331 57 f \$5;
#X obj 331 80 moses 1;
#X obj 275 143 * 100;
#X obj 148 48 inlet;
#X obj 513 101 makefilename %s-getslides;
#X obj 513 123 iemguts/oreceive \$0-n;
#X obj 513 145 t b s;
#X obj 513 233 send;
#X obj 513 211 pack f \$0;
#X obj 513 167 v \$0-send;
#X obj 513 77 iemguts/canvasdollarzero 2;
#X obj 281 11 receive \$0-fromgrid;
#X obj 513 189 * 100;
#X connect 0 0 3 0;
#X connect 1 0 7 0;
#X connect 1 1 4 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 5 0 7 0;
#X connect 6 0 11 0;
#X connect 7 0 2 0;
#X connect 8 0 9 0;
#X connect 8 0 19 0;
#X connect 9 0 10 0;
#X connect 10 1 5 2;
#X connect 11 0 5 0;
#X connect 12 0 1 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 18 0;
#X connect 15 1 16 1;
#X connect 17 0 16 0;
#X connect 18 0 21 0;
#X connect 19 0 13 0;
#X connect 20 0 4 0;
#X connect 21 0 17 0;
#X restore 356 82 pd input;
#X obj 347 13 iemguts/propertybang 1;
#X obj 347 36 s \$0-prop;
#X obj 356 106 receive \$0-send;
#X obj 356 153 demux;
#X obj 356 176 outlet;
#X obj 383 130 receive \$0-ctrl;
#X connect 3 0 4 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 8 1;
#X coords 0 482 1 481 85 60 0;