get-index-help.pd 9.37 KB
Newer Older
1
2
#N canvas 1 79 914 459 10;
#X msg 234 241 97 122 101 114 116 121 117 105 111 112;
resonance's avatar
dev    
resonance committed
3
#X floatatom 165 308 5 0 0 3 get_the_index - -, f 5;
4
5
6
7
8
9
10
11
12
13
#X msg 91 70 97;
#X msg 100 98 122;
#X msg 115 127 101;
#X obj 165 270 get-index 10;
#X text 260 271 Argument = size;
#X text 241 221 Fill with numbers;
#X msg 129 152 114;
#X msg 143 176 116;
#X msg 156 197 121;
#X msg 166 220 117;
resonance's avatar
dev    
resonance committed
14
#N canvas 122 307 1087 279 \$0-SELECT 1;
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#X obj 363 58 initbang;
#X msg 133 130 97 122 101 114 116 121 117 105 111 112;
#N canvas 285 233 710 472 list-find 0;
#X obj 101 369 f;
#X obj 101 61 inlet;
#X obj 193 57 inlet;
#X obj 101 406 outlet;
#X text 70 37 value to find;
#X obj 101 220 t a b;
#X obj 101 168 list;
#X text 190 37 list to search in;
#X text 218 113 [list-find] Find positions of a value (symbol or float)
in a list.;
#X obj 101 327 select 1;
resonance's avatar
dev    
resonance committed
29
#N canvas 0 50 450 300 count 0;
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
#X obj 120 148 f 0;
#X obj 148 149 + 1;
#X obj 163 100 0;
#X obj 117 24 inlet;
#X obj 119 176 outlet;
#X obj 181 25 inlet;
#X obj 114 47 b;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 3 0 6 0;
#X connect 5 0 2 0;
#X connect 6 0 0 0;
#X restore 131 255 pd count;
#X obj 101 90 t b a b b;
#X obj 186 405 outlet;
#X obj 258 361 + 1;
#X obj 186 385 f;
#X obj 229 360 f 1;
#X msg 245 327 1;
#X msg 209 328 0;
#N canvas 782 467 450 300 compare-any 0;
#X obj 128 38 inlet;
#X obj 128 461 outlet;
#X obj 128 346 ==;
#X obj 128 368 select 1;
#N canvas 270 260 450 300 demux 0;
#X obj 76 87 inlet;
#X obj 169 86 inlet;
#X obj 76 145 list prepend 0;
#X obj 76 186 route 0 1;
#X obj 76 242 outlet;
#X obj 105 213 outlet;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X restore 128 240 pd demux;
#X msg 179 217 0;
#X msg 210 216 1;
#X obj 128 305 route float;
#X obj 229 303 route symbol;
#X obj 369 209 print HUH?;
#X obj 229 282 list;
#X obj 248 174 route float symbol;
#X obj 248 146 list;
#X msg 128 433 1;
#X msg 200 428 0;
#X obj 248 38 inlet;
#X obj 229 366 select [DUMMY-SYMBOL];
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 13 0;
#X connect 3 1 14 0;
#X connect 4 0 7 0;
#X connect 4 1 10 0;
#X connect 5 0 4 1;
#X connect 6 0 4 1;
#X connect 7 0 2 0;
#X connect 7 1 14 0;
#X connect 8 0 16 0;
#X connect 8 1 14 0;
#X connect 10 0 8 0;
#X connect 11 0 2 1;
#X connect 11 0 5 0;
#X connect 11 1 6 0;
#X connect 11 1 16 1;
#X connect 11 2 9 0;
#X connect 12 0 11 0;
#X connect 13 0 1 0;
#X connect 14 0 1 0;
#X connect 15 0 12 0;
#X connect 16 0 13 0;
#X connect 16 1 14 0;
#X restore 99 287 pd compare-any;
#N canvas 379 209 450 300 list-drip 0;
#X obj 82 117 t a a;
#X obj 82 274 spigot;
#X obj 121 182 bang;
#X obj 121 201 1;
#X obj 242 182 route bang;
#X obj 202 183 bang;
#X obj 202 202 0;
#X obj 121 147 list split 2;
#X obj 251 412 list split;
#X obj 318 361 list length;
#X obj 318 383 >> 1;
#X obj 82 293 t a a a a;
#X obj 82 479 list split;
#X obj 149 431 list length;
#X obj 149 456 >> 1;
#X obj 50 52 inlet;
#X obj 309 208 outlet;
#X text 92 52 Copyright 2009 by Mathieu Bouchard;
#X obj 50 86 t b a;
#X obj 484 152 outlet;
#X text 539 154 signal end of list;
#X text 400 56 made compatible with [list-drip]: fbar 2009;
#X connect 0 0 1 0;
#X connect 0 1 7 0;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 4 1 16 0;
#X connect 5 0 6 0;
#X connect 6 0 1 1;
#X connect 7 0 2 0;
#X connect 7 2 4 0;
#X connect 7 2 5 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 10 0 8 1;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 11 2 8 0;
#X connect 11 3 9 0;
#X connect 12 1 0 0;
#X connect 13 0 14 0;
#X connect 14 0 12 1;
#X connect 15 0 18 0;
#X connect 18 0 19 0;
#X connect 18 1 0 0;
#X restore 101 195 pd list-drip;
#X connect 0 0 3 0;
#X connect 1 0 11 0;
#X connect 2 0 6 1;
#X connect 5 0 18 0;
#X connect 5 1 10 0;
#X connect 6 0 19 0;
#X connect 9 0 0 0;
#X connect 9 0 15 0;
#X connect 10 0 0 1;
#X connect 11 0 6 0;
#X connect 11 1 18 1;
#X connect 11 2 10 1;
#X connect 11 3 16 0;
#X connect 11 3 17 0;
#X connect 13 0 15 1;
#X connect 14 0 12 0;
#X connect 15 0 14 1;
#X connect 15 0 13 0;
#X connect 16 0 15 1;
#X connect 17 0 14 1;
#X connect 18 0 9 0;
#X connect 19 0 5 0;
#X connect 19 1 14 0;
#X restore 64 154 pd list-find;
#X obj 64 212 pack f \$0;
#N canvas 287 232 710 472 list-find 0;
#X obj 101 369 f;
#X obj 101 61 inlet;
#X obj 193 57 inlet;
#X obj 101 406 outlet;
#X text 70 37 value to find;
#X obj 101 220 t a b;
#X obj 101 168 list;
#X text 190 37 list to search in;
#X text 218 113 [list-find] Find positions of a value (symbol or float)
in a list.;
#X obj 101 327 select 1;
resonance's avatar
dev    
resonance committed
192
#N canvas 0 50 450 300 count 0;
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
#X obj 120 148 f 0;
#X obj 148 149 + 1;
#X obj 163 100 0;
#X obj 117 24 inlet;
#X obj 119 176 outlet;
#X obj 181 25 inlet;
#X obj 114 47 b;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 3 0 6 0;
#X connect 5 0 2 0;
#X connect 6 0 0 0;
#X restore 131 255 pd count;
#X obj 101 90 t b a b b;
#X obj 186 405 outlet;
#X obj 258 361 + 1;
#X obj 186 385 f;
#X obj 229 360 f 1;
#X msg 245 327 1;
#X msg 209 328 0;
#N canvas 782 467 450 300 compare-any 0;
#X obj 128 38 inlet;
#X obj 128 461 outlet;
#X obj 128 346 ==;
#X obj 128 368 select 1;
#N canvas 270 260 450 300 demux 0;
#X obj 76 87 inlet;
#X obj 169 86 inlet;
#X obj 76 145 list prepend 0;
#X obj 76 186 route 0 1;
#X obj 76 242 outlet;
#X obj 105 213 outlet;
#X connect 0 0 2 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X restore 128 240 pd demux;
#X msg 179 217 0;
#X msg 210 216 1;
#X obj 128 305 route float;
#X obj 229 303 route symbol;
#X obj 369 209 print HUH?;
#X obj 229 282 list;
#X obj 248 174 route float symbol;
#X obj 248 146 list;
#X msg 128 433 1;
#X msg 200 428 0;
#X obj 248 38 inlet;
#X obj 229 366 select [DUMMY-SYMBOL];
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 13 0;
#X connect 3 1 14 0;
#X connect 4 0 7 0;
#X connect 4 1 10 0;
#X connect 5 0 4 1;
#X connect 6 0 4 1;
#X connect 7 0 2 0;
#X connect 7 1 14 0;
#X connect 8 0 16 0;
#X connect 8 1 14 0;
#X connect 10 0 8 0;
#X connect 11 0 2 1;
#X connect 11 0 5 0;
#X connect 11 1 6 0;
#X connect 11 1 16 1;
#X connect 11 2 9 0;
#X connect 12 0 11 0;
#X connect 13 0 1 0;
#X connect 14 0 1 0;
#X connect 15 0 12 0;
#X connect 16 0 13 0;
#X connect 16 1 14 0;
#X restore 99 287 pd compare-any;
#N canvas 379 209 450 300 list-drip 0;
#X obj 82 117 t a a;
#X obj 82 274 spigot;
#X obj 121 182 bang;
#X obj 121 201 1;
#X obj 242 182 route bang;
#X obj 202 183 bang;
#X obj 202 202 0;
#X obj 121 147 list split 2;
#X obj 251 412 list split;
#X obj 318 361 list length;
#X obj 318 383 >> 1;
#X obj 82 293 t a a a a;
#X obj 82 479 list split;
#X obj 149 431 list length;
#X obj 149 456 >> 1;
#X obj 50 52 inlet;
#X obj 309 208 outlet;
#X text 92 52 Copyright 2009 by Mathieu Bouchard;
#X obj 50 86 t b a;
#X obj 484 152 outlet;
#X text 539 154 signal end of list;
#X text 400 56 made compatible with [list-drip]: fbar 2009;
#X connect 0 0 1 0;
#X connect 0 1 7 0;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 4 1 16 0;
#X connect 5 0 6 0;
#X connect 6 0 1 1;
#X connect 7 0 2 0;
#X connect 7 2 4 0;
#X connect 7 2 5 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 10 0 8 1;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 11 2 8 0;
#X connect 11 3 9 0;
#X connect 12 1 0 0;
#X connect 13 0 14 0;
#X connect 14 0 12 1;
#X connect 15 0 18 0;
#X connect 18 0 19 0;
#X connect 18 1 0 0;
#X restore 101 195 pd list-drip;
#X connect 0 0 3 0;
#X connect 1 0 11 0;
#X connect 2 0 6 1;
#X connect 5 0 18 0;
#X connect 5 1 10 0;
#X connect 6 0 19 0;
#X connect 9 0 0 0;
#X connect 9 0 15 0;
#X connect 10 0 0 1;
#X connect 11 0 6 0;
#X connect 11 1 18 1;
#X connect 11 2 10 1;
#X connect 11 3 16 0;
#X connect 11 3 17 0;
#X connect 13 0 15 1;
#X connect 14 0 12 0;
#X connect 15 0 14 1;
#X connect 15 0 13 0;
#X connect 16 0 15 1;
#X connect 17 0 14 1;
#X connect 18 0 9 0;
#X connect 19 0 5 0;
#X connect 19 1 14 0;
#X restore 276 195 pd list-find;
#X obj 363 102 select windows macos linux;
#X msg 414 151 12 13 14 15 17 16 32 34 31 35;
#X msg 465 130 24 25 26 27 28 29 30 31 32 33;
#X obj 64 100 inlet;
#X obj 64 236 outlet;
#X obj 276 163 inlet;
#X msg 748 58 a z e r t y u i o p;
#X obj 747 183 pack f \$0 s;
#X obj 747 105 list-iter;
#X obj 810 150 symbol;
#X obj 747 129 t b a;
#X obj 747 152 f;
#X obj 747 79 t a b;
#X obj 774 152 + 1;
#X msg 819 105 0;
#X msg 747 209 \; \$2-bg-\$1-in label \$3;
#X text 737 33 Labels;
#X msg 363 171 65 90 69 82 84 89 85 73 79 80;
resonance's avatar
dev    
resonance committed
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
#X obj 363 81 operating_system;
#X connect 0 0 1 0;
#X connect 0 0 23 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 3 0 9 0;
#X connect 4 0 3 0;
#X connect 5 0 22 0;
#X connect 5 1 6 0;
#X connect 5 2 7 0;
#X connect 6 0 4 1;
#X connect 7 0 4 1;
#X connect 8 0 2 0;
#X connect 10 0 4 0;
#X connect 11 0 17 0;
#X connect 12 0 20 0;
#X connect 13 0 15 0;
#X connect 14 0 12 2;
#X connect 15 0 16 0;
#X connect 15 1 14 0;
#X connect 16 0 18 0;
#X connect 16 0 12 0;
382
#X connect 17 0 13 0;
resonance's avatar
dev    
resonance committed
383
384
385
386
387
#X connect 17 1 19 0;
#X connect 18 0 16 1;
#X connect 19 0 16 1;
#X connect 22 0 4 1;
#X connect 23 0 5 0;
388
389
#X restore 664 279 pd \$0-SELECT;
#X text 607 278 or;
resonance's avatar
dev    
resonance committed
390
391
392
#X floatatom 649 226 5 0 0 0 - - -, f 5;
#X floatatom 662 313 5 0 0 0 - - -, f 5;
#X floatatom 726 235 5 0 0 0 - - -, f 5;
393
394
395
396
397
398
399
400
401
402
403
404
#X connect 0 0 5 1;
#X connect 2 0 5 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 1 0;
#X connect 8 0 5 0;
#X connect 9 0 5 0;
#X connect 10 0 5 0;
#X connect 11 0 5 0;
#X connect 12 0 15 0;
#X connect 14 0 12 0;
#X connect 16 0 12 1;