/*Paso 1, hacer el código*/
(
{var linea,todo;
linea = XLine.ar(10,70,1);
todo = SinOsc.ar(Saw.ar(10,100,1000),0,Blip.ar(linea,10,0.2),0.5);
Pan2.ar(todo, SinOsc.kr(3))}.scope
)
/*Paso 2, hacer el Sintetizador, lo central es sustituir numeros, que son los argumentos, por nombres. Estos numeors los vamos a mover desde el Pbind, compara el codigo original con el sinte de abajo, si está bien te debe decir: "a SynthDef" */
(
SynthDef(\ella,{|paneo,freqS,tiem,vol |
var linea,todo,mov,env;
env = EnvGen.ar(Env.sine(vol));
linea = XLine.ar(10,70,tiem);
todo = SinOsc.ar(Saw.ar(freqS,100,1000),0,Blip.ar(linea,10,0.2),0.5);
mov =Pan2.ar(todo*env, SinOsc.kr(paneo));
Out.ar(0,mov)}).store
)
/* Paso 3, montarlo en un Pbind, donde le mueves los argumentos, aquí lo mejor es sustituir los rrand y .rand por Prand, o cualquiera de sus equivalentes. Pseq es una secuencia de números por los que va desfilando en el caso inferior infinitamente*/
(
Pbind(\instrument,\ella,
\paneo,0.3,
\freqS,10,
\tiem,Pseq([7,5,1],inf),
\vol,Pseq([7,5,1],inf),
\dur,Pseq([7,5,1],inf)).play)
/* Para ver los diferentes tipos de Patrones (P) ve otra entrada del blog
*/
0 comentarios:
Publicar un comentario en la entrada
Nota: solo los miembros de este blog pueden publicar comentarios.