~pbatch/soundpipe

soundpipe/tangled/dcblocker.c -rw-r--r-- 436 bytes
49c52318Paul Batchelor fix talkbox typos 4 days ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#line 43 "dcblocker.org"
#define SK_DCBLOCKER_PRIV
#include "dcblocker.h"
#line 92 "dcblocker.org"
void sk_dcblocker_init(sk_dcblocker *dcblk)
{
    dcblk->x = 0;
    dcblk->y = 0;
    dcblk->R = 0.99; /* quite reasonable, indeed! */
}
#line 112 "dcblocker.org"
SKFLT sk_dcblocker_tick(sk_dcblocker *dcblk, SKFLT in)
{
    dcblk->y = in - dcblk->x + dcblk->R*dcblk->y;
    dcblk->x = in;
    return dcblk->y;
}
#line 43 "dcblocker.org"