moved help files

svn path=/trunk/externals/ggee/; revision=1160

16 files changed, 199 insertions, 294 deletions

diff --git a/filters/bandpass-help.pd b/filters/bandpass-help.pd
new file mode 100644
index 0000000..959fc26
--- /dev/null
+++ b/filters/bandpass-help.pd
@@ -0,0 +1,23 @@
+#N canvas 295 68 566 339 10;
+#X obj 77 199 print;
+#X floatatom 77 114 0 0 0 0 - - -;
+#X floatatom 168 114 0 0 0 0 - - -;
+#X msg 91 138 bang;
+#X text 139 93 bandwidth (0 - 100);
+#X text 75 226 These filters are all controlled by a bandwidth which
+is expressed in octaves. A bandwidth of 100 is equivalent to one octave.
+;
+#X text 76 12 Bandpass coefficients for biquad~;
+#X text 70 26 ===================================;
+#X text 6 320 (C) Guenter Geiger 2000;
+#X text 75 92 frequency;
+#X text 75 268 Attention \, only the left inlet triggers new coefficients
+for biquad~;
+#X obj 77 160 bandpass 4000 33;
+#X obj 33 114 r doit;
+#X connect 1 0 11 0;
+#X connect 2 0 11 1;
+#X connect 2 0 3 0;
+#X connect 3 0 11 0;
+#X connect 11 0 0 0;
+#X connect 12 0 3 0;
diff --git a/filters/bandpass.pd b/filters/bandpass.pd
deleted file mode 100755
index 73cace4..0000000
--- a/filters/bandpass.pd
+++ /dev/null
@@ -1,38 +0,0 @@
-#N canvas 295 68 622 469 10;

-#X obj 77 199 print;

-#X floatatom 77 114 0 0 0;

-#X floatatom 139 114 0 0 0;

-#X msg 360 109 \; paint 0;

-#X obj 164 196 filtgain;

-#X msg 91 138 bang;

-#X text 139 93 bandwidth (0 - 100);

-#X text 6 334 See also:;

-#X obj 72 335 bandpass;

-#X obj 139 336 notch;

-#X obj 195 337 lowpass;

-#X obj 247 336 highpass;

-#X obj 247 358 equalizer;

-#X obj 72 357 highshelf;

-#X obj 139 357 lowshelf;

-#X obj 195 357 hlshelf;

-#X text 75 226 These filters are all controlled by a bandwidth which

-is expressed in octaves. A bandwidth of 100 is equivalent to one octave.

-;

-#X text 358 25 click first;

-#X text 186 159 click on filtgain to view frequency plot;

-#X text 76 12 Bandpass coefficients for biquad~;

-#X text 70 26 ===================================;

-#X text 6 393 (C) Guenter Geiger 2000;

-#X text 75 92 frequency;

-#X text 75 268 Attention \, only the left inlet triggers new coefficients

-for biquad~;

-#X obj 77 160 bandpass 4000 33;

-#X obj 33 114 r doit;

-#X msg 360 45 \; pd dsp 1 \; paint 1 \; doit bang \;;

-#X connect 1 0 24 0;

-#X connect 2 0 24 1;

-#X connect 2 0 5 0;

-#X connect 5 0 24 0;

-#X connect 24 0 0 0;

-#X connect 24 0 4 0;

-#X connect 25 0 5 0;

diff --git a/filters/equalizer-help.pd b/filters/equalizer-help.pd
new file mode 100644
index 0000000..2a80108
--- /dev/null
+++ b/filters/equalizer-help.pd
@@ -0,0 +1,27 @@
+#N canvas 212 148 577 304 10;
+#X obj 87 145 print;
+#X floatatom 87 77 0 0 0 0 - - -;
+#X floatatom 196 75 0 0 0 0 - - -;
+#X msg 101 101 bang;
+#X text 196 54 bandwidth (0 - 100);
+#X text 75 179 These filters are all controlled by a bandwidth which
+is expressed in octaves. A bandwidth of 100 is equivalent to one octave.
+;
+#X text 8 268 (C) Guenter Geiger 2000;
+#X text 85 55 frequency;
+#X text 75 221 Attention \, only the left inlet triggers new coefficients
+for biquad~;
+#X floatatom 139 76 0 0 0 0 - - -;
+#X text 148 55 gain;
+#X text 71 26 ==============================================;
+#X text 76 12 Parametric Equalizer coefficients for biquad~;
+#X obj 87 123 equalizer 5000 70 8;
+#X obj 41 77 r doit;
+#X connect 1 0 13 0;
+#X connect 2 0 3 0;
+#X connect 2 0 13 2;
+#X connect 3 0 13 0;
+#X connect 9 0 3 0;
+#X connect 9 0 13 1;
+#X connect 13 0 0 0;
+#X connect 14 0 13 0;
diff --git a/filters/equalizer.pd b/filters/equalizer.pd
deleted file mode 100755
index 05f7c56..0000000
--- a/filters/equalizer.pd
+++ /dev/null
@@ -1,39 +0,0 @@
-#N canvas 561 126 620 459 10;

