view examples/10-Instruments/vangelisiser/cheap-reverb.pd @ 556:ce391098f321 prerelease tip

THIS PROJECT HAS MOVED TO https://github.com/BelaPlatform/bela

#N canvas 0 22 973 666 10;
#X obj 297 35 inlet~;
#X obj 297 235 +~;
#X obj 339 235 +~;
#X obj 87 296 outlet~;
#X obj 157 296 outlet~;
#X obj 258 354 +~;
#X obj 367 355 +~;
#X obj 300 354 -~;
#X obj 407 354 -~;
#X obj 257 410 +~;
#X obj 301 411 +~;
#X obj 345 412 -~;
#X obj 384 412 -~;
#X obj 344 494 *~ 0;
#X obj 302 493 *~ 0;
#X obj 257 492 *~ 0;
#X obj 385 495 *~ 0;
#X obj 652 385 inlet;
#X obj 652 457 / 200;
#X obj 652 409 min 100;
#X obj 652 432 max 0;
#X obj 258 603 delwrite~ loop-del1 60;
#X obj 303 581 delwrite~ loop-del2 71.9345;
#X obj 384 535 delwrite~ loop-del4 95.945;
#X obj 318 174 delread~ loop-del1 60;
#X obj 360 199 delread~ loop-del2 71.9345;
#X obj 428 253 delread~ loop-del4 95.945;
#X obj 406 228 delread~ loop-del3 86.7545;
#X obj 345 558 delwrite~ loop-del3 86.7545;
#X text 306 62 "early echo" generators \, which also increase echo
density. Open one to see what they do.;
#X text 320 135 Get the outputs of the recirculating delays. Add the
inputs to two of them.;
#X text 440 333 Do a power-conserving mix of them in pairs. First combine
(1 \, 2) and (3 \, 4)...;
#X text 422 405 ...then (1 \, 3) and (2 \, 4);
#X text 466 489 The two mixing stages have a combined gain of 2 \,
so the recirculation gain is limited to 0.5.;
#X text 606 562 Put the signals back into the;
#X text 604 577 recirculating delays.;
#X text 49 316 Tap outputs from here.;
#X text 728 401 0 to 100 to control reverb;
#X text 739 416 time.;
#X text 711 384 feedback gain on a scale of;
#X connect 0 0 1 0;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 1 0 5 0;
#X connect 1 0 7 0;
#X connect 2 0 4 0;
#X connect 2 0 5 1;
#X connect 2 0 7 1;
#X connect 5 0 9 0;
#X connect 5 0 11 0;
#X connect 6 0 11 1;
#X connect 6 0 9 1;
#X connect 7 0 10 0;
#X connect 7 0 12 0;
#X connect 8 0 10 1;
#X connect 8 0 12 1;
#X connect 9 0 15 0;
#X connect 10 0 14 0;
#X connect 11 0 13 0;
#X connect 12 0 16 0;
#X connect 13 0 28 0;
#X connect 14 0 22 0;
#X connect 15 0 21 0;
#X connect 16 0 23 0;
#X connect 17 0 19 0;
#X connect 18 0 16 1;
#X connect 18 0 15 1;
#X connect 18 0 14 1;
#X connect 18 0 13 1;
#X connect 19 0 20 0;
#X connect 20 0 18 0;
#X connect 24 0 1 1;
#X connect 25 0 2 1;
#X connect 26 0 6 1;
#X connect 26 0 8 1;
#X connect 27 0 6 0;
#X connect 27 0 8 0;