diff options
Diffstat (limited to 'desiredata/doc/3.audio.examples/E06.exponential.pd')
| -rw-r--r-- | desiredata/doc/3.audio.examples/E06.exponential.pd | 335 |
1 files changed, 335 insertions, 0 deletions
diff --git a/desiredata/doc/3.audio.examples/E06.exponential.pd b/desiredata/doc/3.audio.examples/E06.exponential.pd new file mode 100644 index 00000000..02fe058b --- /dev/null +++ b/desiredata/doc/3.audio.examples/E06.exponential.pd @@ -0,0 +1,335 @@ +#N canvas 88 112 754 729 12; +#N canvas 0 0 450 300 graph1 0; +#X array E06-signal 882 float 0; +#X coords 0 1.02 882 -1.02 200 130 1; +#X restore 509 46 graph; +#X obj 14 265 hip~ 5; +#N canvas 0 0 450 300 graph1 0; +#X array E06-spectrum 128 float 0; +#X coords 0 4300 127 -40 257 130 1; +#X restore 463 222 graph; +#N canvas 45 83 558 569 fft 0; +#X obj 19 61 inlet~; +#X obj 208 212 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 193 164 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 floatatom 191 480 5 0 0 0 - - -; +#X obj 191 456 / 4096; +#X text 187 425 One bin is SR/4096:; +#X obj 191 502 s freq-step; +#X obj 208 295 tabwrite~ E06-spectrum; +#X obj 19 295 tabwrite~ E06-signal; +#X text 71 540 <-fundamental pitch; +#X obj 220 257 metro 500; +#X obj 220 234 inlet; +#X text 273 232 toggle to graph repeatedly; +#X text 262 212 bang to graph once; +#X connect 0 0 2 0; +#X connect 0 0 29 0; +#X connect 1 0 28 0; +#X connect 1 0 29 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 28 0; +#X connect 15 0 18 0; +#X connect 15 0 25 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 24 0 27 0; +#X connect 25 0 24 0; +#X connect 31 0 28 0; +#X connect 31 0 29 0; +#X connect 32 0 31 0; +#X restore 22 238 pd fft; +#X text 509 178 ---- 0.02 seconds ----; +#X obj 82 217 bng 18 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 14 293 output~; +#X text 499 708 updated for Pd version 0.37; +#X text 494 355 1; +#X text 528 355 2; +#X text 560 355 3; +#X text 592 355 4; +#X text 625 355 5; +#X text 655 355 6; +#X text 686 355 7; +#X text 462 355 0; +#X text 496 372 -- partial number --; +#X text 711 100 0; +#X obj 12 30 r fundamental; +#X obj 12 57 osc~; +#X text 573 26 WAVEFORM; +#X text 557 204 SPECTRUM; +#X text 723 338 0; +#X text 721 217 1; +#X text 722 276 0.5; +#X obj 82 238 tgl 18 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#N canvas 0 0 450 300 graph1 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 254 118 graph; +#N canvas 140 79 589 249 make-table 0; +#X obj 164 81 t b b; +#X obj 236 106 f; +#X obj 274 106 + 1; +#X msg 258 83 0; +#X obj 164 104 until; +#X obj 236 136 t f f; +#X obj 164 62 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X obj 104 164 expr exp(-($f1-1)/100); +#X obj 163 132 sel 999; +#X text 35 10 This patch computes a decaying exponential function \, +100 points per unit.; +#X obj 137 196 tabwrite E06-tab; +#X connect 0 0 4 0; +#X connect 0 1 3 0; +#X connect 1 0 2 0; +#X connect 1 0 5 0; +#X connect 1 0 8 0; +#X connect 2 0 1 1; +#X connect 3 0 1 1; +#X connect 4 0 1 0; +#X connect 5 0 7 0; +#X connect 5 1 10 1; +#X connect 6 0 0 0; +#X connect 7 0 10 0; +#X connect 8 0 4 1; +#X restore 302 258 pd make-table; +#X text 251 95 waveshaping function; +#X text 438 210 0; +#X text 437 114 1; +#X obj 12 168 +~ 1; +#X obj 12 146 *~ 100; +#X obj 12 83 +~ 1; +#X floatatom 68 53 5 0 200 0 - - -; +#X obj 68 96 pack 0 50; +#X obj 68 120 line~; +#X text 157 69 tenths; +#X obj 68 73 / 10; +#X obj 12 124 *~; +#X obj 13 190 tabread4~ E06-tab; +#X text 711 40 1; +#X text 712 160 -1; +#X text 103 237 <-- repeatedly; +#X text 104 217 <-- graph once; +#X text 121 0 Waveshaping using an exponential function; +#X text 120 53 <--index in; +#X text 250 218 0; +#X text 417 220 10; +#X text 14 652 When the index of modulation exceeds 5 we scan past +the right hand border of the table (the thousandth point \, corresponding +to exp(-10). This isn't a problem because the values are all close +to zero there.; +#X text 14 555 Table lookup is prepared as follows. First add one to +the sinusoid and adjust its amplitude according to index \; it ranges +from 0 to 2*index. Then adjust for the table's input scale (100 points +per unit \, so multiply by 100) and add one to skip the interpolation +point at the beginning of the table.; +#X text 13 398 Here we use an exponential function as a waveshaping +transfer function. The theory is shown in detail in the accompanying +book \, but in short \, we adjust the sinusoid so that \, as the index +increases \, we scan starting from the left of the transfer function +(previously the reading location grew from the center). The table contains +exp(-x) with x varying from 0 to 10 When the index is zero \, the output +is the constant 1 and the spectrum holds only DC. As the index grows +\, the output is a sequence of steadily narrower pulses \, whose spectrum +gets progressively fatter.; +#X connect 1 0 6 0; +#X connect 1 0 6 1; +#X connect 5 0 3 1; +#X connect 18 0 19 0; +#X connect 19 0 33 0; +#X connect 25 0 3 2; +#X connect 31 0 40 0; +#X connect 32 0 31 0; +#X connect 33 0 39 0; +#X connect 34 0 38 0; +#X connect 35 0 36 0; +#X connect 36 0 39 1; +#X connect 38 0 35 0; +#X connect 39 0 32 0; +#X connect 40 0 3 0; +#X connect 40 0 1 0; |