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

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

20
lib-src/libnyquist/nyquist/tran/amosc.alg
View File

@@ -16,18 +16,16 @@
(ALWAYS-SCALE amod)
(TERMINATE (MIN amod))
(LOGICAL-STOP (MIN amod))
(INNER-LOOP "
long table_index = (long) phase;
double x1 = (double) (table_ptr[table_index]);
output = (sample_type) (x1 + (phase - table_index) *
(table_ptr[table_index + 1] - x1)) * amod;
phase += ph_incr;
while (phase > table_len) phase -= table_len;
")
(INNER-LOOP "{
\t\tlong table_index = (long) phase;
\t\tdouble x1 = (double) (table_ptr[table_index]);
\t\toutput = (sample_type) ((x1 + (phase - table_index) *
\t\t (table_ptr[table_index + 1] - x1)) * amod);
\t\tphase += ph_incr;
\t\twhile (phase > table_len) phase -= table_len;
\t }")
(CONSTANT "ph_incr" "table_len" "table_ptr" "the_table")
(SAMPLE-RATE "sr")
(FINALIZATION " table_unref(susp->the_table);
")
(FINALIZATION " table_unref(susp->the_table);\n")
)