mirror of
https://github.com/cookiengineer/audacity
synced 2025-05-13 15:38:56 +02:00
12 lines
375 B
Plaintext
12 lines
375 B
Plaintext
(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))
|
|
)
|