blob: 07d112f51e854a909fc81a9ee1174753f31d211a (
plain)
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
|
#N canvas 246 385 587 311 10;
#X declare -lib list-abs;
#X declare -lib list-abs;
#X declare -lib list-abs;
#X obj 58 181 list-proc-insert;
#X msg 58 96 a b c d e f g;
#X obj 182 181 list-len;
#X obj 104 130 hradio 15 1 0 8 empty empty POS_(zero-based) 0 -6 0
8 -262144 -1 -1 0;
#X floatatom 104 155 5 0 0 0 - - -;
#X obj 58 216 print NEW_LIST;
#X text 9 65 Argument: default POS;
#X text 8 45 POS is zerobased. Negative POS will count from the end.
;
#X text 10 268 based on list-insert by frank barknecht;
#X text 429 268 2008 Luke Iannini;
#X text 235 122 POS defaults to 0 \, meaning it will prepend the result
to the original list.;
#N canvas 0 22 322 281 how_to_append 0;
#X obj 58 181 list-proc-insert;
#X msg 58 66 a b c d e f g;
#X obj 58 97 t a a;
#X obj 58 216 print NEW_LIST2;
#X obj 85 134 list-len;
#X obj 183 189 f;
#X obj 213 189 + 1;
#X obj 183 168 t b;
#X connect 0 0 3 0;
#X connect 0 1 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 2 1 4 0;
#X connect 4 0 0 1;
#X connect 5 0 0 2;
#X connect 5 0 6 0;
#X connect 6 0 5 1;
#X connect 7 0 5 0;
#X restore 310 185 pd how_to_append;
#X text 7 6 list-proc-insert: call user-defined process on incoming
list and insert result into original list at position POS.;
#X obj 416 30 import list-abs;
#X connect 0 0 5 0;
#X connect 0 1 2 0;
#X connect 1 0 0 0;
#X connect 2 0 0 2;
#X connect 3 0 4 0;
#X connect 4 0 0 1;
|
