p = (0..6541).nthPrime;
r = [];
p.doAdjacentPairs { arg a, b; r = r.add(b - a) };
r = r.normalize;
r.plot;

s.boot;
b = Buffer.loadCollection(s, r);
n = play { PlayBuf.ar(1, b, rate: 0.1, loop: 1).dup };
s.scope;
n.release(2);
s.quit;

Números primos en loop

Dijo la crítica: "no tengo palabras para describir esto" y no escribió nada.

Cumbiafolk Technotrash

(
SynthDef(\membrana, {
	arg out = 0,
	    amp = 0.2,
	    pan = 0,
	    limAmp = 0.99,
	    t_trig = 1,
	    tens = 0.02,
	    loss = 0.9999;
	var sound;

	// PinkNoise.ar más brillante
	sound = MembraneCircle.ar(
		EnvGen.ar(Env.perc(0.01, 0.09), t_trig) * BrownNoise.ar(amp),
		tens, loss
	);
	sound = Limiter.ar(sound, limAmp);
	sound = FreeVerb.ar(sound, 0.26);

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

(
// piano
var pcer = [0.0115, 0.9992];
var pman = [0.0116, 0.9991];
var pabi = [0.0115, 0.9999];
var pcer2 = [0.0115, 0.9992];
// chico
var cman = [0.026, 0.999];
var cpal = [0.03, 0.9996];
// repique
var rpal = [0.0226, 0.9998];
var rman = [0.0229, 0.9994];

Ptpar([
	8, Pmono(\membrana,
		#[tens, loss], Pseq([pcer, pabi, pman, pcer, pabi, pcer2], inf),
		\amp, Pseq([0.9, 0.6, 0.9, 0.7, 0.7, 0.8], inf),
		\maxAmp, 0.3,
		\pan, 0,
		\dur, Pseq([0.75, 0.5, 0.75, 0.75, 0.25, 1], inf),
	),
	0, Pmono(\membrana,
		#[tens, loss], Pseq([cpal, cman, cpal, cpal], inf),
		\amp, Pseq([0.1, 0.9, 0.3, 0.3], inf),
		\maxAmp, 0.3,
		\pan, 0.15,
		\dur, Pseq([Pseq([Rest(0.25), 0.25, 0.25, 0.25], 32), Pseq(0.25!4, 16)], inf),
	),
	32, Pmono(\membrana,
		#[tens, loss], Pseq([[]] ++ [rman, rpal].dup(6).flatten ++ [[]], inf),
		\amp, Pseq([0.3, 0.6].dup(5).flat ++ [0.3, 0.3, 0.6, 0], inf),
		\maxAmp, 0.2,
		\pan, -0.15,
		\dur, Pseq([Rest(0.25), 0.5, 0.25, [0.25, 0.5, 0.25]!3, 1, Rest(3)].flat, inf),
	)
]).play(TempoClock(125/60));
)

smrg-lm

Popular tracks