20 lines
468 B
Racket
20 lines
468 B
Racket
#lang scribble/manual
|
|
@(require (for-label racket))
|
|
|
|
@title{(import (sosc) (rsc3))}
|
|
|
|
Allocate and set values at buffer 10.
|
|
(with-sc3
|
|
(lambda (fd)
|
|
(async fd (b-alloc 10 6 1))
|
|
(send fd (b-setn1 10 0 (list 50 100 200 400 800 1600)))))
|
|
|
|
Index into the above buffer for frequency values.
|
|
(let ((f (mul (index 10 (mul (lf-saw kr 2 3) 4)) (mce2 1 9))))
|
|
(audition (out 0 (mul (sin-osc ar f 0) 0.1))))
|
|
|
|
Free buffer
|
|
(with-sc3
|
|
(lambda (fd)
|
|
(async fd (b-free 10))))
|
|
|