31 lines
667 B
Text
31 lines
667 B
Text
|
#lang scribble/manual
|
||
|
|
@(require (for-label racket))
|
||
|
|
|
||
|
|
@title{(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)))
|
||
|
|
|