Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-12-11 15:16:27 +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/shape.alg
View File

@@ -1,7 +1,7 @@
(SHAPE-ALG
(NAME "shape")
(ARGUMENTS ("sound_type" "sin") ("sound_type" "fn")
("double" "origin"))
("double" "origin"))
(START (MIN sin))
(TABLE "fn")
(NOT-IN-INNER-LOOP "fn")
@@ -10,11 +10,10 @@
("double" "origin" "origin")
("table_type" "the_table" "sound_to_table(fn)")
("sample_type *" "fcn_table" "susp->the_table->samples")
("double" "table_len" "susp->the_table->length") )
("double" "table_len" "susp->the_table->length") )
(TERMINATE (MIN sin))
(LOGICAL-STOP (MIN sin))
(INNER-LOOP "
register double offset, x1;
(INNER-LOOP "register double offset, x1;
register long table_index;
register double phase = sin;
if (phase > 1.0) phase = 1.0;
@@ -31,9 +30,8 @@
}
x1 = fcn_table[table_index];
output = (sample_type) (x1 + (offset - table_index) *
(fcn_table[table_index + 1] - x1));
")
(fcn_table[table_index + 1] - x1))")
(ALWAYS-SCALE sin)
(CONSTANT "table_len" "time_to_index" "origen" "fcn_table" "the_table")
(FINALIZATION "table_unref(susp->the_table);")
(FINALIZATION "table_unref(susp->the_table);\n")
)