Tareas 5 Creacion de sintes y partituras

Tenemos el siguiente código que quiero volverlo un sintetizador:

{Blip.ar(400, 10, 0.5)}.scope

/*400, 10 y 0.5 son argumentos respectivamente para freq, numero de armonicos y mul, o sea amplitud*/

(

SynthDef("manzana",/*le doy cualquier nombre al sintetizador*/

{|altura,armonicos,volumen|

var suena;

suena =Blip.ar(altura,armonicos,volumen);

Out.ar(1,suena)}

).send(s)/*0 es a la izquierda y 1 a la derecha*/

)

/*defino argumentos, tambien les pongo cualquier nombre, pero preferiblemente que tengan relacion, si todo está bien te debe decir en el postwindow:  a SynthDef */

/*Otro ejemplo, puedo poner valores de una vez a los argumentos que funcionarán como valores default*/

(SynthDef("pera",{|altura=300,volumen= 1|

var suena;

suena =Saw.ar(altura,EnvGen.ar(Env.sine(0.5,1)));

Out.ar(0,suena)}).send(s)

)

/*Así lo hago sonar, dándole valores, si quiero verlo en scope llamo al scope aparte con s.scope*/

Synth("manzana",[\altura,1000,\armonicos,5,\volumen,0.1])

s.scope

/*como "pera" tiene valores default lo puedo llamar sin darle nada*/

Synth("pera")

/*Es importante que los argumentos sólo son números, no Ugens o variables*/

Para manejar los sintes es bueno identificarlos con una variable. (Recuerda evitar la s)

a=Synth("manzana",[\altura,1000,\armonicos,5,\volumen,0.1])

/*Ya luego puedes simplemente cambiarle los valroes al sinte usando .set. Deja el anterior sonando y dale a*/

a.set(\altura,560)

puedes usar variables del ambiente (Importante el tilde)

~manzana=Synth("manzana",[\altura,1000,\armonicos,5,\volumen,0.1])

~manzana.set(\altura,2560)

~manzana.free

Puedo usar en vez de frecuencia en Hertz números midi

~manzana=Synth("manzana",[\altura,99.48.midicps,\armonicos,5,\volumen,0.1])

~manzana.set(\altura,69.midicps)

~manzana.free

~pollitos = Synth("pera",[\altura,60.midicps,\vel,2])

~pollitos = Synth("pera",[\altura,62.midicps])

~pollitos = Synth("pera",[\altura,64.midicps])

~pollitos = Synth("pera",[\altura,65.midicps])

~pollitos = Synth("pera",[\altura,67.midicps])

~pollitos.free

/*si incluimos EnvGen y el sonido se acaba ya no podemos usar el .set y les dirá FAILURE /n_set Node not found*/

(SynthDef("cebolla",{|alt,arm1,arm2,tiempo,vol,pos|

var suena,total;

suena =Blip.ar(alt,XLine.kr(arm1,arm2,tiempo),vol);

total =Pan2.ar(suena,SinOsc.kr(pos),vol);

Out.ar(0,total)}).send(s)

)

/*esto sería como una partitura, a medida que vas bajando vas tocando, tambien puedes devolverte*/

z=Synth("cebolla",[\alt,rrand(100,1000),\arm1,10,\arm2,70,\tiempo,15,\vol,0.9,\pos,1])

z.set(\alt,rrand(30,50))

z.set(\pos,5)

z.set(\pos,1)

z.set(\tiempo,25)

z.free

s.scope

/*Tarea 5-partitura*/

Has una partitura usando "cebolla" y da indicaciones de cómo te moverías en ella, devolviéndote o siguiendo todo el tiempo hacia adelante.

/*Tarea 5-Sinte*/

Has un sintetizador (SynthDef) a partir del siguiente código de Anabel.

(

{var linea,todo, moviendose;

linea = XLine.ar(10,70,7);

 todo = SinOsc.ar(Saw.ar(10,100,1000),0,Blip.ar(linea,10,0.2),0.5);

    moviendose = Pan2.ar(todo, SinOsc.kr(3))}.scope

    )

/*y sugiere diferentes valores para los argumentos*/