blob: a747dbd32a1cbd5edf459f82ada03ab059e10b08 (
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
|
#N canvas 62 84 447 353 10;
#X obj 80 40 inlet;
#X obj 248 258 outlet;
#X obj 248 39 inlet;
#X obj 248 114 list prepend;
#X obj 248 227 spigot;
#X obj 80 77 route clear;
#X msg 194 152 1;
#X msg 160 152 0;
#X obj 392 127 == 0;
#X obj 317 63 t a;
#X obj 317 92 spigot 1;
#X obj 266 69 t b;
#X text 43 285 this is an attempt at avoiding unnecessary list copies
a la mathieu's fast list-drip (but i don't actually remember if that
was the mechanism for speed : )) oh well \, hopefully it's fast;
#X obj 143 128 t b b b b;
#X connect 0 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 9 0;
#X connect 4 0 1 0;
#X connect 5 0 11 0;
#X connect 5 1 13 0;
#X connect 6 0 4 1;
#X connect 6 0 8 0;
#X connect 7 0 4 1;
#X connect 7 0 8 0;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 3 1;
#X connect 11 0 3 1;
#X connect 13 0 11 0;
#X connect 13 1 7 0;
#X connect 13 2 3 0;
#X connect 13 3 6 0;
|
