Example #1
0
int sporth_pareq(sporth_stack *stack, void *ud)
{
    plumber_data *pd = ud;
    SPFLOAT input;
    SPFLOAT out;
    SPFLOAT fc;
    SPFLOAT v;
    SPFLOAT q;
    SPFLOAT mode;
    sp_pareq *pareq;

    switch(pd->mode) {
        case PLUMBER_CREATE:

#ifdef DEBUG_MODE
            plumber_print(pd, "pareq: Creating\n");
#endif

            sp_pareq_create(&pareq);
            plumber_add_ugen(pd, SPORTH_PAREQ, pareq);
            if(sporth_check_args(stack, "fffff") != SPORTH_OK) {
                plumber_print(pd,"Not enough arguments for pareq\n");
                stack->error++;
                return PLUMBER_NOTOK;
            }
            mode = sporth_stack_pop_float(stack);
            q = sporth_stack_pop_float(stack);
            v = sporth_stack_pop_float(stack);
            fc = sporth_stack_pop_float(stack);
            input = sporth_stack_pop_float(stack);
            sporth_stack_push_float(stack, 0);
            break;
        case PLUMBER_INIT:

#ifdef DEBUG_MODE
            plumber_print(pd, "pareq: Initialising\n");
#endif

            mode = sporth_stack_pop_float(stack);
            q = sporth_stack_pop_float(stack);
            v = sporth_stack_pop_float(stack);
            fc = sporth_stack_pop_float(stack);
            input = sporth_stack_pop_float(stack);
            pareq = pd->last->ud;
            sp_pareq_init(pd->sp, pareq);
            sporth_stack_push_float(stack, 0);
            break;
        case PLUMBER_COMPUTE:
            mode = sporth_stack_pop_float(stack);
            q = sporth_stack_pop_float(stack);
            v = sporth_stack_pop_float(stack);
            fc = sporth_stack_pop_float(stack);
            input = sporth_stack_pop_float(stack);
            pareq = pd->last->ud;
            pareq->fc = fc;
            pareq->v = v;
            pareq->q = q;
            pareq->mode = mode;
            sp_pareq_compute(pd->sp, pareq, &input, &out);
            sporth_stack_push_float(stack, out);
            break;
        case PLUMBER_DESTROY:
            pareq = pd->last->ud;
            sp_pareq_destroy(&pareq);
            break;
        default:
            plumber_print(pd, "pareq: Unknown mode!\n");
            break;
    }
    return PLUMBER_OK;
}
 void destroy() {
     sp_pareq_destroy(&pareq);
     sp_destroy(&sp);
 }
 void destroy() {
     sp_pareq_destroy(&pareq0);
     sp_pareq_destroy(&pareq1);
     AKSoundpipeKernel::destroy();
 }