59 lines
1.9 KiB
Racket
59 lines
1.9 KiB
Racket
|
#lang racket
|
||
|
|
;; status - not working verbatim as of 20220820 (needs local soundfile)
|
||
|
|
|
||
|
|
#|
|
||
|
|
wait "bad return packet" '("/fail" "/b_allocRead" "File '/home/rohan/data/audio/pf-c5.snd' could not be opened: System error : No such file or directory.\n" 10) "/done"
|
||
|
|
|#
|
||
|
|
|
||
|
|
(require rsc3)
|
||
|
|
|
||
|
|
;; tgr-rpr (rd)
|
||
|
|
|
||
|
|
(define dust-r
|
||
|
|
(lambda (r lo hi)
|
||
|
|
(let ((d (dseq dinf (dwhite 1 lo hi))))
|
||
|
|
(t-duty r d 0 0 (u:abs (white-noise r)) 1))))
|
||
|
|
|
||
|
|
(define rpr
|
||
|
|
(lambda (n t)
|
||
|
|
(let ((i (in 2 kr n)))
|
||
|
|
(t-rand (mce-channel i 0) (mce-channel i 1) t))))
|
||
|
|
|
||
|
|
(define r-set
|
||
|
|
(lambda (r)
|
||
|
|
(if (> r 0.5)
|
||
|
|
(list (rand-float 0.005 0.025) (rand-float 0.05 0.25)
|
||
|
|
(rand-float 0.75 0.95) (rand-float 1.05 1.25)
|
||
|
|
(rand-float 0.001 0.01) (rand-float 0.02 0.04)
|
||
|
|
(rand-float 0.1 0.2) (rand-float 0.2 0.4)
|
||
|
|
(rand-float 0.0 0.45) (rand-float 0.55 1.0)
|
||
|
|
(rand-float -1 0) (rand-float 0 1.0))
|
||
|
|
(list (rand-float 0.005 0.025) (rand-float 0.05 0.25)
|
||
|
|
(rand-float -1.25 -1.05) (rand-float -0.95 -0.75)
|
||
|
|
(rand-float 0.001 0.01) (rand-float 0.02 0.04)
|
||
|
|
(rand-float 0.1 0.2) (rand-float 0.2 0.4)
|
||
|
|
(rand-float 0.0 0.45) (rand-float 0.55 1.0)
|
||
|
|
(rand-float -1 0) (rand-float 0 1.0)))))
|
||
|
|
|
||
|
|
(define tgr-rpr
|
||
|
|
(lambda (b)
|
||
|
|
(let* ((clk (dust-r ar (in 1 kr 0) (in 1 kr 1)))
|
||
|
|
(rat (rpr 2 clk))
|
||
|
|
(dur (rpr 4 clk))
|
||
|
|
(pos (mul (rpr 8 clk) (buf-dur kr b)))
|
||
|
|
(pan (rpr 10 clk))
|
||
|
|
(amp (rpr 6 clk)))
|
||
|
|
(t-grains 2 clk b rat pos dur pan amp 2))))
|
||
|
|
|
||
|
|
(define pattern
|
||
|
|
(lambda (fd)
|
||
|
|
(send fd (c-setn1 0 (r-set (rand-float 0 1))))
|
||
|
|
(thread-sleep (choose (list 0.25 0.75 1.5)))
|
||
|
|
(pattern fd)))
|
||
|
|
|
||
|
|
(with-sc3
|
||
|
|
(lambda (fd)
|
||
|
|
(async fd (b-alloc-read 10 "/home/rohan/data/audio/pf-c5.snd" 0 0))
|
||
|
|
(play fd (out 0 (tgr-rpr 10)))
|
||
|
|
(pattern fd)))
|