int main()
{
SPFLOAT *freq, *amp;
sp_data *sp;
sp_create(&sp);
plumber_data pd;
plumber_register(&pd);
plumber_init(&pd);
pd.sp = sp;
plumber_create_var(&pd, "freq", &freq);
plumber_create_var(&pd, "amp", &);
*freq = 1000;
*amp = 0.5;
plumber_parse_string(&pd, "_freq get _amp get sine");
plumber_show_pipes(&pd);
plumber_compute(&pd, PLUMBER_INIT);
sp_process(sp, &pd, process);
plumber_clean(&pd);
sp_destroy(&sp);
return 0;
}
int main() {
srand(1234567);
UserData ud;
sp_data *sp;
sp_create(&sp);
sp_pluck_create(&ud.pluck);
sp_osc_create(&ud.osc);
sp_metro_create(&ud.met);
sp_ftbl_create(sp, &ud.ft, 2048);
sp_pluck_init(sp, ud.pluck, 110);
sp_gen_sine(sp, ud.ft);
sp_metro_init(sp, ud.met, 2);
sp_osc_init(sp, ud.osc, ud.ft, 0);
ud.osc->freq = 1;
ud.osc->amp = 1;
sp->len = 44100 * 5;
sp_process(sp, &ud, process);
sp_pluck_destroy(&ud.pluck);
sp_ftbl_destroy(&ud.ft);
sp_osc_destroy(&ud.osc);
sp_metro_destroy(&ud.met);
sp_destroy(&sp);
return 0;
}
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;
}
int main()
{
sp_data *sp;
sp_create(&sp);
plumber_data pd;
plumber_register(&pd);
plumber_init(&pd);
pd.sp = sp;
char *str =
"0 p 0.2 sine "
"1 p 0.2 sine "
"add";
plumber_parse_string(&pd, str);
plumber_compute(&pd, PLUMBER_INIT);
/* Set the p values to constants */
pd.p[0] = 440;
pd.p[1] = 350;
sp_process(sp, &pd, process);
plumber_clean(&pd);
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 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(1234567);
UserData ud;
sp_data *sp;
sp_create(&sp);
sp_tenv2_create(&ud.tenv2);
sp_osc_create(&ud.osc);
sp_ftbl_create(sp, &ud.ft, 2048);
sp_tenv2_init(sp, ud.tenv2);
ud.tenv2->atk = 3;
ud.tenv2->rel = 1;
sp_gen_sine(sp, ud.ft);
sp_osc_init(sp, ud.osc, ud.ft, 0);
ud.osc->amp = 0.6;
sp->len = 44100 * 5;
sp_process(sp, &ud, process);
sp_tenv2_destroy(&ud.tenv2);
sp_ftbl_destroy(&ud.ft);
sp_osc_destroy(&ud.osc);
sp_destroy(&sp);
return 0;
}
int main() {
srand(1234567);
UserData ud;
sp_data *sp;
sp_create(&sp);
sp_ftbl_loadfile(sp, &ud.wav, "oneart.wav");
sp_ftbl_create(sp, &ud.win, 1024);
sp_fog_create(&ud.fog);
sp_phasor_create(&ud.phs);
sp_gen_composite(sp, ud.win, "0.5 0.5 270 0.5");
sp_fog_init(sp, ud.fog, ud.wav, ud.win, 100, 0);
ud.fog->trans = 0.9;
sp_phasor_init(sp, ud.phs, 0);
ud.phs->freq = 0.3 / ((SPFLOAT)ud.wav->size / sp->sr);
sp->len = 44100 * 10;
sp_process(sp, &ud, process);
sp_fog_destroy(&ud.fog);
sp_ftbl_destroy(&ud.wav);
sp_ftbl_destroy(&ud.win);
sp_phasor_destroy(&ud.phs);
sp_destroy(&sp);
return 0;
}
int main() {
srand(1234567);
UserData ud;
sp_data *sp;
sp_create(&sp);
sp_tseg_create(&ud.tseg);
sp_osc_create(&ud.osc);
sp_ftbl_create(sp, &ud.ft, 2048);
sp_tseg_init(sp, ud.tseg, 0.0001);
ud.tseg->end = 1.0;
ud.tseg->type = 3.0;
ud.tseg->dur = 4.0;
sp_gen_sine(sp, ud.ft);
sp_osc_init(sp, ud.osc, ud.ft, 0);
sp->len = 44100 * 5;
sp_process(sp, &ud, process);
sp_tseg_destroy(&ud.tseg);
sp_ftbl_destroy(&ud.ft);
sp_osc_destroy(&ud.osc);
sp_destroy(&sp);
return 0;
}
int main() {
UserData ud;
sp_data *sp;
sp_createn(&sp, 2);
sp_pan2_create(&ud.pan2);
sp_osc_create(&ud.osc);
sp_osc_create(&ud.lfo);
sp_ftbl_create(sp, &ud.ft, 2048);
sp_pan2_init(sp, ud.pan2);
ud.pan2->type = 2;
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->amp = 1;
ud.lfo->freq = 1;
sp->len = 44100 * 5;
sp_process(sp, &ud, process);
sp_pan2_destroy(&ud.pan2);
sp_ftbl_destroy(&ud.ft);
sp_osc_destroy(&ud.osc);
sp_osc_destroy(&ud.lfo);
sp_destroy(&sp);
return 0;
}
int main() {
srand(time(NULL));
udata ud;
sp_data *sp;
sp_create(&sp);
sp_ftbl_create(sp, &ud.ft, 1024);
sp_osc_create(&ud.osc);
sp_randi_create(&ud.rnd);
sp_gen_sine(sp, ud.ft);
sp_osc_init(sp, ud.osc, ud.ft);
sp_randi_init(sp, ud.rnd, 12345);
ud.rnd->min = 300;
ud.rnd->max = 3000;
sp->len = 44100 * 5;
sp_process(sp, &ud, write_osc);
sp_ftbl_destroy(&ud.ft);
sp_osc_destroy(&ud.osc);
sp_randi_destroy(&ud.rnd);
sp_destroy(&sp);
return 0;
}
int main() {
srand(1234567);
UserData ud;
sp_data *sp;
sp_create(&sp);
sp_expon_create(&ud.line);
sp_osc_create(&ud.osc);
sp_ftbl_create(sp, &ud.ft, 2048);
sp_dmetro_create(&ud.dm);
sp_expon_init(sp, ud.line);
ud.line->a = 100;
ud.line->b = 400;
ud.line->dur = 1;
sp_gen_sine(sp, ud.ft);
sp_osc_init(sp, ud.osc, ud.ft, 0);
sp_dmetro_init(sp, ud.dm);
ud.dm->time = 2;
sp->len = 44100 * 5;
sp_process(sp, &ud, process);
sp_expon_destroy(&ud.line);
sp_ftbl_destroy(&ud.ft);
sp_osc_destroy(&ud.osc);
sp_dmetro_destroy(&ud.dm);
sp_destroy(&sp);
return 0;
}
int main() {
UserData ud;
sp_data *sp;
sp_create(&sp);
sp_srand(sp, 1234567);
sp_mincer_create(&ud.mincer);
/* allocates loads an audio file into a ftable */
sp_ftbl_loadfile(sp, &ud.ft, "oneart.wav");
sp_randi_create(&ud.randi);
sp_mincer_init(sp, ud.mincer, ud.ft);
sp_randi_init(sp, ud.randi);
ud.randi->min = 0;
ud.randi->max = 5;
ud.randi->cps = 1;
sp->len = 44100 * 5;
sp_process(sp, &ud, process);
sp_mincer_destroy(&ud.mincer);
sp_ftbl_destroy(&ud.ft);
sp_randi_destroy(&ud.randi);
sp_destroy(&sp);
return 0;
}
int main() {
srand(time(NULL));
udata ud;
SPFLOAT *freqp = &ud.freq;
ud.counter = 0;
ud.freq = 400;
sp_data *sp;
sp_create(&sp);
sp_tevent_create(&ud.te);
sp_ftbl_create(sp, &ud.ft, 2048);
sp_osc_create(&ud.osc);
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);
ud.osc->freq = *freqp;
sp->len = 44100 * 5;
sp_process(sp, &ud, write_osc);
sp_ftbl_destroy(&ud.ft);
sp_osc_destroy(&ud.osc);
sp_tevent_destroy(&ud.te);
sp_destroy(&sp);
return 0;
}
int main() {
srand(1234567);
UserData ud;
sp_data *sp;
sp_create(&sp);
sp_biscale_create(&ud.biscale);
sp_osc_create(&ud.osc);
sp_ftbl_create(sp, &ud.ft, 2048);
sp_biscale_init(sp, ud.biscale);
ud.biscale->min = 0;
ud.biscale->max = 880;
sp_gen_sine(sp, ud.ft);
sp_osc_init(sp, ud.osc, ud.ft, 0);
ud.osc->amp = 0.1;
sp->len = 44100 * 5;
sp_process(sp, &ud, process);
sp_biscale_destroy(&ud.biscale);
sp_ftbl_destroy(&ud.ft);
sp_osc_destroy(&ud.osc);
sp_destroy(&sp);
return 0;
}
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() {
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 main() {
UserData ud;
sp_data *sp;
sp_create(&sp);
sp_srand(sp, 1234567);
sp_metro_create(&ud.met);
sp_trand_create(&ud.trand);
sp_osc_create(&ud.osc);
sp_ftbl_create(sp, &ud.ft, 2048);
sp_metro_init(sp, ud.met);
ud.met->freq = 20;
sp_trand_init(sp, ud.trand);
ud.trand->min = 40;
ud.trand->max = 1000;
sp_gen_sine(sp, ud.ft);
sp_osc_init(sp, ud.osc, ud.ft, 0);
sp->len = 44100 * 5;
sp_process(sp, &ud, process);
sp_trand_destroy(&ud.trand);
sp_ftbl_destroy(&ud.ft);
sp_osc_destroy(&ud.osc);
sp_metro_destroy(&ud.met);
sp_destroy(&sp);
return 0;
}
int main() {
UserData ud;
sp_data *sp;
sp_create(&sp);
sp_vco_create(&ud.vco);
sp_vco_init(sp, ud.vco);
sp->len = 44100 * 5;
sp_process(sp, &ud, process);
sp_vco_destroy(&ud.vco);
sp_destroy(&sp);
return 0;
}
int main() {
srand(time(NULL));
udata ud;
sp_data *sp;
sp_create(&sp);
sp_dust_create(&ud.dst);
sp_dust_init(sp, ud.dst, 0.3, 10);
sp->len = 44100 * 5;
ud.dst->bipolar = 1.0;
sp_process(sp, &ud, write_dust);
sp_dust_destroy(&ud.dst);
sp_destroy(&sp);
return 0;
}
int main(void)
{
sp_init();
settings_init();
plan_init();
st_init();
spindle_init();
gc_init();
for (;;) {
sleep_mode(); // Wait for it ...
sp_process(); // ... process the serial protocol
}
return 0; /* never reached */
}
int main()
{
UserData ud;
/* allocate and initialize */
sp_create(&ud.sp);
plumber_register(&ud.pd);
plumber_init(&ud.pd);
/* create an ftable with a size 1, which will be expanded with gen_vals */
sp_ftbl_create(ud.sp, &ud.seq, 1);
/* Gen_vals will create a table from a string of numbers */
sp_gen_vals(ud.sp, ud.seq, "60 63 67 72");
/* Sporth code to be parsed, using a ftable generated in c called 'seq' */
char *str =
"0.1 dmetro "
"0 'seq' tseq "
"0.01 port mtof "
"0.5 1 1 1 fm";
/* Tell plumber that that we will take care of removing the following ftables */
/* This is needed for persistant ftables that don't get cleaned for
* recompilation */
plumber_ftmap_delete(&ud.pd, 0);
/* add ftable to plumber and call it "seq" */
plumber_ftmap_add(&ud.pd, "seq", ud.seq);
/* Turn automatic deletion back "on" */
plumber_ftmap_delete(&ud.pd, 1);
/* make plumber know about the soundpipe instance */
ud.pd.sp = ud.sp;
/* parse string and allocate plumbing */
plumber_parse_string(&ud.pd, str);
/* initialize the plumbing */
plumber_compute(&ud.pd, PLUMBER_INIT);
/* run */
sp_process(ud.sp, &ud, process);
/* Cleanup */
/* Plumber will handle freeing the memory of the ftable we added */
/* no need to call sp_ftbl_destroy */
plumber_clean(&ud.pd);
sp_ftbl_destroy(&ud.seq);
sp_destroy(&ud.sp);
return 0;
}
int main() {
srand(time(NULL));
udata ud;
sp_data *sp;
sp_create(&sp);
sp_noise_create(&ud.ns);
sp_tone_create(&ud.tn);
sp_noise_init(sp, ud.ns);
sp_tone_init(sp, ud.tn);
sp->len = 44100 * 5;
sp_process(sp, &ud, write_noise);
sp_noise_destroy(&ud.ns);
sp_tone_destroy(&ud.tn);
sp_destroy(&sp);
return 0;
}
int main() {
udata ud;
sp_data *sp;
sp_create(&sp);
sp_srand(sp, 12345);
sp_noise_create(&ud.ns);
sp_reson_create(&ud.reson);
sp_noise_init(sp, ud.ns);
ud.ns->amp = 1.0;
sp_reson_init(sp, ud.reson);
sp->len = 44100 * 5;
sp_process(sp, &ud, write_noise);
sp_noise_destroy(&ud.ns);
sp_reson_destroy(&ud.reson);
sp_destroy(&sp);
return 0;
}
int main() {
srand(time(NULL));
UserData ud;
sp_data *sp;
sp_create(&sp);
sp_noise_create(&ud.ns);
sp_tbvcf_create(&ud.tn);
sp_noise_init(sp, ud.ns);
sp_tbvcf_init(sp, ud.tn);
sp->len = 44100 * 5;
ud.tn->dist = 1.0;
sp_process(sp, &ud, write_noise);
sp_noise_destroy(&ud.ns);
sp_tbvcf_destroy(&ud.tn);
sp_destroy(&sp);
return 0;
}
void* callc plugin_dsp_process(unsigned long id, unsigned long *bsize, unsigned long freqency, unsigned long bitspersample, unsigned long channels, void *sbuffer, unsigned int apointer, unsigned int avbsize, func_realloc fr)
{
fennec_sample *din, bl, br, apl, apr;
unsigned int i, c = (*bsize) / (bitspersample / 8), cx, j;
static double t;
unsigned long sz;
fennec_sample *bkp = malloc((*bsize) + 1);
memcpy(bkp, sbuffer, *bsize);
sz = ((*bsize) * speakers.count) / channels;
if(avbsize < sz)
sbuffer = fr(sbuffer, sz);
din = (fennec_sample*) (((char*)sbuffer) + apointer);
cx = sz / (bitspersample / 8);
speakers.sampling_rate = freqency;
if(last_frequency != freqency)
{
/* initialize effects that depend on sampling rate */
last_frequency = freqency;
}
/* ----------------------------- DSP ------------------------------ */
for(i=0, j=0; i<cx; j+=channels)
{
bl = bkp[j];
br = bkp[j + 1];
sp_process(din + i, bkp + j, channels);
i += speakers.count;
}
/* ---------------------------------------------------------------- */
*bsize = sz;
free(bkp);
return sbuffer;
}
int main()
{
sp_data *sp;
sp_create(&sp);
plumber_data pd;
plumber_register(&pd);
plumber_init(&pd);
pd.sp = sp;
plumber_parse_string(&pd, "440 0.1 sine");
plumber_show_pipes(&pd);
plumber_compute(&pd, PLUMBER_INIT);
sp_process(sp, &pd, process);
plumber_clean(&pd);
sp_destroy(&sp);
return 0;
}
int main() {
srand(time(NULL));
udata ud;
sp_data *sp;
sp_create(&sp);
sp_ftbl_create(sp, &ud.ft, 2048);
sp_gbuzz_create(&ud.buzz);
sp_gen_sine(sp, ud.ft);
sp_gbuzz_init(sp, ud.buzz, ud.ft);
sp->len = 44100 * 5;
sp_process(sp, &ud, process);
sp_ftbl_destroy(&ud.ft);
sp_gbuzz_destroy(&ud.buzz);
sp_destroy(&sp);
return 0;
}
int main() {
_delay_ms(100);
gc_init();
sp_init();
i2c_init();
as_init();
motor_init();
boom_init();
analog_init();
sei();
printPgmString(PSTR("Shuttleboom!\n\r"));
for(;;){sp_process(); sleep_mode();}
return(0);
}
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;
}
