14 lines
290 B
Text
14 lines
290 B
Text
|
#lang scribble/manual
|
||
|
|
@(require (for-label racket))
|
||
|
|
|
||
|
|
@title{(trig in dur)}
|
||
|
|
|
||
|
|
When `in' is trigerred output the trigger value for `dur' seconds.
|
||
|
|
|
||
|
|
(let ((s (f-sin-osc ar 800 0))
|
||
|
|
(g (trig (dust ar 1) 0.2)))
|
||
|
|
(audition (out 0 (mul3 s g 0.5))))
|
||
|
|
|
||
|
|
(audition (out 0 (trig (dust ar 4) 0.1)))
|
||
|
|
|