-#X obj 77 182 print;

-#X floatatom 77 114;

-#X floatatom 186 112;

-#X msg 360 117 \; paint 0;

-#X obj 159 175 filtgain;

-#X msg 91 138 bang;

-#X text 186 91 bandwidth (0 - 100);

-#X text 6 334 See also:;

-#X obj 72 335 bandpass;

-#X obj 139 336 notch;

-#X obj 195 337 lowpass;

-#X obj 247 336 highpass;

-#X obj 247 358 equalizer;

-#X obj 72 357 highshelf;

-#X obj 139 357 lowshelf;

-#X obj 195 357 hlshelf;

-#X text 75 226 These filters are all controlled by a bandwidth which is expressed in octaves. A bandwidth of 100 is equivalent to one octave.;

-#X text 358 25 click first;

-#X text 200 158 click on filtgain to view frequency plot;

-#X text 6 393 (C) Guenter Geiger 2000;

-#X text 75 92 frequency;

-#X text 75 268 Attention \, only the left inlet triggers new coefficients for biquad~;

-#X floatatom 129 113;

-#X text 138 92 gain;

-#X text 71 26 ==============================================;

-#X text 76 12 Parametric Equalizer coefficients for biquad~;

-#X obj 77 160 equalizer 5000 70 8;

-#X obj 31 114 r doit;

-#X msg 360 45 \; pd dsp 1 \; paint 1 \; doit bang \;;

-#X connect 1 0 26 0;

-#X connect 2 0 5 0;

-#X connect 2 0 26 2;

-#X connect 5 0 26 0;

-#X connect 22 0 5 0;

-#X connect 22 0 26 1;

-#X connect 26 0 0 0;

-#X connect 26 0 4 0;

-#X connect 27 0 26 0;

diff --git a/filters/highpass-help.pd b/filters/highpass-help.pd
new file mode 100644
index 0000000..954b05c
--- /dev/null
+++ b/filters/highpass-help.pd
@@ -0,0 +1,23 @@
+#N canvas 365 183 559 332 10;
+#X obj 77 151 print;
+#X floatatom 77 83 0 0 0 0 - - -;
+#X floatatom 168 84 0 0 0 0 - - -;
+#X msg 91 107 bang;
+#X text 168 63 bandwidth (0 - 100);
+#X text 75 195 These filters are all controlled by a bandwidth which
+is expressed in octaves. A bandwidth of 100 is equivalent to one octave.
+;
+#X text 70 26 ===================================;
+#X text 3 308 (C) Guenter Geiger 2000;
+#X text 75 61 frequency;
+#X text 75 237 Attention \, only the left inlet triggers new coefficients
+for biquad~;
+#X text 76 12 Highpass coefficients for biquad~;
+#X obj 77 129 highpass 4000 33;
+#X obj 34 82 r doit;
+#X connect 1 0 11 0;
+#X connect 2 0 3 0;
+#X connect 2 0 11 1;
+#X connect 3 0 11 0;
+#X connect 11 0 0 0;
+#X connect 12 0 11 0;
diff --git a/filters/highpass.pd b/filters/highpass.pd
deleted file mode 100755
index e953888..0000000
--- a/filters/highpass.pd
+++ /dev/null
@@ -1,35 +0,0 @@
-#N canvas 365 183 620 463 10;

-#X obj 77 182 print;

-#X floatatom 77 114;

-#X floatatom 168 115;

-#X msg 360 109 \; paint 0;

-#X obj 159 175 filtgain;

-#X msg 91 138 bang;

-#X text 168 94 bandwidth (0 - 100);

-#X text 6 334 See also:;

-#X obj 72 335 bandpass;

-#X obj 139 336 notch;

-#X obj 195 337 lowpass;

-#X obj 247 336 highpass;

