20 lines
442 B
Racket
20 lines
442 B
Racket
#lang scribble/manual
|
|
@(require (for-label racket))
|
|
|
|
@title{(free trig nodeID)}
|
|
|
|
When triggered frees a node.
|
|
|
|
trig - when triggered, frees node
|
|
nodeID - node to be freed
|
|
|
|
(with-sc3
|
|
(lambda (fd)
|
|
(send-synth fd "a" (out 0 (mul (sin-osc ar 800 0) 0.1)))
|
|
(send-synth fd "b" (mrg2 (out 1 (mul (pink-noise ar) 0.1))
|
|
(free (dust ar 6) 1001)))
|
|
(send fd (s-new0 "a" 1001 0 0))
|
|
(send fd (s-new0 "b" -1 0 0))))
|
|
|
|
(with-sc3 reset)
|
|
|