-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathls.unop.pd
executable file
·332 lines (332 loc) · 7.65 KB
/
ls.unop.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
#N canvas 542 70 1351 840 12;
#X obj 97 88 inlet;
#X obj 174 406 outlet;
#X obj 515 106 loadbang;
#X obj 227 357 list length;
#X obj 110 262 t l l;
#X obj 110 314 s \$0-map_in;
#X obj 120 347 r \$0-map_out;
#X msg 658 348 \; pd-\$1-map clear \;;
#N canvas 0 23 1219 843 iterate 0;
#X obj 68 315 until;
#X obj 68 418 list store;
#X obj 68 340 f;
#X obj 106 341 + 1;
#X msg 120 315 0, f 2;
#X msg 68 389 get \$1 1;
#X obj 117 219 inlet;
#X obj 68 446 outlet;
#X obj 68 363 t f f;
#X obj 68 292 list length;
#X obj 117 242 t a b a b;
#X connect 0 0 2 0;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 2 0 8 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 1 0;
#X connect 6 0 10 0;
#X connect 8 0 5 0;
#X connect 9 0 0 0;
#X connect 10 0 9 0;
#X connect 10 1 4 0;
#X connect 10 2 1 1;
#X connect 10 3 1 1;
#X restore 110 291 pd iterate;
#N canvas 0 23 1060 712 group 0;
#X obj 386 88 inlet;
#X obj 92 49 inlet;
#X msg 92 404 list;
#X obj 385 110 t f b;
#X obj 417 133 s \$0-reset_msg;
#X obj 598 211 r \$0-reset_msg;
#X obj 255 129 s \$0-reset_msg;
#X obj 99 381 r \$0-msg;
#X obj 598 257 s \$0-msg;
#X obj 224 176 s \$0-msg;
#X obj 218 230 r \$0-reset_msg;
#X msg 218 253 0;
#X obj 200 278 f;
#X obj 231 278 + 1;
#X obj 215 309 ==;
#X obj 215 331 sel 1;
#X obj 215 353 s \$0-msg;
#X obj 53 668 outlet;
#X msg 224 152 add2 \$1;
#X msg 598 234 set list;
#X obj 92 431 t l b;
#X obj 124 453 s \$0-reset_msg;
#X obj 385 268 - 1;
#X obj 92 487 route list float symbol bang;
#X obj 270 662 outlet;
#X obj 385 246 abs;
#X obj 385 225 int;
#X obj 334 97 list;
#X obj 92 73 route bang symbol float reset clear list;
#X obj 53 644 spigot;
#X msg 91 602 1;
#X msg 101 623 0;
#X obj 151 669 outlet;
#X obj 151 645 spigot;
#X msg 189 603 1;
#X msg 199 624 0;
#X obj 201 129 t b a b;
#X obj 295 356 t b b;
#X obj 92 340 t b b b;
#N canvas 0 23 450 300 iterate 0;
#X obj 68 315 until;
#X obj 68 418 list store;
#X obj 68 340 f;
#X obj 106 341 + 1;
#X msg 120 315 0, f 2;
#X msg 68 389 get \$1 1;
#X obj 117 219 inlet;
#X obj 68 446 outlet;
#X obj 68 363 t f f;
#X obj 68 292 list length;
#X obj 117 242 t a b a b;
#X connect 0 0 2 0;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 2 0 8 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 1 0;
#X connect 6 0 10 0;
#X connect 8 0 5 0;
#X connect 9 0 0 0;
#X connect 10 0 9 0;
#X connect 10 1 4 0;
#X connect 10 2 1 1;
#X connect 10 3 1 1;
#X restore 235 41 pd iterate;
#X connect 0 0 3 0;
#X connect 1 0 28 0;
#X connect 2 0 20 0;
#X connect 3 0 26 0;
#X connect 3 1 4 0;
#X connect 5 0 19 0;
#X connect 7 0 2 0;
#X connect 10 0 11 0;
#X connect 11 0 12 1;
#X connect 12 0 13 0;
#X connect 12 0 14 0;
#X connect 13 0 12 1;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 18 0 9 0;
#X connect 19 0 8 0;
#X connect 20 0 23 0;
#X connect 20 1 21 0;
#X connect 22 0 14 1;
#X connect 23 0 29 0;
#X connect 23 0 33 0;
#X connect 23 1 29 0;
#X connect 23 1 33 0;
#X connect 23 2 29 0;
#X connect 23 2 33 0;
#X connect 23 3 24 0;
#X connect 25 0 22 0;
#X connect 26 0 25 0;
#X connect 27 0 28 0;
#X connect 28 0 38 0;
#X connect 28 1 36 0;
#X connect 28 2 36 0;
#X connect 28 3 6 0;
#X connect 28 4 6 0;
#X connect 28 5 39 0;
#X connect 28 6 27 0;
#X connect 29 0 17 0;
#X connect 30 0 29 1;
#X connect 31 0 29 1;
#X connect 33 0 32 0;
#X connect 34 0 33 1;
#X connect 35 0 33 1;
#X connect 36 0 12 0;
#X connect 36 1 18 0;
#X connect 36 2 37 0;
#X connect 37 0 30 0;
#X connect 37 1 35 0;
#X connect 38 0 2 0;
#X connect 38 1 31 0;
#X connect 38 2 34 0;
#X connect 39 0 28 0;
#X restore 155 380 pd group;
#N canvas 0 23 450 300 \$0-map 0;
#X obj 10 10 r 1527-map_in;
#X obj 10 190 s 1527-map_out;
#X obj 10 100 expr fmod($f1\\\,2.3);
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X restore 1099 5 pd \$0-map;
#X msg 658 572 \; pd-1527-map obj 10 100 expr fmod($f1\\\,2.3) \;;
#X msg 658 457 addsemi;
#X obj 658 548 r \$0-buildmess;
#X obj 846 435 s \$0-buildmess;
#X obj 846 457 s \$0-buildmess;
#X msg 658 435 set;
#X msg 658 385 \; pd-\$1-map obj 10 10 r \$1-map_in \; pd-\$1-map obj
10 190 s \$1-map_out \;, f 68;
#X msg 658 526 addsemi;
#X obj 847 526 s \$0-buildmess;
#X obj 846 481 s \$0-buildmess;
#X obj 847 502 s \$0-buildmess;
#N canvas 669 174 724 618 argparse 0;
#X obj 156 139 pdcontrol;
#X msg 156 117 args 0;
#X obj 296 212 list length;
#X msg 296 287 + 1;
#X obj 156 262 spigot;
#X obj 296 261 sel 0;
#X obj 296 237 > 0;
#X obj 156 5 inlet;
#X obj 156 342 outlet;
#X msg 156 314 add2 \$1;
#X obj 304 3 inlet;
#X obj 304 25 list trim;
#X obj 156 84 spigot;
#X msg 204 60 1;
#X msg 204 83 0;
#X obj 217 1 loadbang;
#X obj 371 97 spigot;
#X msg 419 73 1;
#X msg 419 96 0;
#X obj 450 96 loadbang;
#X obj 156 29 t b b;
#X obj 278 99 list store;
#X obj 304 50 t a b b;
#X obj 156 287 ls.iter;
#X obj 156 211 t a a;
#X connect 0 0 24 0;
#X connect 1 0 0 0;
#X connect 2 0 6 0;
#X connect 3 0 23 0;
#X connect 4 0 23 0;
#X connect 5 0 3 0;
#X connect 6 0 4 1;
#X connect 6 0 5 0;
#X connect 7 0 20 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 22 0;
#X connect 12 0 1 0;
#X connect 13 0 12 1;
#X connect 14 0 12 1;
#X connect 15 0 13 0;
#X connect 16 0 21 0;
#X connect 17 0 16 1;
#X connect 18 0 16 1;
#X connect 19 0 18 0;
#X connect 20 0 12 0;
#X connect 20 1 16 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 22 1 17 0;
#X connect 22 2 21 1;
#X connect 23 0 9 0;
#X connect 24 0 4 0;
#X connect 24 1 2 0;
#X restore 658 502 pd argparse;
#X msg 658 609 \; pd-\$1-map connect 0 0 2 0 \; pd-\$1-map connect
2 0 1 0 \;, f 68;
#X obj 515 308 t f b b b f b b f f;
#X msg 658 480 add2 pd-\$1-map obj 10 100;
#X obj 515 284 f \$0;
#X obj 760 111 inlet;
#X obj 761 138 list;
#X obj 761 207 t f b b b f b b f f;
#X obj 761 183 f \$0;
#X obj 879 254 list store;
#X obj 761 162 t b a;
#X msg 879 312 add2 \$1;
#X obj 879 334 s \$0-buildmess;
#N canvas 0 23 1219 843 iterate 0;
#X obj 68 315 until;
#X obj 68 418 list store;
#X obj 68 340 f;
#X obj 106 341 + 1;
#X msg 120 315 0, f 2;
#X msg 68 389 get \$1 1;
#X obj 117 219 inlet;
#X obj 68 446 outlet;
#X obj 68 363 t f f;
#X obj 68 292 list length;
#X obj 117 242 t a b a b;
#X connect 0 0 2 0;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 2 0 8 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 1 0;
#X connect 6 0 10 0;
#X connect 8 0 5 0;
#X connect 9 0 0 0;
#X connect 10 0 9 0;
#X connect 10 1 4 0;
#X connect 10 2 1 1;
#X connect 10 3 1 1;
#X restore 879 276 pd iterate;
#X msg 988 165 \; pd-\$1-map clear \;;
#X obj 988 143 f \$0;
#X obj 986 119 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 97 239 list store;
#X obj 257 155 list;
#X obj 97 132 route list bang set;
#X obj 183 177 list;
#X obj 97 188 t a a b;
#X connect 0 0 41 0;
#X connect 2 0 26 0;
#X connect 3 0 9 1;
#X connect 4 0 8 0;
#X connect 4 1 3 0;
#X connect 6 0 9 0;
#X connect 8 0 5 0;
#X connect 9 0 1 0;
#X connect 12 0 15 0;
#X connect 13 0 11 0;
#X connect 16 0 14 0;
#X connect 18 0 19 0;
#X connect 22 0 21 0;
#X connect 24 0 23 0;
#X connect 24 1 11 0;
#X connect 24 2 18 0;
#X connect 24 3 22 0;
#X connect 24 4 25 0;
#X connect 24 5 12 0;
#X connect 24 6 16 0;
#X connect 24 7 17 0;
#X connect 24 8 7 0;
#X connect 25 0 20 0;
#X connect 26 0 24 0;
#X connect 27 0 28 0;
#X connect 28 0 32 0;
#X connect 29 0 23 0;
#X connect 29 1 11 0;
#X connect 29 2 18 0;
#X connect 29 3 31 0;
#X connect 29 4 25 0;
#X connect 29 5 12 0;
#X connect 29 6 16 0;
#X connect 29 7 17 0;
#X connect 29 8 7 0;
#X connect 30 0 29 0;
#X connect 31 0 35 0;
#X connect 32 0 30 0;
#X connect 32 1 31 1;
#X connect 33 0 34 0;
#X connect 35 0 33 0;
#X connect 37 0 36 0;
#X connect 38 0 37 0;
#X connect 39 0 4 0;
#X connect 40 0 39 0;
#X connect 41 0 43 0;
#X connect 41 1 39 0;
#X connect 41 2 42 0;
#X connect 41 3 40 0;
#X connect 42 0 39 1;
#X connect 43 0 39 1;
#X connect 43 1 39 0;
#X connect 43 2 39 1;