51 lines
1.3 KiB
Scheme
51 lines
1.3 KiB
Scheme
|
; adso (rd)
|
||
|
|
|
||
|
|
(define rand-l
|
||
|
|
(lambda (n l r)
|
||
|
|
(replicateM n (lambda () (s:rand l r)))))
|
||
|
|
|
||
|
|
; (adso 4)
|
||
|
|
(define adso
|
||
|
|
(lambda (n)
|
||
|
|
(let* ((b-get
|
||
|
|
(lambda (b n)
|
||
|
|
(let ((j (asMce (enumFromTo 0 (- n 1)))))
|
||
|
|
(kr: (BufRd 1 b j 0 1)))))
|
||
|
|
(m (SinOsc (b-get 3 n) 0))
|
||
|
|
(f (Mul (MidiCps (b-get 0 n)) (MulAdd m (b-get 4 n) 1))))
|
||
|
|
(Mix (Pan2 (SinOsc f 0) (b-get 2 n) (b-get 1 n))))))
|
||
|
|
|
||
|
|
(define pattern
|
||
|
|
(lambda (fd n)
|
||
|
|
(lambda (t)
|
||
|
|
(let ((z (map floor
|
||
|
|
(replicateM
|
||
|
|
n (lambda () (s:rand (s:rand 22 48)
|
||
|
|
(s:rand 54 122))))))
|
||
|
|
(rn (lambda (i j k)
|
||
|
|
(sendMessage fd (b_setn1 i 0 (rand-l n j k))))))
|
||
|
|
(sendMessage fd (b_setn1 0 0 z))
|
||
|
|
(rn 1 0 0.1)
|
||
|
|
(rn 2 -1 1)
|
||
|
|
(rn 3 2 12)
|
||
|
|
(rn 4 0.001 0.0075)
|
||
|
|
(rn 5 1 24)
|
||
|
|
(rn 6 0.05 (s:rand 0.075 2.4))
|
||
|
|
(thread-sleep t)))))
|
||
|
|
|
||
|
|
(let ((n 24))
|
||
|
|
(withSc3
|
||
|
|
(lambda (fd)
|
||
|
|
(for-each
|
||
|
|
(lambda (i)
|
||
|
|
(async fd (b_alloc i n 1)))
|
||
|
|
(enumFromTo 0 6))
|
||
|
|
(play fd (Out 0 (adso n)))
|
||
|
|
(map (pattern fd n)
|
||
|
|
(replicateM
|
||
|
|
32
|
||
|
|
(lambda ()
|
||
|
|
(s:l-choose
|
||
|
|
(list 0.025 0.05 0.075 0.1 0.125 2.5)))))
|
||
|
|
(reset fd))))
|