1 #include "soundpipe.h"
2 #include "md5.h"
3 #include "tap.h"
4 #include "test.h"
5
t_bal(sp_test * tst,sp_data * sp,const char * hash)6 int t_bal(sp_test *tst, sp_data *sp, const char *hash)
7 {
8 uint32_t n, i;
9 int fail = 0;
10 SPFLOAT out = 0, osc = 0, filt = 0, bal = 0, env = 0, tick;
11
12 sp_osc *osc_d[3];
13 sp_ftbl *ft_d;
14 sp_moogladder *filt_d;
15 sp_bal *bal_d;
16 sp_tenv *env_d;
17
18 sp_ftbl_create(sp, &ft_d, 4096);
19 for(i = 0; i < 3; i++) {
20 sp_osc_create(&osc_d[i]);
21 osc_d[i]->amp = 0.5;
22 }
23 sp_bal_create(&bal_d);
24 sp_moogladder_create(&filt_d);
25 filt_d->res = 0.8;
26 sp_tenv_create(&env_d);
27
28 sp_gen_line(sp, ft_d, "0 1 4096 -1");
29 sp_osc_init(sp, osc_d[0], ft_d, 0);
30 osc_d[0]->freq = sp_midi2cps(41 - 0.05);
31 sp_osc_init(sp, osc_d[1], ft_d, 0);
32 osc_d[1]->freq = sp_midi2cps(41 - 12);
33 sp_osc_init(sp, osc_d[2], ft_d, 0);
34 osc_d[2]->freq = sp_midi2cps(41 + 0.05);
35 sp->len = 44100 * 5;
36 sp_bal_init(sp, bal_d);
37 sp_moogladder_init(sp, filt_d);
38 sp_tenv_init(sp, env_d);
39 env_d->atk = 2.25;
40 env_d->hold = 0.5;
41 env_d->rel = 2.25;
42
43
44 for(n = 0; n < tst->size; n++) {
45 out = 0, osc = 0, filt = 0, bal = 0, env = 0;
46 for(i = 0; i < 3; i++) {
47 sp_osc_compute(sp, osc_d[i], NULL, &osc);
48 out += osc * 0.5;
49 }
50 tick = (sp->pos == 0) ? 1.0 : 0.0;
51 sp_tenv_compute(sp, env_d, &tick, &env);
52 filt_d->freq = 300 + 3000 * env;
53 sp_moogladder_compute(sp, filt_d, &out, &filt);
54 sp_bal_compute(sp, bal_d, &filt, &osc, &bal);
55 sp_test_add_sample(tst, bal * env);
56 }
57
58 fail = sp_test_verify(tst, hash);
59
60 sp_ftbl_destroy(&ft_d);
61 for(i = 0; i < 3; i++) sp_osc_destroy(&osc_d[i]);
62 sp_bal_destroy(&bal_d);
63 sp_moogladder_destroy(&filt_d);
64 sp_tenv_destroy(&env_d);
65
66 if(fail) return SP_NOT_OK;
67 else return SP_OK;
68 }
69