shithub: soundpipe

ref: 0a5f275112d871f18435dbe76294c11d5f99ecf9
dir: /test/p/p_paulstretch.c/

#include <stdlib.h>
#include <stdio.h>
#include "soundpipe.h"
#include "config.h"

int main() {
    sp_data *sp;
    sp_create(&sp);
    sp_srand(sp, 12345);
    sp->sr = SR;
    sp->len = sp->sr * LEN;
    uint32_t t, u;
    SPFLOAT in = 0, out = 0;
    sp_ftbl *wav;

    sp_paulstretch *unit[NUM];

    sp_ftbl_loadfile(sp, &wav, SAMPDIR "oneart.wav");

    for(u = 0; u < NUM; u++) {
        sp_paulstretch_create(&unit[u]);
        sp_paulstretch_init(sp, unit[u], wav, 1.0, 10);
    }

    for(t = 0; t < sp->len; t++) {
        for(u = 0; u < NUM; u++) sp_paulstretch_compute(sp, unit[u], &in, &out);
    }

    for(u = 0; u < NUM; u++) sp_paulstretch_destroy(&unit[u]);

    sp_ftbl_destroy(&wav);
    sp_destroy(&sp);
    return 0;
}