-#X obj 247 358 equalizer;

-#X obj 72 357 highshelf;

-#X obj 139 357 lowshelf;

-#X obj 195 357 hlshelf;

-#X text 75 226 These filters are all controlled by a bandwidth which is expressed in octaves. A bandwidth of 100 is equivalent to one octave.;

-#X text 358 25 click first;

-#X text 182 148 click on filtgain to view frequency plot;

-#X text 70 26 ===================================;

-#X text 6 393 (C) Guenter Geiger 2000;

-#X text 75 92 frequency;

-#X text 75 268 Attention \, only the left inlet triggers new coefficients for biquad~;

-#X text 76 12 Highpass coefficients for biquad~;

-#X obj 77 160 highpass 4000 33;

-#X obj 34 113 r doit;

-#X msg 360 45 \; pd dsp 1 \; paint 1 \; doit bang \;;

-#X connect 1 0 24 0;

-#X connect 2 0 5 0;

-#X connect 2 0 24 1;

-#X connect 5 0 24 0;

-#X connect 24 0 0 0;

-#X connect 24 0 4 0;

-#X connect 25 0 24 0;

diff --git a/filters/highshelf.pd b/filters/highshelf.pd
index be2a577..b2ab9f1 100755
--- a/filters/highshelf.pd
+++ b/filters/highshelf.pd
@@ -1,39 +1,27 @@
-#N canvas 310 193 620 455 10;

-#X obj 77 182 print;

-#X floatatom 77 114;

-#X floatatom 186 112;

-#X msg 360 117 \; paint 0;

-#X obj 159 175 filtgain;

-#X msg 91 138 bang;

-#X text 6 334 See also:;

-#X obj 72 335 bandpass;

-#X obj 139 336 notch;

-#X obj 195 337 lowpass;

-#X obj 247 336 highpass;

-#X obj 247 358 equalizer;

-#X obj 72 357 highshelf;

-#X obj 139 357 lowshelf;

-#X obj 195 357 hlshelf;

-#X text 75 226 These filters are all controlled by a bandwidth which is expressed in octaves. A bandwidth of 100 is equivalent to one octave.;

-#X text 358 25 click first;

-#X text 208 159 click on filtgain to view frequency plot;

-#X text 6 393 (C) Guenter Geiger 2000;

-#X text 75 92 frequency;

-#X text 75 268 Attention \, only the left inlet triggers new coefficients for biquad~;

-#X floatatom 129 113;

-#X text 138 92 gain;

-#X text 71 26 ==============================================;

-#X text 186 91 slope (0 - 100);

-#X text 76 12 Highshelf coefficients for biquad~;

-#X obj 77 160 highshelf 5000 70 100;

-#X obj 30 113 r doit;

-#X msg 360 45 \; pd dsp 1 \; paint 1 \; doit bang \;;

-#X connect 1 0 26 0;

-#X connect 2 0 5 0;

-#X connect 2 0 26 2;

-#X connect 5 0 26 0;

-#X connect 21 0 5 0;

-#X connect 21 0 26 1;

-#X connect 26 0 0 0;

-#X connect 26 0 4 0;

-#X connect 27 0 26 0;

