pp.fft-stretch~.pd

#N struct 1012-template float x float y float c float s float th float stretch array 1012-plus 1012-template-y array 1012-minus 1012-template-y;
#N struct 1012-template-y float y;
#N struct 1013-template float x float y float c float s float th float stretch array 1013-plus 1013-template-y array 1013-minus 1013-template-y;
#N struct 1013-template-y float y;
#N canvas 386 181 750 521 10;
#N canvas 450 50 369 400 hanning 0;
#X obj 36 24 r \$0-window-size;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-hann 1024 float 1;
#A 0 0 9.41753e-06 3.76701e-05 8.4728e-05 0.000150621 0.000235319 0.000338852 0.000461191 0.000602335 0.000762284 0.000941008 0.00113854 0.00135487 0.00158995 0.00184381 0.00211641 0.00240776 0.00271782 0.00304663 0.00339416 0.00376037 0.00414526 0.00454885 0.00497106 0.00541192 0.00587142 0.0063495 0.00684613 0.00736138 0.00789517 0.00844747 0.0090183 0.00960758 0.0102154 0.0108416 0.0114862 0.0121492 0.0128306 0.0135303 0.0142483 0.0149846 0.0157392 0.0165121 0.0173031 0.0181123 0.0189396 0.0197851 0.0206486 0.0215302 0.0224297 0.0233473 0.0242828 0.0252362 0.0262076 0.0271967 0.0282037 0.0292284 0.0302708 0.0313309 0.0324086 0.033504 0.0346169 0.0357474 0.0368953 0.0380607 0.0392434 0.0404435 0.0416609 0.0428956 0.0441475 0.0454164 0.0467026 0.0480058 0.049326 0.0506632 0.0520174 0.0533883 0.0547761 0.0561807 0.057602 0.0590398 0.0604944 0.0619654 0.063453 0.064957 0.0664774 0.0680141 0.0695671 0.0711362 0.0727216 0.074323 0.0759403 0.0775737 0.0792231 0.0808882 0.0825691 0.0842658 0.0859781 0.0877059 0.0894493 0.0912082 0.0929825 0.094772 0.0965768 0.0983968 0.100232 0.102082 0.103947 0.105827 0.107722 0.109632 0.111556 0.113495 0.115449 0.117417 0.119399 0.121396 0.123407 0.125432 0.127472 0.129525 0.131592 0.133674 0.135768 0.137877 0.139999 0.142135 0.144285 0.146447 0.148623 0.150813 0.153015 0.15523 0.157459 0.1597 0.161954 0.164221 0.166501 0.168793 0.171097 0.173414 0.175744 0.178085 0.180439 0.182804 0.185182 0.187571 0.189972 0.192385 0.194809 0.197245 0.199692 0.202151 0.204621 0.207102 0.209594 0.212097 0.21461 0.217135 0.21967 0.222216 0.224772 0.227338 0.229915 0.232502 0.235099 0.237706 0.240323 0.242949 0.245586 0.248232 0.250887 0.253552 0.256226 0.258909 0.261601 0.264302 0.267012 0.269731 0.272459 0.275195 0.27794 0.280693 0.283454 0.286223 0.289001 0.291786 0.294579 0.29738 0.300189 0.303005 0.305828 0.308659 0.311497 0.314342 0.317194 0.320053 0.322919 0.325791 0.32867 0.331556 0.334448 0.337346 0.34025 0.34316 0.346076 0.348998 0.351925 0.354858 0.357797 0.360741 0.36369 0.366644 0.369604 0.372568 0.375537 0.378511 0.381489 0.384472 0.387459 0.39045 0.393446 0.396445 0.399448 0.402456 0.405466 0.408481 0.411499 0.41452 0.417544 0.420572 0.423602 0.426635 0.429672 0.43271 0.435752 0.438795 0.441841 0.44489 0.44794 0.450992 0.454046 0.457102 0.460159 0.463218 0.466279 0.46934 0.472403 0.475467 0.478532 0.481597 0.484663 0.48773 0.490797 0.493865 0.496933 0.500001 0.503069 0.506136 0.509204 0.512271 0.515338 0.518404 0.52147 0.524534 0.527598 0.530661 0.533723 0.536783 0.539842 0.542899 0.545955 0.549009 0.552061 0.555112 0.55816 0.561206 0.56425 0.567291 0.57033 0.573366 0.576399 0.57943 0.582457 0.585482 0.588503 0.59152 0.594535 0.597546 0.600553 0.603556 0.606556 0.609551 0.612543 0.61553 0.618512 0.621491 0.624464 0.627433 0.630398 0.633357 0.636311 0.63926 0.642204 0.645143 0.648076 0.651003 0.653925 0.656841 0.659751 0.662656 0.665554 0.668445 0.671331 0.67421 0.677082 0.679948 0.682807 0.685659 0.688504 0.691342 0.694173 0.696996 0.699813 0.702621 0.705422 0.708215 0.711001 0.713778 0.716547 0.719308 0.722061 0.724806 0.727542 0.73027 0.732989 0.735699 0.7384 0.741092 0.743775 0.746449 0.749114 0.75177 0.754415 0.757052 0.759678 0.762295 0.764902 0.767499 0.770086 0.772663 0.775229 0.777785 0.780331 0.782866 0.785391 0.787904 0.790407 0.792899 0.79538 0.79785 0.800309 0.802756 0.805192 0.807616 0.810029 0.81243 0.814819 0.817197 0.819562 0.821916 0.824257 0.826587 0.828904 0.831208 0.8335 0.83578 0.838047 0.840301 0.842542 0.844771 0.846986 0.849188 0.851378 0.853554 0.855716 0.857866 0.860001 0.862124 0.864232 0.866327 0.868408 0.870476 0.872529 0.874568 0.876594 0.878605 0.880601 0.882584 0.884552 0.886505 0.888444 0.890369 0.892278 0.894173 0.896053 0.897919 0.899769 0.901604 0.903424 0.905229 0.907018 0.908793 0.910551 0.912295 0.914023 0.915735 0.917432 0.919112 0.920778 0.922427 0.92406 0.925678 0.927279 0.928864 0.930434 0.931987 0.933523 0.935044 0.936548 0.938035 0.939506 0.940961 0.942399 0.94382 0.945224 0.946612 0.947983 0.949337 0.950675 0.951995 0.953298 0.954584 0.955853 0.957105 0.95834 0.959557 0.960757 0.96194 0.963105 0.964253 0.965384 0.966496 0.967592 0.96867 0.96973 0.970772 0.971797 0.972804 0.973793 0.974764 0.975718 0.976653 0.977571 0.97847 0.979352 0.980215 0.981061 0.981888 0.982697 0.983488 0.984261 0.985016 0.985752 0.98647 0.98717 0.987851 0.988514 0.989159 0.989785 0.990393 0.990982 0.991553 0.992105 0.992639 0.993154 0.993651 0.994129 0.994588 0.995029 0.995451 0.995855 0.99624 0.996606 0.996953 0.997282 0.997592 0.997884 0.998156 0.99841 0.998645 0.998862 0.999059 0.999238 0.999398 0.999539 0.999661 0.999765 0.999849 0.999915 0.999962 0.999991 1 0.999991 0.999962 0.999915 0.999849 0.999765 0.999661 0.999539 0.999398 0.999238 0.999059 0.998862 0.998645 0.99841 0.998156 0.997884 0.997592 0.997282 0.996953 0.996606 0.99624 0.995855 0.995451 0.995029 0.994588 0.994129 0.993651 0.993154 0.992639 0.992105 0.991553 0.990982 0.990393 0.989785 0.989159 0.988514 0.987851 0.98717 0.98647 0.985752 0.985016 0.984261 0.983488 0.982697 0.981888 0.981061 0.980215 0.979352 0.97847 0.977571 0.976653 0.975718 0.974764 0.973793 0.972804 0.971797 0.970772 0.96973 0.96867 0.967592 0.966496 0.965384 0.964253 0.963105 0.96194 0.960757 0.959557 0.95834 0.957105 0.955853 0.954584 0.953298 0.951995 0.950675 0.949337 0.947983 0.946612 0.945224 0.94382 0.942399 0.940961 0.939506 0.938035 0.936548 0.935044 0.933523 0.931987 0.930434 0.928864 0.927279 0.925678 0.92406 0.922427 0.920778 0.919112 0.917432 0.915735 0.914023 0.912295 0.910551 0.908793 0.907018 0.905229 0.903424 0.901604 0.899769 0.897919 0.896053 0.894173 0.892278 0.890369 0.888444 0.886505 0.884552 0.882584 0.880601 0.878605 0.876594 0.874568 0.872529 0.870476 0.868408 0.866327 0.864232 0.862124 0.860001 0.857866 0.855716 0.853554 0.851378 0.849188 0.846986 0.844771 0.842542 0.840301 0.838047 0.83578 0.8335 0.831208 0.828904 0.826587 0.824257 0.821916 0.819562 0.817197 0.814819 0.81243 0.810029 0.807616 0.805192 0.802756 0.800309 0.79785 0.79538 0.792899 0.790407 0.787904 0.785391 0.782866 0.780331 0.777785 0.775229 0.772663 0.770086 0.767499 0.764902 0.762295 0.759678 0.757052 0.754415 0.75177 0.749114 0.746449 0.743775 0.741092 0.7384 0.735699 0.732989 0.73027 0.727542 0.724806 0.722061 0.719308 0.716547 0.713778 0.711001 0.708215 0.705422 0.702621 0.699813 0.696996 0.694173 0.691342 0.688504 0.685659 0.682807 0.679948 0.677082 0.67421 0.671331 0.668445 0.665554 0.662656 0.659751 0.656841 0.653925 0.651003 0.648076 0.645143 0.642204 0.63926 0.636311 0.633357 0.630398 0.627433 0.624464 0.621491 0.618512 0.61553 0.612543 0.609551 0.606556 0.603556 0.600553 0.597546 0.594535 0.59152 0.588503 0.585482 0.582457 0.57943 0.576399 0.573366 0.57033 0.567291 0.56425 0.561206 0.55816 0.555112 0.552061 0.549009 0.545955 0.542899 0.539842 0.536783 0.533723 0.530661 0.527598 0.524534 0.52147 0.518404 0.515338 0.512271 0.509204 0.506136 0.503069 0.500001 0.496933 0.493865 0.490797 0.48773 0.484663 0.481597 0.478532 0.475467 0.472403 0.46934 0.466279 0.463218 0.460159 0.457102 0.454046 0.450992 0.44794 0.44489 0.441841 0.438795 0.435752 0.43271 0.429672 0.426635 0.423602 0.420572 0.417544 0.41452 0.411499 0.408481 0.405466 0.402456 0.399448 0.396445 0.393446 0.39045 0.387459 0.384472 0.381489 0.378511 0.375537 0.372568 0.369604 0.366644 0.36369 0.360741 0.357797 0.354858 0.351925 0.348998 0.346076 0.34316 0.34025 0.337346 0.334448 0.331556 0.32867 0.325791 0.322919 0.320053 0.317194 0.314342 0.311497 0.308659 0.305828 0.303005 0.300189 0.29738 0.294579 0.291786 0.289001 0.286223 0.283454 0.280693 0.27794 0.275195 0.272459 0.269731 0.267012 0.264302 0.261601 0.258909 0.256226 0.253552 0.250887 0.248232 0.245586 0.242949 0.240323 0.237706 0.235099 0.232502 0.229915 0.227338 0.224772 0.222216 0.21967 0.217135 0.21461 0.212097 0.209594 0.207102 0.204621 0.202151 0.199692 0.197245 0.194809 0.192385 0.189972 0.187571 0.185182 0.182804 0.180439 0.178085 0.175744 0.173414 0.171097 0.168793 0.166501 0.164221 0.161954 0.1597 0.157459 0.15523 0.153015 0.150813 0.148623 0.146447 0.144285 0.142135 0.139999 0.137877 0.135768 0.133674 0.131592 0.129525 0.127472 0.125432 0.123407 0.121396 0.119399 0.117417 0.115449 0.113495 0.111556 0.109632 0.107722 0.105827 0.103947 0.102082 0.100232 0.0983968 0.0965768 0.094772 0.0929825 0.0912082 0.0894493 0.0877059 0.0859781 0.0842658 0.0825691 0.0808882 0.0792231 0.0775737 0.0759403 0.074323 0.0727216 0.0711362 0.0695671 0.0680141 0.0664774 0.064957 0.063453 0.0619654 0.0604944 0.0590398 0.057602 0.0561807 0.0547761 0.0533883 0.0520174 0.0506632 0.049326 0.0480058 0.0467026 0.0454164 0.0441475 0.0428956 0.0416609 0.0404435 0.0392434 0.0380607 0.0368953 0.0357474 0.0346169 0.033504 0.0324086 0.0313309 0.0302708 0.0292284 0.0282037 0.0271967 0.0262076 0.0252362 0.0242828 0.0233473 0.0224297 0.0215302 0.0206486 0.0197851 0.0189396 0.0181123 0.0173031 0.0165121 0.0157392 0.0149846 0.0142483 0.0135303 0.0128306 0.0121492 0.0114862 0.0108416 0.0102154 0.00960758 0.0090183 0.00844747 0.00789517 0.00736138 0.00684613 0.0063495 0.00587142;
#A 1000 0.00541192 0.00497106 0.00454885 0.00414526 0.00376037 0.00339416 0.00304663 0.00271782 0.00240776 0.00211641 0.00184381 0.00158995 0.00135487 0.00113854 0.000941008 0.000762284 0.000602335 0.000461191 0.000338852 0.000235319 0.000150621 8.4728e-05 3.76701e-05 9.41753e-06;
#X coords 0 1 1023 0 300 100 1 0 0;
#X restore 39 219 graph;
#X obj 35 110 tabwrite \$0-hann;
#N canvas 774 181 450 300 make-hann 0;
#X obj 59 330 outlet;
#X obj 112 329 outlet;
#X obj 65 31 inlet;
#X obj 64 195 t f f;
#X obj 59 301 expr 0.5+0.5*cos($f1);
#X obj 64 251 - 1;
#X obj 64 120 until;
#X obj 64 173 f;
#X obj 93 174 + 1;
#X msg 82 148 0;
#X obj 138 214 / 2;
#X obj 64 231 /;
#X obj 64 64 t f b f;
#X obj 59 281 * 3.14159;
#X connect 2 0 12 0;
#X connect 3 0 11 0;
#X connect 3 1 1 0;
#X connect 4 0 0 0;
#X connect 5 0 13 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 3 0;
#X connect 8 0 7 1;
#X connect 9 0 7 1;
#X connect 10 0 11 1;
#X connect 11 0 5 0;
#X connect 12 0 6 0;
#X connect 12 1 9 0;
#X connect 12 2 10 0;
#X connect 13 0 4 0;
#X restore 35 82 pd make-hann;
#X obj 158 93 s \$0-hann;
#X msg 158 70 resize \$1;
#X obj 35 53 t f f;
#X connect 0 0 6 0;
#X connect 3 0 2 0;
#X connect 3 1 2 1;
#X connect 5 0 4 0;
#X connect 6 0 3 0;
#X connect 6 1 5 0;
#X restore 499 198 pd hanning;
#N canvas 746 313 751 540 open 0;
#X obj 86 105 table \$0-links;
#X obj 86 127 table \$0-rechts;
#X obj 195 378 s waveform/\$0-links;
#X obj 214 401 s waveform/\$0-rechts;
#X obj 9 360 s \$0-stoptglr;
#X obj 500 21 r \$0-op;
#X obj 315 47 r \$0-open-sf;
#X obj 216 156 list \$0;
#X obj 195 328 t b b;
#X msg 124 362 0;
#X obj 56 384 s \$0-positionr;
#X obj 500 63 s \$0-open-sf;
#X obj 315 82 t a a b;
#X obj 466 136 f \$0;
#X msg 466 159 \; \$1-set-l symbol \$1-links \; \$1-set-r symbol \$1-rechts;
#X msg 216 180 read -resize \$1 \$2-links \$2-rechts;
#N canvas 522 220 600 405 openpanel 0;
#X obj 145 270 openpanel;
#X obj 145 47 f;
#X obj 175 48 + 1;
#X obj 145 70 sel 0;
#X obj 173 168 t b;
#X obj 145 20 inlet;
#X obj 145 293 outlet;
#X text 237 158 remember last directory;
#X obj 145 124 symbol ./;
#X obj 224 70 symbol;
#X obj 224 47 r \$0-open-sf;
#X obj 173 210 symbol ./;
#N canvas 426 89 883 671 splitfilename 0;
#X obj 219 286 outlet;
#X text 263 289 filename;
#X obj 185 210 inlet;
#X obj 185 233 file splitname;
#X obj 185 256 list split 1;
#X obj 185 310 outlet;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 0 0;
#X connect 4 0 5 0;
#X connect 4 1 0 0;
#X restore 224 93 pd splitfilename;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 1 1;
#X connect 3 0 8 0;
#X connect 3 1 4 0;
#X connect 4 0 11 0;
#X connect 5 0 1 0;
#X connect 8 0 0 0;
#X connect 9 0 12 0;
#X connect 10 0 9 0;
#X connect 11 0 0 0;
#X connect 12 0 8 1;
#X connect 12 0 11 1;
#X restore 500 42 pd openpanel;
#X obj 217 204 soundfiler;
#X obj 406 330 s \$0-samplerate;
#X msg 406 310 \$1;
#N canvas 423 90 797 583 sondfile-info 0;
#X obj 172 519 s \$0-wfbg;
#X msg 199 91 \$1;
#X obj 107 138 /;
#X obj 57 202 / 60;
#X obj 57 222 i;
#X obj 182 193 mod 60;
#X obj 436 322 sel 1 2;
#X obj 452 379 symbol Stereo;
#X obj 405 353 symbol Mono;
#X obj 214 265 < 10;
#X obj 187 346 makefilename 0%d;
#X obj 182 245 t f f;
#X obj 157 287 list prepend;
#X obj 157 306 route 0 1;
#X obj 156 326 makefilename %d;
#X obj 552 358 t b;
#X obj 552 380 symbol Multichanel_truncated_to_Stereo;
#X obj 107 158 t f f;
#X msg 436 233 \$3;
#X obj 114 261 < 10;
#X obj 36 350 makefilename 0%d;
#X obj 57 242 t f f;
#X obj 35 282 list prepend;
#X obj 35 301 route 0 1;
#X obj 2 330 makefilename %d;
#X obj 172 473 pack s s f s s;
#X msg 172 495 label \$4___\$1:\$2___\$3Hz___\$5;
#X msg 107 543 \$4 \$1:\$2 \$3Hz \$5;
#X msg 11 540 label \$4;
#X obj 11 562 s \$0-namecnv;
#X msg 39 469 label empty..;
#X obj 341 43 inlet;
#X text 381 43 path;
#X obj 199 36 inlet;
#X text 239 35 sfinfo;
#X obj 53 35 inlet;
#X text 92 36 samp.length;
#X obj 107 563 print fft-stretch~;
#N canvas 426 89 883 671 splitfilename 0;
#X obj 219 286 outlet;
#X text 263 289 filename;
#X obj 185 210 inlet;
#X obj 185 233 file splitname;
#X obj 185 256 list split 1;
#X obj 185 310 outlet;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 0 0;
#X connect 4 0 5 0;
#X connect 4 1 0 0;
#X restore 341 69 pd splitfilename;
#X obj 38 448 loadbang;
#X connect 1 0 2 1;
#X connect 1 0 25 2;
#X connect 2 0 17 0;
#X connect 3 0 4 0;
#X connect 4 0 21 0;
#X connect 5 0 11 0;
#X connect 6 0 8 0;
#X connect 6 1 7 0;
#X connect 6 2 15 0;
#X connect 7 0 25 4;
#X connect 8 0 25 4;
#X connect 9 0 12 1;
#X connect 10 0 25 1;
#X connect 11 0 12 0;
#X connect 11 1 9 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 1 10 0;
#X connect 14 0 25 1;
#X connect 15 0 16 0;
#X connect 16 0 25 4;
#X connect 17 0 3 0;
#X connect 17 1 5 0;
#X connect 18 0 6 0;
#X connect 19 0 22 1;
#X connect 20 0 25 0;
#X connect 21 0 22 0;
#X connect 21 1 19 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 23 1 20 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 25 0 27 0;
#X connect 25 0 28 0;
#X connect 26 0 0 0;
#X connect 27 0 37 0;
#X connect 28 0 29 0;
#X connect 30 0 29 0;
#X connect 30 0 0 0;
#X connect 31 0 38 0;
#X connect 33 0 18 0;
#X connect 33 0 1 0;
#X connect 35 0 2 0;
#X connect 38 1 25 3;
#X connect 39 0 30 0;
#X restore 217 301 pd sondfile-info;
#X f 20;
#X obj 282 332 s \$0-samplelenght;
#N canvas 194 181 619 300 nofile 0;
#X obj 227 31 inlet;
#X obj 117 30 inlet;
#X obj 117 184 spigot 1;
#X obj 272 100 != 0;
#X obj 117 276 outlet;
#X obj 362 240 symbol empty..;
#X obj 443 29 inlet;
#X obj 227 55 t a a;
#X obj 227 277 outlet;
#X obj 362 280 outlet;
#X obj 227 184 spigot 1;
#X obj 362 138 sel 1 0;
#X obj 381 162 symbol;
#X msg 381 183 couldn't find \$1;
#X msg 272 78 \$1;
#X obj 381 206 print fft-stretch~;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 2 1;
#X connect 3 0 10 1;
#X connect 3 0 11 0;
#X connect 5 0 9 0;
#X connect 6 0 5 1;
#X connect 6 0 12 1;
#X connect 7 0 10 0;
#X connect 7 1 14 0;
#X connect 10 0 8 0;
#X connect 11 0 5 0;
#X connect 11 1 12 0;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 14 0 3 0;
#X restore 217 229 pd nofile;
#X f 20;
#X connect 5 0 16 0;
#X connect 6 0 12 0;
#X connect 7 0 15 0;
#X connect 8 0 2 0;
#X connect 8 0 4 0;
#X connect 8 1 3 0;
#X connect 8 1 9 0;
#X connect 9 0 10 0;
#X connect 12 0 7 0;
#X connect 12 1 22 2;
#X connect 12 2 13 0;
#X connect 13 0 14 0;
#X connect 15 0 17 0;
#X connect 16 0 11 0;
#X connect 17 0 22 0;
#X connect 17 1 22 1;
#X connect 19 0 18 0;
#X connect 22 0 8 0;
#X connect 22 0 20 0;
#X connect 22 0 21 0;
#X connect 22 1 20 1;
#X connect 22 1 19 0;
#X connect 22 2 20 2;
#X restore 499 131 pd open;
#N canvas 274 263 1112 710 fft 0;
#N canvas 0 50 511 389 normalize 0;
#X obj 173 313 outlet;
#X obj 159 208 / 4;
#X msg 157 148 1;
#X obj 173 230 *;
#X obj 159 175 t f f;
#X obj 157 123 t b f;
#X obj 280 117 t b f;
#X obj 173 282 / 1;
#X obj 191 207 / 0.375;
#X obj 280 96 r \$0-window-size;
#X obj 157 100 r \$0-overlap;
#X text 258 208 Hanning mean of squares;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 7 0;
#X connect 4 0 1 0;
#X connect 4 1 8 0;
#X connect 5 0 2 0;
#X connect 5 1 1 1;
#X connect 6 0 2 0;
#X connect 6 1 7 1;
#X connect 7 0 0 0;
#X connect 8 0 3 1;
#X connect 9 0 6 0;
#X connect 10 0 5 0;
#X restore 123 596 pd normalize;
#X obj 91 596 *~;
#X msg 845 247 set \$1 \$2;
#X obj 845 225 pack;
#X obj 845 163 r \$0-window-size;
#X obj 858 182 r \$0-overlap;
#X obj 858 204 t b f;
#X obj 91 617 outlet~;
#X obj 315 358 rfft~;
#X obj 222 288 rfft~;
#X obj 92 537 rifft~;
#X obj 90 400 +~ 1e-15;
#X obj 92 571 *~;
#X obj 125 571 tabreceive~ \$0-hann;
#N canvas 135 207 974 712 read-windows 0;
#X obj 85 671 *~;
#X obj 189 240 f;
#X obj 109 54 /;
#X obj 262 671 *~;
#X obj 496 0 bang~;
#X obj 84 527 line~;
#X obj 109 79 * 1000;
#X obj 259 246 +;
#X obj 523 230 *;
#X obj 217 332 / 1000;
#X obj 190 348 *;
#X text 218 349 reading location (samples);
#X obj 127 571 / 4;
#X obj 490 117 * 0.01;
#X floatatom 469 435 7 0 0 0 - - - 0;
#X obj 469 397 *;
#X obj 609 323 t b f;
#X obj 86 697 outlet~;
#X obj 262 696 outlet~;
#X obj 413 632 tabreceive~ \$0-hann;
#X text 522 438 stretched window size (samples);
#X floatatom 118 102 5 0 0 0 - - - 0;
#X obj 109 30 t f b;
#X obj 149 54 samplerate~;
#X obj 109 123 / 4;
#X obj 227 411 / 2;
#X obj 190 411 -;
#X text 255 419 back up 1/2 window;
#X obj 83 573 -~;
#X text 158 86 msec in a window;
#X obj 84 464 f;
#X obj 84 486 pack;
#X obj 84 444 b;
#X msg 84 507 0 \, \$1 \$2;
#X obj 469 256 r \$0-window-size;
#X obj 109 6 r \$0-window-size;
#X obj 155 107 r \$0-overlap;
#X obj 490 72 r \$0-speed;
#X obj 610 251 r \$0-transpo;
#X obj 320 6 r \$0-position;
#X obj 84 615 tabread4~ \$0-links;
#X obj 261 613 tabread4~ \$0-links;
#X obj 217 310 r \$0-samplerate;
#X obj 155 128 t b f;
#X obj 150 474 r \$0-overlap;
#X obj 150 495 t b f;
#X obj 413 667 *~;
#X obj 590 669 *~;
#X obj 414 693 outlet~;
#X obj 590 694 outlet~;
#X obj 429 606 tabread4~ \$0-rechts;
#X obj 604 607 tabread4~ \$0-rechts;
#X obj 109 149 t f b f;
#X obj 347 149 r \$0-samplelenght;
#X obj 351 172 r \$0-samplerate;
#X obj 351 193 / 1000;
#X obj 320 187 *;
#X obj 320 210 /;
#N canvas 206 302 617 638 gui-position 0;
#X obj 195 39 inlet;
#X obj 317 195 /;
#X obj 349 196 r \$0-samplerate;
#X obj 295 440 s \$0-minutes;
#X obj 372 317 / 60;
#X obj 372 337 i;
#X obj 299 245 mod 60;
#X obj 325 285 < 10;
#X obj 295 366 makefilename 0%d;
#X obj 298 266 t f f;
#X obj 270 306 list prepend;
#X obj 270 325 route 0 1;
#X obj 269 345 makefilename %d;
#X obj 295 396 pack s f;
#X obj 317 224 t f f;
#X msg 295 417 label 0\$2:\$1;
#X obj 88 300 s \$0-zeiger;
#X msg 88 278 pos \$1 0;
#X obj 88 235 * 499;
#X obj 88 258 + 1;
#X obj 88 198 /;
#X obj 120 199 r \$0-samplelenght;
#X obj 81 63 metro 100;
#X obj 177 116 f;
#X obj 227 72 r \$0-samplelenght;
#X obj 195 71 min;
#X obj 195 93 max 0;
#X obj 81 20 r \$0-visbng;
#X obj 81 41 t b;
#X connect 0 0 25 0;
#X connect 1 0 14 0;
#X connect 2 0 1 1;
#X connect 4 0 5 0;
#X connect 5 0 13 1;
#X connect 6 0 9 0;
#X connect 7 0 10 1;
#X connect 8 0 13 0;
#X connect 9 0 10 0;
#X connect 9 1 7 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 1 8 0;
#X connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 14 0 6 0;
#X connect 14 1 4 0;
#X connect 15 0 3 0;
#X connect 17 0 16 0;
#X connect 18 0 19 0;
#X connect 19 0 17 0;
#X connect 20 0 18 0;
#X connect 21 0 20 1;
#X connect 22 0 23 0;
#X connect 23 0 20 0;
#X connect 23 0 1 0;
#X connect 24 0 25 1;
#X connect 25 0 26 0;
#X connect 26 0 23 1;
#X connect 27 0 28 0;
#X connect 28 0 22 0;
#X restore 224 368 pd gui-position;
#N canvas 515 255 605 453 loop 0;
#X obj 113 73 inlet;
#X obj 416 85 inlet;
#X obj 416 236 * -0.5;
#X obj 416 190 /;
#X obj 416 215 * 1000;
#X obj 416 166 t f b;
#X obj 443 189 samplerate~;
#X obj 203 331 f;
#X obj 203 175 >;
#X obj 203 195 sel 1;
#X obj 274 161 r \$0-samplerate;
#X obj 274 182 / 1000;
#X obj 244 198 /;
#X obj 244 141 r \$0-samplelenght;
#X obj 203 389 outlet;
#X obj 203 364 spigot;
#X obj 251 364 r \$0-looptgl;
#X obj 113 275 sel 1;
#X obj 136 330 f;
#X obj 113 252 <;
#X obj 372 340 s \$0-stoptglr;
#X obj 371 314 spigot 1;
#X obj 429 291 r \$0-looptgl;
#X obj 429 314 == 0;
#X connect 0 0 8 0;
#X connect 0 0 19 0;
#X connect 1 0 5 0;
#X connect 2 0 7 1;
#X connect 2 0 19 1;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 5 1 6 0;
#X connect 6 0 3 1;
#X connect 7 0 15 0;
#X connect 8 0 9 0;
#X connect 9 0 7 0;
#X connect 9 0 21 0;
#X connect 10 0 11 0;
#X connect 11 0 12 1;
#X connect 12 0 8 1;
#X connect 12 0 18 1;
#X connect 13 0 12 0;
#X connect 15 0 14 0;
#X connect 16 0 15 1;
#X connect 17 0 18 0;
#X connect 17 0 21 0;
#X connect 18 0 15 0;
#X connect 19 0 17 0;
#X connect 21 0 20 0;
#X connect 22 0 23 0;
#X connect 23 0 21 1;
#X restore 240 282 pd loop;
#N canvas 779 288 280 206 cents 0;
#X obj 52 57 inlet;
#X obj 52 168 outlet;
#X obj 52 115 / 100;
#X obj 52 88 i;
#X obj 52 142 expr pow(2 \, $f1/12);
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X restore 609 301 pd cents;
#X obj 633 111 r \$0-freeze;
#X obj 659 191 sel 0 1;
#X obj 523 207 f;
#X msg 676 215 0;
#X obj 632 133 t f f;
#X obj 523 182 route 0 1;
#X obj 523 161 list prepend 0;
#X obj 585 47 snapshot~;
#X obj 496 21 t b b;
#X obj 490 96 +;
#X obj 585 68 t b f;
#X obj 244 156 f;
#X obj 244 114 r \$0-stoptgl;
#X obj 244 134 t b;
#X obj 759 214 snapshot~;
#X obj 677 278 t b f;
#X obj 610 279 +;
#X obj 759 16 inlet~ transpo;
#X obj 584 -6 inlet~ speed;
#X obj 12 568 r \$0-set-l;
#X obj 723 555 r \$0-set-r;
#X msg 12 591 set \$1;
#X msg 723 577 set \$1;
#X obj 490 138 s \$0-randphase-amount;
#X obj 479 280 r \$0-samplerate;
#X obj 489 325 /;
#X obj 518 325 samplerate~;
#X obj 469 355 *;
#X obj 479 300 t b f b;
#X obj 320 29 clip 0 1;
#X connect 0 0 17 0;
#X connect 1 0 7 0;
#X connect 1 0 10 0;
#X connect 1 0 59 0;
#X connect 2 0 6 0;
#X connect 3 0 18 0;
#X connect 4 0 69 0;
#X connect 5 0 28 0;
#X connect 5 0 41 0;
#X connect 5 0 51 0;
#X connect 6 0 21 0;
#X connect 6 0 24 0;
#X connect 7 0 1 1;
#X connect 8 0 7 1;
#X connect 9 0 10 1;
#X connect 10 0 26 0;
#X connect 10 0 58 0;
#X connect 12 0 28 1;
#X connect 13 0 67 0;
#X connect 13 0 84 0;
#X connect 15 0 14 0;
#X connect 15 0 59 1;
#X connect 15 0 12 0;
#X connect 15 0 30 1;
#X connect 15 0 25 0;
#X connect 16 0 15 0;
#X connect 16 1 15 1;
#X connect 19 0 3 1;
#X connect 19 0 0 1;
#X connect 19 0 46 0;
#X connect 19 0 47 0;
#X connect 22 0 2 0;
#X connect 22 1 23 0;
#X connect 23 0 2 1;
#X connect 24 0 52 0;
#X connect 25 0 26 1;
#X connect 26 0 32 0;
#X connect 26 0 40 1;
#X connect 26 0 41 1;
#X connect 26 0 50 1;
#X connect 26 0 51 1;
#X connect 28 0 40 0;
#X connect 28 0 50 0;
#X connect 30 0 31 0;
#X connect 31 0 33 0;
#X connect 32 0 30 0;
#X connect 33 0 5 0;
#X connect 34 0 88 0;
#X connect 35 0 22 0;
#X connect 36 0 43 0;
#X connect 37 0 70 0;
#X connect 38 0 77 0;
#X connect 39 0 90 0;
#X connect 40 0 0 0;
#X connect 41 0 3 0;
#X connect 42 0 9 0;
#X connect 43 0 24 0;
#X connect 43 1 24 1;
#X connect 44 0 45 0;
#X connect 45 0 12 0;
#X connect 45 1 12 1;
#X connect 46 0 48 0;
#X connect 47 0 49 0;
#X connect 50 0 46 1;
#X connect 51 0 47 1;
#X connect 52 0 31 1;
#X connect 52 1 8 0;
#X connect 52 2 8 1;
#X connect 53 0 56 1;
#X connect 54 0 55 0;
#X connect 55 0 57 1;
#X connect 56 0 57 0;
#X connect 57 0 1 1;
#X connect 57 0 72 1;
#X connect 59 0 1 1;
#X connect 60 0 16 0;
#X connect 61 0 65 0;
#X connect 62 0 63 0;
#X connect 62 1 64 0;
#X connect 63 0 8 0;
#X connect 64 0 8 0;
#X connect 65 0 67 1;
#X connect 65 1 62 0;
#X connect 66 0 63 0;
#X connect 66 1 63 1;
#X connect 67 0 66 0;
#X connect 68 0 71 0;
#X connect 69 0 1 0;
#X connect 69 1 68 0;
#X connect 69 1 75 0;
#X connect 70 0 13 0;
#X connect 71 0 70 0;
#X connect 71 1 70 1;
#X connect 72 0 1 0;
#X connect 73 0 74 0;
#X connect 74 0 72 0;
#X connect 75 0 76 0;
#X connect 76 0 77 0;
#X connect 76 1 77 1;
#X connect 77 0 60 0;
#X connect 78 0 75 0;
#X connect 79 0 68 0;
#X connect 80 0 82 0;
#X connect 81 0 83 0;
#X connect 82 0 41 0;
#X connect 82 0 40 0;
#X connect 83 0 51 0;
#X connect 83 0 50 0;
#X connect 85 0 89 0;
#X connect 86 0 88 1;
#X connect 87 0 86 1;
#X connect 88 0 15 0;
#X connect 89 0 88 0;
#X connect 89 1 86 0;
#X connect 89 2 87 0;
#X connect 90 0 56 0;
#X restore 309 117 pd read-windows;
#X obj 87 149 tabreceive~ \$0-prev-real-1;
#X obj 106 179 tabreceive~ \$0-prev-imag-1;
#X obj 176 517 tabsend~ \$0-prev-imag-1;
#X obj 174 541 tabsend~ \$0-prev-real-1;
#X msg 954 232 resize \$1;
#X obj 953 211 / 2;
#X obj 830 382 table \$0-prev-real-1 512;
#X obj 830 403 table \$0-prev-imag-1 512;
#X obj 971 253 s \$0-prev-real-1;
#X obj 971 274 s \$0-prev-imag-1;
#X obj 830 428 table \$0-prev-real-2 512;
#X obj 830 449 table \$0-prev-imag-2 512;
#N canvas 0 50 511 389 normalize 0;
#X obj 173 313 outlet;
#X obj 159 208 / 4;
#X msg 157 148 1;
#X obj 173 230 *;
#X obj 159 175 t f f;
#X obj 157 123 t b f;
#X obj 280 117 t b f;
#X obj 173 282 / 1;
#X obj 191 207 / 0.375;
#X obj 280 96 r \$0-window-size;
#X obj 157 100 r \$0-overlap;
#X text 258 208 Hanning mean of squares;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 7 0;
#X connect 4 0 1 0;
#X connect 4 1 8 0;
#X connect 5 0 2 0;
#X connect 5 1 1 1;
#X connect 6 0 2 0;
#X connect 6 1 7 1;
#X connect 7 0 0 0;
#X connect 8 0 3 1;
#X connect 9 0 6 0;
#X connect 10 0 5 0;
#X restore 508 596 pd normalize;
#X obj 476 596 *~;
#X obj 476 617 outlet~;
#X obj 615 425 rfft~;
#X obj 588 312 rfft~;
#X obj 477 571 *~;
#X obj 510 571 tabreceive~ \$0-hann;
#X obj 473 166 tabreceive~ \$0-prev-real-2;
#X obj 526 187 tabreceive~ \$0-prev-imag-2;
#X obj 571 512 tabsend~ \$0-prev-imag-2;
#X obj 570 536 tabsend~ \$0-prev-real-2;
#X obj 930 296 s \$0-prev-real-2;
#X obj 952 321 s \$0-prev-imag-2;
#X obj 796 180 t b f;
#X obj 795 139 r \$0-playbacktgl;
#X msg 766 126 0;
#X obj 765 84 r \$0-stoptgl;
#X obj 765 104 t b;
#X obj 749 267 loadbang;
#X msg 749 288 0;
#X obj 845 328 switch~ 1024 4;
#N canvas 313 345 450 300 cplx-mult 0;
#X obj 87 76 inlet~;
#X obj 145 76 inlet~;
#X obj 256 77 inlet~;
#X obj 313 77 inlet~;
#X obj 87 173 *~;
#X obj 123 174 *~;
#X obj 87 197 -~;
#X obj 87 221 outlet~;
#X obj 204 174 *~;
#X obj 240 175 *~;
#X obj 204 222 outlet~;
#X obj 204 198 +~;
#X connect 0 0 4 0;
#X connect 0 0 8 0;
#X connect 1 0 5 0;
#X connect 1 0 9 0;
#X connect 2 0 4 1;
#X connect 2 0 9 1;
#X connect 3 0 5 1;
#X connect 3 0 8 1;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 8 0 11 0;
#X connect 9 0 11 1;
#X connect 11 0 10 0;
#X restore 91 486 pd cplx-mult;
#N canvas 83 325 450 300 phaselock 0;
#X obj 91 95 lrshift~ 1;
#X obj 86 119 lrshift~ -1;
#X obj 214 95 lrshift~ 1;
#X obj 206 117 lrshift~ -1;
#X obj 91 154 *~;
#X obj 215 160 *~;
#X obj 75 180 +~;
#X obj 181 180 +~;
#X obj 230 138 r \$0-lock;
#X obj 180 67 inlet~;
#X obj 75 67 inlet~;
#X obj 75 203 outlet~;
#X obj 180 202 outlet~;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 5 0;
#X connect 4 0 6 1;
#X connect 5 0 7 1;
#X connect 6 0 11 0;
#X connect 7 0 12 0;
#X connect 8 0 4 1;
#X connect 8 0 5 1;
#X connect 9 0 2 0;
#X connect 9 0 3 0;
#X connect 9 0 7 0;
#X connect 10 0 1 0;
#X connect 10 0 0 0;
#X connect 10 0 6 0;
#X restore 90 372 pd phaselock;
#N canvas 2 54 450 300 normalize 0;
#X obj 172 132 *~;
#X obj 142 132 *~;
#X obj 142 154 +~;
#X obj 64 237 *~;
#X obj 117 237 *~;
#X obj 142 196 rsqrt~;
#X obj 116 63 inlet~;
#X obj 65 63 inlet~;
#X obj 142 176 +~ 1e-20;
#X obj 64 260 outlet~;
#X obj 117 261 outlet~;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 8 0;
#X connect 3 0 9 0;
#X connect 4 0 10 0;
#X connect 5 0 3 1;
#X connect 5 0 4 1;
#X connect 6 0 0 0;
#X connect 6 0 0 1;
#X connect 6 0 4 0;
#X connect 7 0 1 1;
#X connect 7 0 1 0;
#X connect 7 0 3 0;
#X connect 8 0 5 0;
#X restore 90 428 pd normalize;
#N canvas 2 54 450 300 cplx-mult-conj 0;
#X obj 87 76 inlet~;
#X obj 138 74 inlet~;
#X obj 256 77 inlet~;
#X obj 313 77 inlet~;
#X obj 87 173 *~;
#X obj 138 171 *~;
#X obj 87 221 outlet~;
#X obj 240 176 *~;
#X obj 276 177 *~;
#X obj 240 224 outlet~;
#X obj 87 197 +~;
#X obj 240 200 -~;
#X connect 0 0 4 0;
#X connect 0 0 8 0;
#X connect 1 0 5 0;
#X connect 1 0 7 0;
#X connect 2 0 7 1;
#X connect 2 0 4 1;
#X connect 3 0 8 1;
#X connect 3 0 5 1;
#X connect 4 0 10 0;
#X connect 5 0 10 1;
#X connect 7 0 11 0;
#X connect 8 0 11 1;
#X connect 10 0 6 0;
#X connect 11 0 9 0;
#X restore 89 345 pd cplx-mult-conj;
#N canvas 2 54 450 300 normalize 0;
#X obj 172 132 *~;
#X obj 142 132 *~;
#X obj 142 154 +~;
#X obj 64 237 *~;
#X obj 117 237 *~;
#X obj 142 196 rsqrt~;
#X obj 116 63 inlet~;
#X obj 65 63 inlet~;
#X obj 142 176 +~ 1e-20;
#X obj 64 260 outlet~;
#X obj 117 261 outlet~;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 8 0;
#X connect 3 0 9 0;
#X connect 4 0 10 0;
#X connect 5 0 3 1;
#X connect 5 0 4 1;
#X connect 6 0 0 0;
#X connect 6 0 0 1;
#X connect 6 0 4 0;
#X connect 7 0 1 1;
#X connect 7 0 1 0;
#X connect 7 0 3 0;
#X connect 8 0 5 0;
#X restore 88 311 pd normalize;
#N canvas 433 225 617 499 random-phase 0;
#X obj 222 115 cos~;
#X obj 256 113 -~ 0.25;
#X obj 256 138 cos~;
#X obj 135 349 +~;
#X obj 79 347 +~;
#X obj 171 228 *~;
#X obj 240 221 *~;
#N canvas 313 345 450 300 cplx-mult 0;
#X obj 87 76 inlet~;
#X obj 145 76 inlet~;
#X obj 256 77 inlet~;
#X obj 313 77 inlet~;
#X obj 87 173 *~;
#X obj 123 174 *~;
#X obj 87 197 -~;
#X obj 87 221 outlet~;
#X obj 204 174 *~;
#X obj 240 175 *~;
#X obj 204 222 outlet~;
#X obj 204 198 +~;
#X connect 0 0 4 0;
#X connect 0 0 8 0;
#X connect 1 0 5 0;
#X connect 1 0 9 0;
#X connect 2 0 4 1;
#X connect 2 0 9 1;
#X connect 3 0 5 1;
#X connect 3 0 8 1;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 8 0 11 0;
#X connect 9 0 11 1;
#X connect 11 0 10 0;
#X restore 170 138 pd cplx-mult;
#X obj 312 185 expr 1-$f1;
#X obj 79 73 inlet~;
#X obj 136 72 inlet~;
#X obj 80 389 outlet~;
#X obj 134 390 outlet~;
#X obj 312 97 f;
#X obj 391 22 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 391 68 sel 1 0;
#X obj 391 42 t f f;
#X msg 410 112 1;
#X obj 312 150 f;
#X obj 312 120 spigot;
#X obj 312 0 r \$0-randphase-amount;
#X obj 434 23 r \$0-randomphasetgl;
#X obj 79 227 *~ 1;
#X obj 135 225 *~ 1;
#X obj 312 27 clip -1 1;
#X obj 312 50 abs;
#X obj 230 52 inlet~;
#X connect 0 0 7 2;
#X connect 1 0 2 0;
#X connect 2 0 7 3;
#X connect 3 0 12 0;
#X connect 4 0 11 0;
#X connect 5 0 4 1;
#X connect 6 0 3 1;
#X connect 7 0 5 0;
#X connect 7 1 6 0;
#X connect 8 0 6 1;
#X connect 8 0 5 1;
#X connect 9 0 7 0;
#X connect 9 0 22 0;
#X connect 10 0 7 1;
#X connect 10 0 23 0;
#X connect 13 0 19 0;
#X connect 14 0 16 0;
#X connect 15 0 13 0;
#X connect 15 1 17 0;
#X connect 16 0 15 0;
#X connect 16 1 19 1;
#X connect 17 0 18 0;
#X connect 18 0 8 0;
#X connect 18 0 22 1;
#X connect 18 0 23 1;
#X connect 19 0 18 0;
#X connect 20 0 24 0;
#X connect 21 0 14 0;
#X connect 22 0 4 0;
#X connect 23 0 3 0;
#X connect 24 0 25 0;
#X connect 25 0 13 0;
#X connect 26 0 0 0;
#X connect 26 0 1 0;
#X restore 87 262 pd random-phase;
#X obj 477 537 rifft~;
#X obj 476 410 +~ 1e-15;
#N canvas 313 345 450 300 cplx-mult 0;
#X obj 87 76 inlet~;
#X obj 145 76 inlet~;
#X obj 256 77 inlet~;
#X obj 313 77 inlet~;
#X obj 87 173 *~;
#X obj 123 174 *~;
#X obj 87 197 -~;
#X obj 87 221 outlet~;
#X obj 204 174 *~;
#X obj 240 175 *~;
#X obj 204 222 outlet~;
#X obj 204 198 +~;
#X connect 0 0 4 0;
#X connect 0 0 8 0;
#X connect 1 0 5 0;
#X connect 1 0 9 0;
#X connect 2 0 4 1;
#X connect 2 0 9 1;
#X connect 3 0 5 1;
#X connect 3 0 8 1;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 8 0 11 0;
#X connect 9 0 11 1;
#X connect 11 0 10 0;
#X restore 477 480 pd cplx-mult;
#N canvas 83 325 450 300 phaselock 0;
#X obj 91 95 lrshift~ 1;
#X obj 86 119 lrshift~ -1;
#X obj 214 95 lrshift~ 1;
#X obj 206 117 lrshift~ -1;
#X obj 91 154 *~;
#X obj 215 160 *~;
#X obj 75 180 +~;
#X obj 181 180 +~;
#X obj 230 138 r \$0-lock;
#X obj 180 67 inlet~;
#X obj 75 67 inlet~;
#X obj 75 203 outlet~;
#X obj 180 202 outlet~;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 5 0;
#X connect 4 0 6 1;
#X connect 5 0 7 1;
#X connect 6 0 11 0;
#X connect 7 0 12 0;
#X connect 8 0 4 1;
#X connect 8 0 5 1;
#X connect 9 0 2 0;
#X connect 9 0 3 0;
#X connect 9 0 7 0;
#X connect 10 0 1 0;
#X connect 10 0 0 0;
#X connect 10 0 6 0;
#X restore 476 382 pd phaselock;
#N canvas 2 54 450 300 normalize 0;
#X obj 172 132 *~;
#X obj 142 132 *~;
#X obj 142 154 +~;
#X obj 64 237 *~;
#X obj 117 237 *~;
#X obj 142 196 rsqrt~;
#X obj 116 63 inlet~;
#X obj 65 63 inlet~;
#X obj 142 176 +~ 1e-20;
#X obj 64 260 outlet~;
#X obj 117 261 outlet~;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 8 0;
#X connect 3 0 9 0;
#X connect 4 0 10 0;
#X connect 5 0 3 1;
#X connect 5 0 4 1;
#X connect 6 0 0 0;
#X connect 6 0 0 1;
#X connect 6 0 4 0;
#X connect 7 0 1 1;
#X connect 7 0 1 0;
#X connect 7 0 3 0;
#X connect 8 0 5 0;
#X restore 476 438 pd normalize;
#N canvas 2 54 450 300 cplx-mult-conj 0;
#X obj 87 76 inlet~;
#X obj 138 74 inlet~;
#X obj 256 77 inlet~;
#X obj 313 77 inlet~;
#X obj 87 173 *~;
#X obj 138 171 *~;
#X obj 87 221 outlet~;
#X obj 240 176 *~;
#X obj 276 177 *~;
#X obj 240 224 outlet~;
#X obj 87 197 +~;
#X obj 240 200 -~;
#X connect 0 0 4 0;
#X connect 0 0 8 0;
#X connect 1 0 5 0;
#X connect 1 0 7 0;
#X connect 2 0 7 1;
#X connect 2 0 4 1;
#X connect 3 0 8 1;
#X connect 3 0 5 1;
#X connect 4 0 10 0;
#X connect 5 0 10 1;
#X connect 7 0 11 0;
#X connect 8 0 11 1;
#X connect 10 0 6 0;
#X connect 11 0 9 0;
#X restore 475 355 pd cplx-mult-conj;
#N canvas 2 54 450 300 normalize 0;
#X obj 172 132 *~;
#X obj 142 132 *~;
#X obj 142 154 +~;
#X obj 64 237 *~;
#X obj 117 237 *~;
#X obj 142 196 rsqrt~;
#X obj 116 63 inlet~;
#X obj 65 63 inlet~;
#X obj 142 176 +~ 1e-20;
#X obj 64 260 outlet~;
#X obj 117 261 outlet~;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 8 0;
#X connect 3 0 9 0;
#X connect 4 0 10 0;
#X connect 5 0 3 1;
#X connect 5 0 4 1;
#X connect 6 0 0 0;
#X connect 6 0 0 1;
#X connect 6 0 4 0;
#X connect 7 0 1 1;
#X connect 7 0 1 0;
#X connect 7 0 3 0;
#X connect 8 0 5 0;
#X restore 474 321 pd normalize;
#N canvas 107 174 617 499 random-phase 0;
#X obj 222 115 cos~;
#X obj 256 113 -~ 0.25;
#X obj 256 138 cos~;
#X obj 135 349 +~;
#X obj 79 347 +~;
#X obj 171 228 *~;
#X obj 240 221 *~;
#N canvas 313 345 450 300 cplx-mult 0;
#X obj 87 76 inlet~;
#X obj 145 76 inlet~;
#X obj 256 77 inlet~;
#X obj 313 77 inlet~;
#X obj 87 173 *~;
#X obj 123 174 *~;
#X obj 87 197 -~;
#X obj 87 221 outlet~;
#X obj 204 174 *~;
#X obj 240 175 *~;
#X obj 204 222 outlet~;
#X obj 204 198 +~;
#X connect 0 0 4 0;
#X connect 0 0 8 0;
#X connect 1 0 5 0;
#X connect 1 0 9 0;
#X connect 2 0 4 1;
#X connect 2 0 9 1;
#X connect 3 0 5 1;
#X connect 3 0 8 1;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 8 0 11 0;
#X connect 9 0 11 1;
#X connect 11 0 10 0;
#X restore 170 138 pd cplx-mult;
#X obj 312 185 expr 1-$f1;
#X obj 81 73 inlet~;
#X obj 136 72 inlet~;
#X obj 80 389 outlet~;
#X obj 134 390 outlet~;
#X obj 312 97 f;
#X obj 391 22 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 391 68 sel 1 0;
#X obj 391 42 t f f;
#X msg 410 112 1;
#X obj 312 150 f;
#X obj 312 120 spigot;
#X obj 312 0 r \$0-randphase-amount;
#X obj 434 23 r \$0-randomphasetgl;
#X obj 80 227 *~ 1;
#X obj 135 225 *~ 1;
#X obj 312 27 clip -1 1;
#X obj 312 50 abs;
#X obj 222 86 inlet~;
#X connect 0 0 7 2;
#X connect 1 0 2 0;
#X connect 2 0 7 3;
#X connect 3 0 12 0;
#X connect 4 0 11 0;
#X connect 5 0 4 1;
#X connect 6 0 3 1;
#X connect 7 0 5 0;
#X connect 7 1 6 0;
#X connect 8 0 6 1;
#X connect 8 0 5 1;
#X connect 9 0 7 0;
#X connect 9 0 22 0;
#X connect 10 0 7 1;
#X connect 10 0 23 0;
#X connect 13 0 19 0;
#X connect 14 0 16 0;
#X connect 15 0 13 0;
#X connect 15 1 17 0;
#X connect 16 0 15 0;
#X connect 16 1 19 1;
#X connect 17 0 18 0;
#X connect 18 0 8 0;
#X connect 18 0 22 1;
#X connect 18 0 23 1;
#X connect 19 0 18 0;
#X connect 20 0 24 0;
#X connect 21 0 14 0;
#X connect 22 0 4 0;
#X connect 23 0 3 0;
#X connect 24 0 25 0;
#X connect 25 0 13 0;
#X connect 26 0 0 0;
#X connect 26 0 1 0;
#X restore 473 272 pd random-phase;
#X obj 561 222 noise~;
#X obj 308 51 inlet~;
#X text 353 49 speed;
#X obj 396 76 inlet~;
#X text 440 78 transposition;
#X connect 0 0 1 1;
#X connect 1 0 7 0;
#X connect 2 0 47 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 4 0 20 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X connect 6 1 3 1;
#X connect 8 0 48 2;
#X connect 8 1 48 3;
#X connect 9 0 51 2;
#X connect 9 1 51 3;
#X connect 10 0 12 0;
#X connect 11 0 50 0;
#X connect 12 0 1 0;
#X connect 13 0 12 1;
#X connect 14 0 9 0;
#X connect 14 1 8 0;
#X connect 14 2 31 0;
#X connect 14 3 30 0;
#X connect 15 0 53 0;
#X connect 16 0 53 1;
#X connect 19 0 23 0;
#X connect 19 0 24 0;
#X connect 19 0 38 0;
#X connect 19 0 39 0;
#X connect 20 0 19 0;
#X connect 27 0 28 1;
#X connect 28 0 29 0;
#X connect 30 0 56 2;
#X connect 30 1 56 3;
#X connect 31 0 59 2;
#X connect 31 1 59 3;
#X connect 32 0 28 0;
#X connect 33 0 32 1;
#X connect 34 0 61 0;
#X connect 35 0 61 1;
#X connect 40 0 3 0;
#X connect 40 1 47 0;
#X connect 41 0 40 0;
#X connect 42 0 40 0;
#X connect 43 0 44 0;
#X connect 44 0 42 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 48 0 18 0;
#X connect 48 0 10 0;
#X connect 48 1 17 0;
#X connect 48 1 10 1;
#X connect 49 0 11 0;
#X connect 49 1 50 1;
#X connect 50 0 48 0;
#X connect 50 1 48 1;
#X connect 51 0 49 0;
#X connect 51 1 49 1;
#X connect 52 0 51 0;
#X connect 52 1 51 1;
#X connect 53 0 52 0;
#X connect 53 1 52 1;
#X connect 54 0 32 0;
#X connect 55 0 58 0;
#X connect 56 0 54 0;
#X connect 56 0 37 0;
#X connect 56 1 54 1;
#X connect 56 1 36 0;
#X connect 57 0 55 0;
#X connect 57 1 58 1;
#X connect 58 0 56 0;
#X connect 58 1 56 1;
#X connect 59 0 57 0;
#X connect 59 1 57 1;
#X connect 60 0 59 0;
#X connect 60 1 59 1;
#X connect 61 0 60 0;
#X connect 61 1 60 1;
#X connect 62 0 53 2;
#X connect 62 0 61 2;
#X connect 63 0 14 0;
#X connect 65 0 14 1;
#X restore 368 221 pd fft;
#X obj 103 115 hsl 175 15 0 127 0 0 \$0-visbng \$0-visbngr empty 2 8 2 10 #e0e0e0 #e0e0e0 #000000 0 1;
#N canvas 252 166 796 403 stuff 0;
#X obj 70 330 s \$0-playguicnv;
#X obj 35 74 sel 0 1;
#X obj 35 46 r \$0-playbacktgl;
#X msg 103 304 color 16;
#X msg 35 291 color 11;
#X msg 108 171 label Play;
#X obj 108 216 s \$0-playbacktglr;
#X msg 147 192 label Pause;
#X obj 243 26 r \$0-stoptgl;
#X msg 209 139 color 11;
#X obj 243 48 t b;
#X msg 244 160 color 13;
#X obj 244 186 s \$0-stopcnv;
#X obj 209 95 del 300;
#X msg 276 94 0;
#X obj 276 118 s \$0-playbacktglr;
#X obj 238 280 s waveform/\$0-links;
#X obj 250 305 s waveform/\$0-rechts;
#X msg 239 259 color 0;
#X obj 550 12 r \$0-visbng;
#X obj 570 153 s \$0-visbngr;
#X msg 550 125 color 0 0;
#X msg 634 125 color 10 10;
#X obj 632 100 del 250;
#X obj 550 34 t b;
#X obj 651 154 s \$0-namecnv;
#X obj 239 236 loadbang;
#X obj 459 163 loadbang;
#X obj 459 293 pack \$0 1024 4;
#X obj 459 185 t b b b;
#X obj 502 215 f \$1;
#X obj 554 214 f \$2;
#X obj 502 266 sel 0;
#X obj 553 268 sel 0;
#X obj 405 98 s pd-\$0-fft-stretch;
#X msg 459 316 \; \$1-overlap \$3 \; \$1-window-size \$2 \; \$1-transpo 0 \; \$1-speedr 100;
#N canvas 204 66 853 400 normalize 0;
#X obj 111 128 array max \$0-links;
#X obj 194 149 array min \$0-links;
#X obj 276 73 t b b b b;
#X obj 310 117 array max \$0-rechts;
#X obj 363 137 array min \$0-rechts;
#X obj 310 198 expr if($f1<$f2 \, $f2 \, $f1);
#X obj 111 205 expr if($f1<$f2 \, $f2 \, $f1);
#X obj 194 170 abs;
#X obj 363 158 abs;
#X obj 111 233 expr if($f2<$f1 \, 1 \, $f1/$f2) \; if($f1<$f2 \, 1 \, $f2/$f1);
#X msg 215 466 normalize \$1;
#X msg 386 462 normalize \$1;
#X obj 216 490 s \$0-links;
#X obj 386 485 s \$0-rechts;
#X obj 528 19 r \$0-normalize;
#X obj 529 89 s waveform/\$0-links;
#X obj 548 112 s waveform/\$0-rechts;
#X obj 529 60 del 100;
#X obj 215 436 f;
#X obj 386 426 f;
#X obj 529 41 t b;
#X obj 97 387 f;
#X obj 292 403 f;
#X obj 196 273 r \$0-normalize;
#X obj 195 334 sel 1 0;
#X obj 276 3 r \$0-open-sf;
#X obj 276 46 del 10;
#X obj 297 25 t b;
#X obj 196 294 change;
#X obj 196 315 pipe 20;
#X msg 368 45 0;
#X obj 368 66 s \$0-normalizer;
#X connect 0 0 6 0;
#X connect 1 0 7 0;
#X connect 2 0 0 0;
#X connect 2 1 1 0;
#X connect 2 2 3 0;
#X connect 2 3 4 0;
#X connect 3 0 5 0;
#X connect 4 0 8 0;
#X connect 5 0 9 1;
#X connect 5 0 19 1;
#X connect 6 0 9 0;
#X connect 6 0 18 1;
#X connect 7 0 6 1;
#X connect 8 0 5 1;
#X connect 9 0 21 1;
#X connect 9 1 22 1;
#X connect 10 0 12 0;
#X connect 11 0 13 0;
#X connect 14 0 20 0;
#X connect 17 0 16 0;
#X connect 17 0 15 0;
#X connect 18 0 10 0;
#X connect 19 0 11 0;
#X connect 20 0 17 0;
#X connect 21 0 10 0;
#X connect 22 0 11 0;
#X connect 23 0 28 0;
#X connect 24 0 21 0;
#X connect 24 0 22 0;
#X connect 24 1 19 0;
#X connect 24 1 18 0;
#X connect 25 0 27 0;
#X connect 26 0 2 0;
#X connect 27 0 26 0;
#X connect 27 0 30 0;
#X connect 28 0 29 0;
#X connect 29 0 24 0;
#X connect 30 0 31 0;
#X restore 239 355 pd normalize;
#X msg 405 71 relocate 530x215+1+1 1x1+50+60 \, vis 1 \, editmode 0;
#N canvas 3 57 617 375 blocksize 0;
#X obj 184 76 t f f;
#X obj 184 212 spigot;
#X text 249 141 prevent setting blocksizes that are not a power of 2;
#X msg 244 244 blocksize is not a power of 2;
#X obj 184 294 outlet;
#X obj 244 222 sel 0;
#X obj 184 54 inlet;
#X obj 217 122 expr (($f1-1) & $f1) == 0;
#X obj 244 265 print pp.fft-stretch~;
#X connect 0 0 1 0;
#X connect 0 1 7 0;
#X connect 1 0 4 0;
#X connect 3 0 8 0;
#X connect 5 0 3 0;
#X connect 6 0 0 0;
#X connect 7 0 1 1;
#X connect 7 0 5 0;
#X restore 502 239 pd blocksize;
#X connect 1 0 4 0;
#X connect 1 0 5 0;
#X connect 1 1 3 0;
#X connect 1 1 7 0;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 7 0 6 0;
#X connect 8 0 10 0;
#X connect 9 0 12 0;
#X connect 10 0 11 0;
#X connect 10 0 13 0;
#X connect 10 0 14 0;
#X connect 11 0 12 0;
#X connect 13 0 9 0;
#X connect 14 0 15 0;
#X connect 18 0 16 0;
#X connect 18 0 17 0;
#X connect 19 0 24 0;
#X connect 21 0 20 0;
#X connect 21 0 25 0;
#X connect 22 0 20 0;
#X connect 22 0 25 0;
#X connect 23 0 22 0;
#X connect 24 0 37 0;
#X connect 24 0 23 0;
#X connect 24 0 21 0;
#X connect 26 0 18 0;
#X connect 27 0 29 0;
#X connect 28 0 35 0;
#X connect 29 0 28 0;
#X connect 29 1 30 0;
#X connect 29 2 31 0;
#X connect 30 0 38 0;
#X connect 31 0 33 0;
#X connect 32 1 28 1;
#X connect 33 1 28 2;
#X connect 37 0 34 0;
#X connect 38 0 32 0;
#X restore 499 178 pd stuff;
#X obj 499 279 outlet;
#N canvas 436 144 725 588 outlet-message 0;
#X obj 141 480 list trim;
#X msg 42 469 addcomma;
#X msg 35 348 set;
#X obj 141 457 list prepend add2;
#X obj 122 531 outlet;
#N canvas 121 312 731 292 bang_once................................................... 0;
#X obj 174 87 t b f;
#X obj 132 87 t b f;
#X obj 89 164 del 0;
#X obj 89 87 t b f;
#X obj 217 87 t b f;
#X obj 89 41 inlet;
#X obj 132 40 inlet;
#X obj 174 40 inlet;
#X obj 217 40 inlet;
#X obj 604 57 inlet;
#X obj 468 246 outlet;
#X obj 204 196 f;
#X obj 604 103 t b a;
#X obj 262 88 t b f;
#X obj 262 41 inlet;
#X obj 341 93 t b f;
#X obj 384 93 t b f;
#X obj 341 46 inlet;
#X obj 384 46 inlet;
#X obj 429 94 t b f;
#X obj 429 47 inlet;
#X obj 471 94 t b f;
#X obj 471 47 inlet;
#X obj 301 90 t b f;
#X obj 301 43 inlet;
#X obj 532 95 t b f;
#X obj 532 48 inlet;
#X obj 466 212 pack 0 0 0 0 0 0 0 0 0 0 0 s;
#X connect 0 0 2 0;
#X connect 0 1 27 2;
#X connect 1 0 2 0;
#X connect 1 1 27 1;
#X connect 2 0 11 0;
#X connect 3 0 2 0;
#X connect 3 1 11 1;
#X connect 4 0 2 0;
#X connect 4 1 27 3;
#X connect 5 0 3 0;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 4 0;
#X connect 9 0 12 0;
#X connect 11 0 27 0;
#X connect 12 0 2 0;
#X connect 12 1 27 11;
#X connect 13 0 2 0;
#X connect 13 1 27 4;
#X connect 14 0 13 0;
#X connect 15 0 2 0;
#X connect 15 1 27 6;
#X connect 16 0 2 0;
#X connect 16 1 27 7;
#X connect 17 0 15 0;
#X connect 18 0 16 0;
#X connect 19 0 2 0;
#X connect 19 1 27 8;
#X connect 20 0 19 0;
#X connect 21 0 2 0;
#X connect 21 1 27 9;
#X connect 22 0 21 0;
#X connect 23 0 2 0;
#X connect 23 1 27 5;
#X connect 24 0 23 0;
#X connect 25 0 2 0;
#X connect 25 1 27 10;
#X connect 26 0 25 0;
#X connect 27 0 10 0;
#X restore 103 251 pd bang_once...................................................;
#X obj 581 168 r \$0-open-sf;
#X obj 581 189 symbol;
#X obj 398 81 r \$0-looptgl;
#X obj 63 61 r \$0-playbacktgl;
#X obj 263 9 r \$0-position;
#X obj 262 99 i;
#X obj 289 33 r \$0-samplelenght;
#X obj 299 56 r \$0-samplerate;
#X obj 299 77 / 1000;
#X obj 263 33 *;
#X obj 263 78 /;
#X obj 156 123 r \$0-speed;
#X obj 102 92 r \$0-freeze;
#X obj 224 155 r \$0-transpo;
#X obj 439 103 r \$0-lock;
#X obj 475 149 r \$0-window-size;
#X obj 495 170 r \$0-overlap;
#X obj 318 130 r \$0-position;
#X obj 318 151 * 100;
#X obj 103 285 t b a b;
#X obj 122 382 t b a a;
#N canvas 497 347 297 264 save 0;
#X obj 48 16 inlet;
#N canvas 690 259 481 384 collect 0;
#X obj 47 60 inlet;
#X obj 47 274 outlet;
#X obj 98 180 list;
#X obj 166 181 t l;
#X obj 47 225 list;
#X obj 98 139 list append |;
#X obj 47 126 del 0;
#X obj 47 82 t b a;
#X text 119 75 hacky thing... replaycing " \, " with "|";
#X connect 0 0 7 0;
#X connect 2 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 2 1;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 6 0 2 1;
#X connect 6 0 4 0;
#X connect 7 0 6 0;
#X connect 7 1 5 0;
#X restore 48 38 pd collect;
#X obj 117 16 r \$0-save;
#X obj 27 130 text set \$0-savestates;
#X obj 27 104 list;
#X obj 117 62 t b f;
#X obj 117 39 clip 0 20;
#X connect 0 0 1 0;
#X connect 1 0 4 1;
#X connect 2 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 3 1;
#X connect 6 0 5 0;
#X restore 161 407 pd save;
#X obj 462 124 r \$0-randomphasetgl;
#X msg 122 320 open \$12 \, play \$1 \, freeze \$2 \, speed \$3 \, transposition \$4 \, position \$5 \, position% \$6 \, loop \$7 \, phaselock \$8 \, random-phase \$9 \, blocksize \$10 \, overlap \$11 \,;
#X connect 0 0 4 0;
#X connect 1 0 4 0;
#X connect 2 0 4 0;
#X connect 3 0 0 0;
#X connect 5 0 25 0;
#X connect 6 0 7 0;
#X connect 7 0 5 11;
#X connect 8 0 5 6;
#X connect 9 0 5 0;
#X connect 10 0 15 0;
#X connect 11 0 5 4;
#X connect 12 0 15 1;
#X connect 13 0 14 0;
#X connect 14 0 16 1;
#X connect 15 0 16 0;
#X connect 16 0 11 0;
#X connect 17 0 5 2;
#X connect 18 0 5 1;
#X connect 19 0 5 3;
#X connect 20 0 5 7;
#X connect 21 0 5 9;
#X connect 22 0 5 10;
#X connect 23 0 24 0;
#X connect 24 0 5 5;
#X connect 25 0 4 0;
#X connect 25 1 29 0;
#X connect 25 2 2 0;
#X connect 26 0 1 0;
#X connect 26 1 3 0;
#X connect 26 2 27 0;
#X connect 28 0 5 8;
#X connect 29 0 26 0;
#X restore 499 257 pd outlet-message;
#N canvas 3 52 888 439 record 0;
#X msg 243 237 start;
#X obj 480 129 sel 0 1;
#X obj 487 180 timer;
#X obj 487 218 * 44.1;
#X obj 541 174 samplerate~;
#X obj 541 199 / 1000;
#X msg 156 239 stop;
#X obj 448 70 t f f;
#X obj 301 164 sel 1 0;
#X obj 229 125 inlet~;
#X msg 721 200 resize 1.67772e+07;
#X msg 487 285 resize \$1;
#X obj 509 149 t b b b;
#X obj 448 22 r \$0-record;
#X obj 135 124 inlet~;
#X obj 136 313 tabwrite~ \$0-links;
#X obj 228 289 tabwrite~ \$0-rechts;
#X obj 735 325 s \$0-rechts;
#X obj 721 348 s \$0-links;
#X obj 301 236 s waveform/\$0-links;
#X obj 320 259 s waveform/\$0-rechts;
#X obj 301 205 del 10;
#X obj 448 47 > 0;
#X obj 135 146 hip~ 5;
#X obj 229 148 hip~ 5;
#X obj 601 199 s \$0-samplerate;
#X obj 500 256 s \$0-samplelenght;
#N canvas 343 67 797 561 info 0;
#X obj 172 519 s \$0-wfbg;
#X obj 107 138 /;
#X obj 57 202 / 60;
#X obj 57 222 i;
#X obj 182 193 mod 60;
#X obj 214 265 < 10;
#X obj 187 346 makefilename 0%d;
#X obj 182 245 t f f;
#X obj 157 287 list prepend;
#X obj 157 306 route 0 1;
#X obj 156 326 makefilename %d;
#X obj 138 563 print sfplayer~;
#X obj 107 158 t f f;
#X obj 114 261 < 10;
#X obj 36 350 makefilename 0%d;
#X obj 57 242 t f f;
#X obj 35 282 list prepend;
#X obj 35 301 route 0 1;
#X obj 2 330 makefilename %d;
#X msg 172 495 label Recorded___\$1:\$2___\$3Hz;
#X obj 172 473 pack s s f;
#X obj 423 42 inlet;
#X obj 107 36 inlet;
#X msg 137 543 Recorded \$1:\$2 \$3Hz;
#X msg 11 540 label Recorded;
#X obj 11 562 s \$0-namecnv;
#X connect 1 0 12 0;
#X connect 2 0 3 0;
#X connect 3 0 15 0;
#X connect 4 0 7 0;
#X connect 5 0 8 1;
#X connect 6 0 20 1;
#X connect 7 0 8 0;
#X connect 7 1 5 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 1 6 0;
#X connect 10 0 20 1;
#X connect 12 0 2 0;
#X connect 12 1 4 0;
#X connect 13 0 16 1;
#X connect 14 0 20 0;
#X connect 15 0 16 0;
#X connect 15 1 13 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 17 1 14 0;
#X connect 18 0 20 0;
#X connect 19 0 0 0;
#X connect 20 0 19 0;
#X connect 20 0 23 0;
#X connect 20 0 24 0;
#X connect 21 0 20 2;
#X connect 21 0 1 1;
#X connect 22 0 1 0;
#X connect 23 0 11 0;
#X connect 24 0 25 0;
#X restore 637 256 pd info;
#X obj 451 331 f \$0;
#X msg 451 354 \; \$1-set-l symbol \$1-links \; \$1-set-r symbol \$1-rechts;
#X connect 0 0 16 0;
#X connect 0 0 15 0;
#X connect 1 0 2 1;
#X connect 1 0 28 0;
#X connect 1 1 12 0;
#X connect 2 0 3 0;
#X connect 3 0 11 0;
#X connect 3 0 26 0;
#X connect 3 0 27 0;
#X connect 4 0 5 0;
#X connect 4 0 25 0;
#X connect 4 0 27 1;
#X connect 5 0 3 1;
#X connect 6 0 16 0;
#X connect 6 0 15 0;
#X connect 7 0 8 0;
#X connect 7 1 1 0;
#X connect 8 0 0 0;
#X connect 8 1 6 0;
#X connect 8 1 21 0;
#X connect 9 0 24 0;
#X connect 10 0 17 0;
#X connect 10 0 18 0;
#X connect 11 0 17 0;
#X connect 11 0 18 0;
#X connect 12 0 2 0;
#X connect 12 1 4 0;
#X connect 12 2 10 0;
#X connect 13 0 22 0;
#X connect 14 0 23 0;
#X connect 21 0 19 0;
#X connect 21 0 20 0;
#X connect 22 0 7 0;
#X connect 23 0 15 0;
#X connect 24 0 16 0;
#X connect 28 0 29 0;
#X restore 286 127 pd record;
#N canvas 50 60 530 215 \$0-fft-stretch 1;
#N canvas 477 110 715 391 maske 0;
#X obj 0 0 cnv 15 519 204 empty empty empty 20 12 0 14 #fcfcfc #404040 0;
#X obj 11 17 bng 16 250 50 0 \$0-op \$0-opr Open 0 -7 2 10 #fcfcfc #00fc04 #000000;
#X obj 126 17 tgl 16 0 \$0-stoptgl \$0-stoptglr Stop 0 -7 2 10 #fcfcfc #fcfcfc #000000 0 1;
#X obj 94 17 tgl 16 0 \$0-playbacktgl \$0-playbacktglr Play 0 -7 2 10 #fcfcfc #fcfcfc #000000 0 1;
#X obj 99 20 cnv 1 1 10 empty \$0-playguicnv empty 20 12 0 14 #7c7c7c #fcfcfc 0;
#X obj 101 21 cnv 1 1 8 empty \$0-playguicnv empty 20 12 0 14 #7c7c7c #fcfcfc 0;
#X obj 102 22 cnv 1 1 6 empty \$0-playguicnv empty 20 12 0 14 #7c7c7c #fcfcfc 0;
#X obj 103 23 cnv 1 1 4 empty \$0-playguicnv empty 20 12 0 14 #7c7c7c #fcfcfc 0;
#X obj 104 24 cnv 1 1 2 empty \$0-playguicnv empty 20 12 0 14 #7c7c7c #fcfcfc 0;
#X obj 234 21 nbx 4 12 -1e+37 1e+37 0 0 \$0-speed \$0-speedr Speed(%) 0 -8 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 182 23 tgl 10 0 \$0-looptgl \$0-looptglr loop 14 6 2 10 #fcfcfc #000000 #000000 0 1;
#X obj 9 49 cnv 15 502 122 empty empty empty 20 12 0 14 #7c7c7c #404040 0;
#N canvas 641 183 532 272 waveform 0;
#X obj 0 1 cnv 15 500 119 empty empty empty 3 6 2 10 #dcdcdc #000000 0;
#X obj 1 0 cnv 1 1 120 empty \$0-zeiger empty 20 12 0 14 #fc0400 #404040 0;
#X obj 0 0 pp.waveform \$0-links 500 60 1 -1 999 1 1 100;
#X obj 0 60 pp.waveform \$0-rechts 500 60 1 -1 999 1 1 100;
#X coords 0 -1 1 1 500 120 1 0 0;
#X restore 10 50 pd waveform;
#X obj 482 153 cnv 3 3 3 empty \$0-minutes 00:00 1 10 2 10 #dcdcdc #000000 0;
#X obj 10 187 nbx 8 12 0 1e+37 0 0 \$0-positionms \$0-positionmsr Position(ms) 70 7 2 10 #fcfcfc #000000 #000000 0 256;
#N canvas 3 50 609 300 map 0;
#X obj 377 52 r \$0-samplelenght;
#X obj 158 127 /;
#X obj 377 77 r \$0-samplerate;
#X obj 377 98 / 1000;
#X obj 158 103 *;
#X obj 158 13 inlet;
#X obj 158 211 outlet;
#X obj 330 88 *;
#X obj 330 13 inlet;
#X obj 330 146 /;
#X msg 330 190 set \$1;
#X obj 330 212 outlet;
#X obj 330 167 i;
#X connect 0 0 1 1;
#X connect 0 0 7 1;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 3 0 9 1;
#X connect 4 0 1 0;
#X connect 5 0 4 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 9 0 12 0;
#X connect 10 0 11 0;
#X connect 12 0 10 0;
#X restore 16 229 pd map;
#X obj 13 174 hsl 496 10 0 1 0 0 \$0-position \$0-positionr empty -2 -8 2 10 #fcfcfc #000000 #000000 0 0;
#X obj 40 17 tgl 16 0 \$0-record \$0-recordr Record 0 -7 2 10 #fcfcfc #fc0400 #000000 0 1;
#X obj 130 21 cnv 8 7 7 empty \$0-stopcnv empty 20 12 0 14 #7c7c7c #7c7c7c 0;
#X obj 157 17 tgl 16 0 \$0-freeze \$0-freezer Freeze 0 -7 2 10 #fcfcfc #000000 #000000 0 1;
#X obj 287 21 nbx 5 12 -1e+37 1e+37 0 0 \$0-transpo \$0-transpor Transposition(cents) 0 -8 2 10 #fcfcfc #000000 #000000 0 256;
#X obj 341 22 tgl 10 0 \$0-lock \$0-lockr Phaselock 15 6 2 10 #fcfcfc #000000 #000000 0 1;
#X obj 419 13 cnv 10 10 10 empty empty fft-stretch~ 0 5 2 14 #fcfcfc #9c9c9c 0;
#X obj 453 36 tgl 10 0 \$0-normalize \$0-normalizer normalize 14 6 2 10 #fcfcfc #000000 #000000 0 1;
#X obj 341 35 tgl 10 0 \$0-randomphasetgl \$0-randomphasetglr Random-Phase 15 6 2 10 #fcfcfc #000000 #000000 0 1;
#X obj 10 37 cnv 10 10 10 empty \$0-wfbg empty.. 1 5 2 10 #fcfcfc #000000 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 1 14 0;
#X connect 16 0 15 1;
#X coords 0 -1 1 1 520 205 1 0 0;
#X restore 4 6 pd maske \$0-maskeaveform;
#X restore 499 155 pd \$0-fft-stretch;
#X obj 369 282 outlet~;
#X obj 401 259 outlet~;
#N canvas 1057 347 724 471 in 0;
#X obj 69 -11 inlet;
#X obj 69 308 != 0;
#X obj 96 355 != 0;
#X obj 96 378 s \$0-playbacktglr;
#X obj 69 331 s \$0-recordr;
#X obj 123 443 s \$0-stoptglr;
#X obj 149 249 != 0;
#X obj 149 270 s \$0-freezer;
#X obj 176 294 s \$0-speedr;
#X obj 202 323 s \$0-transpor;
#X obj 229 346 s \$0-positionmsr;
#X obj 256 252 != 0;
#X obj 256 278 s \$0-looptglr;
#X obj 306 300 != 0;
#X obj 306 316 s \$0-lockr;
#X obj 337 258 s \$0-window-size;
#X obj 405 312 s \$0-overlap;
#X obj 405 290 change;
#X obj 337 210 change;
#X obj 390 210 s \$0-positionr;
#X obj 390 192 / 100;
#X obj 579 221 s \$0-open-sf;
#X obj 579 199 symbol;
#N canvas 196 182 728 433 set 0;
#X obj 344 50 inlet;
#X obj 451 96 list length;
#X obj 346 72 t a a;
#X obj 346 124 unpack s s;
#X obj 451 117 == 1;
#X obj 424 212 s \$0-set-r;
#X obj 346 212 s \$0-set-l;
#X obj 220 318 s \$0-samplerate;
#X obj 99 241 array size;
#X obj 220 295 samplerate~;
#X obj 181 180 t b s b;
#X obj 346 263 r \$0-set-l;
#X obj 433 262 r \$0-set-r;
#X msg 346 289 set \$1 \, bang;
#X obj 346 340 s waveform/\$0-links;
#X obj 433 315 s waveform/\$0-rechts;
#X msg 433 290 set \$1 \, bang;
#X obj 451 140 sel 1;
#X obj 525 209 table \$0-dummy 64;
#X obj 451 163 f \$0;
#X msg 451 185 symbol \$1-dummy;
#N canvas 445 148 797 561 sondfile-info 0;
#X obj 172 519 s \$0-wfbg;
#X obj 107 135 /;
#X obj 57 202 / 60;
#X obj 57 222 i;
#X obj 162 202 mod 60;
#X obj 194 265 < 10;
#X obj 167 346 makefilename 0%d;
#X obj 162 240 t f f;
#X obj 137 287 list prepend;
#X obj 137 306 route 0 1;
#X obj 136 326 makefilename %d;
#X obj 107 158 t f f;
#X obj 80 36 inlet samp.length;
#X obj 114 261 < 10;
#X obj 36 350 makefilename 0%d;
#X obj 57 242 t f f;
#X obj 35 282 list prepend;
#X obj 35 301 route 0 1;
#X obj 2 330 makefilename %d;
#X msg 11 540 label \$4;
#X obj 11 562 s \$0-namecnv;
#X obj 80 60 t f b;
#X obj 252 105 samplerate~;
#X msg 172 495 label \$4___\$1:\$2___\$3Hz;
#X obj 172 473 pack s s f s;
#X obj 383 40 inlet set;
#X msg 105 542 \$4 \$1:\$2 \$3Hz;
#X obj 105 563 print fft-stretch~;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 3 0 15 0;
#X connect 4 0 7 0;
#X connect 5 0 8 1;
#X connect 6 0 24 1;
#X connect 7 0 8 0;
#X connect 7 1 5 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 1 6 0;
#X connect 10 0 24 1;
#X connect 11 0 2 0;
#X connect 11 1 4 0;
#X connect 12 0 21 0;
#X connect 13 0 16 1;
#X connect 14 0 24 0;
#X connect 15 0 16 0;
#X connect 15 1 13 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 17 1 14 0;
#X connect 18 0 24 0;
#X connect 19 0 20 0;
#X connect 21 0 1 0;
#X connect 21 1 22 0;
#X connect 22 0 1 1;
#X connect 22 0 24 2;
#X connect 23 0 0 0;
#X connect 24 0 23 0;
#X connect 24 0 26 0;
#X connect 24 0 19 0;
#X connect 25 0 24 3;
#X connect 26 0 27 0;
#X restore 51 315 pd sondfile-info;
#X obj 108 263 s \$0-samplelenght;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 2 1 1 0;
#X connect 3 0 6 0;
#X connect 3 0 10 0;
#X connect 3 1 5 0;
#X connect 4 0 17 0;
#X connect 8 0 21 0;
#X connect 8 0 22 0;
#X connect 9 0 7 0;
#X connect 10 0 8 0;
#X connect 10 1 8 1;
#X connect 10 1 21 1;
#X connect 10 2 9 0;
#X connect 11 0 13 0;
#X connect 12 0 16 0;
#X connect 13 0 14 0;
#X connect 16 0 15 0;
#X connect 17 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 5 0;
#X restore 490 203 pd set;
#N canvas 698 546 200 251 route 0;
#X obj 20 20 inlet;
#X obj 30 60 route save recall;
#X obj 30 85 route float;
#X obj 97 111 route float;
#X obj 30 136 s \$0-save;
#X obj 30 108 i;
#X obj 98 133 i;
#X obj 98 161 s \$0-recall;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 5 0;
#X connect 3 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X restore 90 15 pd route save-recall;
#N canvas 362 125 450 479 recall 0;
#X obj 49 145 outlet;
#N canvas 3 54 450 600 listsplit 0;
#X obj 158 23 inlet;
#X obj 220 87 list length;
#X obj 220 113 until;
#X obj 182 150 f;
#X obj 278 150 + 1;
#X msg 265 111 0;
#X obj 182 226 list store;
#X msg 182 202 get \$1 1;
#X obj 154 367 list split;
#X obj 222 342 f;
#X obj 154 334 list;
#X obj 98 124 list;
#X obj 182 389 list split 1;
#X obj 154 274 t bang bang bang;
#X obj 182 179 t f f;
#X obj 158 48 t l l l b;
#X obj 154 473 outlet;
#X obj 154 440 list trim;
#X obj 163 248 sel |;
#X text 275 197 hacky split list at "|";
#X connect 0 0 15 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 14 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 18 0;
#X connect 7 0 6 0;
#X connect 8 0 17 0;
#X connect 8 1 12 0;
#X connect 9 0 8 1;
#X connect 10 0 8 0;
#X connect 11 0 15 0;
#X connect 12 1 11 0;
#X connect 13 0 10 0;
#X connect 13 1 9 0;
#X connect 13 2 2 1;
#X connect 14 0 7 0;
#X connect 14 1 9 1;
#X connect 15 0 1 0;
#X connect 15 1 10 1;
#X connect 15 2 6 1;
#X connect 15 3 5 0;
#X connect 17 0 16 0;
#X connect 18 0 13 0;
#X restore 49 117 pd listsplit;
#X obj 49 24 r \$0-recall;
#X obj 49 54 pipe 1;
#X obj 221 409 text fromlist \$0-savestates;
#X obj 49 77 text get \$0-savestates;
#X msg 253 246 21;
#X obj 253 269 until;
#X obj 253 292 f;
#X obj 300 295 + 1;
#X obj 253 315 t b f;
#X obj 253 367 text set \$0-savestates;
#X obj 221 114 text tolist \$0-savestates;
#X msg 253 342 list empty_slot;
#X obj 221 160 t a b;
#X obj 151 166 loadbang;
#X obj 221 137 savestate;
#X obj 221 33 text define \$0-savestates;
#X obj 151 189 del 0;
#X msg 298 199 0;
#X obj 253 220 spigot 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 13 0;
#X connect 10 1 11 1;
#X connect 12 0 16 0;
#X connect 13 0 11 0;
#X connect 14 0 4 0;
#X connect 14 1 19 0;
#X connect 15 0 18 0;
#X connect 16 0 14 0;
#X connect 16 1 12 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 6 0;
#X restore 156 38 pd recall;
#X obj 69 66 route record play stop freeze speed transposition position loop phaselock blocksize overlap position% set random-phase open;
#X obj 436 171 s \$0-randomphasetglr;
#X obj 436 148 != 0;
#X obj 123 397 t b;
#X msg 123 417 0;
#N canvas 3 57 617 375 blocksize 0;
#X obj 184 76 t f f;
#X obj 184 212 spigot;
#X text 249 141 prevent setting blocksizes that are not a power of 2;
#X msg 244 244 blocksize is not a power of 2;
#X obj 184 294 outlet;
#X obj 244 222 sel 0;
#X obj 184 54 inlet;
#X obj 217 122 expr (($f1-1) & $f1) == 0;
#X obj 244 265 print pp.fft-stretch~;
#X connect 0 0 1 0;
#X connect 0 1 7 0;
#X connect 1 0 4 0;
#X connect 3 0 8 0;
#X connect 5 0 3 0;
#X connect 6 0 0 0;
#X connect 7 0 1 1;
#X connect 7 0 5 0;
#X restore 337 236 pd blocksize;
#X connect 0 0 24 0;
#X connect 0 0 26 0;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 6 0 7 0;
#X connect 11 0 12 0;
#X connect 13 0 14 0;
#X connect 17 0 16 0;
#X connect 18 0 31 0;
#X connect 20 0 19 0;
#X connect 22 0 21 0;
#X connect 25 0 26 0;
#X connect 26 0 1 0;
#X connect 26 1 2 0;
#X connect 26 2 29 0;
#X connect 26 3 6 0;
#X connect 26 4 8 0;
#X connect 26 5 9 0;
#X connect 26 6 10 0;
#X connect 26 7 11 0;
#X connect 26 8 13 0;
#X connect 26 9 18 0;
#X connect 26 10 17 0;
#X connect 26 11 20 0;
#X connect 26 12 23 0;
#X connect 26 13 28 0;
#X connect 26 14 22 0;
#X connect 28 0 27 0;
#X connect 29 0 30 0;
#X connect 30 0 5 0;
#X connect 31 0 15 0;
#X restore 497 94 pd in;
#X text 580 467 philipp schmalfuß \, 2018/19;
#X obj 103 118 cnv 10 10 10 empty \$0-namecnv empty.. 0 5 2 10 #e0e0e0 #000000 0;
#X obj 367 122 inlet~;
#X obj 400 143 inlet~;
#X text 412 123 speed;
#X text 416 158 transpo.;
#X obj 285 77 inlet~;
#X text 328 75 rec.l;
#X obj 338 98 inlet~;
#X text 383 98 rec.r;
#X obj 498 74 inlet;
#X connect 2 0 9 0;
#X connect 2 1 10 0;
#X connect 6 0 5 0;
#X connect 14 0 2 0;
#X connect 15 0 2 1;
#X connect 18 0 7 0;
#X connect 20 0 7 1;
#X connect 22 0 11 0;
#X coords 0 -1 1 1 180 33 1 100 100;