1 declare name "bandfilter";
3 declare author "Grame";
5 declare copyright "(c)GRAME 2006";
10 //---------------------second order filter--------------------------
12 // Q : quality factor [1..100]
15 //------------------------------------------------------------------
17 filter(Q,F,G) = TF2( (1 + K/Q + K*K) / D,
31 //--------------- Band Filter with user interface ------------------
33 // F : default frequency (Hz)
35 //------------------------------------------------------------------
37 bandfilter(F) = filter( nentry("Q factor [style:knob]",50,0.1,100,0.1),
38 nentry("freq [unit:Hz][style:knob]", F, 20, 20000, 1),
39 0 - vslider("gain [unit:dB]", 0, -50, 50, 0.1)
44 //------------------------- Process --------------------------------
46 process = vgroup("Bandfilter", bandfilter(1000));