99 lines
1.6 KiB
Racket
99 lines
1.6 KiB
Racket
#lang scribble/manual
|
|
@(require (for-label racket))
|
|
|
|
@title{Fdef}
|
|
lazy function proxy@section{categories}
|
|
Libraries>JITLib>Patterns, Live Coding
|
|
@section{related}
|
|
Classes/Pdef, Classes/Tdef, Classes/Pdefn, Classes/Ndef
|
|
|
|
@section{description}
|
|
|
|
Placeholder for functions to calculate with.
|
|
|
|
See also: link::Classes/Maybe:: and the link::Overviews/JITLib:: overview.
|
|
|
|
@section{ClassMethods}
|
|
|
|
|
|
@section{private}
|
|
initClass
|
|
|
|
@section{method}
|
|
new
|
|
|
|
@section{argument}
|
|
key
|
|
if no instance exists with this name, create a new one, otherwise return the existing one.
|
|
|
|
@section{argument}
|
|
val
|
|
If a link::Classes/Function:: is given, replace the old function with the new one.
|
|
|
|
@section{Examples}
|
|
|
|
|
|
|
|
@racketblock[
|
|
Fdef(\x, { 8 + 9 });
|
|
|
|
Fdef(\y, Fdef(\x) - 3);
|
|
|
|
Fdef(\y).value;
|
|
|
|
Fdef(\x, 3);
|
|
|
|
Fdef(\y).value;
|
|
|
|
Fdef(\x, { |x=0| x });
|
|
|
|
|
|
Fdef(\x).value(8);
|
|
|
|
Fdef(\y).value(8);
|
|
|
|
|
|
z = Fdef(\x) * Fdef(\y) + { 1.0.rand };
|
|
|
|
z.value;
|
|
z.value(400);
|
|
::
|
|
|
|
]
|
|
|
|
@racketblock[
|
|
// sound example
|
|
(
|
|
s.boot;
|
|
SynthDef("gpdef",
|
|
{ arg out=0, freq=440, sustain=0.05, amp=0.1;
|
|
var env;
|
|
env = EnvGen.kr(Env.perc(0.01, sustain), doneAction: Done.freeSelf) * amp;
|
|
Out.ar(out, SinOsc.ar(freq, 0, env))
|
|
}).add;
|
|
)
|
|
|
|
// fork a thread that plays some sounds
|
|
(
|
|
Fdef(\freq, 440);
|
|
Fdef(\dur, 0.2);
|
|
|
|
fork {
|
|
loop {
|
|
s.sendMsg("/s_new", "gpdef", -1, 1,1, \freq, Fdef(\freq).value);
|
|
Fdef(\dur).value.wait;
|
|
}
|
|
};
|
|
)
|
|
|
|
// some modifications
|
|
|
|
Fdef(\freq, Fdef(\midinote, 60).midicps);
|
|
Fdef(\midinote, { [67, 64, 65].choose });
|
|
Fdef(\midinote, { [67, 64, 65].choose } + Fdef(\offset));
|
|
Fdef(\offset, { 4.rand });
|
|
Fdef(\dur, 0.23);
|
|
::
|
|
]
|
|
|
|
|