#N canvas 666 324 826 564 10; #X obj 120 162 phasor~; #X msg 120 120 44100 \$1; #X obj 120 141 /; #X obj 120 96 i; #X floatatom 83 120 5 0 0 0 - - -, f 5; #X floatatom 83 140 5 0 0 0 - - -, f 5; #N canvas 0 50 450 250 (subpatch) 0; #X array looko 100 float 2; #X coords 0 1 100 -1 200 140 1 0 0; #X restore 321 316 graph; #X obj 142 412 metro 100; #X obj 138 374 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #N canvas 23 53 450 300 store 0; #N canvas 0 50 450 250 (subpatch) 0; #X array cond 100 float 2; #X coords 0 1 100 -1 200 140 1; #X restore 100 20 graph; #X restore 289 161 pd store; #X msg 261 203 \; cond resize \$1; #X obj 199 172 t b f f; #X obj 218 240 until; #X obj 218 268 f; #X obj 250 268 + 1; #X msg 274 244 0; #X obj 218 295 t f f; #X obj 166 366 tabwrite cond; #X obj 121 190 *~; #X obj 121 221 tabread~ cond; #X obj 120 73 unpack; #X msg 94 24 20 5; #X msg 131 24 6 2; #X msg 159 24 4 1; #X obj 218 322 <; #X msg 199 24 100 17; #X obj 114 446 tabwrite~ looko; #X connect 0 0 18 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 2 0 5 0; #X connect 3 0 1 0; #X connect 3 0 4 0; #X connect 3 0 11 0; #X connect 3 0 18 1; #X connect 7 0 26 0; #X connect 8 0 7 0; #X connect 11 0 15 0; #X connect 11 1 12 0; #X connect 11 2 10 0; #X connect 12 0 13 0; #X connect 13 0 14 0; #X connect 13 0 16 0; #X connect 14 0 13 1; #X connect 15 0 13 1; #X connect 16 0 24 0; #X connect 16 1 17 1; #X connect 18 0 19 0; #X connect 19 0 26 0; #X connect 20 0 3 0; #X connect 20 1 24 1; #X connect 21 0 20 0; #X connect 22 0 20 0; #X connect 23 0 20 0; #X connect 24 0 17 0; #X connect 25 0 20 0;