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

9
lib-src/libnyquist/nyquist/tran/atonev.alg
View File

@@ -1,8 +1,7 @@
(ATONEV-ALG
(NAME "atonev")
(ARGUMENTS ("sound_type" "s1") ("sound_type" "hz"))
(INLINE-INTERPOLATION T)
(LINEAR hz)
(LINEAR s1)
(ALWAYS-SCALE hz)
(START (MAX s1 hz))
(TERMINATE (MIN s1 hz))
@@ -10,16 +9,14 @@
(STATE ("double" "cc" "0.0")
("double" "prev" "0.0;
hz->scale = (sample_type) (hz->scale * (PI2 / s1->sr))"))
(LINEAR s1)
(SAMPLE-RATE (MAX s1))
(STEP-FUNCTION hz)
(DEPENDS ("bb" "hz" "2.0 - cos(hz)" TEMP "register double")
("cc" "hz" "bb - sqrt((bb * bb) - 1.0)"))
(CONSTANT "cc")
(INNER-LOOP-LOCALS " double current;
")
(INNER-LOOP-LOCALS " double current;\n")
(INNER-LOOP "current = s1;
prev = cc * (prev + current);
output = (sample_type) prev;
prev -= current;")
prev -= current")
)