File: tone.alg

package info (click to toggle)
audacity 2.2.2-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 129,312 kB
  • sloc: ansic: 373,350; cpp: 276,880; sh: 56,060; python: 18,922; makefile: 10,309; lisp: 8,365; xml: 1,888; perl: 1,798; java: 1,551; asm: 545; pascal: 395; sed: 58; awk: 35
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)")
)