From 1e0a6508574162382ed24c8fcab0cd2f6398b4f8 Mon Sep 17 00:00:00 2001 From: musil Date: Fri, 6 May 2011 10:06:45 +0000 Subject: added set message to set internal state of filter, more silent gain svn path=/trunk/externals/iemlib/; revision=15090 --- iemlib1/FIR~-help.pd | 134 ++++++++++++++--------------- iemlib1/hml_shelf~-help.pd | 203 +++++++++++++++++++++++--------------------- iemlib1/lp1_t~-help.pd | 128 ++++++++++++++++------------ iemlib1/para_bp2~-help.pd | 158 +++++++++++++++++++--------------- iemlib1/sparse_FIR~-help.pd | 95 +++++++++++++-------- 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: array-name; -#X text 276 15 2.arg: 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: array-name; +#X text 276 15 2.arg: 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: interpolation_time [ms]; -#X text 200 91 1.arg: low_level [dB]; -#X text 200 101 2.arg: low_freq. [Hz]; -#X text 200 112 3.arg: medium_level [dB]; -#X text 200 122 4.arg: high_freq. [Hz]; -#X text 200 133 5.arg: 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: interpolation_time [ms]; +#X text 200 91 1.arg: low_level [dB]; +#X text 200 101 2.arg: low_freq. [Hz]; +#X text 200 112 3.arg: medium_level [dB]; +#X text 200 122 4.arg: high_freq. [Hz]; +#X text 200 133 5.arg: 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: 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: 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: Q [-]; -#X text 95 341 1.arg: 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: interpolation_time [ms]; -#X text 95 361 3.arg: 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: Q [-]; +#X text 191 91 1.arg: 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: interpolation_time [ms]; +#X text 191 111 3.arg: 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: 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; -- cgit v1.2.1