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() { UserData ud; sp_data *sp; sp_create(&sp); sp_clip_create(&ud.clp); sp_osc_create(&ud.osc); sp_ftbl_create(sp, &ud.ft, 4096); sp_moogladder_create(&ud.filt); sp_gen_line(sp, ud.ft, "0 1 4096 -1"); sp_osc_init(sp, ud.osc, ud.ft, 0); ud.osc->freq = sp_midi2cps(48); sp_clip_init(sp, ud.clp); sp_moogladder_init(sp, ud.filt); ud.filt->freq = 1000; ud.filt->res = 0.8; sp->len = 44100 * 5; sp_process(sp, &ud, write_clip); sp_osc_destroy(&ud.osc); sp_clip_destroy(&ud.clp); sp_ftbl_destroy(&ud.ft); sp_moogladder_destroy(&ud.filt); sp_destroy(&sp); return 0; }
int t_pluck(sp_test *tst, sp_data *sp, const char *hash) { uint32_t n; int fail = 0; UserData ud; sp_srand(sp, 1337); SPFLOAT pluck = 0, met = 0; SPFLOAT notes[] = {60, 63, 67, 70, 74}; sp_pluck_create(&ud.pluck); sp_metro_create(&ud.met); sp_pluck_init(sp, ud.pluck, 400); sp_metro_init(sp, ud.met); ud.met->freq = 4; for(n = 0; n < tst->size; n++) { pluck = 0, met = 0; sp_metro_compute(sp, ud.met, NULL, &met); if(met) { ud.pluck->freq = sp_midi2cps(notes[sp_rand(sp) % 5]); } sp_pluck_compute(sp, ud.pluck, &met, &pluck); sp_test_add_sample(tst, pluck); } fail = sp_test_verify(tst, hash); sp_pluck_destroy(&ud.pluck); sp_metro_destroy(&ud.met); if(fail) return SP_NOT_OK; else return SP_OK; }
int main() { udata ud; sp_data *sp; sp_create(&sp); sp_vdelay_create(&ud.del); sp_ftbl_create(sp, &ud.ft, 2048); sp_osc_create(&ud.osc); sp_ftbl_create(sp, &ud.sine, 4096); sp_osc_create(&ud.lfo); sp_vdelay_init(sp, ud.del, 0.5); sp_gen_file(sp, ud.ft, "Formant04.wav"); sp_osc_init(sp, ud.osc, ud.ft, 0); ud.osc->freq = sp_midi2cps(50); sp_gen_sine(sp, ud.sine); sp_osc_init(sp, ud.lfo, ud.sine, 0); ud.lfo->freq = 0.2; sp->len = 44100 * 5; sp_process(sp, &ud, process); sp_vdelay_destroy(&ud.del); sp_ftbl_destroy(&ud.ft); sp_ftbl_destroy(&ud.sine); sp_osc_destroy(&ud.osc); sp_osc_destroy(&ud.lfo); sp_destroy(&sp); return 0; }
void WavePlayBack(uint32_t AudioFreq) { /* note: these mallocs are NOT freed at the moment */ sp_create(&sp); sp->sr = AudioFreq; sp_ftbl_create(sp, &ft, 8192); sp_gen_sine(sp, ft); sp_osc_create(&osc); sp_osc_init(sp, osc, ft, 0); osc->freq = 0.2f; osc->amp = 1.f; uint32_t i; for(i = 0; i < NOSCS; i++) { sp_fosc_create(&fosc[i]); sp_fosc_init(sp, fosc[i], ft); fosc[i]->freq = sp_midi2cps(scale[i]); fosc[i]->amp = 0.1f; } for(i = 0; i < MY_BUFSIZE; i++) { buf0[i] = 0; buf1[i] = 0; } sp_revsc_create(&revsc); sp_revsc_init(sp, revsc); /* Initialize wave player (Codec, DMA, I2C) */ WavePlayerInit(AudioFreq); nextbuf = 1; compute_buffer(buf1, MY_BUFSIZE); Audio_MAL_Play((uint32_t)buf0, MY_BUFSIZE / 2); EVAL_AUDIO_Mute(AUDIO_MUTE_ON); while(1) { while(nextbuf == 1); if(please_play == 0) { EVAL_AUDIO_Mute(AUDIO_MUTE_OFF); please_play = 1; } compute_buffer(buf0, MY_BUFSIZE); while(nextbuf == 0); compute_buffer(buf1, MY_BUFSIZE); }; }
void process(sp_data *sp, void *udata) { UserData *ud = udata; int i; SPFLOAT line = 0, cloud = 0, tmp = 0, revin = 0, rev = 0, dummy, drip = 0; SPFLOAT count = 0; SPFLOAT bar = 0, clk = 0, delIn = 0, delOut = 0; SPFLOAT mode = 0; for(i = 0; i < NUMLINE; i++) { sp_randi_compute(sp, ud->line[i].randi, NULL, &line); chord_cloud_compute(sp, ud->line[i].cc, NULL, &cloud); tmp += cloud * line; } revin += tmp * 0.5; sp_metro_compute(sp, ud->clk, NULL, &clk); sp_count_compute(sp, ud->meter, &clk, &count); bar = (count == 0 && clk); sp_drip_compute(sp, ud->drip, &bar, &drip); drip *= 0.5; revin += drip * 0.1; if(sp->pos > 44100 * 3) { SPFLOAT mg = 0, nn = 0; sp_maygate_compute(sp, ud->mg, &clk, &mg); sp_tseq_compute(sp, ud->seq, &mg, &nn); *ud->mod->freq = sp_midi2cps(nn + 12); modal_compute(sp, ud->mod, &mg, &mode); mode *= 0.3; revin += mode * 0.8; delIn += mode * 0.5; } delIn += drip * 0.1 + ud->pdel * 0.6; sp_vdelay_compute(sp, ud->del, &delIn, &delOut); ud->pdel = delOut; revin += delOut * 0.1; sp_revsc_compute(sp, ud->rev, &revin, &revin, &rev, &dummy); sp->out[0] = tmp * 0.2 + rev * 0.6 + drip * 0.1 + delOut * 0.5 + mode; /* Master fader */ SPFLOAT mtick = (sp->pos == 0) ? 1.0 : 0.0; SPFLOAT fader = 0; sp_tenv_compute(sp, ud->master, &mtick, &fader); sp->out[0] *= fader; sp_progress_compute(sp, ud->prog, NULL, NULL); }
int main() { srand(time(NULL)); int i; UserData ud; sp_data *sp; sp_create(&sp); sp_ftbl_create(sp, &ud.ft, 4096); for(i = 0; i < 3; i++) sp_osc_create(&ud.osc[i]); sp_lpf18_create(&ud.lpf); sp_osc_create(&ud.lfo); sp_ftbl_create(sp, &ud.sine_ft, 4096); sp_gen_sine(sp, ud.sine_ft); sp_gen_line(sp, ud.ft, "0 1 4096 -1"); sp_osc_init(sp, ud.osc[0], ud.ft); ud.osc[0]->freq = sp_midi2cps(40 - 0.05); sp_osc_init(sp, ud.osc[1], ud.ft); ud.osc[1]->freq = sp_midi2cps(40 - 12); sp_osc_init(sp, ud.osc[2], ud.ft); ud.osc[2]->freq = sp_midi2cps(40 + 0.05); sp_lpf18_init(sp, ud.lpf); sp_osc_init(sp, ud.lfo, ud.sine_ft); ud.lfo->freq = 0.4; sp->len = 44100 * 5; sp_process(sp, &ud, write_osc); sp_ftbl_destroy(&ud.ft); for(i = 0; i < 3; i++) sp_osc_destroy(&ud.osc[i]); sp_lpf18_destroy(&ud.lpf); sp_osc_destroy(&ud.lfo); sp_ftbl_destroy(&ud.sine_ft); sp_destroy(&sp); return 0; }
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 t_mode(sp_test *tst, sp_data *sp, const char *hash) { uint32_t n; int fail = 0; UserData ud; SPFLOAT met = 0, mod = 0, nn; modal_create(&ud.mod); modal_init(sp, ud.mod); sp_metro_create(&ud.met); sp_metro_init(sp, ud.met); ud.met->freq = 3.0; sp_ftbl_create(sp, &ud.notes, 1); sp_gen_vals(sp, ud.notes, "60 67 62 69 76"); sp_tseq_create(&ud.seq); sp_tseq_init(sp, ud.seq, ud.notes); for(n = 0; n < tst->size; n++) { met = 0; mod = 0; nn = 0; sp_metro_compute(sp, ud.met, NULL, &met); sp_tseq_compute(sp, ud.seq, &met, &nn); *ud.mod->freq = sp_midi2cps(nn); modal_compute(sp, ud.mod, &met, &mod); sp->out[0] = mod; sp_test_add_sample(tst, sp->out[0]); } fail = sp_test_verify(tst, hash); modal_destroy(&ud.mod); sp_metro_destroy(&ud.met); sp_ftbl_destroy(&ud.notes); sp_tseq_destroy(&ud.seq); if(fail) return SP_NOT_OK; else return SP_OK; }
void write_osc(sp_data *sp, void *udata) { UserData *ud = udata; SPFLOAT env = 0; SPFLOAT osc = 0; SPFLOAT dry = 0; SPFLOAT trig; SPFLOAT dtrig = 0; SPFLOAT 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; }
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; }