/
marker.pd
358 lines (358 loc) · 9.16 KB
/
marker.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
#N canvas 67 426 621 300 10;
#X declare -lib zexy -path zexy -path ./;
#X obj 170 177 iemguts/canvasselect;
#X obj 170 203 print fo;
#X obj 170 154 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 723 357 515 392 workings 0;
#N canvas 572 198 761 546 c-movement 0;
#X obj 300 59 inlet height;
#X obj 225 60 inlet;
#X obj 513 342 iemguts/sendcanvas 2;
#X obj 462 320 - 2;
#X msg 462 443 vis_size 1 \$1;
#X obj 462 465 s \$0-block;
#X obj 407 228 unpack;
#X obj 65 120 receive \$0-canvass;
#X obj 65 142 route bang;
#X obj 85 264 unpack;
#X obj 85 309 pack;
#X obj 85 286 clip 0;
#X obj 319 306 - 3;
#X obj 65 164 t a b;
#X obj 65 242 iemguts/canvasobjectposition 3;
#X obj 242 219 iemguts/canvasindex 2;
#X obj 337 421 s \$0-pixsize;
#X obj 225 84 demux 0 1 2 3;
#X text 317 21 x1 y1 x2 y2;
#X obj 225 200 pack f f;
#X msg 295 129 label_pos 2 \$1;
#X msg 513 320 coords 0 -1 1 1 3 \$1 2 0 3;
#X obj 337 396 pack 3 8;
#X obj 462 227 receive \$0-lbang;
#X obj 225 128 t f b b;
#X obj 487 62 del 550;
#X obj 270 151 receive \$0-nomove;
#X obj 225 174 spigot 1;
#X obj 295 107 t f b f;
#X obj 487 39 spigot;
#X obj 520 12 receive \$0-savestart;
#X obj 487 172 s \$0-rea;
#X obj 462 292 t f f;
#X obj 558 65 receive \$0-created0;
#X obj 558 90 t b b f;
#X obj 487 84 t b b;
#X obj 604 112 ctxfiles/dvs \$0 order0;
#X obj 581 134 ctxfiles/dvs \$0 order1;
#X obj 558 156 ctxfiles/dvs \$0 order;
#X obj 407 206 ctxfiles/dvr \$0 cursorsz;
#X obj 462 252 ctxfiles/dv \$0 yszz;
#X obj 319 284 ctxfiles/dv \$0 xszz;
#X connect 0 0 17 1;
#X connect 1 0 17 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 6 1 32 0;
#X connect 7 0 8 0;
#X connect 8 0 13 0;
#X connect 9 0 11 0;
#X connect 10 0 13 0;
#X connect 11 0 10 0;
#X connect 12 0 11 2;
#X connect 13 0 14 0;
#X connect 13 1 15 0;
#X connect 14 0 9 0;
#X connect 15 0 14 1;
#X connect 17 0 24 0;
#X connect 17 1 28 0;
#X connect 17 2 24 0;
#X connect 17 3 28 0;
#X connect 19 0 14 0;
#X connect 20 0 5 0;
#X connect 21 0 2 0;
#X connect 22 0 16 0;
#X connect 23 0 40 0;
#X connect 23 0 41 0;
#X connect 24 0 27 0;
#X connect 24 1 15 0;
#X connect 24 2 29 0;
#X connect 25 0 35 0;
#X connect 26 0 27 1;
#X connect 27 0 19 0;
#X connect 28 0 20 0;
#X connect 28 1 22 0;
#X connect 28 2 22 1;
#X connect 29 0 25 0;
#X connect 30 0 29 1;
#X connect 32 0 3 0;
#X connect 32 1 21 0;
#X connect 33 0 34 0;
#X connect 34 0 38 0;
#X connect 34 1 37 0;
#X connect 34 2 36 0;
#X connect 35 0 31 0;
#X connect 35 1 34 0;
#X connect 39 0 6 0;
#X connect 40 0 32 0;
#X connect 41 0 12 0;
#X restore 23 258 pd c-movement;
#N canvas 594 292 634 339 order 0;
#X obj 156 112 receive \$0-xstart;
#X obj 141 136 f;
#X obj 194 63 receive \$0-savestart;
#X obj 412 72 receive \$0-mynum;
#X obj 141 158 t f b;
#X obj 173 184 f \$0;
#X obj 427 184 receive \$0-mx1;
#X obj 412 230 f;
#X obj 433 94 receive \$0-dvstart;
#X obj 412 117 pack;
#X msg 412 139 symbol \$2-mstart\$1;
#X obj 412 162 iemguts/oreceive;
#X obj 438 230 makefilename %d-mstar;
#X obj 412 252 send;
#X obj 51 63 receive \$0-ncreated;
#X obj 11 89 receive \$0-nstart;
#X obj 141 89 spigot 1;
#X obj 141 40 ctxfiles/dvr \$0 order1;
#X obj 141 226 ctxfiles/dvs \$0 mkord;
#X obj 173 205 ctxfiles/dvs \$0 mkord0;
#X obj 427 206 * 1000;
#X connect 0 0 1 1;
#X connect 1 0 4 0;
#X connect 2 0 16 1;
#X connect 3 0 9 0;
#X connect 4 0 18 0;
#X connect 4 1 5 0;
#X connect 5 0 19 0;
#X connect 6 0 20 0;
#X connect 7 0 13 0;
#X connect 8 0 9 1;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 7 0;
#X connect 12 0 13 1;
#X connect 14 0 1 0;
#X connect 15 0 1 0;
#X connect 16 0 1 0;
#X connect 17 0 16 0;
#X connect 20 0 7 1;
#X restore 215 51 pd order;
#X obj 296 163 receive \$0-mynum;
#X obj 23 167 iemguts/canvasposition 1;
#X obj 23 143 receive \$0-created;
#X obj 23 190 ctxfiles/m-interface \$0 2 4 16 3 8 24;
#X obj 296 190 l2s;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 0 0;
#X connect 5 1 0 1;
#X connect 5 2 6 0;
#X connect 6 0 5 1;
#X restore 406 71 pd workings;
#X obj 132 24 iemguts/canvasargs;
#N canvas 623 180 450 416 loadbang 0;
#X obj 222 76 ctxfiles/myinit 3;
#X obj 274 188 s \$0-iemargr;
#X obj 239 252 del 1000;
#X obj 239 274 f 1;
#X obj 239 297 s \$0-savestart;
#X obj 292 143 makefilename \$0-cbee;
#X obj 222 98 spigot 1;
#X obj 88 206 spigot 1;
#X obj 125 277 s \$0-created;
#X obj 88 183 receive \$0-cbee;
#X obj 10 178 spigot 1;
#X obj 143 253 s \$0-created1;
#X obj 257 213 s \$0-lb;
#X obj 222 121 t f b b b f f;
#X obj 10 253 s \$0-ncreated;
#X obj 88 228 t b b b b f;
#X obj 88 298 s \$0-created0;
#X obj 10 156 ctxfiles/dvr \$0 cntstrt;
#X obj 292 165 ctxfiles/dvs \$0 cbeep;
#X obj 53 326 t b b;
#X obj 53 393 s \$0-lbang;
#X obj 85 347 f 1;
#X obj 85 369 s \$0-lbang1;
#X obj 10 200 t b b;
#X obj 222 51 ctxfiles/dvi \$0 4 loadbang;
#X connect 0 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 5 0 18 0;
#X connect 6 0 13 0;
#X connect 7 0 15 0;
#X connect 9 0 7 0;
#X connect 10 0 23 0;
#X connect 13 0 7 1;
#X connect 13 1 2 0;
#X connect 13 2 12 0;
#X connect 13 3 1 0;
#X connect 13 4 5 0;
#X connect 13 5 6 1;
#X connect 15 0 16 0;
#X connect 15 1 19 0;
#X connect 15 2 8 0;
#X connect 15 3 11 0;
#X connect 15 4 10 1;
#X connect 17 0 10 0;
#X connect 19 0 20 0;
#X connect 19 1 21 0;
#X connect 21 0 22 0;
#X connect 23 0 14 0;
#X connect 23 1 19 0;
#X connect 24 0 0 0;
#X restore 491 9 pd loadbang;
#X obj 1 4 cnv 1 1 30 empty \$0-block empty 2 3 0 10 -128992 -1 0;
#X obj 253 3 inlet;
#X obj 401 129 ctxfiles/saver \$0 switch-x 2;
#X obj 481 59 receive \$0-savelist;
#X msg 481 81 click;
#X obj 481 103 text define -k \$0-save;
#A set %^ :x1 0 \; %^ :x1 0 \; %^ :a bang \;;
#X obj 132 2 receive \$0-iemargr;
#X obj 132 46 s \$0-canvass;
#N canvas 624 105 575 637 message 0;
#X obj 233 112 route bang;
#X obj 252 160 switch~;
#X obj 54 155 receive~;
#X obj 54 110 receive \$0-dvstart;
#X msg 54 132 set \$1-myline;
#X obj 54 177 *~ 44.1;
#X obj 54 221 -~;
#X obj 54 243 max~;
#X obj 54 265 cyclone/edge~;
#X obj 54 287 list;
#X obj 69 199 receive \$0-xstart;
#X obj 54 511 list trim;
#X obj 324 160 f 1;
#X obj 309 183 cyclone/iter;
#X obj 290 373 ctxfiles/collect;
#X obj 328 327 v \$0-mx1;
#X obj 309 351 v \$0-mynum;
#X obj 205 91 list;
#X obj 205 48 receive \$0-rea;
#X obj 318 -26 receive \$0-aa;
#X obj 318 -4 route ';
#X obj 318 18 cyclone/zl rev;
#X obj 318 40 route ';
#X obj 318 62 cyclone/zl rev;
#X obj 309 205 sel @ @@ ~;
#X obj 54 310 demux;
#X obj 81 333 t a b;
#X obj 81 487 cyclone/substitute ~ 0;
#X obj 108 399 pack f \$0;
#X obj 210 444 receive \$0-fetch;
#X obj 347 249 f 1;
#X obj 290 138 t b a b b;
#X obj 233 139 t b f f;
#X obj 349 160 t f;
#X msg 210 466 ~ \$1;
#X obj 347 227 t b b;
#X msg 374 250 ~;
#X obj 108 355 v \$0-mx1;
#X obj 108 377 * 1000;
#X obj 108 421 ctxfiles/dvs \$0 intget;
#X obj 54 534 ctxfiles/dvs \$0 msteal1;
#X connect 0 0 32 0;
#X connect 0 1 31 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 25 0;
#X connect 10 0 6 1;
#X connect 11 0 40 0;
#X connect 12 0 1 0;
#X connect 13 0 24 0;
#X connect 14 0 9 1;
#X connect 15 0 14 1;
#X connect 16 0 14 1;
#X connect 17 0 0 0;
#X connect 18 0 17 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 1 21 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X connect 22 1 23 0;
#X connect 23 0 0 0;
#X connect 23 0 17 1;
#X connect 24 0 16 0;
#X connect 24 1 15 0;
#X connect 24 2 35 0;
#X connect 24 3 14 1;
#X connect 25 0 11 0;
#X connect 25 1 26 0;
#X connect 26 0 27 0;
#X connect 26 1 37 0;
#X connect 27 0 11 0;
#X connect 28 0 39 0;
#X connect 29 0 34 0;
#X connect 30 0 25 1;
#X connect 31 0 14 0;
#X connect 31 1 13 0;
#X connect 31 2 12 0;
#X connect 31 3 33 0;
#X connect 32 0 9 1;
#X connect 32 1 1 0;
#X connect 32 2 25 1;
#X connect 33 0 25 1;
#X connect 34 0 27 1;
#X connect 35 0 30 0;
#X connect 35 1 36 0;
#X connect 36 0 14 1;
#X connect 37 0 38 0;
#X connect 38 0 28 0;
#X restore 360 147 pd message;
#N canvas 491 391 793 377 messagein 0;
#X obj 343 87 inlet;
#X obj 241 150 cyclone/zl iter 1;
#X obj 343 109 t b a;
#X obj 578 86 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
500;
#X msg 578 108 vis_size \$1 1;
#X obj 578 130 s \$0-datagrid;
#X obj 383 87 receive \$0-anyin;
#X obj 217 18 receive \$0-dvstart;
#X obj 196 41 pack;
#X obj 196 -7 receive \$0-mynum;
#X msg 196 63 symbol \$2-\$1markr;
#X obj 196 87 iemguts/oreceive \$0nop;
#X obj 407 159 ctxfiles/br2 demux 2 \; #f t \; #f s \$0-:x1 \; #f s
\$0-:y1 \; #f s \$0-aa \;;
#X obj 407 133 ctxfiles/recompile \$0 mothr;
#X obj 241 172 ctxfiles/br2 route 1 \; :x1 tfsn \$0 #f x1 0 \; :y1
tfsn \$0 #f y1 0 \; :a tfspa \$0 #f a bang \; ## s \$0-mothr;
#X connect 0 0 2 0;
#X connect 1 0 14 0;
#X connect 2 0 13 0;
#X connect 2 1 1 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 6 0 2 0;
#X connect 7 0 8 1;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 2 0;
#X connect 13 0 12 0;
#X connect 13 1 12 1;
#X restore 261 52 pd messagein;
#X obj 345 220 ctxfiles/license;
#X obj 344 193 declare -lib zexy -path zexy -path ./;
#X connect 0 0 1 0;
#X connect 2 0 0 0;
#X connect 4 0 15 0;
#X connect 4 0 13 0;
#X connect 7 0 15 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 12 0 4 0;
#X coords 0 -1 1 1 19 32 2 0 3;