Bz Buzz

Magic Rain

r{77.do{|i|x={GVerb.ar(Pan2.ar(SinOsc.ar(i+1,VarSaw.ar((i%7).div(3)*13+(i%7)+73),0.03),1.0.rand2))}.play;2.wait;x.release(17)}}.play
(
{
Mix.fill(37,
{
var freq;
freq = exprand(1000, 1173);
GVerb.ar(Pan2.ar(
VarSaw.ar(
freq * LFNoise1.kr(1/6, 0.4, 1),
mul: EnvGen.kr(Env.perc(0, (freq**(-0.7))*100), Dust.kr(1/5))
), LFNoise1.kr(1/8)))
})*0.03
}.play
)

Bedlam

SynthDef(\alarm, {
var snd, a;
a=FSinOsc;
y=Pulse;
snd = Splay.ar(a.ar(Select.ar(GVerb.ar(a.ar((3/b=[1,3,7,13,17,37]+0.2)*8)),(c=y.ar(0.7/b))>0*13+b+48).midicps,0,c%3).tanh/7);
Out.ar(0, snd);
}).add;
)
x = Synth(\alarm);

Entangled

Rielaborazione di un tweet di Olofsson; What the Net Is Doing To Our Brain?;

(
Routine.run {

var s, synth, release;
s = Server.default;
SynthDef(\drone, {
var snd, a;
a=VarSaw;
snd = Splay.ar(a.ar(Select.ar(GVerb.ar(a.ar((3/b=[1,3,7,13,17,37]+0.2)*8)),(c=a.ar(0.7/b))>0*13+b+48).midicps,0,c%3).tanh/7);
Out.ar(0, snd);
}).add;
synth = Synth(\drone);
10.wait;
s.sync;
s.record(path: "~/out.wav".standardizePath);
30.wait;
release.wait;
s.stopRecording;
};
)

Tesla Buzz

Rielaborazione di alcuni esempi;

