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

17
lib-src/libnyquist/nyquist/tran/congen.alg Normal file
View File

@@ -0,0 +1,17 @@
(CONGEN
(NAME "congen")
(ARGUMENTS ("sound_type" "sndin") ("double" "risetime") ("double" "falltime"))
(START (MIN sndin))
(STATE ("double" "value" "0")
("double" "rise_factor" "exp(log(0.5) / (sndin->sr * risetime))")
("double" "fall_factor" "exp(log(0.5) / (sndin->sr * falltime))"))
(CONSTANT "fall_factor" "rise_factor")
(ALWAYS-SCALE sndin)
(TERMINATE (MIN sndin))
(INNER-LOOP " sample_type current = sndin;
if (current > value) {
value = current - (current - value) * rise_factor;
} else {
value = current - (current - value) * fall_factor;
}
output = (sample_type) value;"))