Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-10-25 15:53:52 +02:00
Code Issues Releases Wiki Activity

Move library tree where it belongs

Browse Source
This commit is contained in:
ra
2010-01-24 09:19:39 +00:00
parent e74978ba77
commit 58caf78a86
6020 changed files with 2790154 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lib-src/libnyquist/nyquist/tran/delaycc.alg Normal file
View File

@@ -0,0 +1,20 @@
(DELAY-ALG
(NAME "delay")
(ARGUMENTS ("sound_type" "input") ("time_type" "delay") ("double" "feedback"))
(START (MIN input))
(STATE ("double" "feedback" "feedback")
("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 "feedback" "delaylen" "endptr")
(NOT-REGISTER delaybuf)
(LINEAR input)
(TERMINATE (MIN input))
(INNER-LOOP "output = *delayptr;
*delayptr = (sample_type) (*delayptr * feedback) + input;
if (++delayptr >= endptr) delayptr = susp->delaybuf;")
(FINALIZATION "free(susp->delaybuf);")
)