int main() { srand(time(NULL)); udata ud; uint32_t bufsize; sp_data *sp; sp_create(&sp); sp_reverse_create(&ud.rv); sp_tenv_create(&ud.tenv); sp_ftbl_create(sp, &ud.ft, 2048); sp_osc_create(&ud.osc); sp_reverse_init(sp, ud.rv, 1.0); sp_tenv_init(sp, ud.tenv); ud.tenv->atk = 0.03; ud.tenv->hold = 0.01; ud.tenv->rel = 0.3; sp_gen_sine(sp, ud.ft); sp_osc_init(sp, ud.osc, ud.ft, 0); ud.osc->freq = 1000; ud.osc->amp = 0.5; sp->len = 44100 * 5; sp_process(sp, &ud, write_osc); sp_reverse_destroy(&ud.rv); sp_tenv_destroy(&ud.tenv); sp_ftbl_destroy(&ud.ft); sp_osc_destroy(&ud.osc); sp_destroy(&sp); return 0; }
int main() { udata ud; sp_data *sp; sp_create(&sp); sp_ftbl_create(sp, &ud.ft, 4096); for(int i = 0; i < 8; i++) sp_posc3_create(&ud.posc[i]); for(int i = 0; i < 8; i++) sp_tenv_create(&ud.tenv[i]); sp_revsc_create(&ud.rev); sp_gen_sine(sp, ud.ft); for(int i = 0; i < 8; i++) sp_tenv_init(sp, ud.tenv[i], 0.01, 0.1, 0.1); for(int i = 0; i < 8; i++) sp_posc3_init(sp, ud.posc[i], ud.ft); ud.posc[0]->freq = sp_midi2cps(48); ud.posc[1]->freq = sp_midi2cps(52); ud.posc[2]->freq = sp_midi2cps(59); ud.posc[3]->freq = sp_midi2cps(62); ud.posc[4]->freq = sp_midi2cps(72); ud.posc[5]->freq = sp_midi2cps(71); ud.posc[6]->freq = sp_midi2cps(69); ud.posc[7]->freq = sp_midi2cps(66); sp_revsc_init(sp, ud.rev); sp->len = 44100 * 20; sp_process(sp, &ud, write_music); for(int i = 0; i < 8; i++) sp_posc3_destroy(&ud.posc[i]); for(int i = 0; i < 8; i++) sp_tenv_destroy(&ud.tenv[i]); sp_revsc_destroy(&ud.rev); sp_ftbl_destroy(&ud.ft); sp_destroy(&sp); return 0; }
int main() { srand(time(NULL)); udata ud; SPFLOAT *freqp = &ud.freq; ud.freq = 400; sp_data *sp; sp_create(&sp); sp_tenv_create(&ud.tenv); sp_metro_create(&ud.met); sp_tevent_create(&ud.te); sp_ftbl_create(sp, &ud.ft, 2048); sp_osc_create(&ud.osc); sp_tenv_init(sp, ud.tenv); ud.tenv->atk = 0.03; ud.tenv->hold = 0.01; ud.tenv->rel = 0.1; sp_metro_init(sp, ud.met); ud.met->freq = 3; sp_tevent_init(sp, ud.te, freq_reinit, freq_compute, freqp); sp_gen_sine(sp, ud.ft); sp_osc_init(sp, ud.osc, ud.ft, 0); ud.osc->freq = *freqp; sp->len = 44100 * 5; sp_process(sp, &ud, write_osc); sp_tenv_destroy(&ud.tenv); sp_metro_destroy(&ud.met); sp_ftbl_destroy(&ud.ft); sp_osc_destroy(&ud.osc); sp_tevent_destroy(&ud.te); sp_destroy(&sp); return 0; }
int t_delay(sp_test *tst, sp_data *sp, const char *hash) { uint32_t n; int fail = 0; SPFLOAT osc = 0, delay = 0, met = 0, tenv = 0; UserData ud; sp_delay_create(&ud.delay); sp_osc_create(&ud.osc); sp_ftbl_create(sp, &ud.ft, 2048); sp_metro_create(&ud.met); sp_tenv_create(&ud.tenv); sp_delay_init(sp, ud.delay, 0.75 * 0.5); ud.delay->feedback = 0.5; sp_gen_sine(sp, ud.ft); sp_osc_init(sp, ud.osc, ud.ft, 0); ud.osc->amp = 0.5; sp_metro_init(sp, ud.met); ud.met->freq = 1; sp_tenv_init(sp, ud.tenv); ud.tenv->atk = 0.005; ud.tenv->hold = 0.1; ud.tenv->rel = 0.1; for(n = 0; n < tst->size; n++) { osc = 0, delay = 0, met = 0, tenv = 0; sp_metro_compute(sp, ud.met, NULL, &met); sp_tenv_compute(sp, ud.tenv, &met, &tenv); if(met) { ud.osc->freq = 100 + sp_rand(sp) % 500; } sp_osc_compute(sp, ud.osc, NULL, &osc); osc *= tenv; sp_delay_compute(sp, ud.delay, &osc, &delay); sp_test_add_sample(tst, osc + delay); } if(sp_test_compare(tst, hash) == SP_NOT_OK) { printf("Generated hash %s does not match reference hash %s\n", tst->md5string, hash); fail = 1; } if(fail) return SP_NOT_OK; else return SP_OK; }
int t_allpass(sp_test *tst, sp_data *sp, const char *hash) { uint32_t n; int fail = 0; sp_allpass *ap_d; sp_tenv *env_d; sp_noise *nz_d; SPFLOAT tick = 0, env = 0, noise = 0, allpass = 0; sp_allpass_create(&ap_d); sp_tenv_create(&env_d); sp_noise_create(&nz_d); sp_allpass_init(sp, ap_d, 0.1); sp_tenv_init(sp, env_d); env_d->atk = 0.001; env_d->hold = 0.00; env_d->rel = 0.1; sp_noise_init(sp, nz_d); for(n = 0; n < tst->size; n++) { tick = 0, env = 0, noise = 0, allpass = 0; tick = (n == 0) ? 1 : 0; sp_tenv_compute(sp, env_d, &tick, &env); sp_noise_compute(sp, nz_d, NULL, &noise); noise *= env * 0.5; sp_allpass_compute(sp, ap_d, &noise, &allpass); sp_test_add_sample(tst, allpass); } if(sp_test_compare(tst, hash) == SP_NOT_OK) { printf("Generated hash %s does not match reference hash %s\n", tst->md5string, hash); fail = 1; } sp_noise_destroy(&nz_d); sp_tenv_destroy(&env_d); sp_allpass_destroy(&ap_d); if(fail) return SP_NOT_OK; else return SP_OK; }
int t_allpass(sp_test *tst, sp_data *sp, const char *hash) { sp_srand(sp, 0); uint32_t n; int fail = 0; sp_allpass *ap_d; sp_tenv *env_d; sp_noise *nz_d; SPFLOAT tick = 0, env = 0, noise = 0, allpass = 0; sp_allpass_create(&ap_d); sp_tenv_create(&env_d); sp_noise_create(&nz_d); sp_allpass_init(sp, ap_d, 0.1); sp_tenv_init(sp, env_d); env_d->atk = 0.001; env_d->hold = 0.00; env_d->rel = 0.1; sp_noise_init(sp, nz_d); for(n = 0; n < tst->size; n++) { tick = 0, env = 0, noise = 0, allpass = 0; tick = (n == 0) ? 1 : 0; sp_tenv_compute(sp, env_d, &tick, &env); sp_noise_compute(sp, nz_d, NULL, &noise); noise *= env * 0.5; sp_allpass_compute(sp, ap_d, &noise, &allpass); sp_test_add_sample(tst, allpass); } fail = sp_test_verify(tst,hash); sp_noise_destroy(&nz_d); sp_tenv_destroy(&env_d); sp_allpass_destroy(&ap_d); if(fail) return SP_NOT_OK; else return SP_OK; }
int chord_cloud_init(sp_data *sp, chord_cloud *cc, char *notes, SPFLOAT amp) { int i; sp_osc *tmposc; sp_dust *tmpdust; sp_tenv *tmpenv; sp_tevent *tmpretrig; sp_ftbl_create(sp, &cc->sine, 4096); sp_gen_sinesum(sp, cc->sine, "1 0.5 0.3 0.25, 0.1625"); sp_ftbl_create(sp, &cc->notes, 1); sp_gen_vals(sp, cc->notes, notes); cc->ampmax= amp; cc->grains= malloc(cc->notes->size * sizeof(chord_grain)); for(i = 0; i < cc->notes->size; i++) { chord_grain *grain = &cc->grains[i]; sp_osc_create(&grain->osc); sp_tenv_create(&grain->env); sp_dust_create(&grain->dust); sp_tevent_create(&grain->retrig); tmposc = grain->osc; tmpenv = grain->env; tmpdust = grain->dust; tmpretrig = grain->retrig; sp_dust_init(sp, tmpdust, 1, 8); sp_osc_init(sp, tmposc, cc->sine, 0); tmposc->freq = sp_midi2cps(cc->notes->tbl[i]); tmposc->amp = 1.0; grain->amp = 1.0; sp_tenv_init(sp, tmpenv); tmpenv->atk = 0.01; tmpenv->hold = 0; tmpenv->rel = 0.03; sp_tevent_init(sp, tmpretrig, cloud_reinit, cloud_compute, grain); } return SP_OK; }
int main() { srand(time(NULL)); UserData ud; uint32_t bufsize; sp_data *sp; sp_create(&sp); sp_auxdata rvaux; sp_dtrig_create(&ud.dt); sp_tenv_create(&ud.tenv); sp_ftbl_create(sp, &ud.ft, 2048); sp_ftbl_create(sp, &ud.delta, 4); sp_ftbl_create(sp, &ud.nn, 1); sp_osc_create(&ud.osc); sp_gen_vals(sp, ud.delta, "0.2 0.2 0.2 0.1"); sp_gen_vals(sp, ud.nn, "60 62 64 67"); sp_tseq_create(&ud.seq); sp_tseq_init(sp, ud.seq, ud.nn); sp_dtrig_init(sp, ud.dt, ud.delta); ud.dt->loop = 1.0; sp_tenv_init(sp, ud.tenv); ud.tenv->atk = 0.01; ud.tenv->hold = 0.01; ud.tenv->rel = 0.05; sp_gen_sine(sp, ud.ft); sp_osc_init(sp, ud.osc, ud.ft, 0); ud.osc->freq = 1000; ud.osc->amp = 0.5; sp->len = 44100 * 5; sp_process(sp, &ud, write_osc); sp_dtrig_destroy(&ud.dt); sp_tseq_destroy(&ud.seq); sp_tenv_destroy(&ud.tenv); sp_ftbl_destroy(&ud.ft); sp_ftbl_destroy(&ud.nn); sp_ftbl_destroy(&ud.delta); sp_osc_destroy(&ud.osc); sp_destroy(&sp); return 0; }
int main(){ sp_data *sp; UserData ud; sp_create(&sp); int tempo = 120; sp_rpt_create(&ud.rpt); sp_maygate_create(&ud.mg); sp_osc_create(&ud.osc); sp_ftbl_create(sp, &ud.ft, 4096); sp_metro_create(&ud.mt); sp_tenv_create(&ud.te); sp_maygate_init(sp, ud.mg); ud.mg->prob = 0.5; sp_gen_sine(sp, ud.ft); sp_osc_init(sp, ud.osc, ud.ft, 0); sp_metro_init(sp, ud.mt); ud.mt->freq = tempo / 60.0; sp_rpt_init(sp, ud.rpt, 1.0); ud.rpt->bpm = tempo; ud.rpt->div = 8; ud.rpt->rep = 4; sp_tenv_init(sp, ud.te); ud.te->atk = 0.001; ud.te->hold = 0.1; ud.te->rel = 0.1; sp_process(sp, &ud, compute); sp_tenv_destroy(&ud.te); sp_metro_destroy(&ud.mt); sp_ftbl_destroy(&ud.ft); sp_osc_destroy(&ud.osc); sp_rpt_destroy(&ud.rpt); sp_destroy(&sp); return 0; }
int main() { srand(1234567); UserData ud; sp_data *sp; sp_create(&sp); sp_thresh_create(&ud.thresh); sp_osc_create(&ud.osc); sp_osc_create(&ud.lfo); sp_tenv_create(&ud.tenv); sp_ftbl_create(sp, &ud.ft, 2048); sp_thresh_init(sp, ud.thresh); ud.thresh->mode = 1; sp_gen_sine(sp, ud.ft); sp_osc_init(sp, ud.osc, ud.ft, 0); sp_osc_init(sp, ud.lfo, ud.ft, 0); ud.lfo->freq = 3; ud.lfo->amp = 1; sp_tenv_init(sp, ud.tenv); ud.tenv->atk = 0.01; ud.tenv->hold = 0.01; ud.tenv->rel = 0.01; sp->len = 44100 * 5; sp_process(sp, &ud, process); sp_thresh_destroy(&ud.thresh); sp_ftbl_destroy(&ud.ft); sp_osc_destroy(&ud.osc); sp_osc_destroy(&ud.lfo); sp_tenv_destroy(&ud.tenv); sp_destroy(&sp); return 0; }
int main() { srand(1234567); UserData ud; sp_data *sp; sp_create(&sp); sp_dmetro_create(&ud.dmetro); sp_osc_create(&ud.osc); sp_osc_create(&ud.lfo); sp_ftbl_create(sp, &ud.ft, 2048); sp_tenv_create(&ud.tenv); sp_dmetro_init(sp, ud.dmetro); ud.dmetro->time = 0.05; sp_gen_sine(sp, ud.ft); sp_osc_init(sp, ud.osc, ud.ft, 0); sp_osc_init(sp, ud.lfo, ud.ft, 0); ud.lfo->freq = 0.3; ud.lfo->amp = 0.5; sp_tenv_init(sp, ud.tenv); ud.tenv->atk = 0.001; ud.tenv->hold = 0.03; ud.tenv->rel = 0.001; sp->len = 44100 * 5; sp_process(sp, &ud, process); sp_dmetro_destroy(&ud.dmetro); sp_ftbl_destroy(&ud.ft); sp_osc_destroy(&ud.osc); sp_osc_destroy(&ud.lfo); sp_tenv_destroy(&ud.tenv); sp_destroy(&sp); return 0; }
int main() { srand(1234567); UserData ud; sp_data *sp; sp_create(&sp); sp_delay_create(&ud.delay); sp_osc_create(&ud.osc); sp_ftbl_create(sp, &ud.ft, 2048); sp_metro_create(&ud.met); sp_tenv_create(&ud.tenv); sp_delay_init(sp, ud.delay, 0.75 * 0.5); ud.delay->feedback = 0.5; sp_gen_sine(sp, ud.ft); sp_osc_init(sp, ud.osc, ud.ft, 0); ud.osc->amp = 0.5; sp_metro_init(sp, ud.met); ud.met->freq = 1; sp_tenv_init(sp, ud.tenv); ud.tenv->atk = 0.005; ud.tenv->hold = 0.1; ud.tenv->rel = 0.1; sp->len = 44100 * 5; sp_process(sp, &ud, process); sp_delay_destroy(&ud.delay); sp_ftbl_destroy(&ud.ft); sp_osc_destroy(&ud.osc); sp_metro_destroy(&ud.met); sp_tenv_destroy(&ud.tenv); sp_destroy(&sp); return 0; }
int t_tseq(sp_test *tst, sp_data *sp, const char *hash) { uint32_t n; int fail = 0; SPFLOAT env = 0; SPFLOAT osc = 0; SPFLOAT trig; SPFLOAT dtrig = 0; SPFLOAT note = 0; sp_srand(sp, 123456); UserData ud; sp_dtrig_create(&ud.dt); sp_tenv_create(&ud.tenv); sp_ftbl_create(sp, &ud.ft, 2048); sp_ftbl_create(sp, &ud.delta, 4); sp_ftbl_create(sp, &ud.nn, 1); sp_osc_create(&ud.osc); sp_gen_vals(sp, ud.delta, "0.2 0.2 0.2 0.1"); sp_gen_vals(sp, ud.nn, "60 62 64 67"); sp_tseq_create(&ud.seq); sp_tseq_init(sp, ud.seq, ud.nn); sp_dtrig_init(sp, ud.dt, ud.delta); ud.dt->loop = 1.0; sp_tenv_init(sp, ud.tenv); ud.tenv->atk = 0.01; ud.tenv->hold = 0.01; ud.tenv->rel = 0.05; sp_gen_sine(sp, ud.ft); sp_osc_init(sp, ud.osc, ud.ft, 0); ud.osc->freq = 1000; ud.osc->amp = 0.5; for(n = 0; n < tst->size; n++) { env = 0; osc = 0; dtrig = 0; note = 0; if(sp->pos == 0){ trig = 1.0; }else{ trig = 0.0; } sp_dtrig_compute(sp, ud.dt, &trig, &dtrig); sp_tseq_compute(sp, ud.seq, &dtrig, ¬e); ud.osc->freq = sp_midi2cps(note + 24); env = 1.0; sp_tenv_compute(sp, ud.tenv, &dtrig, &env); sp_osc_compute(sp, ud.osc, NULL, &osc); sp->out[0] = osc * env; sp_test_add_sample(tst, sp->out[0]); } fail = sp_test_verify(tst, hash); sp_dtrig_destroy(&ud.dt); sp_tseq_destroy(&ud.seq); sp_tenv_destroy(&ud.tenv); sp_ftbl_destroy(&ud.ft); sp_ftbl_destroy(&ud.nn); sp_ftbl_destroy(&ud.delta); sp_osc_destroy(&ud.osc); if(fail) return SP_NOT_OK; else return SP_OK; }
int main() { srand(time(NULL)); int i; UserData ud; ud.pdel = 0; sp_data *sp; sp_create(&sp); sp->len = 44100 * 40; char *notes[] = { "62 69 78", "55 62 69 71", "43 50" }; for(i = 0; i < NUMLINE; i++) { sp_randi_create(&ud.line[i].randi); chord_cloud_create(&ud.line[i].cc); chord_cloud_init(sp, ud.line[i].cc, notes[i], 0.1); sp_randi_init(sp, ud.line[i].randi, rand()); ud.line[i].randi->cps = 0.1 + randf(1.5); } sp_revsc_create(&ud.rev); sp_revsc_init(sp, ud.rev); ud.rev->feedback = 0.95; sp_metro_create(&ud.clk); sp_metro_init(sp, ud.clk); ud.clk->freq = 86.0 / 60.0; sp_count_create(&ud.meter); sp_count_init(sp, ud.meter); ud.meter->count = 5; sp_drip_create(&ud.drip); sp_drip_init(sp, ud.drip, 0.01); sp_vdelay_create(&ud.del); /* give some headroom for the delay */ sp_vdelay_init(sp, ud.del, 0.4); ud.del->del = 0.3; sp_tenv_create(&ud.master); sp_tenv_init(sp, ud.master); ud.master->atk = 0; ud.master->hold = 30; ud.master->rel = 10; sp_progress_create(&ud.prog); sp_progress_init(sp, ud.prog); modal_create(&ud.mod); modal_init(sp, ud.mod); sp_ftbl_create(sp, &ud.notes, 1); sp_gen_vals(sp, ud.notes, "62 64 59 57"); sp_tseq_create(&ud.seq); sp_tseq_init(sp, ud.seq, ud.notes); sp_maygate_create(&ud.mg); sp_maygate_init(sp, ud.mg); ud.mg->prob = 0.3; ud.mg->mode = 1; sp_process(sp, &ud, process); for(i = 0; i < NUMLINE; i++) { sp_randi_destroy(&ud.line[i].randi); chord_cloud_destroy(&ud.line[i].cc); } sp_drip_destroy(&ud.drip); sp_revsc_destroy(&ud.rev); sp_metro_destroy(&ud.clk); sp_count_destroy(&ud.meter); sp_vdelay_destroy(&ud.del); sp_tenv_destroy(&ud.master); modal_destroy(&ud.mod); sp_ftbl_destroy(&ud.notes); sp_tseq_destroy(&ud.seq); sp_maygate_destroy(&ud.mg); sp_progress_destroy(&ud.prog); sp_destroy(&sp); return 0; }