Hey people, While I'm not an expert with digital filters, I did manage to piece together a decent-sounding ladder emulation instead of vcf~ a while ago. It only does resonant lowpass though. It's called mvcf~ and is found in the ekext externals library. I've since been reading about analogue filter design and I reckon there may be high pass and band pass filters available from the source code, with the correct adjustment to the algorithm. I'm trying to work out how to adjust the coefficients to accurately model the alternative functions (i.e. highpass, and hence bandpass through arithmetic processes) according to the resistance factors outlined in this paper. Any help would be appreciated :) So, currently, at line 78 in the code I have translations for highpass and bandpass (the current implementation is lowpass only with a gain factor) but I may be stupid in not trying this myself (or I've just been super-busy with other stuff - I'm marking this week). The idea of implementing the other two modes comes from an Electronotes paper from Bernie Hutchins in the 1970s. http://electronotes.netfirms.com/EN85VCF.PDF
Take a look.Cheers,Ed PS have yet to try bob~ but it sounds interesting...will check it out. On Sunday, 16 October 2016, 13:10, Alexandre Torres Porres <por...@gmail.com> wrote: > But [bp~] and [vcf~] are almost unusable IMHO and should probably be >replaced> by better filters in the future (while keeping the old ones for >compatibility reasons). how about bob~? 2016-10-14 21:34 GMT-03:00 Christof Ressi <christof.re...@gmx.at>: There are a number of big problems with all build-in filters in Pd (expect for the raw filters). Problem number 1: [lop~] and [hip~] both use a weird (you could also say: wrong) formula for the cutoff frequency which makes them gradually converge to a fixed output state (reached by about 7000 Hz). The same is true for [vcf~] and [bp~] with Q <= 1. Therefore the actual cutoff frequency is only correct for very low frequencies and approximately gets more and more off until it doesn't move at all. Problem number 2: [bp~] and [vcf~] don't have zeros at DC and Nyquist. For low Q values, the slope is different for each side and changes with frequency. Problem number 3: the gain at the center frequency is not 1 for both [bp~] and [vcf~]. It rather depends on frequency and Q. [bp~] even has has a gain of 2 for Q <= 1! I did some FFT plots, see the attachment. I remember Miller saying somewhere that these filters are not designed for high cutoff frequencies - but even for low frequencies, the behaviour of [bp~] and [vcf~] is horrible. I can see these filters are mere approximations to reduce CPU usage. [hip~] is indeed much more efficient than iemlib's [hp1~], so it's well suited for DC removal (but not much else). [bp~] only is a little bit more CPU friendly than iemlib's [bp2~] - but the latter one has a correct and stable frequency response. [vcf~], however, is a real CPU sucker!!! 100 [vcf~] objects need 3,40% on my laptop whereas 100 of iemlib's [vcf_bp2~] only need 1,80%! But you have to consider that [vcf_bp2~] not only acts correctly but lets you set the Q at audio rate. The high CPU usage of [vcf~] seems like a bug to me... I only use the vanilla filters for the most basic stuff like DC removal and smoothing. I guess these are the use cases which Miller had in mind and that way [lop~] and [hip~] have their justification (although there should be some more warning about the 'wrong' frequency response in the help file). But [bp~] and [vcf~] are almost unusable IMHO and should probably be replaced by better filters in the future (while keeping the old ones for compatibility reasons). Christof > Gesendet: Freitag, 14. Oktober 2016 um 23:51 Uhr > Von: katja <katjavet...@gmail.com> > An: pd-list <pd-l...@iem.at> > Betreff: [PD] could vanilla borrow iemlib's hi pass filter recipe? > > In pd 0.47.1 [hip~] is still not perfect. Attenuation at cutoff is not > constant over the frequency range: -6 dB with cutoff=SR/8, -3 dB with > cutoff=SR/4, 0 DB with cutoff=SR/2. In contrast, iemlib's [hp1~] has > -3 dB at cutoff consistently. > > Could vanilla pd implement iemlib's hipass filter recipe? I don't know > if the license also covers the math. Documentation in > https://git.iem.at/pd/iemlib/ tree/master points to external literature > for part of the math (bilinear transform). I've implemented the recipe > with vanilla objects for comparison, see attached. > > Katja > ______________________________ _________________ > Pd-list@lists.iem.at mailing list > UNSUBSCRIBE and account-management -> https://lists.puredata.info/ > listinfo/pd-list > ______________________________ _________________ Pd-list@lists.iem.at mailing list UNSUBSCRIBE and account-management -> https://lists.puredata.info/ listinfo/pd-list _______________________________________________ Pd-list@lists.iem.at mailing list UNSUBSCRIBE and account-management -> https://lists.puredata.info/listinfo/pd-list
/* * moog vcf, 4-pole lowpass resonant filter * * (c) Edward Kelly 2012 * BSD License */ #include "m_pd.h" #include <math.h> #define _limit 0.95 static t_class *mvcf_tilde_class; typedef struct _mvcf_tilde { t_object x_obj; t_float b0, b1, b2, b3, b4; //filter buffers to keep (beware denormals!) t_float token, debug, safety; t_outlet *lp; } t_mvcf_tilde; /* We could have a mode where the fc and res are only registered at the start of the block (quick) or are registered in signal mode (slow) - i.e. a flag */ static inline float saturate( float input ) { //clamp without branching float x1 = fabsf( input + _limit ); float x2 = fabsf( input - _limit ); return 0.5 * (x1 - x2); } t_int *mvcf_tilde_perform(t_int *w) { t_mvcf_tilde *x = (t_mvcf_tilde *)(w[1]); t_sample *in = (t_sample *)(w[2]); t_sample *fc = (t_sample *)(w[3]); t_sample *res = (t_sample *)(w[4]); t_sample *out = (t_sample *)(w[5]); int n = (int)(w[6]); float t1 = 0; float t2 = 0; float xb0 = x->b0; float xb1 = x->b1; float xb2 = x->b2; float xb3 = x->b3; float xb4 = x->b4; float i1 = 0; float fc1 = 0; float res1 = 0; float q = 0; float p = 0; float fcoeff = 0; // while (n-=4) { while (n--) { i1=(*in++); fc1 = (*fc++); /* This failsafe line stops the filter bursting * ...but it is expensive! */ // if(x->safety) { // fc1 = fc1 <= 1 ? fc1 >= 0 ? fc1 : 0 : 1; // } res1 = (*res++); q = 1.0f - fc1; p = fc1 + 0.8f * fc1 * q; fcoeff = p + p - 1.0f; q = res1 * (1.0f + 0.5f * q * (1.0f - q + 5.6f * q * q)); i1 -= q * xb4; //feedback t1 = xb1; xb1 = (i1 + xb0) * p - xb1 * fcoeff; t2 = xb2; xb2 = (xb1 + t1) * p - xb2 * fcoeff; t1 = xb3; xb3 = (xb2 + t2) * p - xb3 * fcoeff; xb4 = (xb3 + t1) * p - xb4 * fcoeff; xb4 = saturate(xb4); xb4 = xb4 - xb4 * xb4 * xb4 * 0.01f; xb0 = i1; *out++ = xb4*1.414; // lowpass mode // Lowpass output: xb4 // Highpass output: i1 * 0.166667 + xb1 * -0.66667 + xb2 * 1 + xb3 * -0.66667 + xb4 * 0.166667; // Bandpass output: 3.0f * (b3 - xb4); } x->b0 = xb0; x->b1 = xb1; x->b2 = xb2; x->b3 = xb3; x->b4 = xb4; // if(x->debug != 0) { // x->token +=1; // if(x->token == 15) { // post("q = %f, p=%f, fcoeff=%f, b0=%f, b1=%f, b2=%f, b3=%f, b4=%f",q,p,fcoeff,xb0,xb1,xb2,xb3,xb4); // x->token = 0; // } // } return (w+7); } void mvcf_tilde_dsp(t_mvcf_tilde *x, t_signal **sp) { dsp_add(mvcf_tilde_perform, 6, x, sp[0]->s_vec, sp[1]->s_vec, sp[2]->s_vec, sp[3]->s_vec, sp[0]->s_n); } void mvcf_tilde_safety(t_mvcf_tilde *x, t_floatarg f) { x->safety = f != 0 ? 1 : 0; } /*void mvcf_tilde_mode(t_mvcf_tilde *x, t_floatarg f) { x->mode = f < 1 ? 0 : f > 1 ? 2 : 1; } */ void mvcf_tilde_clear(t_mvcf_tilde *x) { x->b0 = 0; x->b1 = 0; x->b2 = 0; x->b3 = 0; x->b4 = 0; } void mvcf_tilde_debug(t_mvcf_tilde *x, t_floatarg f) { x->debug = f != 0 ? 1 : 0; } void *mvcf_tilde_new(t_floatarg f) { t_mvcf_tilde *x = (t_mvcf_tilde *)pd_new(mvcf_tilde_class); x->b0 = 0; x->b1 = 0; x->b2 = 0; x->b3 = 0; x->b4 = 0; x->token = 0; x->safety = 0; inlet_new (&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal); inlet_new (&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal); outlet_new(&x->x_obj, &s_signal); return (void *)x; } void mvcf_tilde_setup(void) { mvcf_tilde_class = class_new(gensym("mvcf~"), (t_newmethod)mvcf_tilde_new, 0, sizeof(t_mvcf_tilde), CLASS_DEFAULT, A_DEFFLOAT, 0); // post("~~~~~~~~~~~~~~~>mvcf~"); // post("~~~>by Ed Kelly, 2012"); class_addmethod(mvcf_tilde_class, (t_method)mvcf_tilde_dsp, gensym("dsp"), 0); CLASS_MAINSIGNALIN(mvcf_tilde_class, t_mvcf_tilde, token); class_addmethod(mvcf_tilde_class, (t_method)mvcf_tilde_clear, gensym("clear"), 0); class_addmethod(mvcf_tilde_class, (t_method)mvcf_tilde_debug, gensym("debug"), 0); class_addmethod(mvcf_tilde_class, (t_method)mvcf_tilde_safety, gensym("safe"), 0); // class_addmethod(mvcf_tilde_class, (t_method)mvcf_tilde_mode, gensym("mode"), A_DEFFLOAT, 0); }
_______________________________________________ Pd-list@lists.iem.at mailing list UNSUBSCRIBE and account-management -> https://lists.puredata.info/listinfo/pd-list