chose/extra/Fraise/pied/intern/array-drip.pd

#N canvas 0 92 450 300 10;
#X obj 160 17 inlet;
#X obj 160 69 array size \$1;
#X obj 160 91 until;
#X obj 160 113 f;
#X obj 190 113 + 1;
#X obj 160 39 t b b;
#X msg 202 91 0;
#X obj 160 135 tabread \$1;
#X obj 160 157 outlet;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 7 0;
#X connect 4 0 3 1;
#X connect 5 0 1 0;
#X connect 5 1 6 0;
#X connect 6 0 3 1;
#X connect 7 0 8 0;