#N canvas 404 306 666 485 10;
#X obj 348 167 sigmund~ pitch;
#N canvas 0 0 655 463 compensate-latency 0;
#X obj 133 264 e_sdelay 100;
#X obj 132 64 inlet~;
#X obj 134 310 outlet~;
#X obj 214 135 samplerate~;
#X obj 214 183 /;
#X msg 230 95 bang;
#X msg 214 158 1000 \$1;
#X obj 214 73 loadbang;
#X obj 214 225 * 1024;
#X text 251 267 This calculates the duration of 1024 samples.;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 3 0 6 0;
#X connect 4 0 8 0;
#X connect 5 0 3 0;
#X connect 6 0 4 0;
#X connect 7 0 3 0;
#X connect 8 0 0 1;
#X restore 103 224 pd compensate-latency;
#X obj 348 197 moses 40;
#X obj 414 198 moses 100;
#X obj 261 286 -;
#X obj 414 221 t b f;
#X obj 103 368 e_pitchshift \$0-shifter;
#X msg 261 311 pitch \$1;
#X obj 102 59 inlet~;
#X obj 102 402 outlet~;
#X obj 261 59 inlet;
#X text 350 144 analyse pitch;
#X text 293 286 difference between desired pitch and actual pitch;
#X text 280 371 pitchshift by difference;
#X text 109 199 delay by sigmund~'s buffer size;
#X text 249 40 desired pitch;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 1 3 0;
#X connect 3 0 5 0;
#X connect 4 0 7 0;
#X connect 5 0 4 0;
#X connect 5 1 4 1;
#X connect 6 0 9 0;
#X connect 7 0 6 1;
#X connect 8 0 1 0;
#X connect 8 0 0 0;
#X connect 10 0 4 0;
