mirror of
https://github.com/cookiengineer/audacity
synced 2025-05-05 06:09:47 +02:00
13 lines
321 B
Plaintext
13 lines
321 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")
|
|
)
|
|
|