added set message to set internal state of filter, more silent gain

svn path=/trunk/externals/iemlib/; revision=15090

5 files changed, 398 insertions, 320 deletions

diff --git a/iemlib1/FIR~-help.pd b/iemlib1/FIR~-help.pd
index 7153aa4..0f1f517 100644
--- a/iemlib1/FIR~-help.pd
+++ b/iemlib1/FIR~-help.pd
@@ -1,67 +1,67 @@
-#N canvas 345 25 523 623 10;

-#N canvas 0 0 450 300 graph1 0;

-#X array fir_coeff 256 float 0;

-#X coords 0 1 255 -1 256 140 1;

-#X restore 63 195 graph;

-#X obj 109 154 soundfiler;

-#X floatatom 4 133 5 0 0 0 - - -;

-#X text 32 96 % cpu;

-#X obj 4 93 dsp;

-#X obj 4 73 tgl 15 0 empty empty dsp_ON/OFF 2 -8 0 10 -225271 -42246

--90881 0 1;

-#X floatatom 413 444 7 0 0 0 - - -;

-#X obj 342 323 dac~;

-#X obj 342 297 gainvu~ 300;

-#X obj 404 319 vu 15 120 empty empty 8 -8 0 10 -66577 -1 1 0;

-#X obj 471 166 vsl 15 128 0 127 0 1 empty empty gain -7 -8 0 10 -225271

--42246 -90881 6000 1;

-#X obj 343 75 noise~;

-#X floatatom 403 462 7 0 0 0 - - -;

-#X obj 109 71 bng 15 250 50 1 empty empty loadbang 0 -8 0 10 -225271

--24198 -90881;

-#X msg 109 91 read -resize lp1.wav fir_coeff;

-#X msg 114 112 read -resize lp2.wav fir_coeff;

-#X msg 121 132 read -resize lp3.wav fir_coeff;

-#X obj 19 406 soundfiler;

-#N canvas 0 0 450 300 graph1 0;

-#X array fir_coeff2 256 float 0;

-#X coords 0 1 255 -1 256 140 1;

-#X restore 70 452 graph;

-#X msg 20 385 read -resize lp3.wav fir_coeff2;

-#X obj 20 365 bng 15 250 50 1 empty empty loadbang 0 -8 0 10 -225271

--24198 -90881;

-#X msg 359 105 set fir_coeff 256;

-#X msg 373 127 set fir_coeff2 256;

-#X floatatom 17 113 5 0 0 0 - - -;

-#X obj 343 155 FIR~ fir_coeff 256;

-#X text 398 517 IEM KUG;

-#X text 382 505 musil;

-#X text 412 505 @;

-#X text 418 505 iem.at;

-#X text 333 494 (c) Thomas Musil 2000 - 2005;

-#X text 381 527 Graz \, Austria;

-#X text 15 13 FIR~;

-#X text 50 12 convolve a signal with an array;

-#X text 276 5 1.arg: <symbol> array-name;

-#X text 276 15 2.arg: <float> convolution-length;

-#X floatatom 372 273 5 0 0 0 - - -;

-#X connect 4 0 2 0;

-#X connect 4 1 23 0;

-#X connect 5 0 4 0;

-#X connect 8 0 7 0;

-#X connect 8 0 7 1;

-#X connect 8 1 35 0;

-#X connect 8 2 9 0;

-#X connect 9 0 12 0;

-#X connect 9 1 6 0;

-#X connect 10 0 8 1;

-#X connect 11 0 24 0;

-#X connect 13 0 14 0;

-#X connect 14 0 1 0;

-#X connect 15 0 1 0;

-#X connect 16 0 1 0;

-#X connect 19 0 17 0;

-#X connect 20 0 19 0;

-#X connect 21 0 24 0;

-#X connect 22 0 24 0;

-#X connect 24 0 8 0;

