76 lines
1 KiB
Text
76 lines
1 KiB
Text
|
#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;
|
|||
|
|
)
|
|||
|
|
::
|
|||
|
|
|
|||
|
|
]
|
|||
|
|
|
|||
|
|
|