30 lines
925 B
Scheme
30 lines
925 B
Scheme
|
;; (buf-allpass-c buf in delaytime decaytime)
|
||
|
|
|
||
|
|
;; Buffer based all pass delay line with cubic interpolation
|
||
|
|
|
||
|
|
;; All pass delay line with cubic interpolation which uses a buffer
|
||
|
|
;; for its internal memory. See also Bufallpass-n which uses no
|
||
|
|
;; interpolation, and Bufallpass-l which uses linear
|
||
|
|
;; interpolation. Cubic interpolation is more computationally
|
||
|
|
;; expensive than linear, but more accurate.
|
||
|
|
|
||
|
|
;; See also allpass-c.
|
||
|
|
|
||
|
|
;; buf - buffer number.
|
||
|
|
|
||
|
|
;; in - the input signal.
|
||
|
|
|
||
|
|
;; delaytime - delay time in seconds.
|
||
|
|
|
||
|
|
;; decaytime - time for the echoes to decay by 60 decibels. If this
|
||
|
|
;; time is negative then the feedback coefficient will be
|
||
|
|
;; negative, thus emphasizing only odd harmonics at an
|
||
|
|
;; octave lower.
|
||
|
|
|
||
|
|
(with-sc3
|
||
|
|
(lambda (fd)
|
||
|
|
(async fd (b-alloc 0 44100 1))))
|
||
|
|
|
||
|
|
(let ((x (mul3 (decay (dust ar 1) 0.2) (white-noise ar) 0.5)))
|
||
|
|
(audition (out 0 (buf-allpass-n 0 x 0.25 6))))
|