50 lines
925 B
Racket
50 lines
925 B
Racket
#lang scribble/manual
|
|
@(require (for-label racket))
|
|
|
|
@title{buf-wr}
|
|
|
|
|
|
|
|
@racketblock[
|
|
(let ((a (letc ((r 1))
|
|
(let* ((r* (mul (buf-rate-scale kr 0) r))
|
|
(p (phasor ar 0 r* 0 (buf-frames kr 0) 0))
|
|
(f (mul-add (lf-noise1 kr 2) 300 400))
|
|
(i (mul (sin-osc ar f 0) 0.1)))
|
|
(mrg2 (buf-wr 0 p 1 i)
|
|
(out 0 0.0)))))
|
|
(b (letc ((r 1))
|
|
(let* ((r* (mul (buf-rate-scale kr 0) r))
|
|
(p (phasor ar 0 r* 0 (buf-frames kr 0) 0)))
|
|
(out 0 (buf-rd 1 ar 0 p 1 2))))))
|
|
(with-sc3
|
|
(lambda (fd)
|
|
(async fd (b-alloc 0 (* 44100 2) 1))
|
|
(send-synth fd "a" a)
|
|
(send-synth fd "b" b)
|
|
(send fd (s-new0 "a" 1001 1 0))
|
|
(send fd (s-new0 "b" 1002 1 0)))))
|
|
]
|
|
|
|
|
|
@racketblock[
|
|
(define (do-send m)
|
|
(with-sc3 (lambda (fd) (send fd m))))
|
|
]
|
|
|
|
|
|
@racketblock[
|
|
(do-send (n-set1 1002 "r" 5))
|
|
]
|
|
|
|
|
|
@racketblock[
|
|
(do-send (n-set1 1001 "r" (random 0 2)))
|
|
]
|
|
|
|
|
|
@racketblock[
|
|
(do-send (n-set1 1002 "r" 2))
|
|
]
|
|
|
|
|