From 57045df5fe3ec557e57dc7434ac1a07b5521bffc Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Mon, 29 Jul 2002 17:06:19 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r58, which included commits to RCS files with non-trunk default branches. svn path=/trunk/; revision=59 --- pd/doc/3.audio.examples/57.delay.reverb.pd | 316 +++++++++++++++++++++++++++++ 1 file changed, 316 insertions(+) create mode 100644 pd/doc/3.audio.examples/57.delay.reverb.pd (limited to 'pd/doc/3.audio.examples/57.delay.reverb.pd') diff --git a/pd/doc/3.audio.examples/57.delay.reverb.pd b/pd/doc/3.audio.examples/57.delay.reverb.pd new file mode 100644 index 00000000..aad17023 --- /dev/null +++ b/pd/doc/3.audio.examples/57.delay.reverb.pd @@ -0,0 +1,316 @@ +#N canvas 127 171 643 406 12; +#N canvas 0 0 499 321 test-input 0; +#X obj 75 253 outlet~; +#X obj 74 201 -~; +#X obj 74 177 *~ 3; +#X obj 111 183 *~ 2; +#X floatatom 74 81 0 0 0; +#X obj 74 153 clip~ 0 0.667; +#X text 124 80 <-- pitch; +#X obj 74 105 mtof; +#X msg 195 142 1; +#X obj 74 225 *~; +#X obj 74 129 phasor~ 0; +#X obj 195 190 tabread4~ dbtorms; +#X obj 195 166 adsr 100 100 2000 0 2000; +#X obj 73 54 inlet; +#N canvas 0 0 600 392 conversion-tables 0; +#N canvas 0 0 450 300 graph1 0; +#X array dbtorms 123 float 1; +#A 0 0 0 1.25893e-05 1.41254e-05 1.58489e-05 1.77828e-05 1.99526e-05 +2.23872e-05 2.51189e-05 2.81838e-05 3.16228e-05 3.54813e-05 3.98107e-05 +4.46684e-05 5.01187e-05 5.62341e-05 6.30957e-05 7.07946e-05 7.94328e-05 +8.91251e-05 1e-04 0.000112202 0.000125893 0.000141254 0.000158489 0.000177828 +0.000199526 0.000223872 0.000251189 0.000281838 0.000316228 0.000354813 +0.000398107 0.000446684 0.000501187 0.000562341 0.000630957 0.000707946 +0.000794328 0.000891251 0.001 0.00112202 0.00125893 0.00141254 0.00158489 +0.00177828 0.00199526 0.00223872 0.00251189 0.00281838 0.00316228 0.00354813 +0.00398107 0.00446684 0.00501187 0.00562341 0.00630957 0.00707946 0.00794328 +0.00891251 0.01 0.0112202 0.0125893 0.0141254 0.0158489 0.0177828 0.0199526 +0.0223872 0.0251189 0.0281838 0.0316228 0.0354813 0.0398107 0.0446684 +0.0501187 0.0562341 0.0630957 0.0707946 0.0794328 0.0891251 0.1 0.112202 +0.125893 0.141254 0.158489 0.177828 0.199526 0.223872 0.251189 0.281838 +0.316228 0.354813 0.398107 0.446684 0.501187 0.562341 0.630957 0.707946 +0.794328 0.891251 1 1.12202 1.25893 1.41254 1.58489 1.77828 1.99526 +2.23872 2.51189 2.81838 3.16228 3.54813 3.98107 4.46684 5.01187 5.62341 +6.30957 7.07946 7.94328 8.91251 10 11.2202 12.5893; +#X coords 0 10 123 0 200 100 1; +#X restore 70 45 graph; +#X text 272 138 0; +#X text 274 38 10; +#X text 89 148 ------ 123 samples ------; +#N canvas 0 0 450 300 graph2 0; +#X array mtof 130 float 1; +#A 0 8.1758 8.66196 9.17702 9.72272 10.3009 10.9134 11.5623 12.2499 +12.9783 13.75 14.5676 15.4339 16.3516 17.3239 18.354 19.4454 20.6017 +21.8268 23.1247 24.4997 25.9565 27.5 29.1352 30.8677 32.7032 34.6478 +36.7081 38.8909 41.2034 43.6535 46.2493 48.9994 51.9131 55 58.2705 +61.7354 65.4064 69.2957 73.4162 77.7817 82.4069 87.3071 92.4986 97.9989 +103.826 110 116.541 123.471 130.813 138.591 146.832 155.563 164.814 +174.614 184.997 195.998 207.652 220 233.082 246.942 261.626 277.183 +293.665 311.127 329.628 349.228 369.994 391.995 415.305 440 466.164 +493.883 523.251 554.365 587.33 622.254 659.255 698.456 739.989 783.991 +830.609 880 932.328 987.767 1046.5 1108.73 1174.66 1244.51 1318.51 +1396.91 1479.98 1567.98 1661.22 1760 1864.66 1975.53 2093 2217.46 2349.32 +2489.02 2637.02 2793.83 2959.96 3135.96 3322.44 3520 3729.31 3951.07 +4186.01 4434.92 4698.64 4978.03 5274.04 5587.65 5919.91 6271.93 6644.88 +7040 7458.62 7902.13 8372.02 8869.84 9397.27 9956.06 10548.1 11175.3 +11839.8 12543.9 13289.8 14080; +#X coords 0 12000 130 0 200 100 1; +#X restore 77 222 graph; +#X text 87 330 ------ 130 samples ------; +#X text 286 315 0; +#X text 288 215 12000; +#N canvas 244 212 672 338 regenerate-tables 0; +#X msg 415 84 bang; +#X obj 415 113 t b b; +#X obj 474 177 f; +#X obj 512 177 + 1; +#X msg 483 147 0; +#X obj 415 142 until; +#X obj 474 211 t f f; +#X obj 414 238 mtof; +#X obj 405 202 sel 129; +#X obj 413 264 tabwrite mtof; +#X obj 35 227 moses 2; +#X msg 19 76 bang; +#X obj 19 105 t b b; +#X obj 90 166 f; +#X obj 128 166 + 1; +#X msg 112 138 0; +#X obj 19 134 until; +#X obj 11 194 sel 122; +#X msg 35 258 0; +#X obj 79 259 dbtorms; +#X obj 90 194 t f f; +#X obj 35 291 tabwrite dbtorms; +#X text 18 49 bang to recalculate dbtorms table; +#X text 356 50 bang to recalculate the mtof table; +#X connect 0 0 1 0; +#X connect 1 0 5 0; +#X connect 1 1 4 0; +#X connect 2 0 3 0; +#X connect 2 0 6 0; +#X connect 2 0 8 0; +#X connect 3 0 2 1; +#X connect 4 0 2 1; +#X connect 5 0 2 0; +#X connect 6 0 7 0; +#X connect 6 1 9 1; +#X connect 7 0 9 0; +#X connect 8 0 5 1; +#X connect 10 0 18 0; +#X connect 10 1 19 0; +#X connect 11 0 12 0; +#X connect 12 0 16 0; +#X connect 12 1 15 0; +#X connect 13 0 14 0; +#X connect 13 0 17 0; +#X connect 13 0 20 0; +#X connect 14 0 13 1; +#X connect 15 0 13 1; +#X connect 16 0 13 0; +#X connect 17 0 16 1; +#X connect 18 0 21 0; +#X connect 19 0 21 0; +#X connect 20 0 10 0; +#X connect 20 1 21 1; +#X restore 375 76 pd regenerate-tables; +#X restore 260 101 pd conversion-tables; +#X connect 1 0 9 0; +#X connect 2 0 1 0; +#X connect 3 0 1 1; +#X connect 4 0 7 0; +#X connect 4 0 8 0; +#X connect 5 0 2 0; +#X connect 7 0 10 0; +#X connect 8 0 12 0; +#X connect 9 0 0 0; +#X connect 10 0 3 0; +#X connect 10 0 5 0; +#X connect 11 0 9 1; +#X connect 12 0 11 0; +#X connect 13 0 4 0; +#X restore 75 129 pd test-input; +#X text 328 322 updated for Pd version 0.26; +#X text 62 8 REVERBERATOR; +#X floatatom 75 100 0 0 0; +#X text 126 105 <-- pitch; +#X floatatom 137 219 0 0 0; +#N canvas 159 26 618 379 output 0; +#X obj 393 156 t b; +#X obj 393 106 f; +#X obj 393 56 inlet; +#X text 399 25 mute; +#X obj 393 181 f; +#X msg 480 174 0; +#X msg 393 81 bang; +#X obj 393 131 moses 1; +#X obj 480 149 t b f; +#X obj 452 113 moses 1; +#X obj 138 144 dbtorms; +#X obj 452 88 r master-lvl; +#X obj 138 38 r master-lvl; +#X obj 393 206 s master-lvl; +#X obj 22 140 inlet~; +#X obj 254 37 inlet; +#X text 254 14 level; +#X obj 254 96 s master-lvl; +#X msg 151 61 set \$1; +#X obj 151 85 outlet; +#X msg 269 60 \; pd dsp 1; +#X obj 138 190 line~; +#X obj 22 231 *~; +#X obj 138 167 pack 0 50; +#X text 34 118 audio; +#X text 148 106 show level; +#X obj 73 140 inlet~; +#X obj 73 232 *~; +#X obj 22 260 dac~ 1; +#X obj 73 260 dac~ 2; +#X obj 22 182 hip~ 5; +#X obj 73 181 hip~ 5; +#X connect 0 0 4 0; +#X connect 1 0 7 0; +#X connect 2 0 6 0; +#X connect 4 0 13 0; +#X connect 5 0 13 0; +#X connect 6 0 1 0; +#X connect 7 0 0 0; +#X connect 7 1 8 0; +#X connect 8 0 5 0; +#X connect 9 1 4 1; +#X connect 10 0 23 0; +#X connect 11 0 1 1; +#X connect 11 0 9 0; +#X connect 12 0 10 0; +#X connect 12 0 18 0; +#X connect 14 0 30 0; +#X connect 15 0 17 0; +#X connect 15 0 20 0; +#X connect 18 0 19 0; +#X connect 21 0 22 1; +#X connect 21 0 27 1; +#X connect 22 0 28 0; +#X connect 23 0 21 0; +#X connect 26 0 31 0; +#X connect 27 0 29 0; +#X connect 30 0 22 0; +#X connect 31 0 27 0; +#X restore 75 247 pd output; +#X msg 166 219 MUTE; +#X text 184 217 <-- output amplitude; +#N canvas 137 269 1056 577 reverb 0; +#X obj 77 37 inlet~; +#X obj 77 85 echo echo-del2 8.45346; +#X obj 77 61 echo echo-del1 5.43216; +#X obj 77 109 echo echo-del3 13.4367; +#X obj 77 133 echo echo-del4 21.5463; +#X obj 77 157 echo echo-del5 34.3876; +#X obj 77 181 echo echo-del6 55.5437; +#X obj 253 545 delwrite~ loop-del1 70; +#X obj 295 157 delread~ loop-del1 70; +#X obj 466 157 delread~ loop-del2 81.9345; +#X obj 416 545 delwrite~ loop-del2 81.9345; +#X obj 665 154 delread~ loop-del3 94.7545; +#X obj 855 154 delread~ loop-del4 115.945; +#X obj 622 545 delwrite~ loop-del3 94.7545; +#X obj 820 545 delwrite~ loop-del4 115.945; +#X obj 282 215 +~; +#X obj 443 215 +~; +#X obj 187 251 outlet~; +#X obj 364 244 outlet~; +#X obj 251 337 +~; +#X obj 619 328 +~; +#X obj 408 334 -~; +#X obj 791 327 -~; +#X obj 251 391 +~; +#X obj 411 397 +~; +#X obj 615 407 -~; +#X obj 785 388 -~; +#X obj 620 474 *~ 0; +#X obj 620 511 lop~ 5000; +#X obj 415 472 *~ 0; +#X obj 415 510 lop~ 5000; +#X obj 246 475 *~ 0; +#X obj 246 513 lop~ 5000; +#X obj 821 472 *~ 0; +#X obj 821 506 lop~ 5000; +#X obj 924 254 inlet; +#X obj 924 278 moses 100; +#X obj 926 325 moses -100; +#X msg 979 303 100; +#X msg 930 349 -100; +#X obj 934 386 / 200; +#X connect 0 0 2 0; +#X connect 1 0 3 0; +#X connect 1 1 3 1; +#X connect 2 0 1 0; +#X connect 2 1 1 1; +#X connect 3 0 4 0; +#X connect 3 1 4 1; +#X connect 4 0 5 0; +#X connect 4 1 5 1; +#X connect 5 0 6 0; +#X connect 5 1 6 1; +#X connect 6 0 15 0; +#X connect 6 1 16 0; +#X connect 8 0 15 1; +#X connect 9 0 16 1; +#X connect 11 0 19 1; +#X connect 11 0 21 1; +#X connect 12 0 20 1; +#X connect 12 0 22 1; +#X connect 15 0 17 0; +#X connect 15 0 19 0; +#X connect 15 0 21 0; +#X connect 16 0 18 0; +#X connect 16 0 20 0; +#X connect 16 0 22 0; +#X connect 19 0 23 0; +#X connect 19 0 25 0; +#X connect 20 0 25 1; +#X connect 20 0 23 1; +#X connect 21 0 24 0; +#X connect 21 0 26 0; +#X connect 22 0 24 1; +#X connect 22 0 26 1; +#X connect 23 0 27 0; +#X connect 24 0 29 0; +#X connect 25 0 31 0; +#X connect 26 0 33 0; +#X connect 27 0 28 0; +#X connect 28 0 13 0; +#X connect 29 0 30 0; +#X connect 30 0 10 0; +#X connect 31 0 32 0; +#X connect 32 0 7 0; +#X connect 33 0 34 0; +#X connect 34 0 14 0; +#X connect 35 0 36 0; +#X connect 36 0 37 0; +#X connect 36 1 38 0; +#X connect 37 0 39 0; +#X connect 37 1 40 0; +#X connect 38 0 37 0; +#X connect 39 0 40 0; +#X connect 40 0 33 1; +#X connect 40 0 31 1; +#X connect 40 0 29 1; +#X connect 40 0 27 1; +#X restore 50 193 pd reverb; +#X floatatom 108 163 0 0 0; +#X text 143 163 <-- feedback (100 maximum); +#X text 32 41 Here is a simple recirculating reverberator. "Feedback" +should be between -100 and 100; +#X text 37 285 You can spend a lifetime tweaking reverberators... we'll +just leave it at that for now.; +#X connect 0 0 9 0; +#X connect 0 0 6 0; +#X connect 3 0 0 0; +#X connect 5 0 6 2; +#X connect 6 0 5 0; +#X connect 7 0 6 3; +#X connect 9 0 6 0; +#X connect 9 1 6 1; +#X connect 10 0 9 1; -- cgit v1.2.1