+#N canvas 310 193 553 339 10;
+#X obj 77 182 print;
+#X floatatom 77 114 0 0 0 0 - - -;
+#X floatatom 186 112 0 0 0 0 - - -;
+#X msg 91 138 bang;
+#X text 75 226 These filters are all controlled by a bandwidth which
+is expressed in octaves. A bandwidth of 100 is equivalent to one octave.
+;
+#X text 4 317 (C) Guenter Geiger 2000;
+#X text 75 92 frequency;
+#X text 75 268 Attention \, only the left inlet triggers new coefficients
+for biquad~;
+#X floatatom 129 113 0 0 0 0 - - -;
+#X text 138 92 gain;
+#X text 71 26 ==============================================;
+#X text 186 91 slope (0 - 100);
+#X text 76 12 Highshelf coefficients for biquad~;
+#X obj 77 160 highshelf 5000 70 100;
+#X obj 30 113 r doit;
+#X connect 1 0 13 0;
+#X connect 2 0 3 0;
+#X connect 2 0 13 2;
+#X connect 3 0 13 0;
+#X connect 8 0 3 0;
+#X connect 8 0 13 1;
+#X connect 13 0 0 0;
+#X connect 14 0 13 0;
diff --git a/filters/hlshelf-help.pd b/filters/hlshelf-help.pd
new file mode 100644
index 0000000..91496f8
--- /dev/null
+++ b/filters/hlshelf-help.pd
@@ -0,0 +1,28 @@
+#N canvas 365 183 620 471 10;
+#X obj 38 182 print;
+#X floatatom 38 114 0 0 0 0 - - -;
+#X floatatom 71 115 0 0 0 0 - - -;
+#X text 37 12 Bandpass coefficients for biquad~;
+#X text 31 26 ===================================;
+#X text 7 313 (C) Guenter Geiger 2000;
+#X text 36 268 Attention \, only the left inlet triggers new coefficients
+for biquad~;
+#X obj 38 160 hlshelf;
+#X floatatom 106 114 0 0 0 0 - - -;
+#X text 36 99;
+#X floatatom 173 114 0 0 0 0 - - -;
+#X floatatom 212 115 0 0 0 0 - - -;
+#X text 31 90 gain0;
+#X text 70 89 gain1;
+#X text 111 89 gain2;
+#X text 171 89 f-low;
+#X text 214 90 f-high;
+#X text 33 218 The hlshelf object creates filter coefficients for the
+biquad~ filter. The three shelfs of the filter are controlled through
+the gains \, the boundaries of the areas through f-low and f-high;
+#X connect 1 0 7 0;
+#X connect 2 0 7 1;
+#X connect 7 0 0 0;
+#X connect 8 0 7 2;
+#X connect 10 0 7 3;
+#X connect 11 0 7 4;
diff --git a/filters/hlshelf.pd b/filters/hlshelf.pd
deleted file mode 100755
index 0e5251d..0000000
--- a/filters/hlshelf.pd
+++ /dev/null
@@ -1,34 +0,0 @@
-#N canvas 365 183 620 471 10;

-#X obj 77 182 print;

-#X floatatom 77 114;

-#X floatatom 139 114;

-#X msg 360 109 \; paint 0;

-#X obj 159 175 filtgain;

-#X text 139 93 bandwidth (0 - 100);

-#X text 6 334 See also:;

-#X obj 72 335 bandpass;

-#X obj 139 336 notch;

-#X obj 195 337 lowpass;

-#X obj 247 336 highpass;

-#X obj 247 358 equalizer;

-#X obj 72 357 highshelf;

-#X obj 139 357 lowshelf;

-#X obj 195 357 hlshelf;

-#X text 75 226 These filters are all controlled by a bandwidth which is expressed in octaves. A bandwidth of 100 is equivalent to one octave.;

-#X text 358 25 click first;

-#X text 158 159 click on filtgain to view frequency plot;

-#X text 76 12 Bandpass coefficients for biquad~;

-#X text 70 26 ===================================;

-#X text 6 393 (C) Guenter Geiger 2000;

-#X text 75 92 frequency;

-#X text 75 268 Attention \, only the left inlet triggers new coefficients for biquad~;

-#X obj 77 61 r freq;

-#X obj 139 61 r bw;

-#X msg 360 45 \; pd dsp 1 \; paint 1 \; freq 4000 \; bw 33;

-#X obj 77 160 hlshelf;

-#X connect 1 0 26 0;

-#X connect 2 0 26 1;

-#X connect 23 0 1 0;

-#X connect 24 0 2 0;

-#X connect 26 0 0 0;

-#X connect 26 0 4 0;

diff --git a/filters/lowpass-help.pd b/filters/lowpass-help.pd
new file mode 100644
index 0000000..ca6b1cf
--- /dev/null
+++ b/filters/lowpass-help.pd
@@ -0,0 +1,23 @@
+#N canvas 365 183 515 357 10;
+#X obj 77 182 print;
+#X floatatom 77 114 0 0 0 0 - - -;
+#X floatatom 162 114 0 0 0 0 - - -;
+#X msg 91 138 bang;
+#X text 139 93 bandwidth (0 - 100);
+#X text 75 226 These filters are all controlled by a bandwidth which
+is expressed in octaves. A bandwidth of 100 is equivalent to one octave.
+;
+#X text 70 26 ===================================;
+#X text 5 320 (C) Guenter Geiger 2000;
+#X text 75 92 frequency;
+#X text 75 268 Attention \, only the left inlet triggers new coefficients
+for biquad~;
+#X text 71 12 Lowpass coefficients for biquad~;
+#X obj 32 114 r doit;
+#X obj 77 160 lowpass 4000 33;
+#X connect 1 0 12 0;
+#X connect 2 0 3 0;
+#X connect 2 0 12 1;
+#X connect 3 0 12 0;
+#X connect 11 0 12 0;
+#X connect 12 0 0 0;
diff --git a/filters/lowpass.pd b/filters/lowpass.pd
deleted file mode 100755
index 9d15c16..0000000
--- a/filters/lowpass.pd
+++ /dev/null
@@ -1,35 +0,0 @@
-#N canvas 365 183 620 467 10;

