pp.fft-pitchshift-st~.pd

#N canvas 228 247 917 370 10;
#X obj 468 114 inlet~;
#X obj 467 258 outlet~;
#N canvas 275 50 823 699 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 800 197 pd hanning;
#X obj 685 126 inlet~ transpo;
#N canvas 550 66 717 699 fft 0;
#X obj 63 538 *~;
#X obj 18 532 *~;
#X obj 18 554 -~;
#X obj 231 535 *~;
#X obj 177 536 *~;
#X obj 197 561 +~;
#X obj 121 194 *~;
#X obj 89 197 *~;
#X obj 50 193 *~;
#X obj 19 193 *~;
#X obj 19 218 +~;
#X obj 64 386 *~;
#X obj 20 649 *~;
#X obj 246 468 rfft~;
#X obj 108 161 rfft~;
#X obj 19 591 rifft~;
#X obj 21 673 outlet~;
#X obj 34 386 *~;
#X obj 34 408 +~;
#X obj 124 218 -~;
#X obj 19 480 *~;
#X obj 63 476 *~;
#X obj 519 150 block~;
#X obj 19 349 +~ 1e-15;
#X obj 19 625 *~;
#X obj 52 625 tabreceive~ \$0-hann;
#X obj 149 60 *~;
#X obj 117 60 *~;
#X obj 117 80 +~;
#X obj 117 99 +~ 1e-20;
#X obj 78 148 *~;
#X obj 19 147 *~;
#X obj 48 242 lrshift~ 1;
#X obj 34 261 lrshift~ -1;
#X obj 157 241 lrshift~ 1;
#X obj 142 260 lrshift~ -1;
#X obj 19 312 +~;
#X obj 125 318 +~;
#N canvas 723 71 577 694 read-windows 0;
#X obj 20 542 outlet~;
#X obj 129 547 outlet~;
#X obj 128 443 vd~ \$0-input;
#X obj 168 484 tabreceive~ \$0-hann;
#X obj 20 511 *~;
#X obj 128 519 *~;
#X obj 247 91 bang~;
#X obj 247 127 snapshot~;
#X obj 310 91 inlet~ transpo;
#N canvas 779 315 280 168 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 247 171 pd cents;
#X obj 276 149 r \$0-transpo;
#X obj 247 148 +;
#N canvas 698 347 525 300 del 0;
#X obj 181 70 inlet~;
#X obj 182 140 outlet~;
#X obj 288 28 r \$0-window-size;
#X msg 328 167 set \$1;
#X obj 328 187 block~ 256;
#X obj 328 115 / 4;
#X obj 182 119 delread~ \$0-back;
#X obj 381 71 t b f;
#X floatatom 343 138 5 0 0 0 - - -;
#X obj 381 50 r \$0-overlap;
#X obj 181 91 delwrite~ \$0-back 500;
#X connect 0 0 10 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 5 0 3 0;
#X connect 5 0 8 0;
#X connect 6 0 1 0;
#X connect 7 0 5 0;
#X connect 7 1 5 1;
#X connect 9 0 7 0;
#X restore 21 474 pd del;
#X obj 174 351 bang~;
#X obj 126 371 phasor~;
#X msg 174 370 0;
#X obj 128 400 *~;
#X obj 291 288 samplerate~;
#X obj 262 269 t f b;
#X obj 262 248 r \$0-window-size;
#X obj 66 271 samplerate~;
#X obj 66 292 /;
#X obj 66 229 r \$0-window-size;
#X obj 66 250 t b f;
#X obj 247 358 *;
#X obj 291 309 / 1000;
#X obj 262 331 / 44.1;
#X obj 247 379 / 4;
#X obj 66 314 * 4;
#X obj 247 401 abs;
#X obj 126 346 * 1;
#X obj 186 248 sel 0;
#X obj 185 227 < 0;
#X obj 196 274 f -1;
#X obj 196 295 t b f;
#X obj 318 348 t b f;
#X obj 318 327 r \$0-overlap;
#X obj 107 310 t b f;
#X obj 107 289 r \$0-overlap;
#X obj 247 191 - 1;
#X connect 2 0 12 0;
#X connect 2 0 5 0;
#X connect 3 0 5 1;
#X connect 3 0 4 1;
#X connect 4 0 0 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 11 0;
#X connect 8 0 7 0;
#X connect 9 0 39 0;
#X connect 10 0 11 1;
#X connect 11 0 9 0;
#X connect 11 0 32 0;
#X connect 12 0 4 0;
#X connect 13 0 15 0;
#X connect 14 0 16 0;
#X connect 15 0 14 1;
#X connect 16 0 2 0;
#X connect 17 0 25 0;
#X connect 18 0 26 0;
#X connect 18 1 17 0;
#X connect 19 0 18 0;
#X connect 20 0 21 0;
#X connect 21 0 28 0;
#X connect 22 0 23 0;
#X connect 23 0 20 0;
#X connect 23 1 21 1;
#X connect 24 0 27 0;
#X connect 25 0 26 1;
#X connect 26 0 24 1;
#X connect 27 0 29 0;
#X connect 28 0 30 0;
#X connect 29 0 16 1;
#X connect 30 0 14 0;
#X connect 31 0 33 0;
#X connect 31 1 34 0;
#X connect 32 0 31 0;
#X connect 33 0 34 0;
#X connect 34 0 30 0;
#X connect 34 1 30 1;
#X connect 35 0 27 0;
#X connect 35 1 27 1;
#X connect 36 0 35 0;
#X connect 37 0 28 0;
#X connect 37 1 28 1;
#X connect 38 0 37 0;
#X connect 39 0 24 0;
#X restore 330 76 pd read-windows;
#X obj 198 607 tabsend~ \$0-prev-imag;
#X obj 197 631 tabsend~ \$0-prev-real;
#X obj 98 18 tabreceive~ \$0-prev-imag;
#X obj 19 -2 tabreceive~ \$0-prev-real;
#X obj 519 27 r \$0-window-size;
#X obj 330 12 inlet~ transpo;
#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 53 649 pd normalize;
#X obj 542 51 r \$0-overlap;
#X obj 542 72 t b f;
#X msg 519 125 set \$1 \$2;
#X obj 519 99 pack 2048 4;
#X obj 117 119 rsqrt~;
#X obj 34 432 rsqrt~;
#X obj 519 308 table \$0-prev-real 1024;
#X obj 519 332 table \$0-prev-imag 1024;
#X obj 525 187 r \$0-window-size;
#X obj 525 208 / 2;
#X msg 525 229 resize \$1;
#X obj 558 250 s \$0-prev-real;
#X obj 559 270 s \$0-prev-imag;
#X obj 284 12 inlet~;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 15 0;
#X connect 2 0 40 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 15 1;
#X connect 5 0 39 0;
#X connect 6 0 19 1;
#X connect 7 0 19 0;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 33 0;
#X connect 10 0 32 0;
#X connect 10 0 36 0;
#X connect 11 0 18 1;
#X connect 12 0 16 0;
#X connect 13 0 1 1;
#X connect 13 0 3 1;
#X connect 13 1 0 1;
#X connect 13 1 4 1;
#X connect 14 0 9 1;
#X connect 14 0 7 1;
#X connect 14 1 6 1;
#X connect 14 1 8 1;
#X connect 15 0 24 0;
#X connect 17 0 18 0;
#X connect 18 0 51 0;
#X connect 19 0 34 0;
#X connect 19 0 35 0;
#X connect 19 0 37 0;
#X connect 20 0 1 0;
#X connect 20 0 4 0;
#X connect 21 0 0 0;
#X connect 21 0 3 0;
#X connect 23 0 17 1;
#X connect 23 0 17 0;
#X connect 23 0 20 0;
#X connect 24 0 12 0;
#X connect 25 0 24 1;
#X connect 26 0 28 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 50 0;
#X connect 30 0 8 0;
#X connect 30 0 7 0;
#X connect 31 0 9 0;
#X connect 31 0 6 0;
#X connect 32 0 36 1;
#X connect 33 0 36 1;
#X connect 34 0 37 1;
#X connect 35 0 37 1;
#X connect 36 0 23 0;
#X connect 37 0 11 0;
#X connect 37 0 11 1;
#X connect 37 0 21 0;
#X connect 38 0 14 0;
#X connect 38 1 13 0;
#X connect 41 0 26 1;
#X connect 41 0 26 0;
#X connect 41 0 30 0;
#X connect 42 0 27 1;
#X connect 42 0 27 0;
#X connect 42 0 31 0;
#X connect 43 0 49 0;
#X connect 44 0 38 0;
#X connect 45 0 12 1;
#X connect 46 0 47 0;
#X connect 47 0 49 0;
#X connect 47 1 49 1;
#X connect 48 0 22 0;
#X connect 49 0 48 0;
#X connect 50 0 30 1;
#X connect 50 0 31 1;
#X connect 51 0 20 1;
#X connect 51 0 21 1;
#X connect 54 0 55 0;
#X connect 55 0 56 0;
#X connect 56 0 57 0;
#X connect 56 0 58 0;
#X restore 467 217 pd fft;
#X obj 103 115 hsl 130 15 -1200 1200 0 0 \$0-gui \$0-guir Transposition(cents)
3 8 2 10 -233017 -1 -1 6450 1;
#X obj 276 115 hsl 2 8 0 1 0 0 \$0-gui \$0-guir empty 3 8 2 10 -233017
-228856 -1 0 1;
#X obj 235 115 nbx 5 15 -1e+09 1e+12 0 0 \$0-transpo \$0-transpor empty
0 -8 2 10 -228856 -1 -1 0 256;
#X msg 128 179 set \$1;
#X msg 64 71 0;
#X obj 128 158 i;
#X obj 64 50 loadbang;
#N canvas 3 57 450 300 stuff 0;
#X obj 135 55 loadbang;
#X obj 136 195 pack \$0 1024 4;
#X obj 135 77 t b b b;
#X obj 178 107 f \$1;
#X obj 221 107 f \$2;
#X obj 178 129 sel 0;
#X obj 229 131 sel 0;
#X msg 136 218 \; \$1-overlap \$3 \; \$1-window-size \$2 \;;
#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-pitchshift-st~;
#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 175 156 pd blocksize;
#X connect 0 0 2 0;
#X connect 1 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 3 0;
#X connect 2 2 4 0;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 1 8 0;
#X connect 6 1 1 2;
#X connect 8 0 1 1;
#X restore 799 176 pd stuff;
#X obj 101 216 s \$0-transpo;
#X msg 213 150 set \$1;
#N canvas 144 395 450 300 delwrite 0;
#X obj 170 41 inlet~;
#X obj 170 183 outlet~;
#X obj 169 143 delwrite~ \$0-input 3000;
#X connect 0 0 2 0;
#X restore 468 138 pd delwrite;
#X obj 566 114 inlet~;
#N canvas 144 395 450 300 delwrite 0;
#X obj 170 41 inlet~;
#X obj 170 183 outlet~;
#X obj 171 126 delwrite~ \$0-input-r 1000;
#X connect 0 0 2 0;
#X restore 566 138 pd delwrite;
#N canvas 550 66 717 699 fft 0;
#X obj 63 538 *~;
#X obj 18 532 *~;
#X obj 18 554 -~;
#X obj 231 535 *~;
#X obj 177 536 *~;
#X obj 197 561 +~;
#X obj 121 194 *~;
#X obj 89 197 *~;
#X obj 50 193 *~;
#X obj 19 193 *~;
#X obj 19 218 +~;
#X obj 64 386 *~;
#X obj 20 649 *~;
#X obj 246 468 rfft~;
#X obj 108 161 rfft~;
#X obj 19 591 rifft~;
#X obj 21 673 outlet~;
#X obj 34 386 *~;
#X obj 34 408 +~;
#X obj 124 218 -~;
#X obj 19 480 *~;
#X obj 63 476 *~;
#X obj 519 150 block~;
#X obj 19 349 +~ 1e-15;
#X obj 19 625 *~;
#X obj 52 625 tabreceive~ \$0-hann;
#X obj 149 60 *~;
#X obj 117 60 *~;
#X obj 117 80 +~;
#X obj 117 99 +~ 1e-20;
#X obj 78 148 *~;
#X obj 19 147 *~;
#X obj 48 242 lrshift~ 1;
#X obj 34 261 lrshift~ -1;
#X obj 157 241 lrshift~ 1;
#X obj 142 260 lrshift~ -1;
#X obj 19 312 +~;
#X obj 125 318 +~;
#N canvas 723 71 577 694 read-windows 0;
#X obj 20 542 outlet~;
#X obj 129 547 outlet~;
#X obj 168 484 tabreceive~ \$0-hann;
#X obj 20 511 *~;
#X obj 128 519 *~;
#X obj 247 91 bang~;
#X obj 247 127 snapshot~;
#X obj 310 91 inlet~ transpo;
#N canvas 779 315 280 168 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 247 171 pd cents;
#X obj 276 149 r \$0-transpo;
#X obj 247 148 +;
#N canvas 698 347 525 300 del 0;
#X obj 181 70 inlet~;
#X obj 182 140 outlet~;
#X obj 288 28 r \$0-window-size;
#X msg 328 167 set \$1;
#X obj 328 187 block~ 256;
#X obj 328 115 / 4;
#X obj 381 71 t b f;
#X floatatom 343 138 5 0 0 0 - - -;
#X obj 381 50 r \$0-overlap;
#X obj 181 89 delwrite~ \$0-back-r 500;
#X obj 182 119 delread~ \$0-back-r;
#X connect 0 0 9 0;
#X connect 2 0 5 0;
#X connect 3 0 4 0;
#X connect 5 0 3 0;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 6 1 5 1;
#X connect 8 0 6 0;
#X connect 10 0 1 0;
#X restore 21 474 pd del;
#X obj 174 351 bang~;
#X obj 126 371 phasor~;
#X msg 174 370 0;
#X obj 128 400 *~;
#X obj 291 288 samplerate~;
#X obj 262 269 t f b;
#X obj 262 248 r \$0-window-size;
#X obj 66 271 samplerate~;
#X obj 66 292 /;
#X obj 66 229 r \$0-window-size;
#X obj 66 250 t b f;
#X obj 247 358 *;
#X obj 291 309 / 1000;
#X obj 262 331 / 44.1;
#X obj 247 379 / 4;
#X obj 66 314 * 4;
#X obj 247 401 abs;
#X obj 126 346 * 1;
#X obj 186 248 sel 0;
#X obj 185 227 < 0;
#X obj 196 274 f -1;
#X obj 196 295 t b f;
#X obj 318 348 t b f;
#X obj 318 327 r \$0-overlap;
#X obj 107 310 t b f;
#X obj 107 289 r \$0-overlap;
#X obj 247 191 - 1;
#X obj 128 443 vd~ \$0-input-r;
#X connect 2 0 4 1;
#X connect 2 0 3 1;
#X connect 3 0 0 0;
#X connect 4 0 1 0;
#X connect 5 0 6 0;
#X connect 6 0 10 0;
#X connect 7 0 6 0;
#X connect 8 0 38 0;
#X connect 9 0 10 1;
#X connect 10 0 8 0;
#X connect 10 0 31 0;
#X connect 11 0 3 0;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 13 1;
#X connect 15 0 39 0;
#X connect 16 0 24 0;
#X connect 17 0 25 0;
#X connect 17 1 16 0;
#X connect 18 0 17 0;
#X connect 19 0 20 0;
#X connect 20 0 27 0;
#X connect 21 0 22 0;
#X connect 22 0 19 0;
#X connect 22 1 20 1;
#X connect 23 0 26 0;
#X connect 24 0 25 1;
#X connect 25 0 23 1;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 15 1;
#X connect 29 0 13 0;
#X connect 30 0 32 0;
#X connect 30 1 33 0;
#X connect 31 0 30 0;
#X connect 32 0 33 0;
#X connect 33 0 29 0;
#X connect 33 1 29 1;
#X connect 34 0 26 0;
#X connect 34 1 26 1;
#X connect 35 0 34 0;
#X connect 36 0 27 0;
#X connect 36 1 27 1;
#X connect 37 0 36 0;
#X connect 38 0 23 0;
#X connect 39 0 11 0;
#X connect 39 0 4 0;
#X restore 330 76 pd read-windows;
#X obj 519 27 r \$0-window-size;
#X obj 330 12 inlet~ transpo;
#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 53 649 pd normalize;
#X obj 542 51 r \$0-overlap;
#X obj 542 72 t b f;
#X msg 519 125 set \$1 \$2;
#X obj 519 99 pack 2048 4;
#X obj 117 119 rsqrt~;
#X obj 34 432 rsqrt~;
#X obj 525 187 r \$0-window-size;
#X obj 525 208 / 2;
#X msg 525 229 resize \$1;
#X obj 284 12 inlet~;
#X obj 198 607 tabsend~ \$0-prev-imag-r;
#X obj 197 631 tabsend~ \$0-prev-real-r;
#X obj 98 18 tabreceive~ \$0-prev-imag-r;
#X obj 19 -2 tabreceive~ \$0-prev-real-r;
#X obj 519 308 table \$0-prev-real-r 1024;
#X obj 519 331 table \$0-prev-imag-r 1024;
#X obj 558 250 s \$0-prev-real-r;
#X obj 559 270 s \$0-prev-imag-r;
#X connect 0 0 2 1;
#X connect 1 0 2 0;
#X connect 2 0 15 0;
#X connect 2 0 53 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 15 1;
#X connect 5 0 52 0;
#X connect 6 0 19 1;
#X connect 7 0 19 0;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 33 0;
#X connect 10 0 32 0;
#X connect 10 0 36 0;
#X connect 11 0 18 1;
#X connect 12 0 16 0;
#X connect 13 0 1 1;
#X connect 13 0 3 1;
#X connect 13 1 0 1;
#X connect 13 1 4 1;
#X connect 14 0 9 1;
#X connect 14 0 7 1;
#X connect 14 1 6 1;
#X connect 14 1 8 1;
#X connect 15 0 24 0;
#X connect 17 0 18 0;
#X connect 18 0 47 0;
#X connect 19 0 34 0;
#X connect 19 0 35 0;
#X connect 19 0 37 0;
#X connect 20 0 1 0;
#X connect 20 0 4 0;
#X connect 21 0 0 0;
#X connect 21 0 3 0;
#X connect 23 0 17 1;
#X connect 23 0 17 0;
#X connect 23 0 20 0;
#X connect 24 0 12 0;
#X connect 25 0 24 1;
#X connect 26 0 28 1;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 46 0;
#X connect 30 0 8 0;
#X connect 30 0 7 0;
#X connect 31 0 9 0;
#X connect 31 0 6 0;
#X connect 32 0 36 1;
#X connect 33 0 36 1;
#X connect 34 0 37 1;
#X connect 35 0 37 1;
#X connect 36 0 23 0;
#X connect 37 0 11 0;
#X connect 37 0 11 1;
#X connect 37 0 21 0;
#X connect 38 0 14 0;
#X connect 38 1 13 0;
#X connect 39 0 45 0;
#X connect 40 0 38 0;
#X connect 41 0 12 1;
#X connect 42 0 43 0;
#X connect 43 0 45 0;
#X connect 43 1 45 1;
#X connect 44 0 22 0;
#X connect 45 0 44 0;
#X connect 46 0 30 1;
#X connect 46 0 31 1;
#X connect 47 0 20 1;
#X connect 47 0 21 1;
#X connect 48 0 49 0;
#X connect 49 0 50 0;
#X connect 50 0 58 0;
#X connect 50 0 59 0;
#X connect 54 0 26 1;
#X connect 54 0 26 0;
#X connect 54 0 30 0;
#X connect 55 0 27 1;
#X connect 55 0 27 0;
#X connect 55 0 31 0;
#X restore 565 213 pd fft;
#X obj 564 257 outlet~;
#X text 729 343 philipp schmalfuß \, 2018;
#N canvas 3 54 450 460 outlet-message 0;
#X obj 165 332 list trim;
#X msg 85 330 addcomma;
#X msg 64 176 set;
#X obj 165 309 list prepend add2;
#X obj 165 417 outlet;
#X obj 96 119 pack f f f;
#X obj 158 32 t b f;
#X obj 262 28 t b f;
#X obj 158 4 r \$0-window-size;
#X obj 264 5 r \$0-overlap;
#X obj 79 4 r \$0-transpo;
#X msg 115 186 transposition \$1 \, blocksize \$2 \, overlap \$3;
#X obj 96 146 t b a b;
#X obj 96 96 f;
#X obj 79 26 t b f;
#X obj 96 72 del 0;
#X obj 115 218 t b a a;
#N canvas 497 319 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 158 245 pd save;
#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 12 0;
#X connect 6 0 15 0;
#X connect 6 1 5 1;
#X connect 7 0 15 0;
#X connect 7 1 5 2;
#X connect 8 0 6 0;
#X connect 9 0 7 0;
#X connect 10 0 14 0;
#X connect 11 0 16 0;
#X connect 12 0 4 0;
#X connect 12 1 11 0;
#X connect 12 2 2 0;
#X connect 13 0 5 0;
#X connect 14 0 15 0;
#X connect 14 1 13 1;
#X connect 15 0 13 0;
#X connect 16 0 1 0;
#X connect 16 1 3 0;
#X connect 16 2 17 0;
#X restore 798 239 pd outlet-message;
#X obj 798 271 outlet;
#X obj 804 110 inlet;
#N canvas 3 57 472 553 in 0;
#X obj 153 57 inlet;
#X obj 153 234 s \$0-window-size;
#X obj 226 258 s \$0-overlap;
#X obj 153 151 route blocksize overlap transposition;
#X obj 299 174 s \$0-transpor;
#X obj 153 194 change;
#X obj 226 201 change;
#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-pitchshift-st~;
#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 154 215 pd blocksize;
#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 174 92 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 239 115 pd recall;
#X connect 0 0 3 0;
#X connect 0 0 8 0;
#X connect 3 0 5 0;
#X connect 3 1 6 0;
#X connect 3 2 4 0;
#X connect 5 0 7 0;
#X connect 6 0 2 0;
#X connect 7 0 1 0;
#X connect 9 0 3 0;
#X restore 804 133 pd in;
#X connect 0 0 15 0;
#X connect 3 0 4 1;
#X connect 3 0 18 1;
#X connect 4 0 1 0;
#X connect 5 0 10 0;
#X connect 7 0 14 0;
#X connect 8 0 7 0;
#X connect 9 0 5 0;
#X connect 10 0 8 0;
#X connect 10 0 13 0;
#X connect 11 0 9 0;
#X connect 14 0 5 0;
#X connect 15 0 4 0;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 21 0 22 0;
#X connect 23 0 24 0;
#X coords 0 -1 1 1 180 33 1 100 100;