aboutsummaryrefslogtreecommitdiff
path: root/sfruit/list-grow.pd
blob: 877749289cdb2d72aeac0b70f0ec751ed4fbfced (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 450 300 10;
#X obj 80 40 inlet;
#X obj 248 208 outlet;
#X obj 248 39 inlet;
#X obj 248 114 list prepend;
#X obj 248 177 spigot;
#X obj 80 77 route clear;
#X msg 182 142 1;
#X msg 143 142 0;
#X obj 362 67 == 0;
#X obj 317 63 t a;
#X obj 317 92 spigot 1;
#X obj 286 39 t b;
#X text 43 225 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 118 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;