int sporth_delay(sporth_stack *stack, void *ud) { plumber_data *pd = ud; SPFLOAT input; SPFLOAT out; SPFLOAT time; SPFLOAT feedback; sp_delay *delay; switch(pd->mode) { case PLUMBER_CREATE: #ifdef DEBUG_MODE fprintf(stderr, "delay: Creating\n"); #endif sp_delay_create(&delay); plumber_add_ugen(pd, SPORTH_DELAY, delay); if(sporth_check_args(stack, "fff") != SPORTH_OK) { fprintf(stderr,"Not enough arguments for delay\n"); stack->error++; return PLUMBER_NOTOK; } time = sporth_stack_pop_float(stack); feedback = sporth_stack_pop_float(stack); input = sporth_stack_pop_float(stack); sporth_stack_push_float(stack, 0); break; case PLUMBER_INIT: #ifdef DEBUG_MODE fprintf(stderr, "delay: Initialising\n"); #endif time = sporth_stack_pop_float(stack); feedback = sporth_stack_pop_float(stack); input = sporth_stack_pop_float(stack); delay = pd->last->ud; sp_delay_init(pd->sp, delay, time); sporth_stack_push_float(stack, 0); break; case PLUMBER_COMPUTE: time = sporth_stack_pop_float(stack); feedback = sporth_stack_pop_float(stack); input = sporth_stack_pop_float(stack); delay = pd->last->ud; delay->feedback = feedback; sp_delay_compute(pd->sp, delay, &input, &out); sporth_stack_push_float(stack, out); break; case PLUMBER_DESTROY: delay = pd->last->ud; sp_delay_destroy(&delay); break; default: fprintf(stderr, "delay: Unknown mode!\n"); break; } return PLUMBER_OK; }
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; }