Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-11-21 16:37:12 +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

11
lib-src/libnyquist/nyquist/tran/quantize.alg
View File

@@ -3,8 +3,15 @@
(ARGUMENTS ("sound_type" "s1") ("long" "steps"))
(INTERNAL-SCALING s1)
(START (MIN s1))
(STATE ("double" "factor" "s1->scale * steps; scale_factor = (sample_type) (1.0 / steps);"))
(INNER-LOOP "register long xx = (long) (s1 * factor); output = (float) xx;")
(STATE ("double" "factor" "s1->scale * steps;
scale_factor = (sample_type) (1.0 / steps);"))
(INNER-LOOP "{
\t\tfloat x = s1 * factor;
\t\tlong xx;
\t\tx = (x > 0.0F ? x + 0.5 : x - 0.5);
\t\txx = (long) x;
\t\toutput = (float) xx;
\t }")
(TERMINATE (MIN s1))
(CONSTANT "factor")
(LOGICAL-STOP (MIN s1))