1 #include "soundpipe.h"
2 #include "md5.h"
3 #include "tap.h"
4 #include "test.h"
5
6 typedef struct {
7 sp_osc *osc;
8 sp_ftbl *ft;
9 sp_metro *met;
10 sp_tenvx *tenvx;
11 SPFLOAT freq;
12 } UserData;
13
t_tenvx(sp_test * tst,sp_data * sp,const char * hash)14 int t_tenvx(sp_test *tst, sp_data *sp, const char *hash)
15 {
16 uint32_t n;
17 int fail = 0;
18
19 UserData ud;
20 SPFLOAT *freqp = &ud.freq;
21 ud.freq = 400;
22 sp_srand(sp, 123456);
23
24 sp_tenvx_create(&ud.tenvx);
25 sp_metro_create(&ud.met);
26 sp_ftbl_create(sp, &ud.ft, 2048);
27 sp_osc_create(&ud.osc);
28
29 sp_tenvx_init(sp, ud.tenvx);
30 ud.tenvx->atk = 0.03;
31 ud.tenvx->hold = 0.1;
32 ud.tenvx->rel = 0.1;
33 sp_metro_init(sp, ud.met);
34 ud.met->freq = 3;
35 sp_gen_sine(sp, ud.ft);
36 sp_osc_init(sp, ud.osc, ud.ft, 0);
37 ud.osc->amp = 0.5;
38 ud.osc->freq = *freqp;
39
40 for(n = 0; n < tst->size; n++) {
41 SPFLOAT trig = 0;
42 SPFLOAT env = 0;
43 SPFLOAT osc = 0;
44 sp_metro_compute(sp, ud.met, NULL, &trig);
45 if(trig) ud.osc->freq = 500 + sp_rand(sp) % 2000;
46 sp_osc_compute(sp, ud.osc, NULL, &osc);
47 sp_tenvx_compute(sp, ud.tenvx, &trig, &env);
48 sp_test_add_sample(tst, osc * env);
49 }
50
51 fail = sp_test_verify(tst, hash);
52
53 sp_tenvx_destroy(&ud.tenvx);
54 sp_metro_destroy(&ud.met);
55 sp_ftbl_destroy(&ud.ft);
56 sp_osc_destroy(&ud.osc);
57
58 if(fail) return SP_NOT_OK;
59 else return SP_OK;
60 }
61