(
play{
x=Saw;
y=SinOsc;
GVerb.ar((x.ar([11,73])*x.ar([17,33])**x.ar([37,13]*x.ar(7)/3+0.33)/13).clip(-1,1)*y.ar(y.ar(0.1,0,31,37)))/13
}
)
play{x=SinOsc;y=SinOsc;GVerb.ar((x.ar([1,3])*x.ar([7,11])**x.ar([13,17]*x.ar(7)/3+0.33)/13).clip(-0.5,0.5)*y.ar(y.ar(0.1,0,3,7)))/13}
(
{
loop({
play({
Pan2.ar(Klang.ar(`[ Array.rand(12, 100.0, 300.0), nil, nil ], 1, 0), 1.0.rand)
* EnvGen.kr(Env.sine(4), 1, 0.02, doneAction: 2);
});
2.wait;
})
}.fork;
)

WOPR

WOPR (War Operation Plan Response). Questo calcolatore, ubicato nella base fortezza di comando NORAD, valuta azioni e contromosse ad un eventuale attacco russo basandosi sull'esecuzione di numerosi giochi strategici:

(
SynthDef(\sin_grain_test, {arg gate = 1, amp = 1;
Out.ar(0,
SinGrain.ar(Impulse.kr(10), 0.1, WhiteNoise.kr.range(100, 1100),
EnvGen.kr(
Env([0, 0.1, 0], [0.1, 0.1], \step, 1),
gate,
levelScale: amp,
doneAction: 2)
)!2
)
}).add;
)
(
SynthDef(\sin_grain_test, {arg gate = 1, amp = 1;
Out.ar(0,
SinGrain.ar(Impulse.kr(10), 0.9, WhiteNoise.kr.range(100, 110),
EnvGen.kr(
Env([0, 0.1, 0], [0.1, 0.1], \step, 1),
gate,
levelScale: amp,
doneAction: 2)
)!2
)
}).add;
)
s.sendMsg(\s_new, \sin_grain_test, a=s.nextNodeID, 0, 1, \amp, 0.2);

s.sendMsg(\n_set, a, \gate, 0);

La sintesi granulare è spesso basata sullo stesso principio del campionamento ma include anche tecnologie di tipo analogico. L'idea è quella di creare suoni complessi a partire da una grossa quantità di suoni semplici. I grani sono di durata compresa tra 1 e 50 millisecondi e possono essere combinati e riprodotti insieme a velocità, fase e volume variabili. Il risultato non è un unico tono, ma una nuvola di suoni che viene manipolata in maniera differente da qualsiasi altro suono naturale o da qualsiasi altro metodo di sintesi.

Rielaborazione di un tutorial :

(
SynthDef(\sinegrain, {arg pan, freq, amp; var grain;
grain= SinOsc.ar(freq, 0, amp)*(XLine.kr(1.001,0.001,0.1,doneAction:2)-0.001);
XLine genera una curva esponenziale di durata dur, in questo caso 0.1, tra il valore start e il valore end;
Out.ar(0,Pan2.ar(grain, pan))}).add;
)
Synth(\sinegrain,[\freq,rrand(100,10000),\amp, exprand(0.05,0.1), \pan, 1.0.rand2]);
exprand è valore float randomico in una distribuzione esponenziale tra hi e lo; rand2 tra -this e this.
//schedule 100 random grains over 1 second
(
{
2000.do{arg i;
Synth(\sinegrain,[\freq,rrand(50,50+i*2),\amp, exprand(0.05,0.1), \pan, 1.0.rand2]);
0.01.wait
};
}.fork
)

Buffer Overflow

una condizione di errore che si verifica a runtime quando in un buffer di una data dimensione vengono scritti dati di dimensioni maggiori; viene sovrascritta parte della zona di memoria immediatamente adiacente al buffer in questione, con diversi effetti possibili a seconda di dove è situato il buffer e di come è organizzata la memoria.

Blip band limited impulse oscillator

Blip.ar(freq, numharm, mul, add)

Band Limited ImPulse generator. All harmonics have equal amplitude. This is the equivalent of 'buzz' in MusicN languages.

Line line generator

Inherits from: Object : AbstractFunction : UGen

Line.ar(start, end, dur, mul, add, doneAction)
Line.kr(start, end, dur, mul, add, doneAction)

Generates a line from the start value to the end value.
start - starting value
end - ending value
dur - duration in seconds
doneAction - a doneAction to be evaluated when the Line is completed. See UGen-doneActions for more detail.

Limiter peak limiter

Limiter.ar(in, level, dur)

Limits the input amplitude to the given level. Limiter will not overshoot
like Compander will, but it needs to look ahead in the audio. Thus there is a
delay equal to twice the lookAheadTime.
Limiter, unlike Compander, is completely transparent for an in range signal.

in - the signal to be processed.
level - the peak output amplitude level to which to normalize the input.
dur - aka lookAheadTime. The buffer delay time. Shorter times will produce smaller delays
and quicker transient response times, but may introduce amplitude modulation artifacts.

GVerb A two-channel reverb

#left, right = GVerb.ar(in, roomsize, revtime, damping, inputbw, spread, drylevel, earlyreflevel, taillevel,
maxroomsize, mul, add)

A two-channel reverb UGen, based on the "GVerb" LADSPA effect by Juhana Sadeharju (kouhia at nic.funet.fi).

in - mono input
roomsize - in squared meters
revtime - in seconds
damping - 0 to 1, high frequency rolloff, 0 damps the reverb signal completely, 1 not at all
inputbw - 0 to 1, same as damping control, but on the input signal
spread - a control on the stereo spread and diffusion of the reverb signal
drylevel - amount of dry signal
earlyreflevel - amount of early reflection level
taillevel - amount of tail level
maxroomsize - to set the size of the delay lines. Defaults to roomsize + 1

Entrammo in laboratorio e vidi l'odiosa macchina elettrica che brillava di una luminosità violetta e poco promettente. Era collegata ad una potente batteria chimica, ma in quel momento non riceveva corrente perché, durante i primi esperimenti ricordavo di averla sentita vibrare e ronzare quando era in funzione.

b = Buffer.read(s,"/home/bz/Desktop/radicaledward/supercollider/a11wlk01.wav");

al posto del grano sinusoidale prendo un pezzetto di wav

{ RLPF.ar(Saw.ar([50,75],0.1), XLine.kr(8000,400,25), 0.05) }.play;

(
SynthDef(\sfgrain, {arg bufnum=0, pan=0.0, startPos=0.0, amp=0.1, dur=0.04;
var grain;

grain= PlayBuf.ar(1,bufnum, BufRateScale.kr(bufnum), 1, BufFrames.ir(bufnum)*startPos, 0)*(EnvGen.kr(Env.perc(0.01,dur),doneAction:2)-0.001);

Out.ar(0,Pan2.ar(grain, pan))}).add;
)

(
{
200.do{arg i;
var timeprop = (i/199.0)**3;

Synth(\sfgrain,[\freq,exprand(100,5000-(20*i)),\amp, exprand(0.05,0.1), \pan, 1.0.rand2]);
rrand((timeprop*0.1).max(0.01),timeprop*0.3).wait
};
}.fork

)

+ GVerb Audacity