Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-10-28 16:23:49 +01:00
Code Issues Releases Wiki Activity

Move library tree where it belongs

Browse Source
This commit is contained in:
ra
2010-01-24 09:19:39 +00:00
parent e74978ba77
commit 58caf78a86
6020 changed files with 2790154 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -0,0 +1,11 @@
(QUANTIZE-ALG
(NAME "quantize")
(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;")
(TERMINATE (MIN s1))
(CONSTANT "factor")
(LOGICAL-STOP (MIN s1))
)