-#X obj 77 182 print;

-#X floatatom 77 114;

-#X floatatom 162 114;

-#X msg 360 109 \; paint 0;

-#X obj 159 175 filtgain;

-#X msg 91 138 bang;

-#X text 139 93 bandwidth (0 - 100);

-#X text 6 334 See also:;

-#X obj 72 335 bandpass;

-#X obj 139 336 notch;

-#X obj 195 337 lowpass;

-#X obj 247 336 highpass;

-#X obj 247 358 equalizer;

-#X obj 72 357 highshelf;

-#X obj 139 357 lowshelf;

-#X obj 195 357 hlshelf;

-#X text 75 226 These filters are all controlled by a bandwidth which is expressed in octaves. A bandwidth of 100 is equivalent to one octave.;

-#X text 358 25 click first;

-#X text 175 159 click on filtgain to view frequency plot;

-#X text 70 26 ===================================;

-#X text 6 393 (C) Guenter Geiger 2000;

-#X text 75 92 frequency;

-#X text 75 268 Attention \, only the left inlet triggers new coefficients for biquad~;

-#X text 71 12 Lowpass coefficients for biquad~;

-#X msg 360 45 \; pd dsp 1 \; paint 1 \; doit bang \;;

-#X obj 32 114 r doit;

-#X obj 77 160 lowpass 4000 33;

-#X connect 1 0 26 0;

-#X connect 2 0 5 0;

-#X connect 2 0 26 1;

-#X connect 5 0 26 0;

-#X connect 25 0 26 0;

-#X connect 26 0 0 0;

-#X connect 26 0 4 0;

diff --git a/filters/lowshelf-help.pd b/filters/lowshelf-help.pd
new file mode 100644
index 0000000..ad320a0
--- /dev/null
+++ b/filters/lowshelf-help.pd
@@ -0,0 +1,27 @@
+#N canvas 365 183 595 347 10;
+#X obj 77 182 print;
+#X floatatom 77 114 0 0 0 0 - - -;
+#X floatatom 192 113 0 0 0 0 - - -;
+#X msg 91 138 bang;
+#X text 75 226 These filters are all controlled by a bandwidth which
+is expressed in octaves. A bandwidth of 100 is equivalent to one octave.
+;
+#X text 4 319 (C) Guenter Geiger 2000;
+#X text 75 92 frequency;
+#X text 75 268 Attention \, only the left inlet triggers new coefficients
+for biquad~;
+#X floatatom 129 113 0 0 0 0 - - -;
+#X text 138 92 gain;
+#X text 71 26 ==============================================;
+#X text 192 92 slope (0 - 100);
+#X text 76 12 Lowshelf coefficients for biquad~;
+#X obj 31 113 r doit;
+#X obj 77 160 lowshelf 4000 50 100;
+#X connect 1 0 14 0;
+#X connect 2 0 3 0;
+#X connect 2 0 14 2;
+#X connect 3 0 14 0;
+#X connect 8 0 3 0;
+#X connect 8 0 14 1;
+#X connect 13 0 14 0;
+#X connect 14 0 0 0;
diff --git a/filters/lowshelf.pd b/filters/lowshelf.pd
deleted file mode 100755
index 140c754..0000000
--- a/filters/lowshelf.pd
+++ /dev/null
@@ -1,39 +0,0 @@
-#N canvas 365 183 620 459 10;

-#X obj 77 182 print;

-#X floatatom 77 114;

-#X floatatom 192 113;

-#X msg 360 117 \; paint 0;

-#X obj 159 175 filtgain;

-#X msg 91 138 bang;

-#X text 6 334 See also:;

-#X obj 72 335 bandpass;

-#X obj 139 336 notch;

-#X obj 195 337 lowpass;

-#X obj 247 336 highpass;

-#X obj 247 358 equalizer;

-#X obj 72 357 highshelf;

-#X obj 139 357 lowshelf;

-#X obj 195 357 hlshelf;