+#N canvas 345 25 559 627 10;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array fir_coeff 256 float 0;
+#X coords 0 1 255 -1 256 140 1;
+#X restore 63 195 graph;
+#X obj 109 154 soundfiler;
+#X floatatom 4 133 5 0 0 0 - - -;
+#X text 32 96 % cpu;
+#X obj 4 93 dsp;
+#X obj 4 73 tgl 15 0 empty empty dsp_ON/OFF 2 -8 0 10 -225271 -42246
+-90881 1 1;
+#X floatatom 413 444 7 0 0 0 - - -;
+#X obj 342 323 dac~;
+#X obj 342 297 gainvu~ 300;
+#X obj 404 319 vu 15 120 empty empty 8 -8 0 10 -66577 -1 1 0;
+#X obj 491 166 vsl 15 128 0 127 0 1 empty empty gain -7 -8 0 10 -225271
+-42246 -90881 4400 1;
+#X obj 343 75 noise~;
+#X floatatom 403 462 7 0 0 0 - - -;
+#X obj 109 71 bng 15 250 50 1 empty empty loadbang 0 -8 0 10 -225271
+-24198 -90881;
+#X msg 109 91 read -resize lp1.wav fir_coeff;
+#X msg 114 112 read -resize lp2.wav fir_coeff;
+#X msg 121 132 read -resize lp3.wav fir_coeff;
+#X obj 19 406 soundfiler;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array fir_coeff2 256 float 0;
+#X coords 0 1 255 -1 256 140 1;
+#X restore 70 452 graph;
+#X msg 20 385 read -resize lp3.wav fir_coeff2;
+#X obj 20 365 bng 15 250 50 1 empty empty loadbang 0 -8 0 10 -225271
+-24198 -90881;
+#X msg 359 105 set fir_coeff 256;
+#X msg 373 127 set fir_coeff2 256;
+#X floatatom 17 113 5 0 0 0 - - -;
+#X obj 343 155 FIR~ fir_coeff 256;
+#X text 398 517 IEM KUG;
+#X text 382 505 musil;
+#X text 412 505 @;
+#X text 418 505 iem.at;
+#X text 333 494 (c) Thomas Musil 2000 - 2005;
+#X text 381 527 Graz \, Austria;
+#X text 15 13 FIR~;
+#X text 50 12 convolve a signal with an array;
+#X text 276 5 1.arg: <symbol> array-name;
+#X text 276 15 2.arg: <float> convolution-length;
+#X floatatom 376 273 5 0 0 0 - - -;
+#X connect 4 0 2 0;
+#X connect 4 1 23 0;
+#X connect 5 0 4 0;
+#X connect 8 0 7 0;
+#X connect 8 0 7 1;
+#X connect 8 1 35 0;
+#X connect 8 2 9 0;
+#X connect 9 0 12 0;
+#X connect 9 1 6 0;
+#X connect 10 0 8 1;
+#X connect 11 0 24 0;
+#X connect 13 0 14 0;
+#X connect 14 0 1 0;
+#X connect 15 0 1 0;
+#X connect 16 0 1 0;
+#X connect 19 0 17 0;
+#X connect 20 0 19 0;
+#X connect 21 0 24 0;
+#X connect 22 0 24 0;
+#X connect 24 0 8 0;
diff --git a/iemlib1/hml_shelf~-help.pd b/iemlib1/hml_shelf~-help.pd
index b2250d3..fa652de 100644
--- a/iemlib1/hml_shelf~-help.pd
+++ b/iemlib1/hml_shelf~-help.pd
@@ -1,99 +1,104 @@
-#N canvas 105 49 635 570 10;

-#X text 29 39 dsp ON/OFF;

-#X floatatom 435 513 7 0 0 0 - - -;

-#X text 491 514 dB;

-#X floatatom 120 158 9 0 22000 0 - - -;

-#X text 190 160 Hz;

-#X floatatom 47 110 3 15 133 0 - - -;

-#X floatatom 12 79 5 0 0 0 - - -;

-#X text 52 80 % cpu;

-#X floatatom 261 304 5 2 9999 0 - - -;

-#X text 303 304 ms;

-#X obj 12 59 dsp;

-#X obj 12 39 tgl 15 0 empty empty empty 8 -8 0 10 -262144 -1 -1 0 1

-;

-#X obj 47 393 dac~;

-#X obj 47 368 gainvu~ 300;

-#X obj 426 387 vu 15 120 empty empty 8 -8 0 8 -66577 -1 1 0;

-#X obj 530 237 vsl 15 128 0 127 0 1 empty empty empty 8 -8 0 10 -262144

--1 -1 7000 1;

-#X obj 47 132 testtone~ 200;

-#X obj 114 93 init 69;

-#X text 74 111 midi;

-#X text 200 144 6.arg:<float> interpolation_time [ms];

-#X text 200 91 1.arg:<float> low_level [dB];

-#X text 200 101 2.arg:<float> low_freq. [Hz];

-#X text 200 112 3.arg:<float> medium_level [dB];

-#X text 200 122 4.arg:<float> high_freq. [Hz];

-#X text 200 133 5.arg:<float> high_level [dB];

-#X obj 47 328 hml_shelf~ 6 100 0 4000 -6 200;

-#X obj 328 213 vsl 15 49 27.5 440 1 1 empty empty low_freq. -8 -8 0

-8 -262144 -1 -1 1200 1;

-#X obj 81 216 vsl 15 81 -40 40 0 1 empty empty low_level -18 -8 0 8

--262144 -1 -1 3000 1;

-#X obj 149 215 vsl 15 81 -40 40 0 1 empty empty mid_level -10 -8 0

-8 -262144 -1 -1 4000 1;

-#X obj 217 214 vsl 15 81 -40 40 0 1 empty empty high_level 0 -8 0 8

--262144 -1 -1 3000 1;

-#X text 345 207 -440Hz;

-#X text 345 255 -27.5Hz;

-#X text 345 231 -110Hz;

-#X obj 399 213 vsl 15 49 880 14080 1 1 empty empty high_freq. -8 -8

