#N canvas 0 0 733 488 10;
#X obj 10 213 delay 5;
#X obj 38 175 spigot;
#X obj 134 190 f;
#X obj 163 189 * 1.1;
#X obj 163 212 moses 1000;
#X obj 106 113 f;
#X obj 138 111 + 1;
#X obj 100 181 + 24;
#X obj 100 144 t f f;
#X obj 133 166 sel 0;
#X msg 121 79 0;
#X msg 173 166 3;
#X msg 258 123 0;
#N canvas 0 0 450 387 \$0-peak-analyser 0;
#X obj 71 160 vcf~;
#X obj 82 133 sig~;
#X obj 117 54 mtof;
#X obj 72 184 *~;
#X obj 72 205 lop~ 100;
#X obj 117 158 / 2;
#X obj 72 227 sqrt~;
#X obj 16 303 fexpr~ max($x \, $y);
#X obj 16 331 snapshot~;
#X msg 50 284 clear;
#X obj 72 261 threshold~ 1e-06 1 1e-09 1;
#X obj 23 12 inlet;
#X obj 23 33 t b b;
#X obj 23 54 delay 5;
#X obj 16 361 outlet;
#X obj 117 31 inlet;
#X obj 177 32 inlet;
#X obj 23 94 tabplay~ \$0-pulse;
#X connect 0 0 3 0;
#X connect 0 0 3 1;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 4 1;
#X connect 6 0 7 0;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 14 0;
#X connect 9 0 7 0;
#X connect 10 1 8 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 12 1 9 0;
#X connect 13 0 17 0;
#X connect 15 0 2 0;
#X connect 16 0 0 2;
#X connect 17 0 0 0;
#X restore 38 244 pd \$0-peak-analyser;
#X obj 38 141 t b b;
#N canvas 0 0 450 387 \$0-time-analyser 0;
#X obj 23 153 vcf~;
#X obj 34 119 sig~;
#X obj 117 54 mtof;
#X obj 24 207 *~;
#X obj 24 228 lop~ 100;
#X obj 69 151 / 2;
#X obj 24 250 sqrt~;
#X obj 23 12 inlet;
#X obj 23 54 delay 5;
#X obj 24 336 outlet;
#X obj 117 31 inlet;
#X obj 177 32 inlet;
#X obj 23 32 t b f;
#X obj 23 179 /~ 1;
#X obj 24 311 timer;
#X obj 24 284 threshold~ 0.001 1 1e-06 1;
#X obj 23 94 tabplay~ \$0-pulse;
#X connect 0 0 13 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 4 1;
#X connect 6 0 15 0;
#X connect 7 0 12 0;
#X connect 8 0 16 0;
#X connect 10 0 2 0;
#X connect 11 0 0 2;
#X connect 12 0 8 0;
#X connect 12 1 13 1;
#X connect 13 0 3 0;
#X connect 13 0 3 1;
#X connect 14 0 9 0;
#X connect 15 0 14 0;
#X connect 15 1 14 1;
#X connect 16 0 0 0;
#X restore 38 268 pd \$0-time-analyser;
#X obj 77 288 pack f f f f;
#X obj 38 288 t b f;
#X msg 92 79 1;
#X obj 302 342 textfile;
#X msg 302 228 clear \, rewind;
#X msg 77 316 add \$3 \$4 \$2 \$1;
#X msg 289 306 write vcf_analysis.txt cr;
#X obj 220 238 t b b b;
#X obj 193 262 timer;
#X obj 193 288 t f f f;
#X obj 232 377 mod 1000;
#X obj 212 337 div 1000;
#X obj 212 358 mod 60;
#X obj 193 314 div 60000;
#X obj 193 398 pack f f f f;
#X obj 38 195 t b b;
#X obj 287 182 f;
#X obj 320 183 + 1;
#X msg 302 159 1;
#X obj 394 451 print vcf;
#X msg 193 420 analysed \$4 parameters in \$1 m \$2 s \$3 ms;
#X obj 87 22 loadbang;
#X msg 198 73 \; pd dsp 1;
#X obj 253 19 delay 1000;
#X msg 253 41 \; pd quit;
#X obj 353 172 tabwrite \$0-pulse;
#X obj 418 81 + 1;
#X obj 353 99 t f f;
#X obj 353 80 f;
#X obj 352 20 t b b;
#X obj 351 62 until;
#X obj 353 149 expr if($f1 == 0 \, 1 \, sin($f1*3.1415926)/($f1*3.1415926))
;
#X obj 353 125 / 4;
#X obj 138 130 mod 96;
#X obj 453 123 + 512;
#X msg 398 43 -512;
#X msg 351 41 1024;
#X obj 353 194 table \$0-pulse 1024;
#X obj 87 47 t b b b b b b b b b;
#X obj 466 332 / 576;
#X obj 466 353 int;
#X obj 466 395 * 10;
#X obj 466 374 change -1;
#X obj 466 310 - 1;
#X msg 467 419 \$1 percent done;
#X connect 0 0 14 0;
#X connect 1 0 31 0;
#X connect 2 0 3 0;
#X connect 2 0 13 2;
#X connect 2 0 15 2;
#X connect 2 0 16 3;
#X connect 3 0 4 0;
#X connect 4 0 2 1;
#X connect 4 1 23 0;
#X connect 5 0 6 0;
#X connect 5 0 8 0;
#X connect 6 0 49 0;
#X connect 7 0 13 1;
#X connect 7 0 15 1;
#X connect 7 0 16 2;
#X connect 8 0 7 0;
#X connect 8 1 9 0;
#X connect 9 0 2 0;
#X connect 10 0 5 1;
#X connect 11 0 2 1;
#X connect 12 0 1 1;
#X connect 13 0 15 0;
#X connect 13 0 16 1;
#X connect 14 0 1 0;
#X connect 14 1 5 0;
#X connect 15 0 17 0;
#X connect 16 0 21 0;
#X connect 17 0 0 0;
#X connect 17 1 16 0;
#X connect 18 0 1 1;
#X connect 20 0 19 0;
#X connect 21 0 19 0;
#X connect 22 0 19 0;
#X connect 23 0 24 1;
#X connect 23 0 39 0;
#X connect 23 1 22 0;
#X connect 23 2 12 0;
#X connect 24 0 25 0;
#X connect 25 0 29 0;
#X connect 25 1 27 0;
#X connect 25 2 26 0;
#X connect 26 0 30 2;
#X connect 27 0 28 0;
#X connect 28 0 30 1;
#X connect 29 0 30 0;
#X connect 30 0 36 0;
#X connect 31 0 13 0;
#X connect 31 1 32 0;
#X connect 32 0 33 0;
#X connect 32 0 30 3;
#X connect 32 0 59 0;
#X connect 33 0 32 1;
#X connect 34 0 32 1;
#X connect 36 0 35 0;
#X connect 37 0 54 0;
#X connect 39 0 40 0;
#X connect 42 0 44 1;
#X connect 43 0 48 0;
#X connect 43 1 50 0;
#X connect 44 0 42 0;
#X connect 44 0 43 0;
#X connect 45 0 52 0;
#X connect 45 1 51 0;
#X connect 46 0 44 0;
#X connect 47 0 41 0;
#X connect 48 0 47 0;
#X connect 49 0 5 1;
#X connect 50 0 41 1;
#X connect 51 0 44 1;
#X connect 52 0 46 0;
#X connect 54 0 14 0;
#X connect 54 1 18 0;
#X connect 54 2 10 0;
#X connect 54 3 11 0;
#X connect 54 4 20 0;
#X connect 54 5 34 0;
#X connect 54 6 45 0;
#X connect 54 7 24 0;
#X connect 54 8 38 0;
#X connect 55 0 56 0;
#X connect 56 0 58 0;
#X connect 57 0 60 0;
#X connect 58 0 57 0;
#X connect 59 0 55 0;
#X connect 60 0 35 0;