1 #include <stdlib.h>
2 #include <stdio.h>
3 #include <time.h>
4 #include "soundpipe.h"
5
6 typedef struct {
7 sp_osc *osc[3];
8 sp_ftbl *ft;
9 sp_moogladder *filt;
10 sp_bal *bal;
11 sp_tenv *env;
12 } UserData;
13
process(sp_data * sp,void * udata)14 void process(sp_data *sp, void *udata) {
15 UserData *ud = udata;
16 int i;
17 SPFLOAT out = 0, osc = 0, filt = 0, bal = 0, env = 0, tick;
18 for(i = 0; i < 3; i++) {
19 sp_osc_compute(sp, ud->osc[i], NULL, &osc);
20 out += osc * 0.5;
21 }
22 tick = (sp->pos == 0) ? 1.0 : 0.0;
23 sp_tenv_compute(sp, ud->env, &tick, &env);
24 ud->filt->freq = 300 + 3000 * env;
25 sp_moogladder_compute(sp, ud->filt, &out, &filt);
26 sp_bal_compute(sp, ud->bal, &filt, &osc, &bal);
27 sp->out[0] = bal * env;
28 }
29
main()30 int main() {
31 srand(time(NULL));
32 int i;
33 UserData ud;
34 sp_data *sp;
35 sp_create(&sp);
36 sp_ftbl_create(sp, &ud.ft, 4096);
37 for(i = 0; i < 3; i++) {
38 sp_osc_create(&ud.osc[i]);
39 ud.osc[i]->amp = 0.5;
40 }
41 sp_bal_create(&ud.bal);
42 sp_moogladder_create(&ud.filt);
43 ud.filt->res = 0.8;
44 sp_tenv_create(&ud.env);
45
46 sp_gen_line(sp, ud.ft, "0 1 4096 -1");
47 sp_osc_init(sp, ud.osc[0], ud.ft, 0);
48 ud.osc[0]->freq = sp_midi2cps(41 - 0.05);
49 sp_osc_init(sp, ud.osc[1], ud.ft, 0);
50 ud.osc[1]->freq = sp_midi2cps(41 - 12);
51 sp_osc_init(sp, ud.osc[2], ud.ft, 0);
52 ud.osc[2]->freq = sp_midi2cps(41 + 0.05);
53 sp->len = 44100 * 5;
54 sp_bal_init(sp, ud.bal);
55 sp_moogladder_init(sp, ud.filt);
56 sp_tenv_init(sp, ud.env);
57 ud.env->atk = 2.25;
58 ud.env->hold = 0.5;
59 ud.env->rel = 2.25;
60
61
62 sp_process(sp, &ud, process);
63
64 sp_ftbl_destroy(&ud.ft);
65 for(i = 0; i < 3; i++) sp_osc_destroy(&ud.osc[i]);
66 sp_bal_destroy(&ud.bal);
67 sp_moogladder_destroy(&ud.filt);
68 sp_tenv_destroy(&ud.env);
69 sp_destroy(&sp);
70 return 0;
71 }
72