aboutsummaryrefslogtreecommitdiff
path: root/sfruit/list-zip.pd
blob: 06a130233c977f7eef73cb8bba8c72e23564bd61 (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
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
#N canvas 372 122 667 644 10;
#N canvas 566 25 818 707 creator 1;
#X obj 282 19 initbang;
#X obj 282 43 t b b b;
#X obj 723 60 \$1;
#X obj 723 84 < 3;
#X obj 723 105 sel 0 1;
#X obj 723 127 \$1;
#X obj 723 178 v \$0arg;
#X obj 20 107 until;
#X obj 20 132 f;
#X obj 50 132 + 1;
#X msg 60 106 0;
#X obj 20 83 v \$0arg;
#X obj 20 60 t b b;
#X obj 20 160 t a a;
#X obj 174 394 s \$0self;
#X obj 174 349 pack f f;
#X obj 124 494 sel 9;
#X msg 124 514 6;
#X obj 97 539 pack f f;
#X msg 352 104 obj 40 10 inlet \, obj 40 30 t a b \, obj 40 50 list-drip
;
#N canvas 925 401 189 317 make-trigger 0;
#X obj 33 31 inlet;
#X obj 50 89 v \$0arg;
#X obj 50 124 until;
#X obj 64 186 list-extend;
#X obj 33 212 list;
#X obj 33 54 t b b b b;
#X msg 79 146 t a;
#X msg 50 145 b;
#X obj 33 236 list prepend obj 40 70;
#X obj 33 281 outlet;
#X obj 33 258 list trim;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 7 0;
#X connect 3 0 4 1;
#X connect 4 0 8 0;
#X connect 5 0 4 0;
#X connect 5 1 1 0;
#X connect 5 2 6 0;
#X connect 5 3 3 1;
#X connect 6 0 3 0;
#X connect 7 0 3 0;
#X connect 8 0 10 0;
#X connect 10 0 9 0;
#X restore 335 127 pd make-trigger;
#X obj 301 249 s \$0self;
#X text 696 196 arg < 3 becomes 2;
#X msg 318 150 obj 40 400 list append \, obj 40 420 list-extend \,
obj 10 440 list \, obj 10 460 outlet;
#X obj 301 82 t b b b b;
#X msg 301 187 connect 2 0 3 0 \, connect 3 0 4 0 \, connect 3 1 7
1 \, connect 4 0 5 0 \, connect 4 1 8 0 \, connect 5 0 6 0 \, connect
6 0 7 0 \, connect 7 0 8 1 \, connect 8 0 9 0;
#X obj 20 302 + 10;
#X obj 20 278 * 3;
#X obj 47 213 s \$0idx;
#X obj 351 406 r \$0idx;
#X msg 378 536 obj \$1 10 inlet;
#X msg 351 557 obj \$1 200 list-dripslow \, obj \$1 400 list append
;
#X obj 351 487 t a a;
#X obj 351 584 s \$0self;
#X obj 35 560 r \$0idx;
#X obj 20 583 f;
#X obj 20 539 t b a;
#X obj 47 583 + 1;
#X obj 351 462 + 130;
#X obj 351 436 * 100;
#X obj 378 512 + 50;
#X obj 124 472 - 1;
#X obj 174 530 s \$0self;
#X obj 174 482 pack f f;
#X msg 174 371 connect \$1 0 \$2 1;
#X obj 20 325 t a a a a;
#X obj 174 304 t a a;
#X obj 97 448 t a a;
#X obj 174 427 t a a;
#X obj 201 325 + 1;
#X obj 174 456 + 1;
#X obj 201 456 + 2;
#X msg 174 507 connect \$1 0 \$2 0;
#X obj 97 489 + 2;
#X msg 97 564 connect \$1 0 \$2 1;
#X obj 97 590 s \$0self;
#X obj 20 628 pack f f;
#X obj 20 606 + 1;
#X msg 20 653 connect 5 \$1 \$2 0;
#X obj 20 676 s \$0self;
#X obj 255 19 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 723 154 - 1;
#X msg 749 127 2;
#X connect 0 0 1 0;
#X connect 1 0 12 0;
#X connect 1 1 24 0;
#X connect 1 2 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 62 0;
#X connect 5 0 61 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 13 0;
#X connect 9 0 8 1;
#X connect 10 0 8 1;
#X connect 11 0 7 0;
#X connect 12 0 11 0;
#X connect 12 1 10 0;
#X connect 13 0 27 0;
#X connect 13 1 28 0;
#X connect 15 0 44 0;
#X connect 16 0 17 0;
#X connect 16 1 18 1;
#X connect 17 0 18 1;
#X connect 18 0 54 0;
#X connect 19 0 21 0;
#X connect 20 0 21 0;
#X connect 23 0 21 0;
#X connect 24 0 25 0;
#X connect 24 1 23 0;
#X connect 24 2 20 0;
#X connect 24 3 19 0;
#X connect 25 0 21 0;
#X connect 26 0 45 0;
#X connect 27 0 26 0;
#X connect 29 0 39 0;
#X connect 30 0 33 0;
#X connect 31 0 33 0;
#X connect 32 0 31 0;
#X connect 32 1 40 0;
#X connect 34 0 35 1;
#X connect 35 0 57 0;
#X connect 36 0 35 0;
#X connect 36 1 37 0;
#X connect 37 0 56 1;
#X connect 38 0 32 0;
#X connect 39 0 38 0;
#X connect 40 0 30 0;
#X connect 41 0 16 0;
#X connect 43 0 52 0;
#X connect 44 0 14 0;
#X connect 45 0 36 0;
#X connect 45 1 47 0;
#X connect 45 2 48 0;
#X connect 45 3 46 0;
#X connect 46 0 15 0;
#X connect 46 1 49 0;
#X connect 47 0 53 0;
#X connect 47 1 41 0;
#X connect 48 0 50 0;
#X connect 48 1 51 0;
#X connect 49 0 15 1;
#X connect 50 0 43 0;
#X connect 51 0 43 1;
#X connect 52 0 42 0;
#X connect 53 0 18 0;
#X connect 54 0 55 0;
#X connect 56 0 58 0;
#X connect 57 0 56 0;
#X connect 58 0 59 0;
#X connect 60 0 1 0;
#X connect 61 0 6 0;
#X connect 62 0 61 0;
#X restore 109 604 pd creator;
#X obj 2 604 namecanvas \$0self;