-0 8 -262144 -1 -1 3800 1;

-#X text 416 207 -14080Hz;

-#X text 416 255 -880Hz;

-#X text 416 231 -3520Hz;

-#X floatatom 530 385 7 0 0 0 - - -;

-#X text 588 387 dB;

-#X floatatom 81 305 4 0 0 0 - - -;

-#X floatatom 149 304 4 0 0 0 - - -;

-#X floatatom 217 303 4 0 0 0 - - -;

-#X floatatom 328 305 8 0 0 0 - - -;

-#X floatatom 399 305 8 0 0 0 - - -;

-#X text 157 8 high-middle-low-shelving-filter;

-#X text 4 311 signal_in~;

-#X text 97 211 +40;

-#X text 99 250 0;

-#X text 97 290 -40;

-#X text 167 249 0;

-#X text 165 289 -40;

-#X text 165 210 +40;

-#X text 233 209 +40;

-#X text 235 248 0;

-#X text 233 288 -40;

-#X text 80 188 dB;

-#X text 147 186 dB;

-#X text 216 186 dB;

-#X text 54 346 signal_out~;

-#X obj 12 13 cnv 8 1 1 empty empty hml_shelf~ 1 2 1 18 -262144 -1109

-0;

-#X text 78 467 IEM KUG;

-#X text 62 455 musil;

-#X text 92 455 @;

-#X text 98 455 iem.at;

-#X text 13 444 (c) Thomas Musil 2000 - 2005;

-#X text 61 477 Graz \, Austria;

-#X connect 5 0 16 0;

-#X connect 8 0 25 6;

-#X connect 10 0 6 0;

-#X connect 11 0 10 0;

-#X connect 13 0 12 0;

-#X connect 13 0 12 1;

-#X connect 13 1 37 0;

-#X connect 13 2 14 0;

-#X connect 14 1 1 0;

-#X connect 15 0 13 1;

-#X connect 16 0 25 0;

-#X connect 16 1 3 0;

-#X connect 17 0 5 0;

-#X connect 25 0 13 0;

-#X connect 26 0 42 0;

-#X connect 27 0 39 0;

-#X connect 28 0 40 0;

-#X connect 29 0 41 0;

-#X connect 33 0 43 0;

-#X connect 39 0 25 1;

-#X connect 40 0 25 3;

-#X connect 41 0 25 5;

-#X connect 42 0 25 2;

-#X connect 43 0 25 4;

