22 lines
398 B
Racket
22 lines
398 B
Racket
#lang scribble/manual
|
|
@(require (for-label racket))
|
|
|
|
@title{(detect-silence in amp time doneAction)}
|
|
|
|
|
|
If the signal at `in' falls below `amp' for `time' seconds then
|
|
`doneAction' is raised.
|
|
|
|
|
|
@racketblock[
|
|
(let ((s (mul (sin-osc ar 440 0) (mouse-y kr 0 0.4 0 0.1))))
|
|
(audition (mrg2 (detect-silence s 0.1 0.2 remove-synth)
|
|
(out 0 s))))
|
|
]
|
|
|
|
|
|
@racketblock[
|
|
(with-sc3 display-server-status)
|
|
]
|
|
|
|
|