shithub: soundpipe

ref: 6f50522ff66bbebd9d899f71b6da71288c0a8d0d
dir: /modules/modalres.c/

/* this file is placed in the public domain */

#include <stdlib.h>
#include <math.h>
#include <stdint.h>
#define SK_MODALRES_PRIV
#include "tangled/modalres.h"
#include "soundpipe.h"

int sp_modalres_create(sp_modalres **p)
{
    *p = malloc(sizeof(sp_modalres));
    return SP_OK;
}

int sp_modalres_destroy(sp_modalres **p)
{
    sp_modalres *pp;
    pp = *p;
    free(pp->modalres);
    free(*p);
    return SP_OK;
}

int sp_modalres_init(sp_data *sp, sp_modalres *p)
{
    p->modalres = malloc(sizeof(sk_modalres));
    sk_modalres_init(p->modalres, sp->sr);
    p->freq = 500;
    p->q = 50;

    sk_modalres_freq(p->modalres, p->freq);
    sk_modalres_q(p->modalres, p->q);
    return SP_OK;
}

int sp_modalres_compute(sp_data *sp, sp_modalres *p,
                         SPFLOAT *in, SPFLOAT *out)
{
    sk_modalres_freq(p->modalres, p->freq);
    sk_modalres_q(p->modalres, p->q);
    *out = sk_modalres_tick(p->modalres, *in);
    return SP_OK;
}