+#N canvas 105 49 635 570 10;
+#X text 29 39 dsp ON/OFF;
+#X floatatom 435 513 7 0 0 0 - - -;
+#X text 491 514 dB;
+#X floatatom 120 158 9 0 22000 0 - - -;
+#X text 190 160 Hz;
+#X floatatom 47 110 3 15 133 0 - - -;
+#X floatatom 12 79 5 0 0 0 - - -;
+#X text 52 80 % cpu;
+#X floatatom 274 304 5 2 9999 0 - - -;
+#X text 312 304 ms;
+#X obj 12 59 dsp;
+#X obj 12 39 tgl 15 0 empty empty empty 8 -8 0 10 -262144 -1 -1 0 1
+;
+#X obj 47 393 dac~;
+#X obj 47 368 gainvu~ 300;
+#X obj 426 387 vu 15 120 empty empty 8 -8 0 8 -66577 -1 1 0;
+#X obj 530 237 vsl 15 128 0 127 0 0 empty empty empty 8 -8 0 10 -262144
+-1 -1 6000 1;
+#X obj 47 132 testtone~ 200;
+#X obj 114 93 init 69;
+#X text 74 111 midi;
+#X text 200 144 6.arg:<float> interpolation_time [ms];
+#X text 200 91 1.arg:<float> low_level [dB];
+#X text 200 101 2.arg:<float> low_freq. [Hz];
+#X text 200 112 3.arg:<float> medium_level [dB];
+#X text 200 122 4.arg:<float> high_freq. [Hz];
+#X text 200 133 5.arg:<float> high_level [dB];
+#X obj 341 213 vsl 15 49 27.5 440 1 1 empty empty low_freq. -8 -8 0
+8 -262144 -1 -1 2200 1;
+#X obj 85 216 vsl 15 81 -40 40 0 1 empty empty low_level -18 -8 0 8
+-262144 -1 -1 3000 1;
+#X obj 161 215 vsl 15 81 -40 40 0 1 empty empty mid_level -10 -8 0
+8 -262144 -1 -1 4000 1;
+#X obj 236 214 vsl 15 81 -40 40 0 1 empty empty high_level 0 -8 0 8
+-262144 -1 -1 3000 1;
+#X text 358 207 -440Hz;
+#X text 358 255 -27.5Hz;
+#X text 358 231 -110Hz;
+#X obj 421 213 vsl 15 49 880 14080 1 1 empty empty high_freq. -8 -8
+0 8 -262144 -1 -1 2400 1;
+#X text 438 207 -14080Hz;
+#X text 438 255 -880Hz;
+#X text 438 231 -3520Hz;
+#X floatatom 530 385 7 0 0 0 - - -;
+#X text 588 387 dB;
+#X floatatom 85 305 4 0 0 0 - - -;
+#X floatatom 161 304 4 0 0 0 - - -;
+#X floatatom 236 303 4 0 0 0 - - -;
+#X floatatom 341 305 8 0 0 0 - - -;
+#X floatatom 421 305 8 0 0 0 - - -;
+#X text 157 8 high-middle-low-shelving-filter;
+#X text 4 311 signal_in~;
+#X text 101 211 +40;
+#X text 103 250 0;
+#X text 101 290 -40;
+#X text 179 249 0;
+#X text 177 289 -40;
+#X text 177 210 +40;
+#X text 252 209 +40;
+#X text 254 248 0;
+#X text 252 288 -40;
+#X text 84 188 dB;
+#X text 159 186 dB;
+#X text 235 186 dB;
+#X text 54 346 signal_out~;
+#X obj 12 13 cnv 8 1 1 empty empty hml_shelf~ 1 2 1 18 -262144 -1109
+0;
+#X text 78 467 IEM KUG;
+#X text 62 455 musil;
+#X text 92 455 @;
+#X text 98 455 iem.at;
+#X text 13 444 (c) Thomas Musil 2000 - 2005;
+#X text 61 477 Graz \, Austria;
+#X obj 47 328 hml_shelf~ -10 98 0 3520 -10 200;
+#X msg 277 412 set 0 0;
+#X text 246 397 set internal state;
+#X obj 529 212 init 60;
+#X connect 5 0 16 0;
+#X connect 8 0 65 6;
+#X connect 10 0 6 0;
+#X connect 11 0 10 0;
+#X connect 13 0 12 0;
+#X connect 13 0 12 1;
+#X connect 13 1 36 0;
+#X connect 13 2 14 0;
+#X connect 14 1 1 0;
+#X connect 15 0 13 1;
+#X connect 16 0 65 0;
+#X connect 16 1 3 0;
+#X connect 17 0 5 0;
+#X connect 25 0 41 0;
+#X connect 26 0 38 0;
+#X connect 27 0 39 0;
+#X connect 28 0 40 0;
+#X connect 32 0 42 0;
+#X connect 38 0 65 1;
+#X connect 39 0 65 3;
+#X connect 40 0 65 5;
+#X connect 41 0 65 2;
+#X connect 42 0 65 4;
+#X connect 65 0 13 0;
+#X connect 66 0 65 0;
+#X connect 68 0 15 0;
diff --git a/iemlib1/lp1_t~-help.pd b/iemlib1/lp1_t~-help.pd
index 73da616..2fd3adb 100644
--- a/iemlib1/lp1_t~-help.pd
+++ b/iemlib1/lp1_t~-help.pd
@@ -1,65 +1,49 @@
-#N canvas 152 22 565 552 10;
+#N canvas 152 22 565 686 10;
 #X text 109 239 ~signal_in~;
 #X text 38 33 dsp ON/OFF;
-#X floatatom 191 175 5 0 1005 0 - - -;
-#X text 172 273 ~signal_out~;
+#X floatatom 294 140 5 0 1005 0 - - -;
+#X text 144 282 ~signal_out~;
 #X floatatom 21 73 5 0 0 0 - - -;
 #X text 60 74 % cpu;
-#X floatatom 231 225 5 2 9999 0 - - -;
-#X text 273 226 ms;
+#X floatatom 256 230 5 2 9999 0 - - -;
+#X text 298 229 ms;
 #X obj 21 53 dsp;
-#X obj 21 33 tgl 15 0 empty empty empty 8 -8 0 10 -262144 -1 -1 0 1
+#X obj 21 33 tgl 15 0 empty empty empty 8 -8 0 10 -262144 -1 -1 1 1
 ;
 #X text 292 265 2.arg:<float> interpolation_time [ms];
-#X text 234 174 ms;
+#X text 337 139 ms;
 #X obj 152 255 lp1_t~ 0.5 200;
-#X text 234 210 interpolation_time [ms];
-#X text 230 159 time_constant [ms];
+#X text 259 215 interpolation_time [ms];
+#X text 333 124 time_constant [ms];
 #X text 292 254 1.arg:<float> time_constant [ms];
-#X obj 152 100 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
-1;
+#X obj 153 60 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
 #X obj 74 197 t b;
 #X obj 152 153 sig~;
 #N canvas 0 22 450 300 (subpatch) 0;
 #X array scope 400 float 0;
 #X array tangens 400 float 0;
 #X coords 0 1 399 0 400 80 1;
-#X restore 39 349 graph;
+#X restore 39 399 graph;
 #X obj 74 306 tabwrite~ scope;
