75 lines
1 KiB
Racket
75 lines
1 KiB
Racket
#lang scribble/manual
|
||
@(require (for-label racket))
|
||
|
||
@title{FreeSelf}
|
||
When triggered, free enclosing synth.@section{related}
|
||
Classes/PauseSelf, Classes/Free
|
||
@section{categories}
|
||
UGens>Synth control
|
||
|
||
|
||
@section{description}
|
||
|
||
Free enclosing synth when input signal crosses from non-positive to
|
||
positive.
|
||
|
||
|
||
@section{classmethods}
|
||
|
||
|
||
@section{method}
|
||
kr
|
||
|
||
@section{argument}
|
||
in
|
||
|
||
The input signal.
|
||
|
||
|
||
@section{Examples}
|
||
|
||
|
||
|
||
@racketblock[
|
||
(
|
||
SynthDef("freeSelf-help", { arg out, t_trig;
|
||
FreeSelf.kr(t_trig);
|
||
Out.ar(out, SinOsc.ar(400,0,0.2));
|
||
}).add;
|
||
)
|
||
|
||
s.sendMsg("/s_new", "freeSelf-help", 1731);
|
||
s.sendMsg("/n_set", 1731, \t_trig, 1);
|
||
|
||
// a single impulse SynthDef:
|
||
|
||
(
|
||
SynthDef("dirac", { arg out, amp=0.1;
|
||
var u;
|
||
u = Impulse.ar(1);
|
||
FreeSelf.kr(u);
|
||
Out.ar(out, u * amp);
|
||
// multiply by amp after using for release, so amp = 0
|
||
// doesn't cause synth buildup.
|
||
}).add;
|
||
)
|
||
|
||
(
|
||
Task {
|
||
loop({
|
||
fork {
|
||
exprand(34, 156).do {|i|
|
||
i = i + 1;
|
||
s.sendMsg("/s_new", "dirac", -1,0,0, \amp, 1 / i);
|
||
(0.006 * i).wait;
|
||
};
|
||
};
|
||
1.wait;
|
||
})
|
||
} .play;
|
||
)
|
||
::
|
||
|
||
]
|
||
|
||
|