Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-11-05 16:43:52 +01:00
Code Issues Releases Wiki Activity

Update Nyquist to v3.09.

Browse Source
This commit is contained in:
Leland Lucius
2015-04-07 22:10:17 -05:00
parent f88b27e6d8
commit 9fb0ce5b82
358 changed files with 26327 additions and 7043 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib-src/libnyquist/nyquist/tran/alpasscv.alg
View File

@@ -1,6 +1,7 @@
(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"
@@ -11,11 +12,12 @@
(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;")
(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);")
)