#N canvas 1 31 958 529 12; #N canvas 0 0 450 300 (subpatch) 0; #X array E02-signal 882 float 0; #X coords 0 2 882 -2 500 100 1; #X restore 407 63 graph; #X obj 15 370 hip~ 5; #N canvas 0 0 450 300 (subpatch) 0; #X array E02-spectrum 128 float 0; #X coords 0 4300 127 -40 257 130 1; #X restore 456 274 graph; #N canvas 1 31 558 569 fft 0; #X obj 19 61 inlet~; #X obj 95 214 inlet; #X obj 29 92 rfft~; #X obj 29 125 *~; #X obj 60 125 *~; #X obj 29 155 sqrt~; #X obj 332 109 block~ 4096 1; #X obj 29 181 biquad~ 0 0 0 0 1; #X text 93 93 Fourier series; #X text 98 146 magnitude; #X text 96 131 calculate; #X text 21 3 This subpatch computes the spectrum of the incoming signal with a (rectangular windowed) FFT. FFTs aren't properly introduced until much later.; #X text 83 61 signal to analyze; #X text 192 166 delay two samples; #X text 191 182 for better graphing; #X obj 16 425 samplerate~; #X obj 16 402 bng 18 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X floatatom 16 472 5 0 0 0 - - -; #X obj 16 448 / 256; #X obj 16 378 loadbang; #X floatatom 16 541 5 0 0 0 - - -; #X obj 24 494 s fundamental; #X obj 16 517 ftom; #X text 14 319 At load time \, calculate a good choice of fundamental frequency for showing spectra: the 16th bin in a 4096-point spectrum \, so SR*16/4096 or SR/256.; #X text 145 216 "bang" into this inlet to graph it; #X floatatom 191 480 5 0 0 0 - - -; #X obj 191 456 / 4096; #X text 187 425 One bin is SR/4096:; #X text 72 540 <-just out of curiosity \, here's the fundamental pitch ; #X obj 191 502 s freq-step; #X obj 95 248 tabwrite~ E02-spectrum; #X obj 20 281 tabwrite~ E02-signal; #X connect 0 0 2 0; #X connect 0 0 31 0; #X connect 1 0 30 0; #X connect 1 0 31 0; #X connect 2 0 3 0; #X connect 2 0 3 1; #X connect 2 1 4 0; #X connect 2 1 4 1; #X connect 3 0 5 0; #X connect 4 0 5 0; #X connect 5 0 7 0; #X connect 7 0 30 0; #X connect 15 0 18 0; #X connect 15 0 26 0; #X connect 16 0 15 0; #X connect 17 0 21 0; #X connect 17 0 22 0; #X connect 18 0 17 0; #X connect 19 0 16 0; #X connect 22 0 20 0; #X connect 25 0 29 0; #X connect 26 0 25 0; #X restore 68 373 pd fft; #X obj 92 443 bng 18 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 15 398 output~; #X floatatom 155 52 5 0 2500 0 - - -; #X obj 92 398 tgl 18 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X obj 92 420 metro 500; #X obj 155 111 phasor~; #X obj 14 220 cos~; #X obj 257 147 line~; #X floatatom 258 77 5 0 300 0 - - -; #X obj 258 124 pack 0 30; #X obj 12 196 *~; #X obj 54 156 cos~; #X obj 53 200 *~ -0.5; #X obj 53 224 +~ 0.5; #X obj 28 252 *~; #X obj 53 106 wrap~; #N canvas 0 0 450 300 (subpatch) 0; #X array E06-tab 1003 float 1; #A 0 1.01005 1 0.99005 0.980199 0.970446 0.960789 0.951229 0.941765 0.932394 0.923116 0.913931 0.904837 0.895834 0.88692 0.878095 0.869358 0.860708 0.852144 0.843665 0.83527 0.826959 0.818731 0.810584 0.802519 0.794534 0.786628 0.778801 0.771052 0.76338 0.755784 0.748264 0.740818 0.733447 0.726149 0.718924 0.71177 0.704688 0.697676 0.690734 0.683861 0.677057 0.67032 0.66365 0.657047 0.650509 0.644036 0.637628 0.631284 0.625002 0.618783 0.612626 0.606531 0.600496 0.594521 0.588605 0.582748 0.57695 0.571209 0.565525 0.559898 0.554327 0.548812 0.543351 0.537944 0.532592 0.527292 0.522046 0.516851 0.511709 0.506617 0.501576 0.496585 0.491644 0.486752 0.481909 0.477114 0.472367 0.467666 0.463013 0.458406 0.453845 0.449329 0.444858 0.440432 0.436049 0.431711 0.427415 0.423162 0.418952 0.414783 0.410656 0.40657 0.402524 0.398519 0.394554 0.390628 0.386741 0.382893 0.379083 0.375311 0.371577 0.367879 0.364219 0.360595 0.357007 0.353455 0.349938 0.346456 0.343008 0.339595 0.336216 0.332871 0.329559 0.32628 0.323033 0.319819 0.316637 0.313486 0.310367 0.307279 0.304221 0.301194 0.298197 0.29523 0.292293 0.289384 0.286505 0.283654 0.280832 0.278037 0.275271 0.272532 0.26982 0.267135 0.264477 0.261846 0.25924 0.256661 0.254107 0.251579 0.249075 0.246597 0.244143 0.241714 0.239309 0.236928 0.23457 0.232236 0.229925 0.227638 0.225373 0.22313 0.22091 0.218712 0.216536 0.214381 0.212248 0.210136 0.208045 0.205975 0.203926 0.201897 0.199888 0.197899 0.19593 0.19398 0.19205 0.190139 0.188247 0.186374 0.18452 0.182684 0.180866 0.179066 0.177284 0.17552 0.173774 0.172045 0.170333 0.168638 0.16696 0.165299 0.163654 0.162026 0.160414 0.158817 0.157237 0.155673 0.154124 0.15259 0.151072 0.149569 0.14808 0.146607 0.145148 0.143704 0.142274 0.140858 0.139457 0.138069 0.136695 0.135335 0.133989 0.132655 0.131336 0.130029 0.128735 0.127454 0.126186 0.12493 0.123687 0.122456 0.121238 0.120032 0.118837 0.117655 0.116484 0.115325 0.114178 0.113042 0.111917 0.110803 0.109701 0.108609 0.107528 0.106459 0.105399 0.10435 0.103312 0.102284 0.101266 0.100259 0.0992613 0.0982736 0.0972958 0.0963276 0.0953692 0.0944202 0.0934807 0.0925506 0.0916297 0.0907179 0.0898153 0.0889216 0.0880368 0.0871608 0.0862936 0.085435 0.0845849 0.0837432 0.08291 0.082085 0.0812682 0.0804596 0.079659 0.0788664 0.0780817 0.0773047 0.0765356 0.075774 0.07502 0.0742736 0.0735345 0.0728029 0.0720785 0.0713613 0.0706512 0.0699482 0.0692522 0.0685631 0.0678809 0.0672055 0.0665368 0.0658748 0.0652193 0.0645703 0.0639279 0.0632918 0.062662 0.0620385 0.0614212 0.0608101 0.060205 0.0596059 0.0590129 0.0584257 0.0578443 0.0572688 0.0566989 0.0561348 0.0555762 0.0550232 0.0544757 0.0539337 0.053397 0.0528657 0.0523397 0.0518189 0.0513033 0.0507928 0.0502874 0.0497871 0.0492917 0.0488012 0.0483156 0.0478349 0.0473589 0.0468877 0.0464212 0.0459593 0.045502 0.0450492 0.044601 0.0441572 0.0437178 0.0432828 0.0428521 0.0424257 0.0420036 0.0415857 0.0411719 0.0407622 0.0403566 0.0399551 0.0395575 0.0391639 0.0387742 0.0383884 0.0380064 0.0376283 0.0372538 0.0368832 0.0365162 0.0361528 0.0357931 0.035437 0.0350844 0.0347353 0.0343896 0.0340475 0.0337087 0.0333733 0.0330412 0.0327124 0.0323869 0.0320647 0.0317456 0.0314298 0.031117 0.0308074 0.0305009 0.0301974 0.0298969 0.0295994 0.0293049 0.0290133 0.0287246 0.0284388 0.0281559 0.0278757 0.0275983 0.0273237 0.0270518 0.0267827 0.0265162 0.0262523 0.0259911 0.0257325 0.0254765 0.025223 0.024972 0.0247235 0.0244775 0.024234 0.0239928 0.0237541 0.0235177 0.0232837 0.0230521 0.0228227 0.0225956 0.0223708 0.0221482 0.0219278 0.0217096 0.0214936 0.0212797 0.021068 0.0208584 0.0206508 0.0204453 0.0202419 0.0200405 0.0198411 0.0196437 0.0194482 0.0192547 0.0190631 0.0188734 0.0186856 0.0184997 0.0183156 0.0181334 0.017953 0.0177743 0.0175975 0.0174224 0.017249 0.0170774 0.0169075 0.0167392 0.0165727 0.0164078 0.0162445 0.0160829 0.0159229 0.0157644 0.0156076 0.0154523 0.0152985 0.0151463 0.0149956 0.0148464 0.0146986 0.0145524 0.0144076 0.0142642 0.0141223 0.0139818 0.0138427 0.0137049 0.0135686 0.0134336 0.0132999 0.0131675 0.0130365 0.0129068 0.0127784 0.0126512 0.0125254 0.0124007 0.0122773 0.0121552 0.0120342 0.0119145 0.0117959 0.0116786 0.0115624 0.0114473 0.0113334 0.0112206 0.011109 0.0109985 0.010889 0.0107807 0.0106734 0.0105672 0.0104621 0.010358 0.0102549 0.0101529 0.0100518 0.00995182 0.0098528 0.00975476 0.0096577 0.0095616 0.00946646 0.00937227 0.00927902 0.00918669 0.00909528 0.00900478 0.00891518 0.00882647 0.00873865 0.0086517 0.00856561 0.00848038 0.008396 0.00831246 0.00822975 0.00814786 0.00806679 0.00798652 0.00790705 0.00782838 0.00775048 0.00767337 0.00759701 0.00752142 0.00744658 0.00737249 0.00729913 0.0072265 0.0071546 0.00708341 0.00701293 0.00694315 0.00687406 0.00680567 0.00673795 0.0066709 0.00660453 0.00653881 0.00647375 0.00640933 0.00634556 0.00628242 0.00621991 0.00615802 0.00609675 0.00603608 0.00597602 0.00591656 0.00585769 0.0057994 0.0057417 0.00568457 0.00562801 0.00557201 0.00551657 0.00546167 0.00540733 0.00535353 0.00530026 0.00524752 0.0051953 0.00514361 0.00509243 0.00504176 0.00499159 0.00494193 0.00489275 0.00484407 0.00479587 0.00474815 0.00470091 0.00465413 0.00460782 0.00456197 0.00451658 0.00447164 0.00442715 0.0043831 0.00433948 0.00429631 0.00425356 0.00421123 0.00416933 0.00412785 0.00408677 0.00404611 0.00400585 0.00396599 0.00392653 0.00388746 0.00384878 0.00381048 0.00377257 0.00373503 0.00369786 0.00366107 0.00362464 0.00358857 0.00355287 0.00351752 0.00348252 0.00344786 0.00341356 0.00337959 0.00334597 0.00331267 0.00327971 0.00324708 0.00321477 0.00318278 0.00315111 0.00311976 0.00308871 0.00305798 0.00302755 0.00299743 0.0029676 0.00293808 0.00290884 0.0028799 0.00285124 0.00282287 0.00279478 0.00276698 0.00273944 0.00271219 0.0026852 0.00265848 0.00263203 0.00260584 0.00257991 0.00255424 0.00252883 0.00250366 0.00247875 0.00245409 0.00242967 0.00240549 0.00238156 0.00235786 0.0023344 0.00231117 0.00228818 0.00226541 0.00224287 0.00222055 0.00219846 0.00217658 0.00215492 0.00213348 0.00211225 0.00209124 0.00207043 0.00204983 0.00202943 0.00200924 0.00198925 0.00196945 0.00194986 0.00193045 0.00191125 0.00189223 0.0018734 0.00185476 0.0018363 0.00181803 0.00179994 0.00178203 0.0017643 0.00174675 0.00172937 0.00171216 0.00169512 0.00167826 0.00166156 0.00164502 0.00162866 0.00161245 0.00159641 0.00158052 0.0015648 0.00154923 0.00153381 0.00151855 0.00150344 0.00148848 0.00147367 0.00145901 0.00144449 0.00143012 0.00141589 0.0014018 0.00138785 0.00137404 0.00136037 0.00134683 0.00133343 0.00132016 0.00130703 0.00129402 0.00128115 0.0012684 0.00125578 0.00124328 0.00123091 0.00121866 0.00120654 0.00119453 0.00118265 0.00117088 0.00115923 0.00114769 0.00113627 0.00112497 0.00111377 0.00110269 0.00109172 0.00108086 0.0010701 0.00105946 0.00104891 0.00103848 0.00102814 0.00101791 0.00100779 0.000997758 0.00098783 0.000978001 0.00096827 0.000958635 0.000949097 0.000939653 0.000930303 0.000921047 0.000911882 0.000902808 0.000893825 0.000884932 0.000876127 0.000867409 0.000858778 0.000850233 0.000841773 0.000833397 0.000825105 0.000816895 0.000808767 0.000800719 0.000792752 0.000784864 0.000777055 0.000769323 0.000761668 0.000754089 0.000746586 0.000739157 0.000731803 0.000724521 0.000717312 0.000710174 0.000703108 0.000696112 0.000689185 0.000682328 0.000675539 0.000668817 0.000662162 0.000655574 0.00064905 0.000642592 0.000636198 0.000629868 0.000623601 0.000617396 0.000611253 0.000605171 0.000599149 0.000593188 0.000587285 0.000581442 0.000575656 0.000569928 0.000564257 0.000558643 0.000553084 0.000547581 0.000542133 0.000536738 0.000531398 0.00052611 0.000520875 0.000515692 0.000510561 0.000505481 0.000500451 0.000495472 0.000490542 0.000485661 0.000480829 0.000476044 0.000471307 0.000466618 0.000461975 0.000457378 0.000452827 0.000448321 0.000443861 0.000439444 0.000435072 0.000430743 0.000426456 0.000422213 0.000418012 0.000413853 0.000409735 0.000405658 0.000401622 0.000397626 0.000393669 0.000389752 0.000385874 0.000382034 0.000378233 0.00037447 0.000370744 0.000367055 0.000363402 0.000359786 0.000356206 0.000352662 0.000349153 0.000345679 0.000342239 0.000338834 0.000335463 0.000332125 0.00032882 0.000325548 0.000322309 0.000319102 0.000315927 0.000312783 0.000309671 0.00030659 0.000303539 0.000300519 0.000297529 0.000294568 0.000291637 0.000288735 0.000285862 0.000283018 0.000280202 0.000277414 0.000274654 0.000271921 0.000269215 0.000266536 0.000263884 0.000261259 0.000258659 0.000256085 0.000253537 0.000251014 0.000248517 0.000246044 0.000243596 0.000241172 0.000238772 0.000236396 0.000234044 0.000231716 0.00022941 0.000227127 0.000224867 0.00022263 0.000220415 0.000218221 0.00021605 0.0002139 0.000211772 0.000209665 0.000207579 0.000205513 0.000203468 0.000201444 0.000199439 0.000197455 0.00019549 0.000193545 0.000191619 0.000189713 0.000187825 0.000185956 0.000184106 0.000182274 0.00018046 0.000178665 0.000176887 0.000175127 0.000173384 0.000171659 0.000169951 0.00016826 0.000166586 0.000164928 0.000163287 0.000161663 0.000160054 0.000158461 0.000156885 0.000155324 0.000153778 0.000152248 0.000150733 0.000149233 0.000147748 0.000146278 0.000144823 0.000143382 0.000141955 0.000140543 0.000139144 0.00013776 0.000136389 0.000135032 0.000133688 0.000132358 0.000131041 0.000129737 0.000128446 0.000127168 0.000125903 0.00012465 0.00012341 0.000122182 0.000120966 0.000119763 0.000118571 0.000117391 0.000116223 0.000115067 0.000113922 0.000112788 0.000111666 0.000110555 0.000109455 0.000108366 0.000107287 0.00010622 0.000105163 0.000104117 0.00010308 0.000102055 0.000101039 0.000100034 9.90387e-05 9.80533e-05 9.70776e-05 9.61117e-05 9.51553e-05 9.42085e-05 9.32711e-05 9.23431e-05 9.14242e-05 9.05145e-05 8.96139e-05 8.87222e-05 8.78394e-05 8.69654e-05 8.61001e-05 8.52434e-05 8.43952e-05 8.35554e-05 8.27241e-05 8.1901e-05 8.1086e-05 8.02792e-05 7.94804e-05 7.86896e-05 7.79066e-05 7.71314e-05 7.6364e-05 7.56041e-05 7.48518e-05 7.4107e-05 7.33696e-05 7.26396e-05 7.19169e-05 7.12012e-05 7.04928e-05 6.97914e-05 6.9097e-05 6.84094e-05 6.77287e-05 6.70548e-05 6.63876e-05 6.5727e-05 6.5073e-05 6.44256e-05 6.37845e-05 6.31498e-05 6.25215e-05 6.18994e-05 6.12835e-05 6.06737e-05 6.007e-05 5.94723e-05 5.88805e-05 5.82947e-05 5.77146e-05 5.71403e-05 5.65718e-05 5.60089e-05 5.54516e-05 5.48998e-05 5.43536e-05 5.38128e-05 5.32773e-05 5.27472e-05 5.22224e-05 5.17027e-05 5.11883e-05 5.06789e-05 5.01747e-05 4.96754e-05 4.91812e-05 4.86918e-05 4.82073e-05 4.77276e-05 4.72527e-05 4.67826e-05 4.63171e-05; #A 1000 0 0 0; #X coords 0 1 1002 0 180 100 1; #X restore 741 298 graph; #X obj 257 339 +~ 1; #X obj 257 317 *~ 100; #X floatatom 324 251 5 0 200 0 - - -; #X obj 324 294 pack 0 50; #X obj 324 318 line~; #X obj 324 271 / 10; #X obj 257 295 *~; #X obj 258 361 tabread4~ E06-tab; #X obj 116 227 cos~; #X obj 114 203 *~; #X obj 156 157 cos~; #X obj 155 207 *~ -0.5; #X obj 155 231 +~ 0.5; #X obj 130 259 *~; #X obj 257 268 +~ 1; #X obj 257 241 cos~; #X obj 257 191 *~ 2; #X obj 44 307 *~; #X obj 258 98 / 10; #X obj 6 156 -~ 0.5; #X obj 107 156 -~ 0.5; #X obj 44 283 +~; #X obj 155 86 *~ 0.5; #X obj 256 217 +~ 0.5; #X text 93 6 Wave packet formant generator \, fixed; #X text 335 203 The fix is to change the phase of the pulse generator by 1/2 cycle; #X text 309 218 <--; #X text 197 51 frequency; #X text 304 71 center; #X text 303 84 frequency; #X text 365 250 bandwidth; #X connect 1 0 5 0; #X connect 1 0 5 1; #X connect 4 0 3 1; #X connect 6 0 43 0; #X connect 7 0 8 0; #X connect 8 0 4 0; #X connect 9 0 37 0; #X connect 9 0 31 0; #X connect 9 0 41 0; #X connect 10 0 18 0; #X connect 11 0 14 1; #X connect 11 0 30 1; #X connect 12 0 39 0; #X connect 13 0 11 0; #X connect 14 0 10 0; #X connect 15 0 16 0; #X connect 16 0 17 0; #X connect 17 0 18 1; #X connect 18 0 42 0; #X connect 19 0 15 0; #X connect 19 0 40 0; #X connect 21 0 28 0; #X connect 22 0 21 0; #X connect 23 0 26 0; #X connect 24 0 25 0; #X connect 25 0 27 1; #X connect 26 0 24 0; #X connect 27 0 22 0; #X connect 28 0 38 1; #X connect 29 0 34 0; #X connect 30 0 29 0; #X connect 31 0 32 0; #X connect 32 0 33 0; #X connect 33 0 34 1; #X connect 34 0 42 1; #X connect 35 0 27 0; #X connect 36 0 35 0; #X connect 37 0 44 0; #X connect 38 0 3 0; #X connect 38 0 1 0; #X connect 39 0 13 0; #X connect 40 0 14 0; #X connect 41 0 30 0; #X connect 41 0 19 0; #X connect 42 0 38 0; #X connect 43 0 9 0; #X connect 44 0 36 0;