int main() { sp_data *sp; sp_create(&sp); sp_srand(sp, 12345); sp->sr = SR; sp->len = sp->sr * LEN; uint32_t t, u; SPFLOAT in = 0, out = 0; sp_pdhalf *unit[NUM]; for(u = 0; u < NUM; u++) { sp_pdhalf_create(&unit[u]); sp_pdhalf_init(sp, unit[u]); } for(t = 0; t < sp->len; t++) { for(u = 0; u < NUM; u++) sp_pdhalf_compute(sp, unit[u], &in, &out); } for(u = 0; u < NUM; u++) sp_pdhalf_destroy(&unit[u]); sp_destroy(&sp); return 0; }
void run(int frameCount, float* outL, float* outR) { float originalFrequency = phs->freq; phs->freq *= kernel->detuningMultiplier; phs->freq += kernel->detuningOffset; phs->freq = clamp(phs->freq, 0.0f, 22050.0f); pdhalf->amount = kernel->phaseDistortion; adsr->atk = (float)kernel->attackDuration; adsr->dec = (float)kernel->decayDuration; adsr->sus = (float)kernel->sustainLevel; adsr->rel = (float)kernel->releaseDuration; for (int frameIndex = 0; frameIndex < frameCount; ++frameIndex) { float temp = 0; float pd = 0; float ph = 0; sp_adsr_compute(kernel->sp, adsr, &internalGate, &); sp_phasor_compute(kernel->sp, phs, NULL, &ph); sp_pdhalf_compute(kernel->sp, pdhalf, &ph, &pd); tab->index = pd; sp_tabread_compute(kernel->sp, tab, NULL, &temp); *outL++ += velocityAmp * amp * temp; *outR++ += velocityAmp * amp * temp; } phs->freq = originalFrequency; if (stage == stageRelease && amp < 0.00001) { clear(); remove(); } }
int sporth_pdhalf(sporth_stack *stack, void *ud) { plumber_data *pd = ud; SPFLOAT sig; SPFLOAT out; SPFLOAT amount; sp_pdhalf *pdhalf; switch(pd->mode) { case PLUMBER_CREATE: #ifdef DEBUG_MODE fprintf(stderr, "pdhalf: Creating\n"); #endif sp_pdhalf_create(&pdhalf); plumber_add_ugen(pd, SPORTH_PDHALF, pdhalf); if(sporth_check_args(stack, "ff") != SPORTH_OK) { fprintf(stderr,"Not enough arguments for pdhalf\n"); stack->error++; return PLUMBER_NOTOK; } amount = sporth_stack_pop_float(stack); sig = sporth_stack_pop_float(stack); sporth_stack_push_float(stack, 0); break; case PLUMBER_INIT: #ifdef DEBUG_MODE fprintf(stderr, "pdhalf: Initialising\n"); #endif amount = sporth_stack_pop_float(stack); sig = sporth_stack_pop_float(stack); pdhalf = pd->last->ud; sp_pdhalf_init(pd->sp, pdhalf); sporth_stack_push_float(stack, 0); break; case PLUMBER_COMPUTE: amount = sporth_stack_pop_float(stack); sig = sporth_stack_pop_float(stack); pdhalf = pd->last->ud; pdhalf->amount = amount; sp_pdhalf_compute(pd->sp, pdhalf, &sig, &out); sporth_stack_push_float(stack, out); break; case PLUMBER_DESTROY: pdhalf = pd->last->ud; sp_pdhalf_destroy(&pdhalf); break; default: fprintf(stderr, "pdhalf: Unknown mode!\n"); break; } return PLUMBER_OK; }