Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-10-28 16:23:49 +01:00
Code Issues Releases Wiki Activity

Move library tree where it belongs

Browse Source
This commit is contained in:
ra
2010-01-24 09:19:39 +00:00
parent e74978ba77
commit 58caf78a86
6020 changed files with 2790154 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib-src/libnyquist/nyquist/tran/tone.alg Normal file
View File

@@ -0,0 +1,15 @@
(TONE-ALG
(NAME "tone")
(ARGUMENTS ("sound_type" "input") ("double" "hz"))
(START (MIN input))
(TERMINATE (MIN input))
(LOGICAL-STOP (MIN input))
(STATE ("double" "b" "2.0 - cos(hz * PI2 / input->sr)" TEMP)
("double" "c2" "b - sqrt((b * b) - 1.0)")
("double" "c1" "(1.0 - susp->c2) * input->scale")
("double" "prev" "0.0"))
(INTERNAL-SCALING input)
(CONSTANT "c1" "c2")
(INNER-LOOP "output = (sample_type) (prev = c1 * input + c2 * prev)")
)