File: tone.alg

package info (click to toggle)
audacity 2.0.1-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 44,240 kB
  • sloc: cpp: 182,841; ansic: 120,375; sh: 26,421; lisp: 7,495; makefile: 1,606; python: 240; xml: 104; perl: 31
file content (15 lines) | stat: -rw-r--r-- 464 bytes parent folder | download | duplicates (21) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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)")
)