74 lines
2.1 KiB
Scheme
74 lines
2.1 KiB
Scheme
|
;; (record-buf bufnum offset reclevel prelevel run loop trigger inputs)
|
||
|
|
|
||
|
|
;; Records input into a Buffer.
|
||
|
|
|
||
|
|
;; If recLevel is 1.0 and preLevel is 0.0 then the new input
|
||
|
|
;; overwrites the old data. If they are both 1.0 then the new data is
|
||
|
|
;; added to the existing data. (Any other settings are also valid.)
|
||
|
|
|
||
|
|
;; bufnum - the index of the buffer to use
|
||
|
|
;; offset - an offset into the buffer in samples, default 0
|
||
|
|
;; recLevel - value to multiply by input before mixing with
|
||
|
|
;; existing data. Default is 1.0.
|
||
|
|
;; preLevel - value to multiply to existing data in buffer before
|
||
|
|
;; mixing with input. Default is 0.0.
|
||
|
|
;; run - If zero, then recording stops, otherwise recording
|
||
|
|
;; proceeds. Default is 1.
|
||
|
|
;; loop - If zero then don't loop, otherwise do. This is
|
||
|
|
;; modulate-able. Default is 1.
|
||
|
|
;; trigger - a trigger causes a jump to the start of the Buffer.
|
||
|
|
;; A trigger occurs when a signal changes from <=0 to >0.
|
||
|
|
;; inputArray - an Array of input channels
|
||
|
|
|
||
|
|
(with-sc3
|
||
|
|
(lambda (fd)
|
||
|
|
(send-synth
|
||
|
|
fd
|
||
|
|
"recorder"
|
||
|
|
(letc ((in 0)
|
||
|
|
(bufnum 0)
|
||
|
|
(offset 1)
|
||
|
|
(recLevel 1)
|
||
|
|
(preLevel 0)
|
||
|
|
(run 1)
|
||
|
|
(loop 1)
|
||
|
|
(trigger 1))
|
||
|
|
(let ((i (in 2 ar in)))
|
||
|
|
(out 0 (record-buf bufnum offset recLevel preLevel run loop trigger i)))))
|
||
|
|
(let ((b 10)
|
||
|
|
(y 1001)
|
||
|
|
(z 1002))
|
||
|
|
(async fd (/b_alloc b 44100 2))
|
||
|
|
(send fd (/s_new "recorder" y add-to-tail 1 "bufnum" b "in" 8))
|
||
|
|
(send fd (/n_trace y))
|
||
|
|
(send-synth
|
||
|
|
fd
|
||
|
|
"player"
|
||
|
|
(letc ((bufnum 0)
|
||
|
|
(rate 1)
|
||
|
|
(trigger 1)
|
||
|
|
(startPos 0)
|
||
|
|
(loop 1)
|
||
|
|
(gain 1))
|
||
|
|
(out 0 (mul (play-buf 2 bufnum rate trigger startPos loop) gain))))
|
||
|
|
(send fd (/s_new "player" z add-to-tail 1 "bufnum" b)))))
|
||
|
|
|
||
|
|
(define do-send
|
||
|
|
(lambda (m)
|
||
|
|
(with-sc3
|
||
|
|
(lambda (fd)
|
||
|
|
(send fd m)))))
|
||
|
|
|
||
|
|
(do-send (/n_set 1001 "run" 1))
|
||
|
|
|
||
|
|
(do-send (/n_set 1002 "loop" 1))
|
||
|
|
(do-send (/n_set 1002 "gain" 2))
|
||
|
|
(do-send (/n_set 1002 "trigger" 1))
|
||
|
|
|
||
|
|
(do-send (/n_free 1001))
|
||
|
|
(do-send (/n_free 1002))
|
||
|
|
|
||
|
|
(with-sc3
|
||
|
|
(lambda (fd)
|
||
|
|
(async fd (/b_free 10))))
|