Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-10-11 17:13:37 +02: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

27
lib-src/libnyquist/nyquist/tran/allpoles.alg
View File

@@ -45,26 +45,21 @@
(CONSTANT "ak_array" "ak_coefs" "ak_len" "gain")
(SAMPLE-RATE "x_snd->sr")
(INNER-LOOP-LOCALS "double z0; long xi; long xj;")
(INNER-LOOP "
z0 = x_snd*gain;
for (xi=0; xi < ak_len ; xi++)
{
xj = index + xi; if (xj >= ak_len) xj -= ak_len;
z0 += ak_coefs[xi] * zk_buf[xj];
}
zk_buf[index] = z0;
index++; if (index == ak_len) index = 0;
output = (sample_type) z0;
")
(SAMPLE-RATE (MAX x_snd))
(INNER-LOOP-LOCALS " double z0; long xi; long xj;")
(INNER-LOOP "z0 = x_snd*gain;
for (xi=0; xi < ak_len ; xi++) {
xj = index + xi; if (xj >= ak_len) xj -= ak_len;
z0 += ak_coefs[xi] * zk_buf[xj];
}
zk_buf[index] = z0;
index++; if (index == ak_len) index = 0;
output = (sample_type) z0")
(FINALIZATION "
free(susp->zk_buf);
free(susp->ak_coefs);
susp->ak_array = NULL; /* free array */
")
susp->ak_array = NULL; /* free array */\n")
)