pure-data/extra/rev1-stage.pd

#N canvas 872 46 759 894 12;
#X obj 100 150 inlet~;
#X obj 436 211 loadbang;
#X obj 159 590 * -1;
#X obj 99 615 +~;
#X obj 181 717 +~;
#X obj 181 816 outlet~;
#X obj 509 296 pow;
#X obj 456 320 *;
#X floatatom 456 361 0 0 0 0 - - - 0;
#X obj 100 524 *~ 0;
#X obj 270 387 pow;
#X text 486 360 delay \, msec;
#X floatatom 270 460 0 0 0 0 - - - 0;
#X obj 288 360 * 0.001;
#X text 304 426 gain for this stage, f 10;
#X obj 117 590 *~ 0;
#X obj 99 656 *~ 0;
#X obj 270 430 *;
#X obj 436 239 t b b b b;
#X obj 456 416 abs;
#X obj 456 442 moses 0.01;
#X obj 523 469 print wrong-delay-time;
#X obj 400 150 inlet~;
#X obj 382 771 +~;
#X obj 382 816 outlet~;
#X text 236 231 decay after;
#X text 247 246 1 second;
#X obj 245 267 r \$1-decay;
#X obj 312 518 r \$1-clear;
#X obj 312 542 t b;
#X obj 312 616 delay;
#X obj 312 592 + 5;
#X obj 199 520 delread~ \$2 \$4;
#X obj 227 665 delwrite~ \$2 \$4;
#X obj 312 568 f \$4;
#X obj 456 389 - \$4;
#X obj 549 267 float \$3;
#X obj 199 545 *~ 1;
#X obj 350 371 sqrt;
#X text 129 37 Allpass filter for mono reverberator \; Arg 1 = delay
name \; Arg2 = stage number \; Arg 3 = delay time;
#X obj 142 410 f 0.7;
#X obj 270 305 f 0;
#X obj 456 268 f 8;
#X obj 492 267 f 1.79;
#X obj 269 593 f 1;
#X obj 269 563 f 0;
#X connect 0 0 9 0;
#X connect 1 0 18 0;
#X connect 2 0 16 1;
#X connect 3 0 16 0;
#X connect 3 0 33 0;
#X connect 4 0 5 0;
#X connect 4 0 23 0;
#X connect 6 0 7 1;
#X connect 7 0 8 0;
#X connect 7 0 13 0;
#X connect 8 0 35 0;
#X connect 9 0 3 0;
#X connect 10 0 17 0;
#X connect 13 0 10 1;
#X connect 15 0 3 1;
#X connect 16 0 4 0;
#X connect 17 0 12 0;
#X connect 17 0 9 1;
#X connect 18 0 40 0;
#X connect 18 0 41 0;
#X connect 18 1 42 0;
#X connect 18 2 43 0;
#X connect 18 3 36 0;
#X connect 19 0 20 0;
#X connect 20 1 21 0;
#X connect 22 0 23 1;
#X connect 23 0 24 0;
#X connect 27 0 10 0;
#X connect 28 0 29 0;
#X connect 29 0 34 0;
#X connect 29 0 45 0;
#X connect 30 0 44 0;
#X connect 31 0 30 0;
#X connect 32 0 37 0;
#X connect 34 0 31 0;
#X connect 35 0 19 0;
#X connect 36 0 6 1;
#X connect 37 0 15 0;
#X connect 37 0 4 1;
#X connect 38 0 17 1;
#X connect 40 0 2 0;
#X connect 40 0 15 1;
#X connect 41 0 10 0;
#X connect 42 0 7 0;
#X connect 43 0 6 0;
#X connect 43 0 38 0;
#X connect 44 0 37 1;
#X connect 45 0 37 1;