mirror of
https://github.com/cookiengineer/audacity
synced 2025-05-04 09:39:42 +02:00
17 lines
574 B
Plaintext
17 lines
574 B
Plaintext
(ONESHOT-ALG
|
|
(NAME "oneshot")
|
|
(ARGUMENTS ("sound_type" "input") ("double" "level") ("double" "ontime"))
|
|
; (INTERNAL-SCALING input) ; scale factor not handled in level because scale could be negative
|
|
(STATE ("double" "lev" "level")
|
|
("long" "oncount" "round(ontime * input->sr)")
|
|
("long" "cnt" "0"))
|
|
(START (MIN input))
|
|
(INNER-LOOP "double x = input;
|
|
if (x > lev) cnt = oncount;
|
|
cnt--;
|
|
output = (cnt >= 0 ? 1.0F : 0.0F);")
|
|
(CONSTANT "lev" "oncount")
|
|
(TERMINATE (MIN input))
|
|
(LOGICAL-STOP (MIN input))
|
|
)
|