pure-data/extra/rev1-final.pd

#N canvas 362 37 762 641 12;
#X obj 209 79 inlet~;
#X obj 459 111 loadbang;
#X obj 265 471 +~;
#X obj 209 488 +~;
#X obj 209 602 outlet~;
#X obj 549 192 pow;
#X obj 488 208 *;
#X floatatom 488 246 0 0 0 0 - - - 0;
#X obj 209 354 *~ 0;
#X obj 306 275 pow;
#X text 518 248 delay \, msec;
#X floatatom 330 342 0 0 0 0 - - - 0;
#X obj 324 243 * 0.001;
#X text 358 306 gain for this stage, f 10;
#X obj 283 427 *~ 0;
#X obj 330 309 *;
#X obj 459 138 t b b b b, f 13;
#X obj 488 294 abs;
#X obj 488 319 moses 0.01;
#X obj 555 347 print wrong-delay-time;
#X obj 443 61 inlet~;
#X obj 426 569 +~;
#X obj 426 602 outlet~;
#X text 281 132 decay after;
#X text 296 147 1 second;
#X obj 283 168 r \$1-decay;
#X obj 463 360 r \$1-clear;
#X obj 463 385 t b;
#X obj 463 461 delay;
#X obj 463 435 + 5;
#X obj 324 375 delread~ \$2 \$4;
#X obj 265 496 delwrite~ \$2 \$4;
#X obj 463 411 f \$4;
#X obj 488 271 - \$4;
#X obj 324 400 *~ 1;
#X obj 209 398 *~ 0;
#X obj 148 304 t b f f;
#X obj 176 332 *;
#X obj 158 355 -;
#X obj 260 365 * -1;
#X obj 133 397 *~ 0;
#X obj 348 282 sqrt;
#X text 45 24 Allpass filter for mono reverberator. Arg 1 = delay name \; Arg2 = stage number \; Arg 3 = delay time, f 37;
#X obj 260 274 f 0.7;
#X obj 306 208 f 0;
#X obj 488 166 f 8;
#X obj 517 165 f 1.79;
#X obj 567 165 f \$3;
#X obj 411 426 f 0;
#X obj 411 450 f 1;
#X connect 0 0 8 0;
#X connect 1 0 16 0;
#X connect 2 0 31 0;
#X connect 3 0 4 0;
#X connect 3 0 21 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 6 0 12 0;
#X connect 7 0 33 0;
#X connect 8 0 35 0;
#X connect 8 0 40 0;
#X connect 9 0 15 0;
#X connect 9 0 14 1;
#X connect 12 0 9 1;
#X connect 14 0 2 1;
#X connect 14 0 3 1;
#X connect 15 0 11 0;
#X connect 15 0 8 1;
#X connect 16 0 43 0;
#X connect 16 0 44 0;
#X connect 16 1 45 0;
#X connect 16 2 46 0;
#X connect 16 3 47 0;
#X connect 17 0 18 0;
#X connect 18 1 19 0;
#X connect 20 0 21 1;
#X connect 21 0 22 0;
#X connect 25 0 9 0;
#X connect 26 0 27 0;
#X connect 27 0 32 0;
#X connect 27 0 48 0;
#X connect 28 0 49 0;
#X connect 29 0 28 0;
#X connect 30 0 34 0;
#X connect 32 0 29 0;
#X connect 33 0 17 0;
#X connect 34 0 14 0;
#X connect 35 0 3 0;
#X connect 36 0 38 0;
#X connect 36 1 37 0;
#X connect 36 2 37 1;
#X connect 37 0 38 1;
#X connect 38 0 40 1;
#X connect 39 0 35 1;
#X connect 40 0 2 0;
#X connect 41 0 15 1;
#X connect 43 0 36 0;
#X connect 43 0 39 0;
#X connect 44 0 9 0;
#X connect 45 0 6 0;
#X connect 46 0 5 0;
#X connect 46 0 41 0;
#X connect 47 0 5 1;
#X connect 48 0 34 1;
#X connect 49 0 34 1;