-#X msg 217 115 0.2;
-#X msg 248 115 0.5;
-#X msg 278 116 1.5;
-#X msg 270 503 \; scope xticks 0 22 2;
-#X obj 270 482 loadbang;
-#X text 79 431 1;
-#X text 123 431 2;
-#X text 168 431 3 ms;
-#X floatatom 162 130 5 0 0 0 - - -;
+#X msg 320 80 0.2;
+#X msg 351 80 0.5;
+#X msg 384 80 1.5;
+#X msg 270 553 \; scope xticks 0 22 2;
+#X obj 270 532 loadbang;
+#X text 79 481 1;
+#X text 123 481 2;
+#X text 168 481 3 ms;
 #X obj 13 13 cnv 8 1 1 empty empty lp1_t~ 1 2 1 18 -262144 -1109 0
 ;
 #X text 102 8 lowpass 1.order with time_constant-inlet;
-#X text 106 495 IEM KUG;
-#X text 84 483 musil;
-#X text 120 483 @;
-#X text 128 483 iem.at;
-#X text 89 505 Graz \, Austria;
-#X floatatom 290 317 9 0 0 0 - - -;
-#X obj 290 296 unsig~ 20;
-#X obj 59 275 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
--1;
-#N canvas 0 22 450 300 clock 0;
-#X obj 92 32 inlet;
-#X obj 96 210 outlet;
-#X obj 123 129 metro 20;
-#X obj 87 164 timer;
-#X obj 93 60 t b b;
-#X connect 0 0 4 0;
-#X connect 2 0 3 1;
-#X connect 3 0 1 0;
-#X connect 4 0 3 0;
-#X connect 4 1 2 0;
-#X restore 367 297 pd clock;
-#X floatatom 368 319 9 0 0 0 - - -;
+#X text 106 545 IEM KUG;
+#X text 84 533 musil;
+#X text 120 533 @;
+#X text 128 533 iem.at;
+#X text 89 555 Graz \, Austria;
+#X floatatom 267 336 9 0 0 0 - - -;
+#X floatatom 367 358 9 0 0 0 - - -;
 #N canvas 687 134 447 418 tangens 0;
 #X obj 69 67 inlet;
 #X obj 69 88 del 20;
@@ -93,24 +77,62 @@
 #X connect 12 0 13 0;
 #X connect 13 0 9 0;
 #X restore 21 236 pd tangens;
-#X text 39 471 (c) Thomas Musil 2000 - 2010;
+#X text 39 521 (c) Thomas Musil 2000 - 2010;
+#X msg 417 80 3;
+#X text 298 481 6 ms;
+#X msg 450 80 6;
+#X obj 346 334 > 0.64;
+#X obj 435 332 < 0.36;
+#X obj 347 357 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 435 356 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#N canvas 0 22 450 300 unsig~ 0;
+#X obj 265 56 inlet;
+#X obj 265 218 outlet;
+#X obj 266 170 timer;
+#X obj 266 84 t b b;
+#X obj 299 132 metro 20;
+#X obj 118 218 outlet;
+#X obj 118 56 inlet~;
+#X obj 119 172 snapshot~;
+#X connect 0 0 3 0;
+#X connect 2 0 1 0;
+#X connect 3 0 2 0;
+#X connect 3 1 4 0;
+#X connect 4 0 2 1;
+#X connect 4 0 7 0;
+#X connect 6 0 7 0;
+#X connect 7 0 5 0;
+#X restore 337 297 pd unsig~ + clock;
+#X msg 194 177 set \$1;
+#X obj 193 155 == 0;
+#X obj 154 81 t b f f f;
 #X connect 2 0 12 1;
 #X connect 6 0 12 2;
 #X connect 8 0 4 0;
 #X connect 9 0 8 0;
 #X connect 12 0 20 0;
-#X connect 12 0 38 0;
-#X connect 16 0 17 0;
-#X connect 16 0 18 0;
-#X connect 16 0 29 0;
-#X connect 16 0 40 0;
+#X connect 12 0 47 0;
+#X connect 16 0 50 0;
 #X connect 17 0 20 0;
-#X connect 17 0 42 0;
+#X connect 17 0 38 0;
 #X connect 18 0 12 0;
 #X connect 21 0 2 0;
 #X connect 22 0 2 0;
 #X connect 23 0 2 0;
 #X connect 25 0 24 0;
-#X connect 38 0 37 0;
-#X connect 39 0 20 0;
-#X connect 40 0 41 0;
+#X connect 40 0 2 0;
+#X connect 42 0 2 0;
+#X connect 43 0 45 0;
+#X connect 44 0 46 0;
+#X connect 47 0 36 0;
+#X connect 47 0 43 0;
+#X connect 47 0 44 0;
+#X connect 47 1 37 0;
+#X connect 48 0 12 0;
+#X connect 49 0 48 0;
+#X connect 50 0 17 0;
+#X connect 50 1 18 0;
+#X connect 50 2 49 0;
+#X connect 50 3 47 1;
diff --git a/iemlib1/para_bp2~-help.pd b/iemlib1/para_bp2~-help.pd
index 739eb21..a26aed7 100644
--- a/iemlib1/para_bp2~-help.pd
+++ b/iemlib1/para_bp2~-help.pd
@@ -1,67 +1,91 @@
-#N canvas 280 47 585 480 10;

