mirror of
https://github.com/cookiengineer/audacity
synced 2025-05-05 14:18:53 +02:00
20 lines
689 B
Plaintext
20 lines
689 B
Plaintext
(DELAYCV-ALG
|
|
(NAME "delaycv")
|
|
(ARGUMENTS ("sound_type" "s") ("time_type" "delay") ("sound_type" "feedback"))
|
|
(START (MAX s feedback))
|
|
(STATE ("long" "delaylen" "round(s->sr * delay)")
|
|
("sample_type *" "delaybuf"
|
|
"(sample_type *) calloc (sizeof(double), susp->delaylen)")
|
|
("sample_type *" "delayptr" "susp->delaybuf")
|
|
("sample_type *" "endptr" "susp->delaybuf + susp->delaylen"))
|
|
(CONSTANT "delaylen" "delaybuf")
|
|
(NOT-REGISTER delaybuf)
|
|
(LINEAR s)
|
|
(TERMINATE (MIN s))
|
|
(INNER-LOOP "output = *delayptr;
|
|
*delayptr = *delayptr * feedback + s;
|
|
if (++delayptr >= endptr) delayptr = susp->delaybuf;")
|
|
(FINALIZATION "free(susp->delaybuf);")
|
|
)
|
|
|