File: delaycv.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 (19 lines) | stat: -rw-r--r-- 689 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
(DELAYCV-ALG
(NAME "delaycv")
(ARGUMENTS ("sound_type" "s") ("time_type" "delay") ("sound_type" "feedback"))
(START (MAX s feedback))
(STATE ("long" "delaylen" "round(s->sr * delay)")
       ("sample_type *" "delaybuf"
               "(sample_type *) calloc (sizeof(double), susp->delaylen)")
       ("sample_type *" "delayptr" "susp->delaybuf")
       ("sample_type *" "endptr" "susp->delaybuf + susp->delaylen"))
(CONSTANT "delaylen" "delaybuf")
(NOT-REGISTER delaybuf)
(LINEAR s)
(TERMINATE (MIN s))
(INNER-LOOP "output = *delayptr;
         *delayptr = *delayptr * feedback + s;
         if (++delayptr >= endptr) delayptr = susp->delaybuf;")
(FINALIZATION "free(susp->delaybuf);")
)