[gd_scene load_steps=2 format=2]

[ext_resource path="res://autoload/Out.gd" type="Script" id=1]

[node name="Out" type="Node"]
script = ExtResource( 1 )
use_embeded_patch = true
patch1 = "#N canvas 157 228 450 518 12;
#X floatatom 21 198 5 0 0 0 - - - 0;
#X obj 21 22 r fromGodot\\$0;
#X obj 21 46 list trim;
#X obj 189 467 dac~ 1 2;
#X obj 209 407 *~;
#X obj 253 305 line~;
#X msg 253 281 \\$1 100;
#X obj 78 110 tgl 19 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 223 20 catch~ outL;
#N canvas 68 97 569 570 effects 0;
#X obj 348 76 inlet;
#X obj 107 35 inlet~;
#X obj 109 455 outlet~;
#N canvas 105 23 555 441 rev1~ 0;
#X obj 332 211 dbtorms;
#X obj 332 175 min 100;
#X obj 332 61 inlet;
#X obj 36 61 inlet~;
#X obj 257 378 outlet~;
#X obj 425 61 inlet;
#X obj 425 127 t b;
#X obj 275 240 -;
#X obj 275 314 line~;
#X obj 275 288 pack 0 100;
#X obj 257 341 *~;
#X obj 275 265 * 0.01;
#X text 236 23 reverb decay speed;
#X text 232 37 (dB left after 1 sec);
#X text 425 33 bang to clear;
#X obj 332 238 s \\$0-decay;
#X obj 425 180 s \\$0-clear;
#X msg 275 210 105 \\$1;
#N canvas 308 23 665 805 rev1-stage1 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X obj 262 503 r \\$0-clear;
#X obj 195 252 r \\$0-decay;
#X obj 499 252 float 0;
#X obj 406 374 - 8;
#X obj 149 475 delread~ \\$0-del1 8;
#X obj 177 650 delwrite~ \\$0-del1 8;
#X obj 262 553 f 8;
#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 44 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 42 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 41 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 38 0;
#X connect 27 0 45 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 39 0 27 0;
#X connect 40 0 10 0;
#X connect 41 0 6 1;
#X connect 42 0 19 0;
#X connect 43 0 30 0;
#X connect 45 0 29 0;
#X restore 36 99 pd rev1-stage1;
#N canvas 260 23 667 855 rev1-stage2 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X text 486 24 \\$0 \\$0-del2 1 14.32;
#X obj 262 553 f 14.32;
#X obj 149 475 delread~ \\$0-del2 14.32;
#X obj 499 252 float 1;
#X obj 406 374 - 14.32;
#X obj 177 650 delwrite~ \\$0-del2 14.32;
#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 46 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 45 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 44 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 38 0;
#X connect 27 0 42 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 39 0 10 0;
#X connect 40 0 27 0;
#X connect 42 0 29 0;
#X connect 43 0 30 0;
#X connect 44 0 6 1;
#X connect 45 0 19 0;
#X restore 36 123 pd rev1-stage2;
#N canvas 594 23 668 855 rev1-stage3 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X text 471 16 \\$0 \\$0-del3 2 25.6328;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X obj 406 374 - 25.6328;
#X obj 262 553 f 25.6328;
#X obj 177 650 delwrite~ \\$0-del3 25.6328;
#X obj 149 475 delread~ \\$0-del3 25.6328;
#X obj 499 252 float 2;
#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 44 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 42 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 46 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 38 0;
#X connect 27 0 43 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 40 0 10 0;
#X connect 41 0 27 0;
#X connect 42 0 19 0;
#X connect 43 0 29 0;
#X connect 45 0 30 0;
#X connect 46 0 6 1;
#X restore 36 147 pd rev1-stage3;
#N canvas 298 23 664 855 rev1-stage4 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X text 432 22 \\$0 \\$0-del4 3 45.8827;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X obj 406 374 - 45.8827;
#X obj 149 475 delread~ \\$0-del4 45.8827;
#X obj 262 553 f 45.8827;
#X obj 177 650 delwrite~ \\$0-del4 45.8827;
#X obj 499 252 float 3;
#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 45 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 42 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 46 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 38 0;
#X connect 27 0 44 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 40 0 10 0;
#X connect 41 0 27 0;
#X connect 42 0 19 0;
#X connect 43 0 30 0;
#X connect 44 0 29 0;
#X connect 46 0 6 1;
#X restore 36 171 pd rev1-stage4;
#N canvas 181 23 667 855 rev1-stage5 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X text 436 26 \\$0 \\$0-del5 4 82.1301;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X obj 406 374 - 82.1301;
#X obj 149 475 delread~ \\$0-del5 82.1301;
#X obj 177 650 delwrite~ \\$0-del5 82.1301;
#X obj 262 553 f 82.1301;
#X obj 499 252 float 4;
#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 44 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 42 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 46 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 38 0;
#X connect 27 0 45 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 40 0 10 0;
#X connect 41 0 27 0;
#X connect 42 0 19 0;
#X connect 43 0 30 0;
#X connect 45 0 29 0;
#X connect 46 0 6 1;
#X restore 36 195 pd rev1-stage5;
#N canvas 317 23 679 855 rev1-stage6 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X text 494 19 \\$0 \\$0-del6 5 147.013;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X obj 406 374 - 147.013;
#X obj 262 553 f 147.013;
#X obj 177 650 delwrite~ \\$0-del6 147.013;
#X obj 149 475 delread~ \\$0-del6 147.013;
#X obj 499 252 float 5;
#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 44 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 42 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 46 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 38 0;
#X connect 27 0 43 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 40 0 10 0;
#X connect 41 0 27 0;
#X connect 42 0 19 0;
#X connect 43 0 29 0;
#X connect 45 0 30 0;
#X connect 46 0 6 1;
#X restore 36 219 pd rev1-stage6;
#N canvas 184 23 673 855 rev1-stage7 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X text 495 27 \\$0 \\$0-del7 6 263.153;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X obj 406 374 - 263.153;
#X obj 177 650 delwrite~ \\$0-del7 263.153;
#X obj 262 553 f 263.153;
#X obj 149 475 delread~ \\$0-del7 263.153;
#X obj 499 252 float 6;
#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 43 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 42 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 46 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 38 0;
#X connect 27 0 44 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 40 0 10 0;
#X connect 41 0 27 0;
#X connect 42 0 19 0;
#X connect 44 0 29 0;
#X connect 45 0 30 0;
#X connect 46 0 6 1;
#X restore 36 243 pd rev1-stage7;
#N canvas 227 23 672 855 rev1-stage8 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X text 458 22 \\$0 \\$0-del8 7 471.044;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X obj 499 252 float 7;
#X obj 406 374 - 471.044;
#X obj 149 475 delread~ \\$0-del8 471.044;
#X obj 262 553 f 471.044;
#X obj 177 650 delwrite~ \\$0-del8 471.044;
#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 46 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 43 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 42 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 38 0;
#X connect 27 0 45 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 40 0 10 0;
#X connect 41 0 27 0;
#X connect 42 0 6 1;
#X connect 43 0 19 0;
#X connect 44 0 30 0;
#X connect 45 0 29 0;
#X restore 36 267 pd rev1-stage8;
#N canvas 216 23 673 855 rev1-stage9 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X text 467 34 \\$0 \\$0-del9 8 843.168;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X obj 406 374 - 843.168;
#X obj 149 475 delread~ \\$0-del9 843.168;
#X obj 262 553 f 843.168;
#X obj 177 650 delwrite~ \\$0-del9 843.168;
#X obj 499 252 float 8;
#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 45 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 42 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 46 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 38 0;
#X connect 27 0 44 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 40 0 10 0;
#X connect 41 0 27 0;
#X connect 42 0 19 0;
#X connect 43 0 30 0;
#X connect 44 0 29 0;
#X connect 46 0 6 1;
#X restore 36 291 pd rev1-stage9;
#N canvas 264 23 836 658 rev1-final10 0;
#X text 494 15 \\$0 \\$0-del10 9 1509.27;
#X obj 209 79 inlet~;
#X obj 539 111 loadbang;
#X obj 265 471 +~;
#X obj 209 488 +~;
#X obj 209 602 outlet~;
#X obj 629 192 pow;
#X obj 568 208 *;
#X floatatom 568 246 0 0 0 0 - - - 0;
#X obj 209 354 *~ 0;
#X obj 306 275 pow;
#X text 598 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 539 138 t b b b b, f 13;
#X obj 568 294 abs;
#X obj 568 319 moses 0.01;
#X obj 635 347 print wrong-delay-time;
#X obj 523 61 inlet~;
#X obj 506 569 +~;
#X obj 506 602 outlet~;
#X text 281 132 decay after;
#X text 296 147 1 second;
#X obj 543 385 t b;
#X obj 543 461 delay;
#X obj 543 435 + 5;
#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 568 166 f 8;
#X obj 597 165 f 1.79;
#X obj 411 426 f 0;
#X obj 411 450 f 1;
#X obj 283 168 r \\$0-decay;
#X obj 543 360 r \\$0-clear;
#X obj 568 271 - 1509.27;
#X obj 324 375 delread~ \\$0-del10 1509.27;
#X obj 265 496 delwrite~ \\$0-del10 1509.27;
#X obj 543 411 f 1509.27;
#X obj 647 165 f 9;
#X connect 1 0 9 0;
#X connect 2 0 17 0;
#X connect 3 0 48 0;
#X connect 4 0 5 0;
#X connect 4 0 22 0;
#X connect 6 0 7 1;
#X connect 7 0 8 0;
#X connect 7 0 13 0;
#X connect 8 0 46 0;
#X connect 9 0 30 0;
#X connect 9 0 35 0;
#X connect 10 0 16 0;
#X connect 10 0 15 1;
#X connect 13 0 10 1;
#X connect 15 0 3 1;
#X connect 15 0 4 1;
#X connect 16 0 12 0;
#X connect 16 0 9 1;
#X connect 17 0 38 0;
#X connect 17 0 39 0;
#X connect 17 1 40 0;
#X connect 17 2 41 0;
#X connect 17 3 50 0;
#X connect 18 0 19 0;
#X connect 19 1 20 0;
#X connect 21 0 22 1;
#X connect 22 0 23 0;
#X connect 26 0 42 0;
#X connect 26 0 49 0;
#X connect 27 0 43 0;
#X connect 28 0 27 0;
#X connect 29 0 15 0;
#X connect 30 0 4 0;
#X connect 31 0 33 0;
#X connect 31 1 32 0;
#X connect 31 2 32 1;
#X connect 32 0 33 1;
#X connect 33 0 35 1;
#X connect 34 0 30 1;
#X connect 35 0 3 0;
#X connect 36 0 16 1;
#X connect 38 0 31 0;
#X connect 38 0 34 0;
#X connect 39 0 10 0;
#X connect 40 0 7 0;
#X connect 41 0 6 0;
#X connect 41 0 36 0;
#X connect 42 0 29 1;
#X connect 43 0 29 1;
#X connect 44 0 10 0;
#X connect 45 0 26 0;
#X connect 46 0 18 0;
#X connect 47 0 29 0;
#X connect 49 0 28 0;
#X connect 50 0 6 1;
#X restore 36 315 pd rev1-final10;
#X connect 0 0 15 0;
#X connect 1 0 0 0;
#X connect 1 0 17 0;
#X connect 2 0 1 0;
#X connect 3 0 18 0;
#X connect 5 0 6 0;
#X connect 6 0 16 0;
#X connect 7 0 11 0;
#X connect 8 0 10 1;
#X connect 9 0 8 0;
#X connect 10 0 4 0;
#X connect 11 0 9 0;
#X connect 17 0 7 0;
#X connect 18 0 19 0;
#X connect 18 1 19 1;
#X connect 19 0 20 0;
#X connect 19 1 20 1;
#X connect 20 0 21 0;
#X connect 20 1 21 1;
#X connect 21 0 22 0;
#X connect 21 1 22 1;
#X connect 22 0 23 0;
#X connect 22 1 23 1;
#X connect 23 0 24 0;
#X connect 23 1 24 1;
#X connect 24 0 25 0;
#X connect 24 1 25 1;
#X connect 25 0 26 0;
#X connect 25 1 26 1;
#X connect 26 0 27 0;
#X connect 26 1 27 1;
#X connect 27 1 10 0;
#X restore 202 118 pd rev1~;
#X floatatom 228 95 5 0 0 0 - - - 0;
#X obj 228 35 loadbang;
#X obj 280 90 bng 19 250 50 0 empty empty clear 22 12 0 12 #fcfcfc #000000 #000000;
#X msg 228 59 80;
#X floatatom 348 100 5 0 1 0 - - - 0;
#X obj 109 174 expr~ $v1*(1-$v3) + $v2*$v3;
#X obj 348 153 line~;
#X msg 348 123 \\$1 500;
#X obj 109 364 expr~ $v1*(1-$v3) + $v2*$v3;
#X obj 388 253 inlet;
#X floatatom 388 277 5 0 1 0 - - - 0;
#X obj 388 330 line~;
#X msg 388 300 \\$1 500;
#X obj 227 267 mtof;
#X obj 202 314 lop~;
#X floatatom 227 291 5 0 0 0 - - - 0;
#X msg 227 243 76;
#X obj 227 219 loadbang;
#X connect 0 0 8 0;
#X connect 1 0 3 0;
#X connect 1 0 9 0;
#X connect 3 0 9 1;
#X connect 4 0 3 1;
#X connect 5 0 7 0;
#X connect 6 0 3 2;
#X connect 7 0 4 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 9 0 18 0;
#X connect 10 0 9 2;
#X connect 11 0 10 0;
#X connect 12 0 2 0;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 12 2;
#X connect 16 0 15 0;
#X connect 17 0 19 0;
#X connect 18 0 12 1;
#X connect 19 0 18 1;
#X connect 20 0 17 0;
#X connect 21 0 20 0;
#X restore 223 190 pd effects;
#X obj 21 70 route gain reverb lowpass;
#X obj 135 110 tgl 19 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 10 0;
#X connect 4 0 3 0;
#X connect 5 0 4 1;
#X connect 6 0 5 0;
#X connect 7 0 9 1;
#X connect 8 0 9 0;
#X connect 9 0 4 0;
#X connect 10 0 0 0;
#X connect 10 1 7 0;
#X connect 10 2 11 0;
#X connect 11 0 9 2;
"
patch2 = "#N canvas 700 225 450 518 12;
#X floatatom 21 198 5 0 0 0 - - - 0;
#X obj 21 22 r fromGodot\\$0;
#X obj 21 46 list trim;
#X obj 189 467 dac~ 1 2;
#X obj 223 20 catch~ outR;
#X obj 279 407 *~;
#X obj 323 305 line~;
#X msg 323 281 \\$1 100;
#X obj 78 110 tgl 19 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#N canvas 68 97 569 570 effects 0;
#X obj 348 76 inlet;
#X obj 107 35 inlet~;
#X obj 109 455 outlet~;
#N canvas 105 23 555 441 rev1~ 0;
#X obj 332 211 dbtorms;
#X obj 332 175 min 100;
#X obj 332 61 inlet;
#X obj 36 61 inlet~;
#X obj 257 378 outlet~;
#X obj 425 61 inlet;
#X obj 425 127 t b;
#X obj 275 240 -;
#X obj 275 314 line~;
#X obj 275 288 pack 0 100;
#X obj 257 341 *~;
#X obj 275 265 * 0.01;
#X text 236 23 reverb decay speed;
#X text 232 37 (dB left after 1 sec);
#X text 425 33 bang to clear;
#X obj 332 238 s \\$0-decay;
#X obj 425 180 s \\$0-clear;
#X msg 275 210 105 \\$1;
#N canvas 308 23 665 805 rev1-stage1 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X obj 262 503 r \\$0-clear;
#X obj 195 252 r \\$0-decay;
#X obj 499 252 float 0;
#X obj 406 374 - 8;
#X obj 149 475 delread~ \\$0-del1 8;
#X obj 177 650 delwrite~ \\$0-del1 8;
#X obj 262 553 f 8;
#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 44 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 42 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 41 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 38 0;
#X connect 27 0 45 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 39 0 27 0;
#X connect 40 0 10 0;
#X connect 41 0 6 1;
#X connect 42 0 19 0;
#X connect 43 0 30 0;
#X connect 45 0 29 0;
#X restore 36 99 pd rev1-stage1;
#N canvas 260 23 667 855 rev1-stage2 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X text 486 24 \\$0 \\$0-del2 1 14.32;
#X obj 262 553 f 14.32;
#X obj 149 475 delread~ \\$0-del2 14.32;
#X obj 499 252 float 1;
#X obj 406 374 - 14.32;
#X obj 177 650 delwrite~ \\$0-del2 14.32;
#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 46 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 45 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 44 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 38 0;
#X connect 27 0 42 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 39 0 10 0;
#X connect 40 0 27 0;
#X connect 42 0 29 0;
#X connect 43 0 30 0;
#X connect 44 0 6 1;
#X connect 45 0 19 0;
#X restore 36 123 pd rev1-stage2;
#N canvas 594 23 668 855 rev1-stage3 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X text 471 16 \\$0 \\$0-del3 2 25.6328;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X obj 406 374 - 25.6328;
#X obj 262 553 f 25.6328;
#X obj 177 650 delwrite~ \\$0-del3 25.6328;
#X obj 149 475 delread~ \\$0-del3 25.6328;
#X obj 499 252 float 2;
#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 44 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 42 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 46 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 38 0;
#X connect 27 0 43 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 40 0 10 0;
#X connect 41 0 27 0;
#X connect 42 0 19 0;
#X connect 43 0 29 0;
#X connect 45 0 30 0;
#X connect 46 0 6 1;
#X restore 36 147 pd rev1-stage3;
#N canvas 298 23 664 855 rev1-stage4 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X text 432 22 \\$0 \\$0-del4 3 45.8827;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X obj 406 374 - 45.8827;
#X obj 149 475 delread~ \\$0-del4 45.8827;
#X obj 262 553 f 45.8827;
#X obj 177 650 delwrite~ \\$0-del4 45.8827;
#X obj 499 252 float 3;
#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 45 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 42 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 46 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 38 0;
#X connect 27 0 44 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 40 0 10 0;
#X connect 41 0 27 0;
#X connect 42 0 19 0;
#X connect 43 0 30 0;
#X connect 44 0 29 0;
#X connect 46 0 6 1;
#X restore 36 171 pd rev1-stage4;
#N canvas 181 23 667 855 rev1-stage5 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X text 436 26 \\$0 \\$0-del5 4 82.1301;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X obj 406 374 - 82.1301;
#X obj 149 475 delread~ \\$0-del5 82.1301;
#X obj 177 650 delwrite~ \\$0-del5 82.1301;
#X obj 262 553 f 82.1301;
#X obj 499 252 float 4;
#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 44 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 42 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 46 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 38 0;
#X connect 27 0 45 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 40 0 10 0;
#X connect 41 0 27 0;
#X connect 42 0 19 0;
#X connect 43 0 30 0;
#X connect 45 0 29 0;
#X connect 46 0 6 1;
#X restore 36 195 pd rev1-stage5;
#N canvas 317 23 679 855 rev1-stage6 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X text 494 19 \\$0 \\$0-del6 5 147.013;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X obj 406 374 - 147.013;
#X obj 262 553 f 147.013;
#X obj 177 650 delwrite~ \\$0-del6 147.013;
#X obj 149 475 delread~ \\$0-del6 147.013;
#X obj 499 252 float 5;
#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 44 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 42 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 46 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 38 0;
#X connect 27 0 43 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 40 0 10 0;
#X connect 41 0 27 0;
#X connect 42 0 19 0;
#X connect 43 0 29 0;
#X connect 45 0 30 0;
#X connect 46 0 6 1;
#X restore 36 219 pd rev1-stage6;
#N canvas 184 23 673 855 rev1-stage7 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X text 495 27 \\$0 \\$0-del7 6 263.153;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X obj 406 374 - 263.153;
#X obj 177 650 delwrite~ \\$0-del7 263.153;
#X obj 262 553 f 263.153;
#X obj 149 475 delread~ \\$0-del7 263.153;
#X obj 499 252 float 6;
#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 43 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 42 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 46 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 38 0;
#X connect 27 0 44 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 40 0 10 0;
#X connect 41 0 27 0;
#X connect 42 0 19 0;
#X connect 44 0 29 0;
#X connect 45 0 30 0;
#X connect 46 0 6 1;
#X restore 36 243 pd rev1-stage7;
#N canvas 227 23 672 855 rev1-stage8 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X text 458 22 \\$0 \\$0-del8 7 471.044;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X obj 499 252 float 7;
#X obj 406 374 - 471.044;
#X obj 149 475 delread~ \\$0-del8 471.044;
#X obj 262 553 f 471.044;
#X obj 177 650 delwrite~ \\$0-del8 471.044;
#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 46 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 43 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 42 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 38 0;
#X connect 27 0 45 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 40 0 10 0;
#X connect 41 0 27 0;
#X connect 42 0 6 1;
#X connect 43 0 19 0;
#X connect 44 0 30 0;
#X connect 45 0 29 0;
#X restore 36 267 pd rev1-stage8;
#N canvas 216 23 673 855 rev1-stage9 0;
#X obj 50 135 inlet~;
#X obj 386 196 loadbang;
#X obj 109 575 * -1;
#X obj 49 600 +~;
#X obj 131 702 +~;
#X obj 131 801 outlet~;
#X obj 459 281 pow;
#X obj 406 305 *;
#X floatatom 406 346 0 0 0 0 - - - 0;
#X obj 50 509 *~ 0;
#X obj 220 372 pow;
#X text 436 345 delay \\, msec;
#X floatatom 220 445 0 0 0 0 - - - 0;
#X obj 238 345 * 0.001;
#X text 254 411 gain for this stage, f 10;
#X obj 67 575 *~ 0;
#X obj 49 641 *~ 0;
#X obj 220 415 *;
#X obj 386 224 t b b b b;
#X obj 406 401 abs;
#X obj 406 427 moses 0.01;
#X obj 473 454 print wrong-delay-time;
#X obj 350 135 inlet~;
#X obj 332 756 +~;
#X obj 332 801 outlet~;
#X text 186 216 decay after;
#X text 197 231 1 second;
#X obj 262 527 t b;
#X obj 262 601 delay;
#X obj 262 577 + 5;
#X obj 149 530 *~ 1;
#X obj 300 356 sqrt;
#X text 79 22 Allpass filter for mono reverberator \\; Arg 1 = delay name \\; Arg2 = stage number \\; Arg 3 = delay time;
#X obj 92 395 f 0.7;
#X obj 220 290 f 0;
#X obj 406 253 f 8;
#X obj 442 252 f 1.79;
#X obj 219 578 f 1;
#X obj 219 548 f 0;
#X text 467 34 \\$0 \\$0-del9 8 843.168;
#X obj 195 252 r \\$0-decay;
#X obj 262 503 r \\$0-clear;
#X obj 406 374 - 843.168;
#X obj 149 475 delread~ \\$0-del9 843.168;
#X obj 262 553 f 843.168;
#X obj 177 650 delwrite~ \\$0-del9 843.168;
#X obj 499 252 float 8;
#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 45 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 42 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 33 0;
#X connect 18 0 34 0;
#X connect 18 1 35 0;
#X connect 18 2 36 0;
#X connect 18 3 46 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 38 0;
#X connect 27 0 44 0;
#X connect 28 0 37 0;
#X connect 29 0 28 0;
#X connect 30 0 15 0;
#X connect 30 0 4 1;
#X connect 31 0 17 1;
#X connect 33 0 2 0;
#X connect 33 0 15 1;
#X connect 34 0 10 0;
#X connect 35 0 7 0;
#X connect 36 0 6 0;
#X connect 36 0 31 0;
#X connect 37 0 30 1;
#X connect 38 0 30 1;
#X connect 40 0 10 0;
#X connect 41 0 27 0;
#X connect 42 0 19 0;
#X connect 43 0 30 0;
#X connect 44 0 29 0;
#X connect 46 0 6 1;
#X restore 36 291 pd rev1-stage9;
#N canvas 264 23 836 658 rev1-final10 0;
#X text 494 15 \\$0 \\$0-del10 9 1509.27;
#X obj 209 79 inlet~;
#X obj 539 111 loadbang;
#X obj 265 471 +~;
#X obj 209 488 +~;
#X obj 209 602 outlet~;
#X obj 629 192 pow;
#X obj 568 208 *;
#X floatatom 568 246 0 0 0 0 - - - 0;
#X obj 209 354 *~ 0;
#X obj 306 275 pow;
#X text 598 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 539 138 t b b b b, f 13;
#X obj 568 294 abs;
#X obj 568 319 moses 0.01;
#X obj 635 347 print wrong-delay-time;
#X obj 523 61 inlet~;
#X obj 506 569 +~;
#X obj 506 602 outlet~;
#X text 281 132 decay after;
#X text 296 147 1 second;
#X obj 543 385 t b;
#X obj 543 461 delay;
#X obj 543 435 + 5;
#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 568 166 f 8;
#X obj 597 165 f 1.79;
#X obj 411 426 f 0;
#X obj 411 450 f 1;
#X obj 283 168 r \\$0-decay;
#X obj 543 360 r \\$0-clear;
#X obj 568 271 - 1509.27;
#X obj 324 375 delread~ \\$0-del10 1509.27;
#X obj 265 496 delwrite~ \\$0-del10 1509.27;
#X obj 543 411 f 1509.27;
#X obj 647 165 f 9;
#X connect 1 0 9 0;
#X connect 2 0 17 0;
#X connect 3 0 48 0;
#X connect 4 0 5 0;
#X connect 4 0 22 0;
#X connect 6 0 7 1;
#X connect 7 0 8 0;
#X connect 7 0 13 0;
#X connect 8 0 46 0;
#X connect 9 0 30 0;
#X connect 9 0 35 0;
#X connect 10 0 16 0;
#X connect 10 0 15 1;
#X connect 13 0 10 1;
#X connect 15 0 3 1;
#X connect 15 0 4 1;
#X connect 16 0 12 0;
#X connect 16 0 9 1;
#X connect 17 0 38 0;
#X connect 17 0 39 0;
#X connect 17 1 40 0;
#X connect 17 2 41 0;
#X connect 17 3 50 0;
#X connect 18 0 19 0;
#X connect 19 1 20 0;
#X connect 21 0 22 1;
#X connect 22 0 23 0;
#X connect 26 0 42 0;
#X connect 26 0 49 0;
#X connect 27 0 43 0;
#X connect 28 0 27 0;
#X connect 29 0 15 0;
#X connect 30 0 4 0;
#X connect 31 0 33 0;
#X connect 31 1 32 0;
#X connect 31 2 32 1;
#X connect 32 0 33 1;
#X connect 33 0 35 1;
#X connect 34 0 30 1;
#X connect 35 0 3 0;
#X connect 36 0 16 1;
#X connect 38 0 31 0;
#X connect 38 0 34 0;
#X connect 39 0 10 0;
#X connect 40 0 7 0;
#X connect 41 0 6 0;
#X connect 41 0 36 0;
#X connect 42 0 29 1;
#X connect 43 0 29 1;
#X connect 44 0 10 0;
#X connect 45 0 26 0;
#X connect 46 0 18 0;
#X connect 47 0 29 0;
#X connect 49 0 28 0;
#X connect 50 0 6 1;
#X restore 36 315 pd rev1-final10;
#X connect 0 0 15 0;
#X connect 1 0 0 0;
#X connect 1 0 17 0;
#X connect 2 0 1 0;
#X connect 3 0 18 0;
#X connect 5 0 6 0;
#X connect 6 0 16 0;
#X connect 7 0 11 0;
#X connect 8 0 10 1;
#X connect 9 0 8 0;
#X connect 10 0 4 0;
#X connect 11 0 9 0;
#X connect 17 0 7 0;
#X connect 18 0 19 0;
#X connect 18 1 19 1;
#X connect 19 0 20 0;
#X connect 19 1 20 1;
#X connect 20 0 21 0;
#X connect 20 1 21 1;
#X connect 21 0 22 0;
#X connect 21 1 22 1;
#X connect 22 0 23 0;
#X connect 22 1 23 1;
#X connect 23 0 24 0;
#X connect 23 1 24 1;
#X connect 24 0 25 0;
#X connect 24 1 25 1;
#X connect 25 0 26 0;
#X connect 25 1 26 1;
#X connect 26 0 27 0;
#X connect 26 1 27 1;
#X connect 27 1 10 0;
#X restore 202 118 pd rev1~;
#X floatatom 228 95 5 0 0 0 - - - 0;
#X obj 228 35 loadbang;
#X obj 280 90 bng 19 250 50 0 empty empty clear 22 12 0 12 #fcfcfc #000000 #000000;
#X msg 228 59 80;
#X floatatom 348 100 5 0 1 0 - - - 0;
#X obj 109 174 expr~ $v1*(1-$v3) + $v2*$v3;
#X obj 348 153 line~;
#X msg 348 123 \\$1 500;
#X obj 109 364 expr~ $v1*(1-$v3) + $v2*$v3;
#X obj 388 253 inlet;
#X floatatom 388 277 5 0 1 0 - - - 0;
#X obj 388 330 line~;
#X msg 388 300 \\$1 500;
#X obj 227 267 mtof;
#X obj 202 314 lop~;
#X floatatom 227 291 5 0 0 0 - - - 0;
#X msg 227 243 76;
#X obj 227 219 loadbang;
#X connect 0 0 8 0;
#X connect 1 0 3 0;
#X connect 1 0 9 0;
#X connect 3 0 9 1;
#X connect 4 0 3 1;
#X connect 5 0 7 0;
#X connect 6 0 3 2;
#X connect 7 0 4 0;
#X connect 8 0 11 0;
#X connect 9 0 12 0;
#X connect 9 0 18 0;
#X connect 10 0 9 2;
#X connect 11 0 10 0;
#X connect 12 0 2 0;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 15 0 12 2;
#X connect 16 0 15 0;
#X connect 17 0 19 0;
#X connect 18 0 12 1;
#X connect 19 0 18 1;
#X connect 20 0 17 0;
#X connect 21 0 20 0;
#X restore 223 190 pd effects;
#X obj 135 110 tgl 19 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 21 70 route gain reverb lowpass;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 11 0;
#X connect 4 0 9 0;
#X connect 5 0 3 1;
#X connect 6 0 5 1;
#X connect 7 0 6 0;
#X connect 8 0 9 1;
#X connect 9 0 5 0;
#X connect 10 0 9 2;
#X connect 11 0 0 0;
#X connect 11 1 8 0;
#X connect 11 2 10 0;
"