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