Category : Files from Magazines
Archive   : CUJ9309.ZIP
Filename : 1109090A

 
Output of file : 1109090A contained in archive : CUJ9309.ZIP
typedef struct resdesc
{
float out1, out2; /* filter state variables */
float a1, b1, b2; /* filter coefficients */
} resdesc;
static void Avoid_Underflow(resdesc *o)
{
/* clamp state variables */
if(o->out1>-0.0000000001f
&& o->out1<0.0000000001f)
o->out1 = 0.0f;
if(o->out2>-0.0000000001f
&& o->out2<0.0000000001f)
o->out2 = 0.0f;
}
/* assumes coefficients are constant throughout block */
void Resonator(resdesc *f , int n, float *out,
int stride, float *in, int istride )
{
float ym;
int j;

j=0;
for(j=0;j {
ym = f->b1 * f->out1 + f->b2 * f->out2
+ f->a1 * in[j*istride];
f->out2 = f->out1;
f->out1 = ym;
out[j*stride] = ym;
}
Avoid_Underflow(f);
}


  3 Responses to “Category : Files from Magazines
Archive   : CUJ9309.ZIP
Filename : 1109090A
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/