File: integrate.alg

package info (click to toggle)
nyquist 3.20%2Bds-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 58,008 kB
  • sloc: ansic: 74,743; lisp: 17,929; java: 10,723; cpp: 6,690; sh: 171; xml: 58; makefile: 40; python: 15
file content (12 lines) | stat: -rw-r--r-- 321 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
 
(INTEGRATE-ALG
(NAME "integrate")
(ARGUMENTS ("sound_type" "input"))
(START (MIN input))
(TERMINATE (MIN input))
(LINEAR input)
(LOGICAL-STOP (MIN input))
(STATE ("double" "integral" "0.0;
    scale_factor = (sample_type) (scale_factor / input->sr)"))
(INNER-LOOP "output = (sample_type) integral; integral += input")
)