39 lines
1.1 KiB
Racket
39 lines
1.1 KiB
Racket
#lang racket
|
|
;; status - not working as of 20220820 (pattern buffer but no sound -> "/d_recv", DATA[684])
|
|
|
|
(require rsc3)
|
|
|
|
;; pattern buffer (rd)
|
|
|
|
(define tseq
|
|
(lambda (l)
|
|
(let ((n (/ (length l) 2)))
|
|
(select (mul-add (lf-saw kr 0.5 0) n n) (make-mce l)))))
|
|
|
|
(define rs
|
|
(lambda (nf fd)
|
|
(let ((r0 (rand-float 0 nf))
|
|
(r1 (rand-float 0 1)))
|
|
(send fd (b-set1 10 r0 r1)))))
|
|
|
|
(define pattern-buffer
|
|
(lambda (nf c)
|
|
(let* ((p (phasor ar 0 (buf-rate-scale kr 10) 0 (buf-frames kr 10) 0))
|
|
(t (buf-rd-c 1 ar 10 p 1))
|
|
(r1 (replicate-m c (rand-float 36 96)))
|
|
(r2 (replicate-m c (rand-float -1 1)))
|
|
(r3 (rand-int 0 2))
|
|
(n1 (t-rand 0.02 0.08 t))
|
|
(e (decay2 t 0.01 n1))
|
|
(f (midi-cps (tseq r1)))
|
|
(l (tseq r2))
|
|
(o (list-ref (list (sin-osc ar f 0) (saw ar f)) r3)))
|
|
(pan2 o l e))))
|
|
|
|
(with-sc3
|
|
(lambda (fd)
|
|
(let ((nf (mul 2 48000))
|
|
(c 24))
|
|
(async fd (b-alloc 10 (* nf 2) 1))
|
|
(replicate-m c (rs nf fd))
|
|
(play fd (out 0 (pattern-buffer nf c))))))
|