shithub: soundpipe

ref: f6d97317c22b5d2e703844728a3f41b6bc3a74a4
dir: /test/t/t_tread.c/

#include "soundpipe.h"
#include "md5.h"
#include "tap.h"
#include "test.h"

typedef struct {
    sp_tread *tr;
    sp_ftbl *ft;
    sp_phasor *phasor;
} UserData;

int t_tread(sp_test *tst, sp_data *sp, const char *hash)
{
    uint32_t n;
    int fail = 0;
    SPFLOAT tab = 0.0, phasor = 0.0;

    sp_srand(sp, 123456);
    UserData ud;

    sp_tread_create(&ud.tr);

    sp_phasor_create(&ud.phasor);

    sp_ftbl_loadwav(sp, &ud.ft, "oneart.wav");

    sp_tread_init(sp, ud.tr, ud.ft, 1);

    /* since mode = 1, offset 5% into file */
    ud.tr->offset = 0.05;
    /* no wraparound */
    ud.tr->wrap = 0;

    sp_phasor_init(sp, ud.phasor, 0);
    /* set playback rate to half speed, or 1/(t * 2) */
    ud.phasor->freq = 1 / (8.97 * 2);
    sp->len = 44100 * 5;


    for (n = 0; n < tst->size; n++) {
        tab = 0.0; phasor = 0.0;
        sp_phasor_compute(sp, ud.phasor, NULL, &phasor);
        ud.tr->index = phasor;
        sp_tread_compute(sp, ud.tr, NULL, &tab);
        sp_test_add_sample(tst, tab);
    }

    fail = sp_test_verify(tst, hash);

    sp_phasor_destroy(&ud.phasor);
    sp_tread_destroy(&ud.tr);
    sp_ftbl_destroy(&ud.ft);

    if (fail) return SP_NOT_OK;
    else return SP_OK;
}