aboutsummaryrefslogtreecommitdiff
path: root/sfruit/troute.pd
blob: c0480b03f471320067e505235a1378c544969638 (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
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
#N canvas 286 157 803 191 10;

#X obj 1 67 namecanvas \$0self;
#N canvas 34 277 750 385 constructor 0;
#X obj 266 103 s \$0totalArgs;
#X obj 480 92 t a a;
#X obj 507 117 list length;
#X obj 507 138 s \$0totalArgs;
#X obj 227 152 t b b a;
#N canvas 423 44 903 672 connections 0;
#X obj 362 60 inlet;
#X msg 609 107 connect 0 0 1 0;
#X obj 609 135 s pd-\$0canvas;
#X msg 384 472 connect 1 \$1 \$2 0;
#X obj 384 320 f;
#X obj 414 320 + 1;
#X obj 384 217 until;
#X obj 384 179 f;
#X obj 456 408 + 2;
#X obj 384 441 list append;
#X obj 384 504 s pd-\$0canvas;
#X obj 215 505 s \$0self;
#X obj 215 391 list append;
#X msg 215 471 connect \$1 0 \$2 0;
#X obj 400 251 r \$0reset;
#X obj 287 360 + 1;
#X obj 215 323 * 2;
#X obj 215 344 t f f;
#X obj 362 91 t b b b;
#X obj 384 352 t f f;
#X obj 216 295 f;
#X obj 246 295 + 1;
#X obj 216 192 until;
#X obj 216 134 f;
#X obj 232 111 r \$0checkedArgs;
#X obj 232 242 r \$0resetIfLess;
#X obj 400 149 r \$0totalOuts;
#X obj 215 429 list-apply + 4;
#X connect 0 0 18 0;
#X connect 1 0 2 0;
#X connect 3 0 10 0;
#X connect 4 0 5 0;
#X connect 4 0 19 0;
#X connect 5 0 4 1;
#X connect 6 0 4 0;
#X connect 7 0 6 0;
#X connect 8 0 9 1;
#X connect 9 0 3 0;
#X connect 12 0 27 0;
#X connect 13 0 11 0;
#X connect 14 0 4 1;
#X connect 15 0 12 1;
#X connect 16 0 17 0;
#X connect 17 0 12 0;
#X connect 17 1 15 0;
#X connect 18 0 23 0;
#X connect 18 1 7 0;
#X connect 18 2 1 0;
#X connect 19 0 9 0;
#X connect 19 1 8 0;
#X connect 20 0 21 0;
#X connect 20 0 16 0;
#X connect 21 0 20 1;
#X connect 22 0 20 0;
#X connect 23 0 22 0;
#X connect 24 0 23 1;
#X connect 25 0 20 1;
#X connect 26 0 7 1;
#X connect 27 0 13 0;
#X restore 227 236 pd connections;
#X obj 227 63 dollarg;
#N canvas 906 445 436 308 initialSetup 0;
#X obj 53 9 inlet;
#X msg 97 71 0;
#X obj 137 87 s \$0reset;
#X obj 75 98 \$0;
#X obj 75 153 s pd-\$0canvas;
#X obj 53 230 s pd-\$0canvas;
#X obj 53 178 list prepend obj 0 50 route;
#X obj 53 204 list trim;
#X obj 53 47 t a b b;
#X msg 285 53 clear;
#X obj 285 25 r \$0reset;
#X obj 285 82 s pd-\$0canvas;
#X msg 75 125 obj 0 20 r \$1-inlet0;
#X obj 284 145 r \$0reset;
#X obj 300 191 r \$0lessThan;
#X obj 284 216 f;
#X obj 284 168 t b;
#X obj 284 240 sel 1;
#X obj 284 285 s \$0resetIfLess;
#X msg 284 262 0;
#X connect 0 0 8 0;
#X connect 1 0 2 0;
#X connect 3 0 12 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 6 0;
#X connect 8 1 3 0;
#X connect 8 2 1 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 12 0 4 0;
#X connect 13 0 16 0;
#X connect 14 0 15 1;
#X connect 15 0 17 0;
#X connect 16 0 15 0;
#X connect 17 0 19 0;
#X connect 19 0 18 0;
#X restore 266 181 pd initialSetup;
#N canvas 328 204 574 524 addOutlets 0;
#X obj 54 18 inlet;
#X obj 54 279 * 150;
#X obj 54 144 until;
#X obj 54 207 f;
#X obj 87 207 + 1;
#X obj 70 170 r \$0reset;
#X msg 54 390 obj \$1 100 s \$2-outlet\$3;
#X obj 54 301 list append \$0;
#X obj 54 363 list append;
#X obj 54 426 s pd-\$0canvas;
#X obj 54 242 t a a;
#X obj 54 120 f;
#N canvas 392 28 506 356 selfhelp 0;
#X obj 90 28 inlet;
#X obj 120 210 s \$0self;
#X obj 90 132 t a a;
#X obj 127 65 r \$0lessThan;
#X obj 90 107 spigot;
#X obj 127 85 == 0;
#X msg 120 171 obj \$1 100 r \$2-outlet\$3;
#X msg 90 240 obj \$1 150 outlet;
#X connect 0 0 4 0;
#X connect 2 0 7 0;
#X connect 2 1 6 0;
#X connect 3 0 5 0;
#X connect 4 0 2 0;
#X connect 5 0 4 1;
#X connect 6 0 1 0;
#X connect 7 0 1 0;
#X restore 274 425 pd selfhelp;
#X obj 274 299 * 150;
#X obj 274 227 f;
#X obj 307 227 + 1;
#X obj 274 321 list append \$0;
#X obj 274 383 list append;
#X obj 274 262 t a a;
#X obj 54 42 t b b;
#X obj 274 118 until;
#X obj 274 58 f;
#X obj 290 34 r \$0checkedArgs;
#X obj 70 76 r \$0totalOuts;
#X obj 290 180 r \$0resetIfLess;
#X connect 0 0 19 0;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 10 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 9 0;
#X connect 7 0 8 0;
#X connect 8 0 6 0;
#X connect 10 0 1 0;
#X connect 10 1 8 1;
#X connect 11 0 2 0;
#X connect 13 0 16 0;
#X connect 14 0 15 0;
#X connect 14 0 18 0;
#X connect 15 0 14 1;
#X connect 16 0 17 0;
#X connect 17 0 12 0;
#X connect 18 0 13 0;
#X connect 18 1 17 1;
#X connect 19 0 11 0;
#X connect 19 1 21 0;
#X connect 20 0 14 0;
#X connect 21 0 20 0;
#X connect 22 0 21 1;
#X connect 23 0 11 1;
#X connect 24 0 14 1;
#X restore 246 210 pd addOutlets;
#N canvas 228 24 433 398 checkArgs 0;
#X obj 131 114 >;
#X obj 183 114 f;
#X obj 131 65 t f f;
#X obj 131 149 sel 1;
#X obj 183 149 t f f;
#X obj 213 188 -;
#X obj 37 162 s \$0lessThan;
#X obj 161 313 f;
#X obj 161 179 t b;
#X obj 161 344 s \$0checkedArgs;
#X obj 213 223 s \$0checkedArgs;
#X obj 131 14 r \$0totalOuts;
#X obj 177 278 r \$0totalOuts;
#X obj 37 130 == 0;
#X connect 0 0 3 0;
#X connect 0 0 13 0;
#X connect 1 0 0 1;
#X connect 1 0 4 0;
#X connect 2 0 0 0;
#X connect 2 1 1 1;
#X connect 3 0 1 0;
#X connect 3 1 8 0;
#X connect 4 0 5 1;
#X connect 4 1 5 0;
#X connect 5 0 10 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 11 0 2 0;
#X connect 12 0 7 1;
#X connect 13 0 6 0;
#X restore 266 124 pd checkArgs;
#X obj 21 49 inlet;
#X obj 21 87 s \$0-inlet0;
#X obj 480 44 inlet;
#X obj 480 165 s \$0-inlet1;
#X obj 144 87 r \$0-inlet1;
#X obj 479 208 r \$0totalArgs;
#X obj 479 252 s \$0totalOuts;
#X obj 479 230 + 1;
#X obj 227 39 initbang;
#N canvas 122 62 611 204 \$0canvas 1;
#X restore 30 243 pd \$0canvas;
#X obj 378 17 import-disabled iemlib list-abs;
#X obj 30 263 saveclear pd-\$0canvas;
#X connect 1 0 13 0;
#X connect 1 1 2 0;
#X connect 2 0 3 0;
#X connect 4 0 5 0;
#X connect 4 1 8 0;
#X connect 4 2 7 0;
#X connect 6 0 4 0;
#X connect 6 1 0 0;
#X connect 10 0 11 0;
#X connect 12 0 1 0;
#X connect 14 0 4 0;
#X connect 15 0 17 0;
#X connect 17 0 16 0;
#X connect 18 0 6 0;
#X restore 1 45 pd constructor;
#X obj 1 20 inlet;
#X obj 82 19 inlet;
#X connect 2 0 1 0;
#X connect 3 0 1 1;