15 lines
251 B
Racket
15 lines
251 B
Racket
#lang scribble/manual
|
|
@(require (for-label racket))
|
|
|
|
@title{(trig1 in dur)}
|
|
|
|
|
|
When `in' is trigered output a unit signal for `dur' seconds.
|
|
|
|
|
|
@racketblock[
|
|
(let ((a (trig1 (dust ar 1) 0.2)))
|
|
(audition (out 0 (mul3 (f-sin-osc ar 800 0) a 0.2))))
|
|
]
|
|
|
|
|