64 lines
1.3 KiB
Scheme
64 lines
1.3 KiB
Scheme
; convolution2
|
|
|
|
(with-sc3
|
|
(lambda (fd)
|
|
(for-each
|
|
(lambda (b)
|
|
(async fd (b-alloc b 2048 1)))
|
|
(list 10 11 12))
|
|
(for-each
|
|
(lambda (n)
|
|
(send fd (b-set1 10 (+ (* 400 n) 100) 1)))
|
|
(enumFromTo 0 2))
|
|
(for-each
|
|
(lambda (n)
|
|
(send fd (b-set1 11 (+ (* 20 n) 10) (s:rand 0 1))))
|
|
(enumFromTo 0 49))
|
|
(for-each
|
|
(lambda (n)
|
|
(send fd (b-set1 12 (+ (* 40 n) 20) 1)))
|
|
(enumFromTo 0 19))
|
|
(send-synth
|
|
fd "c"
|
|
(letc ((k 0) (t 0))
|
|
(let ((i (impulse 1 0)))
|
|
(out 0 (mul (convolution2 i k t 2048) 0.5)))))))
|
|
|
|
(define send-to
|
|
(lambda (m)
|
|
(with-sc3
|
|
(lambda (fd)
|
|
(send fd m)))))
|
|
|
|
(define async-to
|
|
(lambda (m)
|
|
(with-sc3
|
|
(lambda (fd)
|
|
(async fd m)))))
|
|
|
|
(send-to (s-new1 "c" 1001 1 1 "k" 10))
|
|
|
|
(send-to (n-set1 1001 "k" 11))
|
|
(send-to (n-set1 1001 "t" 0))
|
|
(send-to (n-set1 1001 "t" 1))
|
|
|
|
(send-to (n-set1 1001 "k" 12))
|
|
(send-to (n-set1 1001 "t" 0))
|
|
(send-to (n-set1 1001 "t" 1))
|
|
|
|
(async-to (b-zero 12))
|
|
|
|
(for-each
|
|
(lambda (n)
|
|
(send-to (b-set1 12 (+ (* 20 n) 10) 1)))
|
|
(enumFromTo 0 39))
|
|
|
|
(send-to (n-set1 1001 "t" 0))
|
|
(send-to (n-set1 1001 "t" 1))
|
|
|
|
; with soundfile
|
|
|
|
(async-to (b-alloc-read 10 "/home/rohan/data/audio/metal.wav" 0 0))
|
|
|
|
(let ((i (sound-in 0)))
|
|
(mul (convolution2 i 10 0 512) 0.5))
|