mirror of
https://github.com/cookiengineer/audacity
synced 2025-05-06 14:52:34 +02:00
13 lines
322 B
Plaintext
13 lines
322 B
Plaintext
(INTEGRATE-ALG
|
|
(NAME "integrate")
|
|
(ARGUMENTS ("sound_type" "input"))
|
|
(START (MIN input))
|
|
(TERMINATE (MIN input))
|
|
(LINEAR input)
|
|
(LOGICAL-STOP (MIN input))
|
|
(STATE ("double" "integral" "0.0;
|
|
scale_factor = (sample_type) (scale_factor / input->sr)"))
|
|
(INNER-LOOP "output = (sample_type) integral; integral += input;")
|
|
)
|
|
|