mirror of
https://github.com/cookiengineer/audacity
synced 2025-05-04 09:39:42 +02:00
24 lines
908 B
Plaintext
24 lines
908 B
Plaintext
(ALPASSCV-ALG
|
|
(NAME "alpasscv")
|
|
(ARGUMENTS ("sound_type" "input") ("time_type" "delay") ("sound_type" "feedback"))
|
|
(SAMPLE-RATE (MAX input))
|
|
(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);")
|
|
)
|
|
|