#X obj 63 209 bng 15 250 50 0 empty neuer_stern_play empty 17 7 0 10
-262144 -1 -1;
#N canvas 5 52 1014 653 player1 0;
#X obj 417 477 print didit;
#X obj 91 453 env~ 16384;
#X floatatom 91 472 0 0 0 0 - - -;
#X obj 204 455 env~ 16384;
#X floatatom 204 474 0 0 0 0 - - -;
#X text 449 459 when the soundfile is done.;
#X text 448 445 last outlet gives a "bang";
#X obj 69 571 outlet~;
#X obj 188 565 outlet~;
#X obj 442 30 inlet;
#X obj 846 191 unpack;
#X obj 846 213 * 60;
#X obj 846 234 +;
#X obj 846 256 * 44100;
#X floatatom 852 278 9 0 0 0 - - -;
#X obj 773 71 loadbang;
#X obj 585 198 soundfiler;
#N canvas 0 22 263 238 (subpatch) 0;
#X obj 54 139 s rlp_sf_length_sec;
#X obj 30 31 inlet;
#X obj 74 85 samplerate~;
#X obj 30 109 / 44100;
#X obj 30 57 t f b;
#X obj 29 186 outlet;
#X obj 15 86 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X connect 1 0 4 0;
#X connect 2 0 3 1;
#X connect 3 0 0 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 4 1 2 0;
#X connect 6 0 3 0;
#X restore 585 221 pd;
#X text 643 238 sec;
#X floatatom 585 242 9 0 0 0 - - -;
#X obj 773 126 t b b;
#X obj 583 270 table stern_l;
#X obj 583 290 table stern_r;
#X msg 816 300 \; stern_l resize \$1 \; stern_r resize \$1;
#X msg 846 167 0 48;
#X obj 73 424 tabplay~ stern_l;
#X obj 183 425 tabplay~ stern_r;
#X msg 85 267 stop;
#X text 60 232 stops it;
#X text 428 71 bang starts playback;
#X obj 774 100 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 850 144 48 sec;
#X msg 230 378 176000;
#X obj 70 506 *~ 1;
#X obj 185 513 *~ 1;
#X obj 194 99 vsl 15 128 0 5 0 0 empty empty empty 0 -9 0 10 -258113
-1 -1 2540 1;
#X obj 169 39 inlet;
#X text 227 137 gain from sample;
#X msg 585 177 read mp-c14.WAV stern_l stern_r;
#X connect 1 0 2 0;
#X connect 3 0 4 0;
#X connect 9 0 32 0;
#X connect 10 0 11 0;
#X connect 10 1 12 1;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 23 0;
#X connect 15 0 30 0;
#X connect 16 0 17 0;
#X connect 17 0 19 0;
#X connect 20 0 38 0;
#X connect 20 1 24 0;
#X connect 24 0 10 0;
#X connect 25 0 1 0;
#X connect 25 0 33 0;
#X connect 26 0 3 0;
#X connect 26 0 34 0;
#X connect 27 0 25 0;
#X connect 27 0 26 0;
#X connect 30 0 20 0;
#X connect 32 0 26 0;
#X connect 32 0 25 0;
#X connect 33 0 7 0;
#X connect 34 0 8 0;
#X connect 35 0 33 1;
#X connect 35 0 34 1;
#X connect 36 0 35 0;
#X connect 38 0 16 0;
#X restore 61 249 pd player1;
#N canvas 10 73 668 491 outgain________ 0;
#X obj 55 50 inlet~;
#X obj 244 49 inlet~;
#X obj 458 48 inlet;
#X obj 60 402 outlet~;
#X obj 251 405 outlet~;
#X obj 455 402 outlet;
#X obj 57 191 *~;
#X obj 73 170 line~;
#X obj 75 143 pack 0 100;
#X obj 247 203 *~;
#X obj 263 182 line~;
#X obj 265 155 pack 0 100;
#X obj 458 71 fadtorms;
#X obj 510 363 prvu~;
#X obj 511 403 outlet;
#X obj 461 361 prvu~;
#X connect 0 0 6 0;
#X connect 1 0 9 0;
#X connect 2 0 12 0;
#X connect 6 0 3 0;
#X connect 6 0 15 0;
#X connect 7 0 6 1;
#X connect 8 0 7 0;
#X connect 9 0 4 0;
#X connect 9 0 13 0;
#X connect 10 0 9 1;
#X connect 11 0 10 0;
#X connect 12 0 8 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 15 0 5 0;
#X restore 50 413 pd outgain________;
#X obj 182 474 vsl 30 80 0 10 0 1 empty empty empty 10 20 0 8 -257985
-1 -1 5000 1;
#X obj 116 443 iemgui/iem_vu 12 120 empty empty -1 -8 0 8 -66577 -1
0 0;
#X obj 140 449 iemgui/iem_vu 12 120 empty empty -1 -8 0 8 -66577 -1
1 0;
#X obj 63 124 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 63 94 loadbang;
#X obj 302 210 vsl 10 100 0 120 0 0 empty empty send1 0 -9 1 12 -13381
-1 -1 2953 1;
#X obj 378 210 vsl 10 100 0 120 0 0 empty empty send3 0 -9 1 12 -228856
-1 -1 2492 1;
#X obj 340 210 vsl 10 100 0 120 0 0 empty empty send2 0 -9 1 12 -86853
-1 -1 3695 1;
#N canvas 5 49 1014 656 eq2 0;
#X floatatom 255 83 7 0 0 0 - - -;
#X floatatom 194 83 7 0 0 0 - - -;
#X obj 158 405 filterortho~;
#X obj 194 123 t b f;
#X floatatom 133 83 7 0 0 0 - - -;
#X obj 150 123 t b f;
#X text 333 9 orthogonal biquad object;
#X obj 157 330 pack s 0 0 0;
#X obj 237 122 t b f;
#X text 137 61 freq;
#X text 213 61 Q;
#X msg 335 126 setEQ;
#X msg 335 150 setLP;
#X msg 158 363 \$1 \$2 \$3 \$4;
#X msg 336 175 setHP;
#X msg 336 201 setBP;
#X msg 336 225 setBR;
#X msg 336 251 setHS;
#X msg 337 275 setLS;
#X msg 338 299 setAP;
#X text 391 127 parametric equalizer;
#X text 390 150 lowpass;
#X text 391 175 highpass;
#X text 391 201 bandpass;
#X text 391 224 bandreject;
#X text 390 252 highshelf;
#X text 390 277 lowshelf;
#X text 391 300 allpass;
#X text 265 62 gain (only for EQ \, LS \, HS);
#X obj 59 57 inlet~;
#X obj 161 449 outlet~;
#X obj 71 15 loadbang;
#X msg 230 33 1;
#X msg 147 32 1000;
#X msg 177 28 6;
#X connect 0 0 8 0;
#X connect 1 0 3 0;
#X connect 2 0 30 0;
#X connect 3 0 7 0;
#X connect 3 1 7 2;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 5 1 7 1;
#X connect 7 0 13 0;
#X connect 8 0 7 0;
#X connect 8 1 7 3;
#X connect 11 0 7 0;
#X connect 12 0 7 0;
#X connect 13 0 2 0;
#X connect 14 0 7 0;
#X connect 15 0 7 0;
#X connect 16 0 7 0;
#X connect 17 0 7 0;
#X connect 18 0 7 0;
#X connect 19 0 7 0;
#X connect 29 0 2 0;
#X connect 31 0 33 0;
#X connect 31 0 34 0;
#X connect 31 0 32 0;
#X connect 32 0 0 0;
#X connect 33 0 4 0;
#X connect 34 0 1 0;
#X restore 97 279 pd eq2;
#N canvas 5 49 1014 656 fade1 0;
#X msg 326 11 \; pd dsp 1 \; start bang;
#X text 644 36 Click to start;
#X text 639 94 Click to stop;
#X msg 560 93 \; pd dsp 0 \; start 0;
#X obj 200 23 loadbang;
#X obj 202 422 line;
#X floatatom 202 443 10 0 0 0 - - -;
#X floatatom 202 336 5 0 0 0 - - -;
#X msg 213 355 50;
#X msg 221 376 2000;
#X obj 263 485 outlet;
#X obj 202 402 pack f 8000;
#X obj 65 80 inlet;
#X obj 202 286 random 110;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 11 0;
#X connect 9 0 11 0;
#X connect 11 0 5 0;
#X connect 12 0 13 0;
#X connect 13 0 7 0;
#X restore 259 143 pd fade1;
#N canvas 5 49 1014 656 fade2 0;
#X msg 190 109 \; pd dsp 1 \; start bang;
#X text 644 36 Click to start;
#X text 639 94 Click to stop;
#X msg 560 93 \; pd dsp 0 \; start 0;
#X obj 200 23 loadbang;
#X obj 202 422 line;
#X floatatom 202 443 10 0 0 0 - - -;
#X floatatom 202 336 5 0 0 0 - - -;
#X msg 213 355 50;
#X msg 221 376 2000;
#X obj 263 485 outlet;
#X obj 202 402 pack f 8000;
#X obj 65 80 inlet;
#X obj 180 261 random 110;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 11 0;
#X connect 9 0 11 0;
#X connect 11 0 5 0;
#X connect 12 0 13 0;
#X connect 13 0 7 0;
#X restore 316 143 pd fade2;
#N canvas 5 49 1014 656 fade3 0;
#X msg 326 11 \; pd dsp 1 \; start bang;
#X text 644 36 Click to start;
#X text 639 94 Click to stop;
#X msg 560 93 \; pd dsp 0 \; start 0;
#X obj 200 23 loadbang;
#X obj 202 422 line;
#X floatatom 202 443 10 0 0 0 - - -;
#X floatatom 202 336 5 0 0 0 - - -;
#X msg 213 355 50;
#X msg 221 376 2000;
#X obj 263 485 outlet;
#X obj 202 402 pack f 8000;
#X obj 65 80 inlet;
#X obj 182 260 random 110;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 11 0;
#X connect 9 0 11 0;
#X connect 11 0 5 0;
#X connect 12 0 13 0;
#X connect 13 0 7 0;
#X restore 378 142 pd fade3;
#N canvas 5 49 1014 656 fade4 0;
#X msg 326 11 \; pd dsp 1 \; start bang;
#X text 644 36 Click to start;
#X text 639 94 Click to stop;
#X msg 560 93 \; pd dsp 0 \; start 0;
#X obj 200 23 loadbang;
#X obj 202 422 line;
#X floatatom 202 443 10 0 0 0 - - -;
#X floatatom 202 336 5 0 0 0 - - -;
#X msg 213 355 50;
#X msg 221 376 2000;
#X obj 263 485 outlet;
#X obj 202 402 pack f 8000;
#X obj 181 261 random 110;
#X obj 65 80 inlet;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 10 0;
#X connect 7 0 11 0;
#X connect 8 0 11 0;
#X connect 9 0 11 0;
#X connect 11 0 5 0;
#X connect 12 0 7 0;
#X connect 13 0 12 0;
#X restore 443 143 pd fade4;
#N canvas 20 121 598 328 setfades____________________________ 0;
#X obj 107 -111 inlet;
#X obj 8 139 outlet;
#X obj 78 149 outlet;
#X obj 137 158 outlet;
#X obj 201 163 outlet;
#X obj 267 160 outlet;
#X connect 0 0 1 0;
#X connect 0 0 2 0;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 0 0 5 0;
#X restore 259 125 pd setfades____________________________;
#X obj 63 150 metro 20000;
#X text 214 528 volume;
#X obj 154 146 vsl 10 100 0 3 0 0 empty empty empty 0 -9 0 10 -258113
-1 -1 3300 1;
#X text 166 224 gain from sample;
#X text 82 124 repeat sample;
#X obj 196 145 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 196 172 metro 2000;
#X obj 42 341 tgl 10 0 empty empty bypass 17 17 0 17 -257985 -1 -1
0 1;
#N canvas 5 49 993 635 reverb____ 0;
#X obj 954 658 metro 580;
#X obj 982 680 delay 120;
#X msg 982 701 0;
#X obj 908 722 noise~;
#X obj 938 745 *~;
#X msg 953 701 1;
#X msg 864 701 0;
#X obj 820 745 *~;
#X msg 835 701 1;
#X obj 836 658 metro 700;
#X obj 864 680 delay 200;
#X obj 776 722 osc~ 400;
#X obj 508 733 freeverb~;
#X obj 888 615 tgl 30 0 empty empty start 1 15 1 12 -90049 -1 -1 0
1;
#X obj 690 731 readsf~ 2;
#X msg 680 664 open \$1;
#X obj 680 645 openpanel;
#X msg 771 614 \; pd dsp 1;
#X obj 680 612 bng 30 250 50 0 empty empty open 1 15 1 12 -4080 -1
-228;
#X obj 680 683 t b a;
#X msg 667 707 1;
#X msg 88 72 roomsize \$1;
#X msg 165 157 damping \$1;
#X msg 240 245 width \$1;
#X msg 326 316 wet \$1;
#X msg 414 378 dry \$1;
#X msg 473 422 print;
#X msg 540 483 freeze \$1;
#X msg 596 550 bypass \$1;
#X obj 596 528 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 492 442 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X text 616 476 - start and stop "freeze" mode (off by default). If
on \, reverb tail gets freezed (sample and hold).;
#X obj 426 355 hsl 60 18 0 1 0 1 empty empty dry 2 9 1 12 -225271 -1
-1 4300 0;
#X obj 338 293 hsl 60 18 0 1 0 1 empty empty wet 2 9 1 12 -225271 -1
-1 3900 0;
#X obj 252 222 hsl 60 18 0 1 0 1 empty empty width 2 9 1 12 -262131
-1 -1 4400 0;
#X obj 177 134 hsl 60 18 0 2 0 1 empty empty damping 2 9 1 12 -261689
-1 -1 1600 0;
#X obj 100 49 hsl 60 18 0.11 1.1 0 1 empty empty roomsize 2 9 1 12
-261689 -1 -1 5400 0;
#X text 218 38 - size of the room to be simulated. Larger values result
in longer reverb. Values above 1 will result in feedback or 'room resonance'
(i.e. reverb getting louder);
#X floatatom 70 53 3 0 0 0 - - -;
#X text 340 212 - stereo width of the reverb \, i.e. how much of the
reverb part from the left and right channel mix. Turning this to 1
(nearly gives two separate mono reverbs.;
#X text 422 298 - level of the wet (reverbed) signal \, between 0 and
1;
#X text 502 356 - level of the dry (i.e. unprocessed or original) signal
\, between 0 and 1 Note that wet and dry signals mix and thus can cause
clipping if both are set at high levels.;
#X text 529 422 - print the current values of these parameters.;
#X text 683 534 - bypass reverb processing when set to 1 Can be used
to compare reverbed signal with original signal \, and to save CPU
when reverb is not needed.;
#X floatatom 147 138 3 0 0 0 - - -;
#X floatatom 222 227 3 0 0 0 - - -;
#X floatatom 308 297 3 0 0 0 - - -;
#X floatatom 396 359 3 0 0 0 - - -;
#X text 275 129 - amount of damping of the room's surfaces. <=1 means
nearly no damping \, resulting in a lot of reflection (long reverb)
\, >1 means high damping of signals (short reverb).;
#X obj 37 287 inlet;
#X obj 180 474 inlet~;
#X obj 169 602 outlet~;
#X obj 84 440 inlet~;
#X obj 192 747 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 12 1;
#X connect 5 0 4 1;
#X connect 6 0 7 1;
#X connect 7 0 12 0;
#X connect 8 0 7 1;
#X connect 9 0 8 0;
#X connect 9 0 10 0;
#X connect 10 0 6 0;
#X connect 11 0 7 0;
#X connect 12 0 51 0;
#X connect 12 1 53 0;
#X connect 13 0 9 0;
#X connect 13 0 0 0;
#X connect 14 0 12 0;
#X connect 14 1 12 1;
#X connect 15 0 19 0;
#X connect 16 0 15 0;
#X connect 18 0 16 0;
#X connect 19 0 20 0;
#X connect 19 1 14 0;
#X connect 20 0 14 0;
#X connect 21 0 12 0;
#X connect 22 0 12 0;
#X connect 23 0 12 0;
#X connect 24 0 12 0;
#X connect 25 0 12 0;
#X connect 26 0 12 0;
#X connect 27 0 12 0;
#X connect 28 0 12 0;
#X connect 29 0 28 0;
#X connect 30 0 27 0;
#X connect 32 0 25 0;
#X connect 32 0 47 0;
#X connect 33 0 24 0;
#X connect 33 0 46 0;
#X connect 34 0 23 0;
#X connect 34 0 45 0;
#X connect 35 0 22 0;
#X connect 35 0 44 0;
#X connect 36 0 21 0;
#X connect 36 0 38 0;
#X connect 49 0 29 0;
#X connect 50 0 12 0;
#X connect 52 0 12 1;
#X restore 51 392 pd reverb____;
#N canvas 119 0 986 609 fft 0;
#X obj 18 500 *~;
#X obj 291 455 *~;
#X obj 258 454 *~;
#X obj 356 456 *~;
#X obj 324 455 *~;
#X obj 324 477 +~;
#X obj 258 479 -~;
#X obj 560 383 *~;
#X obj 54 124 *~;
#X obj 22 124 *~;
#X obj 22 145 +~;
#X obj 325 82 *~;
#X obj 293 82 *~;
#X obj 608 312 *~;
#X obj 576 312 *~;
#X obj 93 63 *~;
#X obj 18 522 outlet~;
#X obj 18 475 *~;
#X obj 126 63 inlet~;
#X obj 93 84 rfft~;
#X obj 18 451 rifft~;
#X obj 576 334 rsqrt~;
#X obj 293 103 +~;
#X obj 484 383 *~;
#X obj 56 499 sig~ 0.0002;
#N canvas 167 161 699 396 decision 0;
#X obj 49 101 inlet~;
#X obj 50 341 outlet~;
#X obj 50 183 -~;
#X obj 50 226 clip~ 0 1;
#X obj 50 204 *~ 1e+020;
#X obj 196 98 inlet~;
#X text 137 213 stronger than;
#X text 139 228 old one;
#X obj 274 202 -~;
#X obj 288 177 lrshift~ 1;
#X obj 274 250 clip~ 0 1;
#X obj 274 228 *~ 1e+020;
#X obj 450 202 -~;
#X obj 450 250 clip~ 0 1;
#X obj 450 228 *~ 1e+020;
#X obj 464 177 lrshift~ -1;
#X obj 50 283 *~;
#X obj 50 312 *~;
#X text 135 199 1 if new signal;
#X text 55 73 new;
#X text 203 70 old;
#X text 51 12 Choose whether to replace the "lod" signal with the "new"
one. The "new" one must be stronger than the old one and also must
be stronger than its two neighboring channels;
#X text 267 283 1 if we're louder than neighbor;
#X connect 0 0 2 0;
#X connect 0 0 9 0;
#X connect 0 0 8 0;
#X connect 0 0 12 0;
#X connect 0 0 15 0;
#X connect 2 0 4 0;
#X connect 3 0 16 0;
#X connect 4 0 3 0;
#X connect 5 0 2 1;
#X connect 8 0 11 0;
#X connect 9 0 8 1;
#X connect 10 0 16 1;
#X connect 11 0 10 0;
#X connect 12 0 14 0;
#X connect 13 0 17 1;
#X connect 14 0 13 0;
#X connect 15 0 12 1;
#X connect 16 0 17 0;
#X connect 17 0 1 0;
#X restore 23 172 pd decision;
#X obj 576 356 *~;
#N canvas 276 481 755 363 divide-by-prev 0;
#X obj 283 99 inlet~;
#X obj 385 101 inlet~;
#X obj 284 249 outlet~;
#X obj 386 249 outlet~;
#X obj 107 251 outlet~;
#X obj 208 253 outlet~;
#X obj 250 180 *~;
#X obj 217 180 *~;
#X obj 182 181 *~;
#X obj 149 181 *~;
#X obj 149 203 +~;
#X obj 217 202 -~;
#X obj 92 49 tabreceive~ \$0-last-real;
#X obj 190 72 tabreceive~ \$0-last-imag;
#X connect 0 0 2 0;
#X connect 0 0 9 0;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 1 0 8 0;
#X connect 1 0 7 0;
#X connect 6 0 11 1;
#X connect 7 0 11 0;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 4 0;
#X connect 11 0 5 0;
#X connect 12 0 9 1;
#X connect 12 0 7 1;
#X connect 13 0 8 1;
#X connect 13 0 6 1;
#X restore 603 192 pd divide-by-prev;
#N canvas 650 183 602 327 switch 0;
#X obj 19 163 inlet~;
#X obj 107 99 inlet~;
#X obj 169 100 inlet~;
#X obj 273 97 inlet~;
#X obj 333 97 inlet~;
#X obj 367 185 -~;
#X obj 338 231 +~;
#X obj 372 229 *~;
#X obj 250 182 -~;
#X obj 220 228 +~;
#X obj 254 228 *~;
#X obj 219 278 outlet~;
#X obj 338 274 outlet~;
#X text 46 28 switch between two pairs of inputs. If first inlet is
one \, take the left-hand pair \, otherwise the right-hand one.;
#X text 15 140 switch;
#X text 92 76 pass this if one;
#X text 269 77 pass this if zero;
#X connect 0 0 10 1;
#X connect 0 0 7 1;
#X connect 1 0 8 0;
#X connect 2 0 5 0;
#X connect 3 0 9 0;
#X connect 3 0 8 1;
#X connect 4 0 6 0;
#X connect 4 0 5 1;
#X connect 5 0 7 0;
#X connect 6 0 12 0;
#X connect 7 0 6 1;
#X connect 8 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 9 1;
#X restore 327 275 pd switch;
#N canvas 650 183 602 327 switch 0;
#X obj 19 163 inlet~;
#X obj 107 99 inlet~;
#X obj 169 100 inlet~;
#X obj 273 97 inlet~;
#X obj 333 97 inlet~;
#X obj 367 185 -~;
#X obj 338 231 +~;
#X obj 372 229 *~;
#X obj 250 182 -~;
#X obj 220 228 +~;
#X obj 254 228 *~;
#X obj 219 278 outlet~;
#X obj 338 274 outlet~;
#X text 46 28 switch between two pairs of inputs. If first inlet is
one \, take the left-hand pair \, otherwise the right-hand one.;
#X text 15 140 switch;
#X text 92 76 pass this if one;
#X text 269 77 pass this if zero;
#X connect 0 0 10 1;
#X connect 0 0 7 1;
#X connect 1 0 8 0;
#X connect 2 0 5 0;
#X connect 3 0 9 0;
#X connect 3 0 8 1;
#X connect 4 0 6 0;
#X connect 4 0 5 1;
#X connect 5 0 7 0;
#X connect 6 0 12 0;
#X connect 7 0 6 1;
#X connect 8 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 9 1;
#X restore 484 266 pd switch;
#X obj 655 270 r revtime;
#X obj 54 476 tabreceive~ \$0-hann;
#X obj 94 35 tabreceive~ \$0-hann;
#X obj 505 112 tabreceive~ \$0-inc-real;
#X obj 587 134 tabreceive~ \$0-inc-imag;
#X obj 752 220 tabsend~ \$0-last-imag;
#X obj 702 243 tabsend~ \$0-last-real;
#X obj 559 426 tabsend~ \$0-inc-imag;
#X obj 484 449 tabsend~ \$0-inc-real;
#X msg 665 293 set \$1;
#X obj 665 317 s revtime-set;
#X obj 800 483 loadbang;
#X msg 800 509 \; pd dsp 1 \; window-size 4096 \; revtime 20;
#X obj 800 411 r window-size;
#X msg 800 433 set \$1 4;
#X obj 800 455 block~;
#X obj 655 341 expr 1 - 0.2/max(0.2 \, $f1);
#X text 20 206 choose whether to;
#X text 18 224 punch in new (amplitude \,;
#X text 16 243 increment) pair;
#X obj 367 26 tabreceive~ \$0-amp-real;
#X obj 443 50 tabreceive~ \$0-amp-imag;
#X obj 325 537 tabsend~ \$0-amp-imag;
#X obj 258 560 tabsend~ \$0-amp-real;
#X text 361 6 previous output amplitude \, encoding both magnitude
and phase;
#X text 453 87 previous phase increment (unit-magnitude complex number)
;
#X obj 506 134 +~ 1e-015;
#X obj 366 50 +~ 1e-015;
#X text 363 482 propagate amplitudes by multiplying in the;
#X text 361 499 increments \, which advance the phase and drop;
#X text 365 514 magnitude according to revtime.;
#X text 608 370 normalize increments between 0 and;
#X text 606 388 1 according to revtime.;
#X text 78 453 IFFT and output;
#X connect 0 0 16 0;
#X connect 1 0 6 1;
#X connect 2 0 6 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 52 0;
#X connect 6 0 53 0;
#X connect 7 0 1 0;
#X connect 7 0 3 0;
#X connect 7 0 37 0;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 25 0;
#X connect 11 0 22 1;
#X connect 12 0 22 0;
#X connect 13 0 21 0;
#X connect 14 0 21 0;
#X connect 15 0 19 0;
#X connect 17 0 0 0;
#X connect 18 0 15 1;
#X connect 19 0 9 0;
#X connect 19 0 9 1;
#X connect 19 0 27 0;
#X connect 19 0 28 1;
#X connect 19 1 8 0;
#X connect 19 1 8 1;
#X connect 19 1 27 1;
#X connect 19 1 28 2;
#X connect 20 0 17 0;
#X connect 21 0 26 0;
#X connect 22 0 25 1;
#X connect 23 0 2 0;
#X connect 23 0 4 0;
#X connect 23 0 38 0;
#X connect 24 0 0 1;
#X connect 25 0 28 0;
#X connect 25 0 29 0;
#X connect 26 0 23 1;
#X connect 26 0 7 1;
#X connect 27 0 29 1;
#X connect 27 1 29 2;
#X connect 27 2 36 0;
#X connect 27 3 35 0;
#X connect 28 0 20 0;
#X connect 28 0 3 1;
#X connect 28 0 2 1;
#X connect 28 1 20 1;
#X connect 28 1 1 1;
#X connect 28 1 4 1;
#X connect 29 0 14 0;
#X connect 29 0 14 1;
#X connect 29 0 23 0;
#X connect 29 1 13 0;
#X connect 29 1 13 1;
#X connect 29 1 7 0;
#X connect 30 0 39 0;
#X connect 30 0 46 0;
#X connect 31 0 17 1;
#X connect 32 0 15 0;
#X connect 33 0 56 0;
#X connect 34 0 29 4;
#X connect 39 0 40 0;
#X connect 41 0 42 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 46 0 26 1;
#X connect 50 0 57 0;
#X connect 51 0 11 0;
#X connect 51 0 11 1;
#X connect 51 0 28 4;
#X connect 56 0 29 3;
#X connect 57 0 12 0;
#X connect 57 0 12 1;
#X connect 57 0 28 3;
#X restore 58 305 pd fft;
#X floatatom 537 64 0 0 1000 0 - revtime-set -;
#X obj 535 89 s revtime;
#N canvas 5 134 565 454 hann-window 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-hann 4096 float 0;
#X coords 0 1 4095 0 300 100 1;
#X restore 82 311 graph;
#X obj 378 165 osc~;
#X obj 378 190 *~ -0.5;
#X obj 378 214 +~ 0.5;
#X obj 331 247 tabwrite~ \$0-hann;
#X obj 37 88 r window-size;
#X obj 38 173 /;
#X obj 127 142 samplerate~;
#X obj 38 251 s window-sec;
#X obj 177 204 swap;
#X obj 177 228 /;
#X obj 177 252 s window-hz;
#X obj 49 201 * 1000;
#X obj 49 228 s window-msec;
#X obj 38 115 t f b f;
#X msg 173 92 resize \$1;
#X obj 173 116 s \$0-hann;
#X obj 330 105 r window-hz;
#X msg 382 130 0;
#X obj 330 131 t f b;
#X text 15 8 calculate Hann window table (variable window size) and
constants window-hz (fundamental frequency of analysis) \, window-sec
and window-msec (analysis window size in seconds and msec).;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 5 0 14 0;
#X connect 6 0 8 0;
#X connect 6 0 12 0;
#X connect 7 0 6 1;
#X connect 7 0 9 1;
#X connect 9 0 10 0;
#X connect 9 1 10 1;
#X connect 10 0 11 0;
#X connect 12 0 13 0;
#X connect 14 0 6 0;
#X connect 14 0 9 0;
#X connect 14 1 7 0;
#X connect 14 2 15 0;
#X connect 15 0 16 0;
#X connect 17 0 19 0;
#X connect 18 0 1 1;
#X connect 19 0 1 0;
#X connect 19 1 4 0;
#X connect 19 1 18 0;
#X restore 535 109 pd hann-window;
#N canvas 57 95 774 520 tables 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-last-real 2048 float 0;
#X coords 0 500 2048 -500 200 150 1;
#X restore 103 15 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-last-imag 2048 float 0;
#X coords 0 500 2048 500 200 150 1;
#X restore 497 6 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-amp-real 2048 float 0;
#X coords 0 500 2048 -500 200 150 1;
#X restore 105 185 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-amp-imag 2048 float 0;
#X coords 0 500 2048 -500 200 150 1;
#X restore 501 178 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-inc-real 2048 float 0;
#X coords 0 1 2048 -1 200 150 1;
#X restore 105 357 graph;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-inc-imag 2048 float 0;
#X coords 0 1 2048 -1 200 150 1;
#X restore 503 342 graph;
#X restore 535 130 pd tables;
#X obj 425 207 vsl 10 100 0 120 0 0 empty empty send4 0 -9 1 12 -228856
-1 -1 3824 1;
#X obj 384 376 vu 10 80 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 290 372 vu 10 80 empty empty -1 -8 0 10 -66577 -1 1 0;
#N canvas 0 76 1013 654 mixer_______________________ 0;
#X msg 316 295 1 \$1;
#X msg 314 318 2 \$1;
#X msg 314 341 3 \$1;
#X floatatom 268 234 0 0 0 0 - - -;
#X floatatom 268 273 0 0 0 0 - - -;
#X floatatom 262 309 0 0 0 0 - - -;
#X floatatom 269 204 0 0 0 0 - - -;
#X msg 315 263 0 \$1;
#X floatatom 261 416 0 0 0 0 - - -;
#X floatatom 261 455 0 0 0 0 - - -;
#X floatatom 262 503 0 0 0 0 - - -;
#X floatatom 262 386 0 0 0 0 - - -;
#X msg 312 400 4 \$1;
#X msg 313 432 5 \$1;
#X msg 311 455 6 \$1;
#X msg 311 478 7 \$1;
#X obj 420 498 outlet~;
#X obj 483 263 inlet~;
#X obj 561 249 inlet~;
#X obj 724 201 inlet~;
#X obj 164 155 inlet;
#X obj 168 186 inlet;
#X obj 167 228 inlet;
#X obj 175 267 inlet;
#X obj 407 369 mixer~ 5 --------------------------------------;
#X obj 442 205 inlet~;
#X obj 541 510 outlet;
#X obj 596 471 prvu~;
#X obj 597 511 outlet;
#X obj 547 469 prvu~;
#X obj 648 513 outlet;
#X obj 703 474 prvu~;
#X obj 704 514 outlet;
#X obj 654 472 prvu~;
#X connect 0 0 24 0;
#X connect 1 0 24 0;
#X connect 2 0 24 0;
#X connect 3 0 0 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 24 0;
#X connect 8 0 13 0;
#X connect 9 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 12 0;
#X connect 12 0 24 0;
#X connect 13 0 24 0;
#X connect 14 0 24 0;
#X connect 15 0 24 0;
#X connect 17 0 24 1;
#X connect 17 0 27 0;
#X connect 18 0 24 2;
#X connect 18 0 33 0;
#X connect 19 0 24 3;
#X connect 19 0 31 0;
#X connect 20 0 6 0;
#X connect 21 0 3 0;
#X connect 22 0 4 0;
#X connect 23 0 5 0;
#X connect 24 0 16 0;
#X connect 25 0 24 0;
#X connect 25 0 29 0;
#X connect 27 0 28 0;
#X connect 29 0 26 0;
#X connect 31 0 32 0;
#X connect 33 0 30 0;
#X restore 281 342 pd mixer_______________________;
#X obj 334 373 vu 10 80 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 427 375 vu 10 80 empty empty -1 -8 0 10 -66577 -1 1 0;
#X msg 487 80 30;
#X obj 55 496 dac~;
#N canvas 5 49 1014 656 pitcher 0;
#X text -5 209 reverb time;
#X floatatom 9 57 0 0 0 0 - - -;
#X obj 72 328 *~;
#X obj 195 265 line~;
#X floatatom 227 82 0 0 0 0 - - -;
#X obj 195 239 pack 0 200;
#X obj 227 56 r window;
#X obj 9 31 r transpose;
#X obj 9 113 exp;
#X floatatom 9 139 6 0 0 0 - - -;
#X obj 9 229 /;
#X obj 136 159 * 0.001;
#X obj 304 335 line~;
#X obj 304 310 pack 0 200;
#X floatatom 304 259 0 0 0 0 - - -;
#X obj 304 233 r delay;
#X obj 72 354 +~;
#X obj 9 380 cos~;
#X obj 75 442 *~;
#X obj 75 471 +~;
#X obj 96 287 wrap~;
#X obj 241 330 *~;
#X obj 241 363 +~;
#X obj 244 425 cos~;
#X obj 244 452 *~;
#X obj 136 186 t b f;
#X floatatom 9 255 6 0 0 0 - - -;
#X obj 96 260 +~ 0.5;
#X obj 9 328 -~ 0.5;
#X obj 9 354 *~ 0.5;
#X obj 178 329 -~ 0.5;
#X obj 178 362 *~ 0.5;
#X obj 9 166 - 1;
#X obj 9 87 * 0.05776;
#X obj 9 192 * -1;
#X text 43 56 <-- transposition;
#X text 86 69 (halftones);
#X text 72 133 speed;
#X text 71 147 change;
#X text 271 81 <--window (msec);
#X text 44 222 tape head;
#X obj 9 286 phasor~;
#X obj 304 286 max 1.5;
#X text 307 192 delay;
#X text 304 210 (msec);
#X obj 227 109 max 1;
#X text 45 235 rotation freq;
#X obj 72 380 vd~ G09-del;
#X obj 307 427 vd~ G09-del;
#X obj 254 12 delwrite~ G09-del 5000;
#X obj 108 -84 inlet~;
#X obj 19 -60 inlet;
#X obj 84 -25 random 50;
#X obj 44 -32 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 30 4 random 350;
#X obj 88 509 outlet~;
#X connect 1 0 33 0;
#X connect 2 0 16 0;
#X connect 3 0 2 1;
#X connect 3 0 21 1;
#X connect 4 0 45 0;
#X connect 5 0 3 0;
#X connect 6 0 4 0;
#X connect 7 0 1 0;
#X connect 8 0 9 0;
#X connect 9 0 32 0;
#X connect 10 0 26 0;
#X connect 11 0 25 0;
#X connect 12 0 16 1;
#X connect 12 0 22 1;
#X connect 13 0 12 0;
#X connect 14 0 42 0;
#X connect 15 0 14 0;
#X connect 16 0 47 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 55 0;
#X connect 20 0 21 0;
#X connect 20 0 30 0;
#X connect 21 0 22 0;
#X connect 22 0 48 0;
#X connect 23 0 24 0;
#X connect 24 0 19 1;
#X connect 25 0 10 0;
#X connect 25 1 10 1;
#X connect 26 0 41 0;
#X connect 27 0 20 0;
#X connect 28 0 29 0;
#X connect 29 0 17 0;
#X connect 30 0 31 0;
#X connect 31 0 23 0;
#X connect 32 0 34 0;
#X connect 33 0 8 0;
#X connect 34 0 10 0;
#X connect 41 0 2 0;
#X connect 41 0 28 0;
#X connect 41 0 27 0;
#X connect 42 0 13 0;
#X connect 45 0 11 0;
#X connect 45 0 5 0;
#X connect 47 0 18 1;
#X connect 48 0 24 1;
#X connect 50 0 49 0;
#X connect 51 0 53 0;
#X connect 52 0 4 0;
#X connect 53 0 52 0;
#X connect 53 0 54 0;
#X connect 54 0 1 0;
#X restore 170 279 pd pitcher;
#N canvas 5 49 1014 656 eq3 0;
#X floatatom 255 83 7 0 0 0 - - -;
#X floatatom 194 83 7 0 0 0 - - -;
#X obj 158 405 filterortho~;
#X obj 194 123 t b f;
#X floatatom 133 83 7 0 0 0 - - -;
#X obj 150 123 t b f;
#X text 333 9 orthogonal biquad object;
#X obj 157 330 pack s 0 0 0;
#X obj 237 122 t b f;
#X text 137 61 freq;
#X text 213 61 Q;
#X msg 335 126 setEQ;
#X msg 335 150 setLP;
#X msg 158 363 \$1 \$2 \$3 \$4;
#X msg 336 175 setHP;
#X msg 336 201 setBP;
#X msg 336 225 setBR;
#X msg 336 251 setHS;
#X msg 337 275 setLS;
#X msg 338 299 setAP;
#X text 391 127 parametric equalizer;
#X text 390 150 lowpass;
#X text 391 175 highpass;
#X text 391 201 bandpass;
#X text 391 224 bandreject;
#X text 390 252 highshelf;
#X text 390 277 lowshelf;
#X text 391 300 allpass;
#X text 265 62 gain (only for EQ \, LS \, HS);
#X obj 59 57 inlet~;
#X obj 161 449 outlet~;
#X obj 71 15 loadbang;
#X msg 230 33 1;
#X msg 147 32 1000;
#X msg 177 28 6;
#X connect 0 0 8 0;
#X connect 1 0 3 0;
#X connect 2 0 30 0;
#X connect 3 0 7 0;
#X connect 3 1 7 2;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 5 1 7 1;
#X connect 7 0 13 0;
#X connect 8 0 7 0;
#X connect 8 1 7 3;
#X connect 11 0 7 0;
#X connect 12 0 7 0;
#X connect 13 0 2 0;
#X connect 14 0 7 0;
#X connect 15 0 7 0;
#X connect 16 0 7 0;
#X connect 17 0 7 0;
#X connect 18 0 7 0;
#X connect 19 0 7 0;
#X connect 29 0 2 0;
#X connect 31 0 33 0;
#X connect 31 0 34 0;
#X connect 31 0 32 0;
#X connect 32 0 0 0;
#X connect 33 0 4 0;
#X connect 34 0 1 0;
#X restore 244 265 pd eq3;
#X obj 153 58 loadbang;
#X obj 238 82 loadbang;
#X msg 200 88 1;
#X obj 205 118 del 100;
#X text 4 231 Hier Sample ändern;
#X text 15 9 Ambient Spheres;
#X text 16 20 Patch for the project "PD-Patch Marktstand" for Liquid
Music 2010 / by Reni & Jogi Hofmüller (patch bricoleur: Fränk Zimmer)
;
#X connect 0 0 1 1;
#X connect 0 0 37 0;
#X connect 1 0 11 0;
#X connect 1 0 26 0;
#X connect 1 1 39 1;
#X connect 1 1 40 0;
#X connect 2 0 38 0;
#X connect 2 1 38 1;
#X connect 2 2 4 0;
#X connect 2 3 5 0;
#X connect 3 0 2 2;
#X connect 6 0 17 0;
#X connect 7 0 6 0;
#X connect 7 0 22 0;
#X connect 8 0 34 0;
#X connect 9 0 34 2;
#X connect 10 0 34 1;
#X connect 11 0 34 4;
#X connect 12 0 8 0;
#X connect 13 0 10 0;
#X connect 14 0 9 0;
#X connect 15 0 31 0;
#X connect 16 0 12 0;
#X connect 16 1 13 0;
#X connect 16 2 14 0;
#X connect 16 3 15 0;
#X connect 17 0 0 0;
#X connect 19 0 1 0;
#X connect 22 0 23 0;
#X connect 23 0 16 0;
#X connect 23 0 39 0;
#X connect 24 0 25 0;
#X connect 25 0 2 0;
#X connect 25 1 2 1;
#X connect 26 0 34 7;
#X connect 27 0 28 0;
#X connect 31 0 34 3;
#X connect 34 0 25 1;
#X connect 34 0 25 2;
#X connect 34 1 33 0;
#X connect 34 2 35 0;
#X connect 34 3 32 0;
#X connect 34 4 36 0;
#X connect 37 0 28 0;
#X connect 39 0 34 5;
#X connect 40 0 34 6;
#X connect 41 0 43 0;
#X connect 43 0 19 0;
#X connect 43 0 44 0;