Livecoding
De Pontão Nós Digitais
Ir para navegaçãoIr para pesquisar
Scripts
http://www.inclusiveimprov.co.uk/doku.php/events:creativepact_2011#lab_macambira
Dia 1, 17/09/2011
Script para tocar o baixo em loop com uma pausa.
// duracao do compasso: 2.6746 segundos // script toca o audio do baixo e faz uma // pausa de um ou alguns compassos // sound file "a.wav" => string filename; 2 => int compassos_pausa; // the patch SndBuf buf => dac; // load the file filename => buf.read; // time loop while( true ) { 1 => buf.rate; 39*441 => buf.pos; 10.6985::second => now; 0 => buf.rate; (compassos_pausa*2.6746)::second => now; } // Std.rand2f(.2,.9) => buf.gain; // Std.rand2f(.5,1.5) => buf.rate; // if( me.args() ) me.arg(0) => filename;
Utilizando uma pulsação qualquer:
// Sincronizando 0.5::second => T; T - (now%T) => now; // Pegando o áudio SndBuf buf => dac; "data/kick.wav" => buf.read; // Loop infinito while(1) { 0 => buf.pos; T => now; }
Tocando um arquivo inteiro com o máximo de simplicidade. Amostra por amostra:
SndBuf buf => dac; "a.wav" => dac; while(1) 1::samp => now;
Em SuperCollider, tocando o arquivo durante 22 compassos
TempoClock.default.tempo = 1; b = Buffer.read(s, "/home/vilson/Samples/ginzburg.wav"); ( SynthDef(\player, { | out=0, bufnum=0, rate=1, start=0, dur=1, amp=0.8 | var signal = PlayBuf.ar(1, bufnum, BufRateScale.kr(bufnum)*rate, startPos:start); signal = signal * amp * EnvGen.kr(Env.linen(0.01, dur, 0.01), doneAction:2); Out.ar(out, signal ! 2) }).store; ) Pdef(\p1, Pbind(\instrument, \player, \dur, Pseq([22],inf))) Pdef(\p1).play Pdef(\p1).stop
Modificando rate e duração, acrescentando novos patterns para tocar o mesmo buffer
Pdef(\p1, Pbind(\instrument, \player, \dur, Pseq([2],inf), \start, Pseq([44100*24], inf), \rate, 0.2)) Pdef(\p1).play Pdef(\p1).stop Pdef(\p2, Pbind(\instrument, \player, \dur, Pseq([2],inf), \start, Pseq([44100*23], inf), \rate, Pseq([0.3, 0.3, 0.3, 0.3, 0.4, 0.4], inf))) Pdef(\p2).play Pdef(\p2).stop Pdef(\p3, Pbind(\instrument, \player, \dur, Pseq([8],inf), \start, Pseq([44100*46], inf), \rate, 0.4)) Pdef(\p3).play Pdef(\p3).stop
Dia 2, 18/09/2011
Em ChucK, soltar estas duas linhas em alguma música bem ritmada e deixar os padrões à vontade com este arco maior:
// stupidly rising SinOsc s1 => Gain g => g => s1 => dac; 2 => s1.sync; while(second => now); // crazy wind through a window Noise s1 => Gain g1 => g1 => SinOsc s2 => dac; 2 => s2.sync; while(second => now);
Em SuperCollider, thrasheira:
http://soundcloud.com/aut0mata/day2
TempoClock.default.tempo= 1 // drum ( SynthDef(\kick, { | out=0, amp=0.2, atk=0.03, rel=1, pan=0, freq=100 | var sig = Mix(SinOsc.ar([freq, freq+1.01, freq+5, freq+1.02])); var env = EnvGen.ar(Env.perc(atk, rel, amp), doneAction:2); Out.ar(out, Pan2.ar(sig*env, pan)); }).store ) // snare ( SynthDef(\snare, { | out=0, amp=0.1, atk=0.02, rel=0.2, pan=0 | var sig = HPF.ar(WhiteNoise.ar, 5000); var env = EnvGen.ar(Env.perc(atk, rel, amp), doneAction:2); Out.ar(out, Pan2.ar(sig*env, pan)); }).store ) // hat ( SynthDef(\hat, { | out=0, amp=0.1, atk=0.03, rel=0.2, pan=0, freq=4000 | var sig = BPF.ar(GrayNoise.ar, freq, 0.1, 10); var env = EnvGen.ar(Env.perc(atk, rel, amp)); Out.ar(out, Pan2.ar(sig*env, pan)); }).store ) // bass ( SynthDef(\bass, { | out=0, freq=220, amp=0.8, atk=0.05, rel=1, pan=0 | var sig = BPF.ar(Mix(Saw.ar([freq, freq+1.01, freq+3]))*SinOsc.ar(3, 0, 1), 500); var env = EnvGen.ar(Env.perc(atk, rel, amp)); Out.ar(out, Pan2.ar(sig*env, pan)); }).store ) Pdef(\p_kick, Pbind(\instrument, \kick, \freq, Pseq([\rest,60], inf), \dur, 1/2)) Pdef(\p_snare, Pbind(\instrument, \snare, \freq, Pseq([1, \rest], inf), \dur, 1/2)) Pdef(\p_hat, Pbind(\instrument, \hat, \freq, Pseq([\rest, 3000], inf), \dur, 1/2)) ( Pdef(\p_bass, Pbind(\instrument, \bass, \note, Pseq([0.5, 1.5,0.5,0.5,0.5, 0.5, 1.5,0.5,0.5,0.5, 0.5, 5, 7,1.5], inf), \octave, 4, \dur, Pseq([1/2, 1/4,1/4,1/4,1/4, 1/2, 1/4,1/4,1/4,1/4, 1/4,1/4,1/4,3/4], inf))) ) Ppar([Pdef(\p_kick), Pdef(\p_snare), Pdef(\p_bass)]).play
Dia 3, 20/09/2011
Em SuperCollider, minimalista:
// Usando JITlib // Criamos um proxy e enviamos o servidor já booted s p = ProxySpace.push(s); // Definimos o tempo p.clock = TempoClock.default; p.quant = 1.0; // Kick ( SynthDef(\kick, { | basefreq=50, ratio=7, sweeptime=0.05, preamp=1, amp=1, decay1=0.4, decay1L=0.8, decay2=0.15, out | var fcurve = EnvGen.kr(Env([basefreq * ratio, basefreq], [sweeptime], \exp)), env = EnvGen.kr(Env([1, decay1L, 0], [decay1, decay2], -4), doneAction: 2), sig = SinOsc.ar(fcurve, 0.5pi, preamp).distort * env * amp; Out.ar(out, sig ! 2) }).add; ) ( SynthDef(\snare, { | out=0, amp=0.1, atk=0.02, rel=0.2, pan=0 | var sig = HPF.ar(WhiteNoise.ar, 5000); var env = EnvGen.ar(Env.perc(atk, rel, amp), doneAction:2); Out.ar(out, Pan2.ar(sig*env, pan)); }).add ) ( SynthDef(\hh, { | out=0, attack=0.03, decay=0.03, amp=0.5 | var sig = BPF.ar(PinkNoise.ar(1), 1000), env = EnvGen.kr(Env.perc(attack, decay, amp), doneAction:2); Out.ar(out, Pan2.ar(sig * env) ! 2); }).add; ) ( SynthDef(\bass, { | out=0, freq=30, attack=2, decay=0.1, amp=0.05 | var sig = BPF.ar(Saw.ar([freq, freq+1]), 300), env = EnvGen.kr(Env.perc(attack, decay, amp), doneAction:2); Out.ar(out, Pan2.ar(sig * env) ! 2); }).add; ) ~p1.play; ~p1.stop; ~p1 = Pbind(\instrument, \kick, \note, Pseq([\rest, 0], inf), \dur, Pseq([1/2, 1/4, 1], inf)) ~p2.play; ~p2.stop; ~p2 = Pbind(\instrument, \snare, \note, Pseq([0, \rest], inf), \dur, Pseq([1/2], inf)) ~p3.play; ~p3.stop; ~p3 = Pbind(\instrument, \hh, \dur, Pseq([2, 4, 1/2, 1/4], inf)); ~p4.play; ~p4.stop; ~p4 = Pbind(\instrument, \bass, \freq, Pseq([30, 32, 32, 33], inf), \dur, Pseq([4, 2], inf));