Source code (which I also release under the license given here) runs in w:SuperCollider:
// Written by Dan Stowell, September 2006
b = Buffer.read(s,"sounds/break2.snd"); // Provide a simple breakbeat loop
(
var ampTable = Signal.hanningWindow(1024,100).squared;
var ampBuf = Buffer.loadCollection(s, ampTable);
SynthDef("accelerando_inf1", { arg out=0,bufnum=0;
var pos, posses, pitches, amps, sons;
// "pos" is a kind of master pitch control, linear varying between one and zero
pos = Phasor.ar(1, 0.007 / SampleRate.ir, 0, 1);
posses = (pos + ((0..4)/5)).wrap(0.0, 1.0); // Evenly spaced circularly within 0 to 1
pitches = (0.2 * 2.0.pow(posses * 5));
amps = BufRd.kr(1, ampBuf.bufnum, posses * BufFrames.ir(ampBuf.bufnum));
sons = (PlayBuf.ar(1, bufnum, pitches.poll(100), loop:1) * amps * 10);
Out.ar(out,
Pan2.ar(sons.mean.softclip)
)
}).play(s,[\out, 0, \bufnum, b.bufnum]);
)
šířit – kopírovat, distribuovat a sdělovat veřejnosti
upravovat – pozměňovat, doplňovat, využívat celé nebo částečně v jiných dílech
Za těchto podmínek:
uveďte autora – Máte povinnost uvést autorství, poskytnout odkaz na licenci a uvést, pokud jste provedli změny. Toho můžete docílit jakýmkoli rozumným způsobem, avšak ne způsobem naznačujícím, že by poskytovatel licence schvaloval nebo podporoval vás nebo vaše užití díla.
zachovejte licenci – Pokud tento materiál jakkoliv upravíte, přepracujete nebo použijete ve svém díle, musíte své příspěvky šířit pod stejnou nebo slučitelnou licencí jako originál.
{{Information |Description=An example of the accelerando effect invented by w:Jean-Claude Risset |Source=self-made |Date=23 September 2006 |Author= Mcld |Permission= |other_versions= }} Category:Auditory illusions [[Category:Illusio
Tento soubor obsahuje dodatečné informace, poskytnuté zřejmě digitálním fotoaparátem nebo scannerem, kterým byl pořízen. Pokud byl soubor od té doby změněn, některé údaje mohou být neplatné.