-
Notifications
You must be signed in to change notification settings - Fork 0
/
ls.binop.pd
executable file
·395 lines (395 loc) · 9.12 KB
/
ls.binop.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
#N canvas 103 71 1351 840 12;
#X obj -24 527 outlet;
#X obj 515 286 loadbang;
#X obj 29 254 list length;
#X obj -59 469 r \$0-map_out;
#X msg 658 378 \; pd-\$1-map clear \;;
#N canvas 0 23 1219 843 iterate 0;
#X obj 68 315 until;
#X obj 68 421 list store;
#X obj 68 340 f;
#X obj 106 341 + 1;
#X msg 120 315 0, f 2;
#X msg 68 399 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 obj 229 422 list store;
#X obj 296 218 inlet;
#X obj 229 447 outlet;
#X msg 229 399 get \$1 1;
#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 8 1 14 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 connect 11 0 13 0;
#X connect 12 0 11 1;
#X connect 14 0 11 0;
#X restore -69 413 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 -24 502 pd group;
#N canvas 0 23 450 300 \$0-map 0;
#X obj 10 10 r 1551-map_in1;
#X obj 190 10 r 1551-map_in2;
#X obj 10 190 s 1551-map_out;
#X obj 10 100 expr $f1+cos($f2/3.1415);
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 3 0 2 0;
#X restore 482 126 pd \$0-map;
#X msg 648 632 \; pd-1551-map obj 10 100 expr $f1+cos($f2/3.1415) \;
;
#X msg 648 517 addsemi;
#X obj 648 608 r \$0-buildmess;
#X obj 836 495 s \$0-buildmess;
#X obj 836 517 s \$0-buildmess;
#X msg 648 495 set;
#X msg 648 586 addsemi;
#X obj 837 586 s \$0-buildmess;
#X obj 836 541 s \$0-buildmess;
#X obj 837 562 s \$0-buildmess;
#N canvas 669 174 674 469 argparse 0;
#X obj 156 139 pdcontrol;
#X msg 156 117 args 0;
#X obj 156 187 list trim;
#X obj 296 162 list length;
#X obj 156 161 t l l;
#X msg 296 237 + 1;
#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 156 237 pd iterate;
#X obj 156 212 spigot;
#X obj 296 211 sel 0;
#X obj 296 187 > 0;
#X obj 156 5 inlet;
#X obj 156 292 outlet;
#X msg 156 264 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 368 71 spigot;
#X msg 416 47 1;
#X msg 416 70 0;
#X obj 447 70 loadbang;
#X obj 156 29 t b b;
#X obj 304 50 t a b;
#X obj 278 99 list store;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 2 0 7 0;
#X connect 3 0 9 0;
#X connect 4 0 2 0;
#X connect 4 1 3 0;
#X connect 5 0 6 0;
#X connect 6 0 12 0;
#X connect 7 0 6 0;
#X connect 8 0 5 0;
#X connect 9 0 7 1;
#X connect 9 0 8 0;
#X connect 10 0 23 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 24 0;
#X connect 15 0 1 0;
#X connect 16 0 15 1;
#X connect 17 0 15 1;
#X connect 18 0 16 0;
#X connect 19 0 25 0;
#X connect 20 0 19 1;
#X connect 21 0 19 1;
#X connect 22 0 21 0;
#X connect 23 0 15 0;
#X connect 23 1 19 0;
#X connect 24 0 25 1;
#X connect 24 1 20 0;
#X connect 25 0 6 0;
#X restore 648 562 pd argparse;
#X obj 515 338 t f b b b f b b f f;
#X msg 648 540 add2 pd-\$1-map obj 10 100;
#X obj 515 314 f \$0;
#X obj 127 175 inlet;
#X obj -69 436 s \$0-map_in1;
#X obj 26 436 s \$0-map_in2;
#X msg 648 669 \; pd-\$1-map connect 0 0 3 0 \; pd-\$1-map connect
1 0 3 1 \; pd-\$1-map connect 3 0 2 0 \;, f 68;
#X obj 127 233 t l l;
#X obj 167 256 list length;
#X obj 152 278 ==;
#X obj -69 391 spigot;
#X obj 186 312 sel 0;
#X obj 228 333 print \$0-ls.mapcar2;
#X msg 228 312 list lengths don't match;
#X msg 658 416 \; pd-\$1-map obj 10 10 r \$1-map_in1 \; pd-\$1-map
obj 190 10 r \$1-map_in2 \; pd-\$1-map obj 10 190 s \$1-map_out \;
, f 68;
#X floatatom 218 280 5 0 0 0 - - -;
#X floatatom 59 287 5 0 0 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 -77 94 inlet;
#X obj -77 267 t l l;
#X obj -77 245 list store;
#X obj 83 161 list;
#X obj -77 138 route list bang set;
#X obj 9 183 list;
#X obj -77 194 t a a b;
#X connect 1 0 21 0;
#X connect 2 0 6 1;
#X connect 2 0 28 0;
#X connect 2 0 35 0;
#X connect 3 0 6 0;
#X connect 5 0 23 0;
#X connect 5 1 24 0;
#X connect 6 0 0 0;
#X connect 9 0 12 0;
#X connect 10 0 8 0;
#X connect 13 0 11 0;
#X connect 14 0 15 0;
#X connect 18 0 17 0;
#X connect 19 0 25 0;
#X connect 19 1 8 0;
#X connect 19 2 14 0;
#X connect 19 3 18 0;
#X connect 19 4 20 0;
#X connect 19 5 9 0;
#X connect 19 6 13 0;
#X connect 19 7 33 0;
#X connect 19 8 4 0;
#X connect 20 0 16 0;
#X connect 21 0 19 0;
#X connect 22 0 26 0;
#X connect 26 0 5 1;
#X connect 26 1 27 0;
#X connect 27 0 28 1;
#X connect 27 0 34 0;
#X connect 28 0 29 1;
#X connect 28 0 30 0;
#X connect 29 0 5 0;
#X connect 30 0 32 0;
#X connect 32 0 31 0;
#X connect 36 0 37 0;
#X connect 37 0 41 0;
#X connect 38 0 25 0;
#X connect 38 1 8 0;
#X connect 38 2 14 0;
#X connect 38 3 40 0;
#X connect 38 4 20 0;
#X connect 38 5 9 0;
#X connect 38 6 13 0;
#X connect 38 7 33 0;
#X connect 38 8 4 0;
#X connect 39 0 38 0;
#X connect 40 0 44 0;
#X connect 41 0 39 0;
#X connect 41 1 40 1;
#X connect 42 0 43 0;
#X connect 44 0 42 0;
#X connect 46 0 45 0;
#X connect 47 0 46 0;
#X connect 48 0 52 0;
#X connect 49 0 29 0;
#X connect 49 1 2 0;
#X connect 50 0 49 0;
#X connect 51 0 50 0;
#X connect 52 0 54 0;
#X connect 52 1 50 0;
#X connect 52 2 53 0;
#X connect 52 3 51 0;
#X connect 53 0 50 1;
#X connect 54 0 50 1;
#X connect 54 1 50 0;
#X connect 54 2 50 1;