-#X text 5 265 ~signal_in~;

-#X text 30 44 dsp ON/OFF;

-#X floatatom 81 161 3 15 133 0 - - -;

-#X obj 81 180 mtof;

-#X floatatom 81 199 9 0 22000 0 - - -;

-#X text 145 200 Hz;

-#X text 60 294 ~signal_out~;

-#X floatatom 207 279 7 0 0 0 - - -;

-#X text 258 280 dB;

-#X floatatom 121 154 9 0 22000 0 - - -;

-#X text 185 155 Hz;

-#X floatatom 48 115 3 15 133 0 - - -;

-#X floatatom 13 84 5 0 0 0 - - -;

-#X text 53 85 % cpu;

-#X floatatom 181 256 5 2 9999 0 - - -;

-#X text 222 257 ms;

-#X obj 13 64 dsp;

-#X floatatom 114 218 4 0.01 1000 0 - - -;

-#X text 150 218 Q;

-#X text 95 351 2.arg:<float> Q [-];

-#X text 95 341 1.arg:<float> center_freq. [Hz];

-#X obj 13 44 tgl 15 0 empty empty empty 8 -8 0 10 -262144 -1 -1 0 1

-;

-#X obj 48 347 dac~;

-#X obj 48 322 gainvu~ 300;

-#X obj 253 157 vu 15 120 empty empty 8 -8 0 10 -66577 -1 1 0;

-#X obj 315 191 vsl 15 128 0 127 0 1 empty empty empty 8 -8 0 10 -262144

--1 -1 8000 1;

-#X obj 48 134 testtone~ 200;

-#X obj 112 98 init 69;

-#X text 75 116 midi;

-#X text 95 371 4.arg:<float> interpolation_time [ms];

-#X text 95 361 3.arg:<float> level [dB];

-#X obj 48 280 para_bp2~ 440 2 -12 200;

-#X floatatom 147 237 6 -40 40 0 - - -;

-#X text 191 238 dB;

-#X floatatom 302 339 7 0 0 0 - - -;

-#X text 353 340 dB;

-#X text 137 2 parametric bandpass 2.order;

-#X obj 7 7 cnv 8 1 1 empty empty para_bp2~ 1 2 1 18 -262144 -1109 0

-;

-#X text 115 428 IEM KUG;

-#X text 99 416 musil;

-#X text 129 416 @;

-#X text 135 416 iem.at;

-#X text 50 405 (c) Thomas Musil 2000 - 2005;

-#X text 98 438 Graz \, Austria;

-#X connect 2 0 3 0;

-#X connect 3 0 4 0;

-#X connect 4 0 31 1;

-#X connect 11 0 26 0;

-#X connect 14 0 31 4;

-#X connect 16 0 12 0;

-#X connect 17 0 31 2;

-#X connect 21 0 16 0;

-#X connect 23 0 22 0;

-#X connect 23 0 22 1;

-#X connect 23 1 34 0;

-#X connect 23 2 24 0;

-#X connect 24 1 7 0;

-#X connect 25 0 23 1;

-#X connect 26 0 31 0;

-#X connect 26 1 9 0;

-#X connect 27 0 11 0;

-#X connect 31 0 23 0;

-#X connect 32 0 31 3;

