added [pddp_dsp]

svn path=/trunk/externals/freeverb~/; revision=3873

1 files changed, 89 insertions, 74 deletions

diff --git a/freeverb~-help.pd b/freeverb~-help.pd
index 23f5d82..4c52a92 100644
--- a/freeverb~-help.pd
+++ b/freeverb~-help.pd
@@ -1,8 +1,8 @@
-#N canvas 92 162 612 570 10;
-#X obj 104 540 pddp;
-#X obj 8 8 cnv 15 90 553 empty empty empty 20 12 0 14 -233017 -66577
+#N canvas 556 82 592 566 10;
+#X obj -77 536 pddp;
+#X obj -173 4 cnv 15 90 553 empty empty empty 20 12 0 14 -233017 -66577
 0;
-#N canvas 316 127 577 600 More_Info 0;
+#N canvas 316 127 613 636 More_Info 0;
 #X obj 451 407 metro 580;
 #X obj 479 429 delay 120;
 #X msg 479 450 0;
@@ -42,22 +42,19 @@
 #X text 154 274 - start and stop "freeze" mode (off by default). If
 on \, reverb tail gets freezed (sample and hold).;
 #X obj 37 196 hsl 60 18 0 1 0 1 empty empty dry 2 9 1 12 -225271 -1
--1 2950 0;
+-1 0 0;
 #X obj 37 152 hsl 60 18 0 1 0 1 empty empty wet 2 9 1 12 -225271 -1
--1 2950 0;
+-1 1770 0;
 #X obj 37 108 hsl 60 18 0 1 0 1 empty empty width 2 9 1 12 -262131
--1 -1 2950 0;
-#X obj 37 64 hsl 60 18 0 1 0 1 empty empty damping 2 9 1 12 -261689
--1 -1 2950 0;
-#X obj 37 19 hsl 60 18 0 2 0 1 empty empty roomsize 2 9 1 12 -261689
--1 -1 0 0;
+-1 -1 5900 0;
+#X obj 37 64 hsl 60 18 0 2 0 1 empty empty damping 2 9 1 12 -261689
+-1 -1 1475 0;
+#X obj 37 19 hsl 60 18 0.11 1.1 0 1 empty empty roomsize 2 9 1 12 -261689
+-1 -1 4410 0;
 #X text 117 18 - 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 7 20 3 0 0 0 - - -;
-#X text 114 65 - 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 floatatom 7 23 3 0 0 0 - - -;
 #X text 116 110 - 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.;
@@ -70,6 +67,13 @@ clipping if both are set at high levels.;
 #X text 157 305 - 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 7 68 3 0 0 0 - - -;
+#X floatatom 7 113 3 0 0 0 - - -;
+#X floatatom 7 156 3 0 0 0 - - -;
+#X floatatom 7 200 3 0 0 0 - - -;
+#X text 114 65 - 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 connect 0 0 1 0;
 #X connect 0 0 5 0;
 #X connect 1 0 2 0;
@@ -107,73 +111,84 @@ when reverb is not needed.;
 #X connect 30 0 29 0;
 #X connect 31 0 28 0;
 #X connect 33 0 26 0;
+#X connect 33 0 48 0;
 #X connect 34 0 25 0;
+#X connect 34 0 47 0;
 #X connect 35 0 24 0;
+#X connect 35 0 46 0;
 #X connect 36 0 23 0;
+#X connect 36 0 45 0;
 #X connect 37 0 22 0;
 #X connect 37 0 39 0;
-#X restore 104 514 pd More_Info;
+#X restore -77 510 pd More_Info;
 #N canvas 85 22 403 252 Related_Objects 0;
-#X restore 104 488 pd Related_Objects;
-#X text 16 41 ARGUMENTS:;
-#X text 32 270 OUTLETS:;
-#X text 23 305 EXAMPLES:;
-#X text 20 487 SEE ALSO:;
-#X obj 19 16 freeverb~;
-#X text 39 223 INLETS:;
-#X text 108 16 stereo reverb using the Schroeder/Moorer model;
-#X text 106 249 Right: audio input for the right channel.;
-#X text 106 223 Left: audio input for the left channel and message
+#X restore -77 484 pd Related_Objects;
+#X text -165 37 ARGUMENTS:;
+#X text -149 266 OUTLETS:;
+#X text -158 301 EXAMPLES:;
+#X text -161 483 SEE ALSO:;
+#X obj -162 12 freeverb~;
+#X text -142 219 INLETS:;
+#X text -73 12 stereo reverb using the Schroeder/Moorer model;
+#X text -75 245 Right: audio input for the right channel.;
+#X text -75 219 Left: audio input for the left channel and message
 input for settings messages.;
-#X text 106 270 Signal: the two outlets are the left and right channels
+#X text -75 266 Signal: the two outlets are the left and right channels
 of a stereo output pair.;
