(ALPASSCV-ALG(NAME "alpasscv")(ARGUMENTS ("sound_type" "input") ("time_type" "delay") ("sound_type" "feedback"))(START (MAX input feedback))(STATE ("long" "delaylen" "MAX(1, round(input->sr * delay))")       ("sample_type *" "delaybuf"               "(sample_type *) calloc (susp->delaylen, sizeof(sample_type))")       ("sample_type *" "delayptr" "susp->delaybuf")       ("sample_type *" "endptr" "susp->delaybuf + susp->delaylen"))(CONSTANT "delaylen" "endptr")(NOT-REGISTER delaybuf)(LINEAR input)(TERMINATE (MIN input))(INNER-LOOP-LOCALS "register sample_type y, z, fb;\n")(INNER-LOOP "	    y = *delayptr;        *delayptr++ = z = (sample_type) ((fb = feedback) * y + input);        output = (sample_type) (y - fb * z);        if (delayptr >= endptr) delayptr = susp->delaybuf;")(FINALIZATION "free(susp->delaybuf);"))