-#X text 75 226 These filters are all controlled by a bandwidth which is expressed in octaves. A bandwidth of 100 is equivalent to one octave.;

-#X text 358 25 click first;

-#X text 211 159 click on filtgain to view frequency plot;

-#X text 6 393 (C) Guenter Geiger 2000;

-#X text 75 92 frequency;

-#X text 75 268 Attention \, only the left inlet triggers new coefficients for biquad~;

-#X floatatom 129 113;

-#X text 138 92 gain;

-#X text 71 26 ==============================================;

-#X text 192 92 slope (0 - 100);

-#X text 76 12 Lowshelf coefficients for biquad~;

-#X obj 31 113 r doit;

-#X msg 360 45 \; pd dsp 1 \; paint 1 \; doit bang \;;

-#X obj 77 160 lowshelf 4000 50 100;

-#X connect 1 0 28 0;

-#X connect 2 0 5 0;

-#X connect 2 0 28 2;

-#X connect 5 0 28 0;

-#X connect 21 0 5 0;

-#X connect 21 0 28 1;

-#X connect 26 0 28 0;

-#X connect 28 0 0 0;

-#X connect 28 0 4 0;

diff --git a/filters/moog~.pd b/filters/moog~-help.pd
index 7e0139b..7e0139b 100755..100644
--- a/filters/moog~.pd
+++ b/filters/moog~-help.pd
diff --git a/filters/notch-help.pd b/filters/notch-help.pd
new file mode 100644
index 0000000..ee53e7d
--- /dev/null
+++ b/filters/notch-help.pd
@@ -0,0 +1,21 @@
+#N canvas 363 47 641 397 10;
+#X obj 68 149 print;
+#X floatatom 68 81 0 0 0 0 - - -;
+#X floatatom 141 81 0 0 0 0 - - -;
+#X msg 82 105 bang;
+#X text 141 60 bandwidth (0 - 100);
+#X text 66 193 These filters are all controlled by a bandwidth which
+is expressed in octaves. A bandwidth of 100 is equivalent to one octave.
+;
+#X text 70 26 ===================================;
+#X text 7 310 (C) Guenter Geiger 2000;
+#X text 66 59 frequency;
+#X text 66 235 Attention \, only the left inlet triggers new coefficients
+for biquad~;
+#X text 72 13 Notch coefficients for biquad~;
+#X obj 68 127 notch 4000 33;
+#X connect 1 0 11 0;
+#X connect 2 0 3 0;
+#X connect 2 0 11 1;
+#X connect 3 0 11 0;
+#X connect 11 0 0 0;
diff --git a/filters/notch.pd b/filters/notch.pd
deleted file mode 100755
index a65d9c4..0000000
--- a/filters/notch.pd
+++ /dev/null
@@ -1,35 +0,0 @@
-#N canvas 363 47 620 467 10;

-#X obj 77 182 print;

-#X floatatom 77 114;

-#X floatatom 150 114;

-#X msg 360 109 \; paint 0;

-#X obj 159 175 filtgain;

-#X msg 91 138 bang;

-#X text 150 93 bandwidth (0 - 100);

-#X text 6 334 See also:;

-#X obj 72 335 bandpass;

-#X obj 139 336 notch;

-#X obj 195 337 lowpass;

-#X obj 247 336 highpass;

-#X obj 247 358 equalizer;

-#X obj 72 357 highshelf;

-#X obj 139 357 lowshelf;

-#X obj 195 357 hlshelf;

-#X text 75 226 These filters are all controlled by a bandwidth which is expressed in octaves. A bandwidth of 100 is equivalent to one octave.;

-#X text 358 25 click first;

-#X text 165 159 click on filtgain to view frequency plot;

-#X text 70 26 ===================================;

-#X text 6 393 (C) Guenter Geiger 2000;

-#X text 75 92 frequency;

-#X text 75 268 Attention \, only the left inlet triggers new coefficients for biquad~;

-#X text 72 13 Notch coefficients for biquad~;

-#X msg 360 46 \; pd dsp 1 \; paint 1 \; doit bang \;;

-#X obj 35 114 r doit;

-#X obj 77 160 notch 4000 33;

-#X connect 1 0 26 0;

-#X connect 2 0 5 0;

-#X connect 2 0 26 1;

-#X connect 5 0 26 0;

-#X connect 25 0 26 0;

-#X connect 26 0 0 0;

-#X connect 26 0 4 0;