-#X obj 482 350 metro 580;
-#X obj 510 372 delay 120;
-#X msg 510 393 0;
-#X obj 436 414 noise~;
-#X obj 466 437 *~;
-#X msg 481 393 1;
-#X msg 392 393 0;
-#X obj 348 437 *~;
-#X msg 363 393 1;
-#X obj 364 350 metro 700;
-#X obj 392 372 delay 200;
-#X obj 304 414 osc~ 400;
-#X obj 348 465 freeverb~;
-#X obj 365 491 dac~;
-#X obj 416 307 tgl 30 0 empty empty start 1 15 1 12 -90049 -1 -1 0
+#X obj 301 346 metro 580;
+#X obj 329 368 delay 120;
+#X msg 329 389 0;
+#X obj 255 410 noise~;
+#X obj 285 433 *~;
+#X msg 300 389 1;
+#X msg 211 389 0;
+#X obj 167 433 *~;
+#X msg 182 389 1;
+#X obj 183 346 metro 700;
+#X obj 211 368 delay 200;
+#X obj 123 410 osc~ 400;
+#X obj 167 461 freeverb~;
+#X obj 184 487 dac~;
+#X obj 235 303 tgl 30 0 empty empty start 1 15 1 12 -90049 -1 -1 0
 1;
-#X obj 180 436 readsf~ 2;
-#X msg 170 369 open \$1;
-#X obj 170 350 openpanel;
-#X msg 263 312 \; pd dsp 1;
-#X obj 170 317 bng 30 250 50 0 empty empty open 1 15 1 12 -4080 -1
+#X obj -1 432 readsf~ 2;
+#X msg -11 365 open \$1;
+#X obj -11 346 openpanel;
+#X obj -11 303 bng 30 250 50 0 empty empty open 1 15 1 12 -4080 -1
 -228;
-#X obj 170 388 t b a;
-#X msg 157 412 1;
-#X msg 107 44 roomsize \$1;
-#X msg 107 66 damping \$1;
-#X msg 107 88 width \$1;
-#X msg 107 110 wet \$1;
-#X msg 107 132 dry \$1;
-#X msg 107 154 print;
-#X text 198 43 - size of the room to be simulated;
-#X msg 107 176 freeze \$1;
-#X msg 107 198 bypass \$1;
-#X text -179 76 comment;
-#X text 195 65 - amount of damping of room's surfaces;
-#X text 176 89 - stereo width of reverb;
-#X text 168 131 - level of unprocessed signal to include \, between
-0 and 1;
-#X text 172 110 - level of reverbed signal to include \, between 0
-and 1;
-#X text 170 153 - print the current values of the above parameters
+#X obj -11 384 t b a;
+#X msg -24 408 1;
+#X msg -74 40 roomsize \$1;
+#X msg -74 62 damping \$1;
+#X msg -74 84 width \$1;
+#X msg -74 106 wet \$1;
+#X msg -74 128 dry \$1;
+#X msg -74 150 print;
+#X msg -74 172 freeze \$1;
+#X msg -74 194 bypass \$1;
+#X text -11 149 - print the current values of the above parameters
 ;
-#X text 183 176 - start/stop freeze of reverb tail \, using 1 or 0
+#X text 2 172 - start/stop freeze of reverb tail \, using 1 or 0;
+#X text 6 193 - bypass the reverb processing \, using a 1 or 0;
+#N canvas 0 22 454 304 algorithm 0;
+#X text 32 52 freeverb~ is a simple implementation of the standard
+Schroeder/Moorer reverb model. It uses 8 comb filters in parallel on
+both channels. It then feeds the result of the reverb through 4 allpass
+filters in series on both channels. These "smooth" the sound. The filters
+on the right channel are slightly detuned compared to the left channel
+in order to create a stereo effect.;
+#X restore 19 510 pd algorithm notes;
+#X text -13 127 - level of unprocessed signal \, between 0 and 1 (default:
+0);
+#X text -9 106 - level of reverbed signal \, between 0 and 1 (default:
+0.3);
+#X text 13 61 - amount of damping of room's surfaces (default: 0.5)
 ;
-#X text 187 197 - bypass the reverb processing \, using a 1 or 0;
-#X text 152 541 - Hans-Christoph Steiner 2005 \, based on Olaf Matthes'
+#X text -5 85 - stereo width of reverb (default: 1);
+#X text 17 39 - size of the room to be simulated (default=0.85);
+#X text -29 537 Hans-Christoph Steiner 2005 \, based on Olaf Matthes'
 Max help;
+#X obj 98 310 pddp_dsp;
 #X connect 14 0 15 0;
 #X connect 14 0 19 0;
 #X connect 15 0 16 0;
@@ -194,9 +209,9 @@ Max help;
 #X connect 28 0 14 0;
 #X connect 29 0 26 0;
 #X connect 29 1 26 1;
-#X connect 30 0 34 0;
+#X connect 30 0 33 0;
 #X connect 31 0 30 0;
-#X connect 33 0 31 0;
-#X connect 34 0 35 0;
-#X connect 34 1 29 0;
-#X connect 35 0 29 0;
+#X connect 32 0 31 0;
+#X connect 33 0 34 0;
+#X connect 33 1 29 0;
+#X connect 34 0 29 0;