#N canvas 0 49 958 1029 10;
#X declare -lib zexy;
#N canvas 0 49 958 1029 KS 0;
#X obj 46 329 noise~;
#X obj 46 370 *~;
#X obj 193 75 inlet;
#X text 190 53 frequencia fundamental;
#X obj 310 92 expr 44100/$f1;
#X floatatom 310 114 10 0 0 0 - - -;
#X text 377 115 tamanho do buffer (p);
#X obj 62 75 inlet;
#X text 64 52 disparo;
#X msg 81 164 1;
#X obj 62 250 del;
#X msg 62 272 0;
#X obj 193 122 expr 1000/$f1;
#X floatatom 193 144 5 0 0 0 - - -;
#X text 231 145 duracao do buffer (em ms);
#X obj 62 97 t b b b;
#X obj 61 296 vline~;
#X obj 47 447 +~;
#X obj 46 712 outlet~;
#X obj 193 193 vd~ recircula;
#X obj 64 488 delwrite~ recircula 100;
#X obj 101 405 tabwrite~ buffer;
#N canvas 0 50 450 250 (subpatch) 0;
#X array buffer 1000 float 3;
#A 0 0.0559406 0.10864 0.260937 -0.0664733 -0.427714 0.386507 0.268371
0.318363 0.650618 0.479444 -0.0146166 0.550427 0.781796 0.524642 0.530518
-0.683041 -0.971542 -0.525765 -0.585589 0.862329 -0.959357 0.204672
0.305411 -0.652591 -0.428581 -0.873905 0.29521 -0.291046 0.492504 0.29171
0.664463 -0.981032 0.309897 0.00716586 -0.851587 0.344086 -0.820506
-0.0600712 -0.29748 -0.895051 -0.577276 0.728655 -0.231915 -0.0644271
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0;
#X coords 0 1 999 -1 200 140 1;
#X restore 382 254 graph;
#X floatatom 215 320 5 0 1 2 g_(ganho_na_recirculacao) - -;
#X obj 194 258 *~ 0.5;
#X obj 508 47 import zexy;
#X obj 248 232 z~;
#X obj 248 258 *~ 0.5;
#X obj 194 283 +~;
#X obj 194 341 *~ 1;
#X obj 525 78 block~ 1;
#X floatatom 281 192 5 0 1 2 S_(parametro_do_filtro_passa-baixas) -
-;
#X obj 281 211 expr 1-$f1;
#X connect 0 0 1 0;
#X connect 1 0 17 0;
#X connect 1 0 21 0;
#X connect 2 0 4 0;
#X connect 2 0 12 0;
#X connect 4 0 5 0;
#X connect 7 0 15 0;
#X connect 9 0 16 0;
#X connect 10 0 11 0;
#X connect 11 0 16 0;
#X connect 12 0 13 0;
#X connect 13 0 10 1;
#X connect 13 0 19 0;
#X connect 15 0 10 0;
#X connect 15 1 9 0;
#X connect 15 2 21 0;
#X connect 16 0 1 1;
#X connect 17 0 18 0;
#X connect 17 0 20 0;
#X connect 19 0 24 0;
#X connect 19 0 26 0;
#X connect 23 0 29 1;
#X connect 24 0 28 0;
#X connect 26 0 27 0;
#X connect 27 0 28 1;
#X connect 28 0 29 0;
#X connect 29 0 17 1;
#X connect 31 0 27 1;
#X connect 31 0 32 0;
#X connect 32 0 24 1;
#X restore 63 190 pd KS;
#X obj 63 90 bng 15 250 50 0 empty empty Toca 17 7 0 10 -262144 -1
-1;
#X floatatom 90 141 5 0 0 2 Frequencia - -;
#X obj 63 390 dac~;
#X obj 220 185 osc~;
#X obj 221 208 *~ 0.005;
#X obj 174 306 multiplex~ a b c;
#X obj 267 248 osc~;
#X obj 268 271 *~ 0.005;
#X obj 301 157 expr 44100/(44100/$f1 + 0.5);
#X floatatom 301 196 5 0 0 2 Frequencia_corrigida - -;
#X obj 174 58 vradio 15 1 0 3 empty empty Conteudo_do_canal_direito
0 -8 0 10 -262144 -1 -1 0;
#X text 191 55 Silencio;
#X text 191 71 Frequencia original;
#X text 191 88 Frequencia corrigida;
#X connect 0 0 3 0;
#X connect 1 0 0 0;
#X connect 2 0 0 1;
#X connect 2 0 4 0;
#X connect 2 0 9 0;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 3 1;
#X connect 7 0 8 0;
#X connect 8 0 6 2;
#X connect 9 0 10 0;
#X connect 10 0 7 0;
#X connect 11 0 6 0;