+#N canvas 280 47 476 548 10;
+#X text 8 342 ~signal_in~;
+#X text 40 54 dsp ON/OFF;
+#X floatatom 86 329 9 0 22000 0 - - -;
+#X text 152 330 Hz;
+#X text 70 374 ~signal_out~;
+#X floatatom 297 369 7 0 0 0 - - -;
+#X text 348 370 dB;
+#X floatatom 146 164 9 0 22000 0 - - -;
+#X text 212 165 Hz;
+#X floatatom 58 125 3 15 133 0 - - -;
+#X floatatom 23 94 5 0 0 0 - - -;
+#X text 63 95 % cpu;
+#X floatatom 228 336 5 2 9999 0 - - -;
+#X text 269 337 ms;
+#X obj 23 74 dsp;
+#X floatatom 136 309 4 0.01 1000 0 - - -;
+#X text 121 308 Q;
+#X text 191 101 2.arg:<float> Q [-];
+#X text 191 91 1.arg:<float> center_freq. [Hz];
+#X obj 23 54 tgl 15 0 empty empty empty 8 -8 0 10 -262144 -1 -1 0 1
+;
+#X obj 58 427 dac~;
+#X obj 58 402 gainvu~ 300;
+#X obj 313 237 vu 15 120 empty empty 8 -8 0 10 -66577 -1 1 0;
+#X obj 375 271 vsl 15 128 0 127 0 0 empty empty empty 8 -8 0 10 -262144
+-1 -1 6500 1;
+#X obj 58 144 testtone~ 200;
+#X obj 122 108 init 69;
+#X text 85 126 midi;
+#X text 191 121 4.arg:<float> interpolation_time [ms];
+#X text 191 111 3.arg:<float> level [dB];
+#X obj 58 360 para_bp2~ 440 2 -12 200;
+#X floatatom 195 317 6 -40 40 0 - - -;
+#X text 239 318 dB;
+#X floatatom 362 419 7 0 0 0 - - -;
+#X text 413 420 dB;
+#X text 147 12 parametric bandpass 2.order;
+#X obj 17 17 cnv 8 1 1 empty empty para_bp2~ 1 2 1 18 -262144 -1109
+0;
+#X text 125 508 IEM KUG;
+#X text 101 496 musil;
+#X text 139 496 @;
+#X text 148 496 iem.at;
+#X text 108 518 Graz \, Austria;
+#X obj 238 221 vsl 15 81 -40 40 0 1 empty empty band-level -18 -8 0
+8 -262144 -1 -1 2800 1;
+#X text 90 238 -440Hz;
+#X text 90 287 -27.5Hz;
+#X text 90 262 -110Hz;
+#X obj 73 185 vsl 15 109 27.5 14080 1 1 empty empty band-freq. -8 -8
+0 8 -262144 -1 -1 4800 1;
+#X text 90 178 -14080Hz;
+#X text 90 227 -880Hz;
+#X text 90 203 -3520Hz;
+#X text 254 216 +40;
+#X text 256 255 0;
+#X text 254 295 -40;
+#X text 195 177 dB;
+#X text 90 250 -220Hz;
+#X obj 168 220 vsl 15 81 0.01 100 1 1 empty empty Quality -8 -8 0 8
+-262144 -1 -1 4600 1;
+#X text 184 215 100;
+#X text 184 294 0.01;
+#X text 186 254 1;
+#X msg 172 446 set 0 0;
+#X text 145 426 set internal state;
+#X text 60 485 (c) Thomas Musil 2000 - 2011;
+#X obj 376 246 init 60;
+#X connect 2 0 29 1;
+#X connect 9 0 24 0;
+#X connect 12 0 29 4;
+#X connect 14 0 10 0;
+#X connect 15 0 29 2;
+#X connect 19 0 14 0;
+#X connect 21 0 20 0;
+#X connect 21 0 20 1;
+#X connect 21 1 32 0;
+#X connect 21 2 22 0;
+#X connect 22 1 5 0;
+#X connect 23 0 21 1;
+#X connect 24 0 29 0;
+#X connect 24 1 7 0;
+#X connect 25 0 9 0;
+#X connect 29 0 21 0;
+#X connect 30 0 29 3;
+#X connect 41 0 30 0;
+#X connect 45 0 2 0;
+#X connect 54 0 15 0;
+#X connect 58 0 29 0;
+#X connect 61 0 23 0;
diff --git a/iemlib1/sparse_FIR~-help.pd b/iemlib1/sparse_FIR~-help.pd
index 867a9d4..76bd48b 100644
--- a/iemlib1/sparse_FIR~-help.pd
+++ b/iemlib1/sparse_FIR~-help.pd
@@ -3,13 +3,13 @@
 #X text 32 96 % cpu;
 #X obj 4 93 dsp;
 #X obj 4 73 tgl 15 0 empty empty dsp_ON/OFF 2 -8 0 10 -225271 -42246
--90881 1 1;
+-90881 0 1;
 #X floatatom 183 494 7 0 0 0 - - -;
 #X obj 112 373 dac~;
 #X obj 112 347 gainvu~ 300;
 #X obj 174 369 vu 15 120 empty empty 8 -8 0 10 -66577 -1 1 0;
-#X obj 294 216 vsl 15 128 0 127 0 1 empty empty gain -7 -8 0 10 -225271
--42246 -90881 8400 1;
+#X obj 294 216 vsl 15 128 0 127 0 0 empty empty gain -7 -8 0 10 -225271
+-42246 -90881 9400 1;
 #X obj 113 95 noise~;
 #X floatatom 173 512 7 0 0 0 - - -;
 #X floatatom 17 113 5 0 0 0 - - -;
@@ -19,24 +19,22 @@
 #X text 190 555 iem.at;
 #X text 153 577 Graz \, Austria;
 #X floatatom 142 323 5 0 0 0 - - -;
-#X msg 177 112 size 256;
-#X msg 367 535 0 1 1 1;
-#X msg 367 556 0 1 40 -1 80 1 120 -1 160 1;
-#X msg 369 312 0 1 10 1 20 1 30 1 40 1 50 1 60 1 70 1 80 1;
+#X msg 353 118 size 256;
+#X msg 370 523 0 1 1 1;
+#X msg 366 321 0 1 10 1 20 1 30 1 40 1 50 1 60 1 70 1 80 1;
 #X obj 707 38 t b b;
 #X msg 767 101 set;
 #X msg 668 101 add2 \$1 \$2;
 #X obj 707 18 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
 -1;
