File: delay.alg

package info (click to toggle)
audacity 1.3.5-2%2Blenny1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 37,484 kB
  • ctags: 23,136
  • sloc: cpp: 114,463; ansic: 110,769; sh: 16,060; lisp: 3,772; makefile: 1,753; python: 226; xml: 8
file content (20 lines) | stat: -rw-r--r-- 774 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
(DELAY-ALG
(NAME "delay")
(ARGUMENTS ("sound_type" "input") ("time_type" "delay") ("double" "feedback"))
(START (MIN input))
(STATE ("double" "feedback" "feedback")
       ("long" "delaylen" "MAX(1, round(input->sr * delay))")
       ("sample_type *" "delaybuf"
               "(sample_type *) calloc (susp->delaylen, sizeof(sample_type))")
       ("sample_type *" "delayptr" "susp->delaybuf")
       ("sample_type *" "endptr" "susp->delaybuf + susp->delaylen"))
(CONSTANT "feedback" "delaylen" "endptr")
(NOT-REGISTER delaybuf)
(LINEAR input)
(TERMINATE (MIN input))
(INNER-LOOP "output = *delayptr;
         *delayptr = (sample_type) (*delayptr * feedback) + input;
         if (++delayptr >= endptr) delayptr = susp->delaybuf;")
(FINALIZATION "free(susp->delaybuf);")
)