cyrille henry wrote:
i did not find in any of them a low pass resonant filter but i'll have to investigate.
I made a (non-scientific, but sounds ok to my (bad) ears...) resonant low-pass filter, see attached. two zeros at 1/2 sampling rate, plus two poles (conjugate pair) that can be moved about controlled by audio input. The gain formula comes from Miller's book, iirc, and I probably misused it, but it seems to work ok.
thanks, cyrille
Thanks, Claude -- http://claudiusmaximus.goto10.org
#N canvas 0 0 457 569 12; #X obj 31 54 inlet~; #X obj 147 54 inlet~; #X obj 326 57 inlet~; #X text 34 22 audio; #X text 138 22 frequency; #X text 314 27 resonance; #X obj 29 301 cpole~; #X obj 29 351 cpole~; #X obj 29 406 czero~; #X obj 28 445 czero~; #X obj 175 109 samplerate~; #X obj 175 136 * 0.5; #X obj 175 84 bang~; #X obj 148 165 /~ 1; #X obj 97 378 sig~ -1; #X obj 156 411 sig~ 0; #X obj 327 117 clip~ 0 0.999; #X obj 29 535 outlet~; #X obj 41 273 sig~ 0; #X obj 29 482 *~; #X obj 147 192 expr~ $v2*cos($v1) \; $v2*sin($v1) \; $v2*-sin($v1) \; (1.0-$v2)*(1.0-$v2+$v1); #X connect 0 0 6 0; #X connect 1 0 13 0; #X connect 2 0 16 0; #X connect 6 0 7 0; #X connect 6 1 7 1; #X connect 7 0 8 0; #X connect 7 1 8 1; #X connect 8 0 9 0; #X connect 8 1 9 1; #X connect 9 0 19 0; #X connect 10 0 11 0; #X connect 11 0 13 1; #X connect 12 0 10 0; #X connect 13 0 20 0; #X connect 14 0 8 2; #X connect 14 0 9 2; #X connect 15 0 9 3; #X connect 15 0 8 3; #X connect 16 0 20 1; #X connect 18 0 6 1; #X connect 19 0 17 0; #X connect 20 0 6 2; #X connect 20 0 7 2; #X connect 20 1 6 3; #X connect 20 2 7 3; #X connect 20 3 19 1;
#N canvas 89 39 538 452 12; #X obj 205 297 rlop~; #X obj 189 381 dac~; #X obj 78 237 hip~ 10; #X obj 204 325 *~ 0.25; #X obj 223 164 mtof~; #X obj 222 139 vline~; #X obj 297 42 metro 1000; #X obj 297 21 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1; #X msg 222 113 120 10 \, 48 490 10 \, 84 500 500; #X obj 15 200 phasor~; #X obj 77 200 phasor~; #X obj 140 202 phasor~; #X obj 77 83 random 25; #X obj 77 135 mtof; #X obj 77 109 + 36; #X obj 76 261 *~ 0.5; #X obj 14 170 / 2.01; #X obj 297 256 vline~; #X obj 297 197 metro 125; #X msg 297 226 0.99 5 \, 0.95 120 5; #X obj 139 173 * 1.01; #X text 313 285 resonance; #X text 313 141 frequency; #X text 16 262 sound; #X connect 0 0 3 0; #X connect 2 0 15 0; #X connect 3 0 1 0; #X connect 3 0 1 1; #X connect 4 0 0 1; #X connect 5 0 4 0; #X connect 6 0 8 0; #X connect 6 0 12 0; #X connect 6 0 18 0; #X connect 7 0 6 0; #X connect 8 0 5 0; #X connect 9 0 2 0; #X connect 10 0 2 0; #X connect 11 0 2 0; #X connect 12 0 14 0; #X connect 13 0 10 0; #X connect 13 0 16 0; #X connect 13 0 20 0; #X connect 14 0 13 0; #X connect 15 0 0 0; #X connect 16 0 9 0; #X connect 17 0 0 2; #X connect 18 0 19 0; #X connect 19 0 17 0; #X connect 20 0 11 0;
_______________________________________________ PD-list@iem.at mailing list UNSUBSCRIBE and account-management -> http://lists.puredata.info/listinfo/pd-list
