File: tone.alg

package info (click to toggle)
audacity 1.2.4b-2.1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 24,136 kB
  • ctags: 20,445
  • sloc: ansic: 139,567; cpp: 55,998; sh: 24,963; lisp: 3,772; makefile: 1,683; python: 272
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)")
)