37 lines
1.2 KiB
Scheme
37 lines
1.2 KiB
Scheme
|
;; (buf-rd numChannels rate bufnum phase loop interpolation)
|
||
|
|
|
||
|
|
;; Plays the content of a buffer.
|
||
|
|
|
||
|
|
;; The number of channels must be a fixed integer. The architechture
|
||
|
|
;; of the SynthDef cannot change after it is compiled. NOTE: if you
|
||
|
|
;; supply a bufnum of a buffer that has a different numChannels then
|
||
|
|
;; you have specified to the buf-rd, it will fail silently.
|
||
|
|
|
||
|
|
;; The interpolation type is an integer: 1 no interpolation, 2 linear
|
||
|
|
;; interpolation, 4 cubic interpolation.
|
||
|
|
|
||
|
|
(with-sc3
|
||
|
|
(lambda (fd)
|
||
|
|
(async fd (b-alloc-read 0 "/home/rohan/audio/metal.wav" 0 0))))
|
||
|
|
|
||
|
|
(audition (out 0 (buf-rd 1 ar 0 (mul (sin-osc ar 0.1 0) (buf-frames ir 0)) 0 2)))
|
||
|
|
|
||
|
|
(let ((phase (mul (lf-noise1 ar (mouse-x kr (mce2 5 10) 100 0 0.1))
|
||
|
|
(buf-frames ir 0))))
|
||
|
|
(audition (out 0 (buf-rd-l 1 ar 0 phase 0))))
|
||
|
|
|
||
|
|
(let ((phase (add (lf-tri ar 0.1 0)
|
||
|
|
(mul (lf-tri ar 0.23 0) (buf-frames ir 0)))))
|
||
|
|
(audition (out 0 (buf-rd-l 1 ar 0 phase 0))))
|
||
|
|
|
||
|
|
;; Use a phasor index into the file
|
||
|
|
|
||
|
|
(let ((phase (phasor ar
|
||
|
|
0
|
||
|
|
(mul (mouse-x kr 0.5 2 0 0.1)
|
||
|
|
(buf-rate-scale kr 0))
|
||
|
|
0
|
||
|
|
(buf-frames kr 0)
|
||
|
|
0)))
|
||
|
|
(audition (out 0 (buf-rd 1 ar 0 phase 1 (mouse-y kr 0 5 0 0.1)))))
|