-#X msg 176 137 order 384;
+#X msg 354 140 order 384;
 #X msg 366 342 matrix 9 2 0 1 10 1 20 1 30 1 40 1 50 1 60 1 70 1 80
 1;
-#X msg 363 371 matrix 2 9 0 1 10 1 20 1 30 1 40 1 50 1 60 1 70 1 80
+#X msg 366 363 matrix 2 9 0 1 10 1 20 1 30 1 40 1 50 1 60 1 70 1 80
 1;
-#X text 103 544 (c) Thomas Musil 2000 - 2010;
 #X text 17 16 sparse_FIR~;
 #X msg 370 581 0 0;
-#X msg 370 502 0 -0.1 1 -0.18 2 -0.1 3 0.15 4 0.4 5 0.7 6 0.4 7 0.15
+#X msg 370 489 0 -0.1 1 -0.18 2 -0.1 3 0.15 4 0.4 5 0.7 6 0.4 7 0.15
 8 -0.1 9 -0.18 10 -0.1;
 #X msg 510 126 0 0.04 1 0.04 2 0.04 3 0.04 4 0.04 5 0.04 6 0.04 7 0.04
 8 0.04 9 0.04 10 0.04 11 0.04 12 0.04 13 0.04 14 0.04 15 0.04 16 0.04
@@ -54,12 +52,31 @@ index/value pairs. All values between the determined values will be
 set to zero and won't be calculated (sparse).;
 #X text 227 182 1.arg: <float> convolution-length (FIR order or size)
 ;
-#X text 177 74 will change the max. order of FIR filter (or size).
+#X text 175 60 will change the max. order of FIR filter (or size).
 ;
 #X text 366 263 Each pair or double begins with an index followed by
 its value.;
 #X obj 113 180 sparse_FIR~ 256;
-#X msg 175 90 size 16;
+#X msg 286 97 size 16;
+#X obj 327 198 init 60;
+#X text 103 543 (c) Thomas Musil 2000 - 2011;
+#X msg 370 544 0 1 40 -1 80 1 120 -1 160 1 200 -1 240 1 280 -1 320
+1 360 -1 400 1;
+#X msg 353 97 size 128;
+#X msg 287 141 size 64;
+#X msg 287 119 size 32;
+#X msg 221 139 size 8;
+#X msg 222 117 size 4;
+#X text 770 318 same as;
+#X text 771 341 same as;
+#X text 770 363 same as;
+#X msg 167 97 size 0;
+#X msg 223 97 size 3;
+#X msg 163 142 size 2;
+#X msg 165 120 size 1;
+#X text 847 104 sparse list;
+#X text 680 470 sparse list;
+#X text 490 384 sparse matrix;
 #X connect 2 0 0 0;
 #X connect 2 1 11 0;
 #X connect 3 0 2 0;
@@ -70,24 +87,34 @@ its value.;
 #X connect 7 0 10 0;
 #X connect 7 1 4 0;
 #X connect 8 0 6 1;
-#X connect 9 0 43 0;
-#X connect 18 0 43 0;
-#X connect 19 0 43 0;
-#X connect 20 0 43 0;
-#X connect 21 0 43 0;
-#X connect 22 0 35 0;
-#X connect 22 1 23 0;
-#X connect 23 0 33 0;
-#X connect 24 0 33 0;
-#X connect 25 0 22 0;
-#X connect 26 0 43 0;
-#X connect 27 0 43 0;
-#X connect 28 0 43 0;
-#X connect 31 0 43 0;
-#X connect 32 0 43 0;
-#X connect 33 0 43 0;
-#X connect 34 0 24 0;
-#X connect 35 0 34 0;
-#X connect 38 0 33 0;
-#X connect 43 0 6 0;
-#X connect 44 0 43 0;
+#X connect 9 0 41 0;
+#X connect 18 0 41 0;
+#X connect 19 0 41 0;
+#X connect 20 0 41 0;
+#X connect 21 0 33 0;
+#X connect 21 1 22 0;
+#X connect 22 0 31 0;
+#X connect 23 0 31 0;
+#X connect 24 0 21 0;
+#X connect 25 0 41 0;
+#X connect 26 0 41 0;
+#X connect 27 0 41 0;
+#X connect 29 0 41 0;
+#X connect 30 0 41 0;
+#X connect 31 0 41 0;
+#X connect 32 0 23 0;
+#X connect 33 0 32 0;
+#X connect 36 0 31 0;
+#X connect 41 0 6 0;
+#X connect 42 0 41 0;
+#X connect 43 0 8 0;
+#X connect 45 0 41 0;
+#X connect 46 0 41 0;
+#X connect 47 0 41 0;
+#X connect 48 0 41 0;
+#X connect 49 0 41 0;
+#X connect 50 0 41 0;
+#X connect 54 0 41 0;
+#X connect 55 0 41 0;
+#X connect 56 0 41 0;
+#X connect 57 0 41 0;