26 lines
620 B
Scheme
26 lines
620 B
Scheme
;; (pv-bin-shift buffer stretch shift)
|
|
|
|
;; Shift and scale the positions of the bins. Can be used as a very
|
|
;; crude frequency shifter/scaler. Shifts the leftmost bin at
|
|
;; `buffer' by `shift' places, the distance between subsequent bins is
|
|
;; `stretch'.
|
|
|
|
(with-sc3
|
|
(lambda (fd)
|
|
(async fd (b-alloc 10 2048 1))))
|
|
|
|
(define snd
|
|
(let* ((f1 (squared (mul-add (sin-osc kr 0.08 0) 6 6.2)))
|
|
(f2 (sin-osc kr f1 0)))
|
|
(sin-osc ar (mul-add f2 100 800) 0)))
|
|
|
|
(audition (out 0 snd))
|
|
|
|
(audition
|
|
(out 0 (mul
|
|
(ifft*
|
|
(pv-bin-shift
|
|
(fft* 10 snd)
|
|
(mouse-y kr 1 4 0 0.1)
|
|
(mouse-x kr -10 100 0 0.1)))
|
|
1/2)))
|