mirror of
https://github.com/cookiengineer/audacity
synced 2025-06-16 16:10:06 +02:00
26 lines
695 B
Plaintext
26 lines
695 B
Plaintext
(ATONEV-ALG
|
|
(NAME "atonev")
|
|
(ARGUMENTS ("sound_type" "s1") ("sound_type" "hz"))
|
|
(INLINE-INTERPOLATION T)
|
|
(LINEAR hz)
|
|
(ALWAYS-SCALE hz)
|
|
(START (MAX s1 hz))
|
|
(TERMINATE (MIN s1 hz))
|
|
(LOGICAL-STOP (MIN s1))
|
|
(STATE ("double" "cc" "0.0")
|
|
("double" "prev" "0.0;
|
|
hz->scale = (sample_type) (hz->scale * (PI2 / s1->sr))"))
|
|
(LINEAR s1)
|
|
(SAMPLE-RATE (MAX s1))
|
|
(STEP-FUNCTION hz)
|
|
(DEPENDS ("bb" "hz" "2.0 - cos(hz)" TEMP "register double")
|
|
("cc" "hz" "bb - sqrt((bb * bb) - 1.0)"))
|
|
(CONSTANT "cc")
|
|
(INNER-LOOP-LOCALS " double current;
|
|
")
|
|
(INNER-LOOP "current = s1;
|
|
prev = cc * (prev + current);
|
|
output = (sample_type) prev;
|
|
prev -= current;")
|
|
)
|