128 lines
3.2 KiB
Text
128 lines
3.2 KiB
Text
|
#lang scribble/manual
|
||
|
|
@(require (for-label racket))
|
||
|
|
|
||
|
|
@title{SelectXFocus}
|
||
|
|
Mix one output from many sources@section{categories}
|
||
|
|
UGens>Multichannel>Select
|
||
|
|
@section{related}
|
||
|
|
Classes/Select, Classes/SelectX, Classes/LinSelectX
|
||
|
|
|
||
|
|
@section{description}
|
||
|
|
|
||
|
|
The output is mixed from an array of inputs, linearly interpolating from a number of adjacent channels. A focus argument allows to control how many adjacent sources are mixed.
|
||
|
|
|
||
|
|
@section{classmethods}
|
||
|
|
|
||
|
|
@section{method}
|
||
|
|
ar, kr
|
||
|
|
|
||
|
|
@section{argument}
|
||
|
|
which
|
||
|
|
Index of the selected input, which is also the center of the selection for a focus < 1.
|
||
|
|
@section{argument}
|
||
|
|
array
|
||
|
|
A collection of inputs.
|
||
|
|
@section{argument}
|
||
|
|
focus
|
||
|
|
The "fuzziness" of the selection: the larger the focus, the more adjacent inputs are mixed in.
|
||
|
|
@section{argument}
|
||
|
|
wrap
|
||
|
|
If set to true, index will wrap around the array of inputs (see also: link::Classes/Array#-wrapAt::).
|
||
|
|
|
||
|
|
|
||
|
|
@racketblock[
|
||
|
|
(
|
||
|
|
{
|
||
|
|
var array = { Saw.ar(rrand(1.0, 3.0)) * Saw.ar(rrand(100.0, 3000.0)) } ! 8;
|
||
|
|
SelectXFocus.ar(MouseX.kr(-20, 20), array, 0.3, true) * 0.1
|
||
|
|
}.play
|
||
|
|
)
|
||
|
|
::
|
||
|
|
|
||
|
|
|
||
|
|
]
|
||
|
|
@section{examples}
|
||
|
|
|
||
|
|
|
||
|
|
@racketblock[
|
||
|
|
(
|
||
|
|
{
|
||
|
|
var a;
|
||
|
|
a = [
|
||
|
|
Saw.ar(LFSaw.kr(3 * [1, 1.01], 0, 100, 230)),
|
||
|
|
SinOsc.ar,
|
||
|
|
Pulse.ar(LFPulse.kr(3 * [1, 1.02], 0, 0.4, 100, 230)),
|
||
|
|
SinOsc.ar(SinOsc.kr(4 * [1, 1.03], 0, 200, 300))
|
||
|
|
];
|
||
|
|
|
||
|
|
SelectXFocus.ar(MouseX.kr(0, 1) * a.size, a, MouseY.kr(0, a.size)) * 0.2
|
||
|
|
}.play;
|
||
|
|
)
|
||
|
|
::
|
||
|
|
|
||
|
|
]
|
||
|
|
@section{note}
|
||
|
|
|
||
|
|
all the ugens are continuously running. This may not be the most efficient way if each input is cpu-expensive. The array is fixed at the time of writing the SynthDef, and the whole array is embedded in the SynthDef file itself. For small arrays this is more efficient than reading from a buffer.
|
||
|
|
::
|
||
|
|
|
||
|
|
|
||
|
|
@racketblock[
|
||
|
|
// radio tuner
|
||
|
|
// (jrh) (cc 2006)
|
||
|
|
(
|
||
|
|
{
|
||
|
|
var a, n, mx, my, mwrap;
|
||
|
|
n = 8;
|
||
|
|
mx = MouseX.kr(0, 1, 0, 0.1);
|
||
|
|
my = MouseY.kr;
|
||
|
|
mwrap = { |pmin, pmax, min, max| sin(mx * ExpRand(pmin, pmax)) + 1 * 0.5 * ExpRand(min, max) };
|
||
|
|
a = {
|
||
|
|
var freq, fmul, phase;
|
||
|
|
freq = mwrap.(10, 40, 200, 5000) + ExpRand(200, 3000);
|
||
|
|
fmul = LFNoise0.kr(ExpRand(0.1, 8)).round(1/6).exprange(1, Rand(1, 1.2));
|
||
|
|
phase = LFNoise2.ar(mwrap.(1, 20, 10, 1000), Rand(2, 5));
|
||
|
|
SinOsc.ar(freq * fmul, phase)
|
||
|
|
} ! n;
|
||
|
|
a = a.add(
|
||
|
|
SinOsc.ar(LFDNoise0.kr(11, SetResetFF.kr(*Dust.kr([1, 2] * 0.3))).range(0, 700) + 220)
|
||
|
|
);
|
||
|
|
SelectXFocus.ar(mx * n, a, my * n) * 0.2 + OnePole.ar(PinkNoise.ar(0.5 ! 2), 0.4)
|
||
|
|
* Line.kr(0, 1, 3);
|
||
|
|
}.play;
|
||
|
|
)
|
||
|
|
|
||
|
|
|
||
|
|
// jimmy played harmonica in the pub where I was born
|
||
|
|
// (hh) (jrh) (cc 2006)
|
||
|
|
(
|
||
|
|
{
|
||
|
|
var blas, zieh, mx, my, trig, which, amp, u, schnauf;
|
||
|
|
var del = 9, det = 0.1;
|
||
|
|
schnauf = 0.3;
|
||
|
|
mx = MouseX.kr;
|
||
|
|
my = MouseY.kr(0.1, 2, 1);
|
||
|
|
|
||
|
|
blas = [0, 12, 24] +.x [60, 64, 67] ++ [60+36];
|
||
|
|
zieh = [62, 67, 71, 74, 77, 81, 83, 86, 89, 93];
|
||
|
|
|
||
|
|
trig = Dust.kr(1);
|
||
|
|
which = ToggleFF.kr(TDelay.kr(trig, schnauf));
|
||
|
|
amp = EnvGen.kr(Env([1, 0, 1], [schnauf, schnauf]), trig);
|
||
|
|
blas = Select.kr(which, [blas, zieh]);
|
||
|
|
u = SelectXFocus.ar(
|
||
|
|
mx * blas.size,
|
||
|
|
blas.collect {|f|
|
||
|
|
Pulse.ar((Rand(-0.04, 0.09) + f).midicps * 0.5, 0.48 + LFNoise1.kr(0.06, 0.1), 0.2)
|
||
|
|
},
|
||
|
|
my
|
||
|
|
) * Slope.kr(mx + my).abs.lag2(2) * amp;
|
||
|
|
u = Pan2.ar(OnePole.ar(u, -0.3), mx * 2 - 1);
|
||
|
|
DelayL.ar(BPF.ar(u * 2, 1500, 0.3), del + det, LFNoise2.kr(0.2, det, del)) + u
|
||
|
|
}.play;
|
||
|
|
);
|
||
|
|
::
|
||
|
|
]
|
||
|
|
|
||
|
|
|