15 mayo, 2009

Tarea 2

Hacer un sonido que dure 20 segs, donde ocurran cambios consistentes en intensidad en los primeros 10 segs y en freq u otro parámetro en los últimos 10.

Prueben incluyendo
WhiteNoise.ar
PinkNoise.ar
BrownNoise.ar


Recuerden que hay una gran diversidad en Envelopes. Pongan Env, lo escogen y le dan F1 y verán, aparte del Env que pueden ustedes crear paso a paso existen una diversidad de Env ya prediseñados

Env.linen(1, 2, 3, 0.6).test.plot;
Env.linen(0.1, 0.2, 0.1, 0.6).test.plot;
Env.linen(1, 2, 3, 0.6, 'sine').test.plot;
Env.linen(1, 2, 3, 0.6, 'welch').test.plot;
Env.linen(1, 2, 3, 0.6, -3).test.plot;
Env.linen(1, 2, 3, 0.6, -3).test.plot;
Env.triangle(1, 1).test.plot;
Env.sine(1,1).test.plot;
Env.perc(0.05, 1, 1, -4).test.plot;
Env.perc(0.001, 1, 1, -4).test.plot; // sharper attack
Env.perc(0.001, 1, 1, -8).test.plot; // change curvature
Env.perc(1, 0.01, 1, 4).test.plot; // reverse envelope

14 comentarios:

  1. Saludos prof, Aqui dejo la tarea un poco sencilla!!

    ({SinOsc.ar(EnvGen.ar(Env.new([500,10, 6000,400, 40],[1, 6, 2, 5])),0,EnvGen.ar(Env.new([1,10, 0,500, 100],[1, 0.3, 1, 0.5])))}.play) //Variacion de Frecuencia e intensidad

    ResponderSuprimir
  2. Envolvente estero para intensidad y frecuencia.

    {SinOsc.ar([(EnvGen.ar(Env.
    new([100,1000,500,2000,40], [2,3,4,2],'linear'))),
    (EnvGen.ar(Env.new([100,1000,500,2000,40], [2,3,4,2],'linear')))],0,
    EnvGen.ar(Env.new([0,0.5,0.3,1,0], [4,4,4,4],'sine')))}.scope


    Intento de intento de intento de imitacion de cancion =P


    {SinOsc.ar([(EnvGen.ar(Env.new([0,145,0,180,0,145,0,180,0,145,0,180,150,0,145,0,180,0],
    [0.25,0.12,0.25,0.36,0.24,0.25,0.24,0.23,0.25,0.12,0.24,0.22,0.12,0.25,0.23,0.24],'step'))),
    (EnvGen.ar(Env.new([0,145,0,180,0,145,0,180,0,145,0,180,150,0,145,0,180,0],
    [0.25,0.12,0.25,0.36,0.24,0.25,0.24,0.23,0.25,0.12,0.24,0.22,0.12,0.25,0.23,0.24],'step')))],
    0,1)}.play

    ResponderSuprimir
  3. Este comentario ha sido eliminado por el autor.

    ResponderSuprimir
  4. Johan, sigues con los parámetros volteados, 10 no te sirve para intensidad (mul), que llega solo hasta 1.

    ResponderSuprimir
  5. Andros, ya que tienes un envelope para cada canal podrías probar hacerlos diferentes!!!

    ResponderSuprimir
  6. Unas cuantas pruebas de la tarea 2


    {SinOsc.ar(EnvGen.ar(Env.new([400,900, 200, 250, 40],[9, 1, 7, 3])),0,0.3)}.play //prueba frecuencia

    {SinOsc.ar(555,0,mul:[0.1,0.5])*EnvGen.ar(Env.new([0,1, 0.3, 0.8, 0], [5, 6, 4, 5],-3))}.play //prueba intensidad

    {SinOsc.ar(EnvGen.ar(Env.new([100,1000, 500, 8000, 40],[10, 5, 2.5, 2.5]),0,mul:[0.1,0.8])*EnvGen.ar(Env.new([0,1, 0.3, 1.5, 0], [5, 5, 6, 4],-3)))}.play //motor

    {SinOsc.ar(EnvGen.ar(Env.new([100,1000, 500, 8000, 40],[5, 4, 6, 5])),0,0.3)}.play //pito

    {WhiteNoise.ar(555,0,mul:[0.1,0.5])*EnvGen.ar(Env.new([0,1, 0.3, 0.8, 0], [5, 6, 4, 5],-3))}.play //ruido oscilante
    {Blip.ar(555,0,mul:[0.1,0.5])*EnvGen.ar(Env.new([0,1, 0.3, 0.8, 0], [5, 6, 4, 5],-3))}.play // blip
    {Saw.ar(555,0,mul:[0.1,0.5])*EnvGen.ar(Env.new([0,1, 0.3, 0.8, 0], [5, 6, 4, 5],-3))}.play // sierra
    {BrownNoise.ar(EnvGen.ar(Env.new([100,1000, 500, 8000, 40],[10, 5, 2.5, 2.5]),0,mul:[0.1,0.8])*EnvGen.ar(Env.new([0,1, 0.3, 1.5, 0], [5, 5, 6, 4],-3)))}.play
    {Saw.ar(EnvGen.ar(Env.new([100,1000, 500, 8000, 40],[10, 5, 2.5, 2.5]),0,mul:[0.1,0.8])*EnvGen.ar(Env.new([0,1, 0.3, 1.5, 0], [5, 5, 6, 4],-3)))}.play //moto
    {Blip.ar(EnvGen.ar(Env.new([100,1000, 500, 8000, 40],[10, 5, 2.5, 2.5]),0,mul:[0.1,0.8])*EnvGen.ar(Env.new([0,1, 0.3, 1.5, 0], [5, 5, 6, 4],-3)))}.play //
    {PinkNoise.ar(EnvGen.ar(Env.new([100,1000, 500, 8000, 40],[10, 5, 2.5, 2.5]),0,mul:[0.1,0.2])*EnvGen.ar(Env.new([0,0.5, 0.1, 0.5, 0], [5, 5, 6, 4],-3)))}.play //ni lo escuchen

    ResponderSuprimir
  7. aja prof aqui logré acomodar la tarea! ahora si esta perceft!! gracias!!

    ({SinOsc.ar(EnvGen.ar(Env.new([500,10, 6000,400, 40],[2, 6, 2])),0,EnvGen.ar(Env.new([0.6,0.6,0.8,0.3,0.4],[10, 2, 5, 3])))}.play) //Variacion de Frecuencia e intensidad

    ResponderSuprimir
  8. {SinOsc.ar(EnvGen.ar(Env.new([400,600,500,1200
    ,600,1800,700,2400,800,3000,900,3600,40,1260,
    2000,100,200,40],[0.5,0.6,0.5,0.6,0.5,0.6
    ,0.5,0.6,0.5,0.6,0.5,2,5,5,3,7,2])),0,0.9)}.play

    ResponderSuprimir
  9. Respuesta para Domller,
    tu rollo es que confundes los argumentos de los diferentes Ugens, no todos tienen lo mismo y en el mismo lugar, lo mejor es chequear cada vez escogiéndolo y dándoles F1.
    /*Blip.ar(freq, numharm, mul, add), si pones numero de armonicos 0 no camina, minimo 1*/
{Blip.ar(555,1,mul:[0.1,0.5])*EnvGen.ar(Env.new([0,1, 0.3, 0.8, 0], [5, 6, 4, 5],-3))}.scope // blip
    /*BrownNoise.ar(mul, add), pusiste valores de freq para amplitud(mul) que es de 0 a 1*/
{BrownNoise.ar(EnvGen.ar(Env.new([100,1000, 500, 8000, 40],[10, 5, 2.5, 2.5]),0,mul:[0.1,0.8])*EnvGen.ar(Env.new([0,1, 0.3, 1.5, 0], [5, 5, 6, 4],-3)))}.play/*lo que está en verde es redundante*/
    /*Saw.ar(freq, mul, add), fijate que saw no tiene phase o sea que el cero no hace falta*/
{Saw.ar(EnvGen.ar(Env.new([100,1000, 500, 8000, 40],[10, 5, 2.5, 2.5]),0,mul:[0.1,0.8])*EnvGen.ar(Env.new([0,1, 0.3, 1.5, 0], [5, 5, 6, 4],-3)))}.play //moto

    /*Blip.ar(freq, numharm, mul, add). te faltó el paréntesis, te sonó de pura suerte porque te sobraba un paréntesis en otro lugar, recuerda que no tiene phase
(
    {Blip.ar(EnvGen.ar(Env.new([100,1000, 500, 8000, 40],[10, 5, 2.5, 2.5])),10,mul:[0.1,0.8])*
    EnvGen.ar(Env.new([0,1, 0.3, 1.5, 0], [5, 5, 6, 4],-3))}.play
    )
    /* Claro!!! porque le metiste valores de freq [100,1000, 500, 8000, 40] al mul que es de 0 a 1 PinkNoise.ar(mul, add)
{PinkNoise.ar(EnvGen.ar(Env.new([100,1000, 500, 8000, 40],[10, 5, 2.5, 2.5]),//esto es mul
    0,//no es nada
    mul:[0.1,0.2])*//confundiste a la máquina con mul aquí y al principio
    EnvGen.ar(Env.new([0,0.5, 0.1, 0.5, 0], [5, 5, 6, 4],-3)))}.play //ni lo escuchen, uf!!!!

    ResponderSuprimir
  10. hola profe le dejo mi tarea 2 disculpe la demora..

    ({SinOsc.ar(EnvGen.ar(Env.new([50,1, 5,50, 0],[1, 6, 2, 5])),0,EnvGen.ar(Env.new([10,200, 300,60, 200],[1, 0.3, 1, 0.5])))}.scope)

    ({SinOsc.ar(EnvGen.ar(Env.new([200,100, 50,500, 9],[1, 6, 2, 5])),0,EnvGen.ar(Env.new([10,600, 150,60, 200],[1, 6, 3, 7])))}.scope)

    {SinOsc.ar(EnvGen.ar(Env.new([200,150, 250, 300, 400],[2, 6, 3, 9])),0,0.6)}.scope;

    {BrownNoise.ar(EnvGen.ar(Env.new([50,15, 25, 30, 40],[2, 6, 3, 3])),0,1)}.scope;

    ResponderSuprimir
  11. profe esta es mi tarea 2

    {SinOsc.ar(EnvGen.ar(Env.new([200,50,10,50,300],[5, 6, 5, 4])),0,7)}.scope;

    {WhiteNoise.ar(700,0,mul:[0.6,0.5])*EnvGen.ar(Env.new([0,1, 0.3, 0.5, 1], [6, 3, 6, 5],-3))}.play

    ResponderSuprimir
  12. hola profe aqui dejo mi segunda tarea..

    (
    {Saw.ar(1000,0,mul:[0.3,0.2])*EnvGen.ar(Env.new([0,3, 0.7, 0.5, 0.4], [4, 2, 6, 4],0.1))}.play
    {Blip.ar(EnvGen.ar(Env.new([20,50,100,900,30],[6, 3, 8, ])),0,3)}.scope;
    )

    ResponderSuprimir
  13. Comentario para Alex
    (/*No metas en un mismo código .play y .scope*/
    {Saw.ar(1000,0,mul:[0.3,0.2])*EnvGen.ar(Env.new([0,3, 0.7, 0.5, 0.4], [4, 2, 6, 4],0.1))}.play;/* en todo caso aquí iría un punto y coma*/
    {Blip.ar(EnvGen.ar(Env.new([20,50,100,900,30],[6, 3, 8, ])),0,3)}.scope;
    )

    {Saw.ar(1000,mul:[0.3,0.2])*EnvGen.ar(Env.new([0,3, 0.7, 0.5, 0.4], [4, 2, 6, 4],0.1))}.play; /*si ocupa su lugar original no hace falta ponerle mul*/


    {Blip.ar(EnvGen.ar(Env.new([20,50,100,900,30],[6, 3, 8, ])),0,3)}.scope;/*ojo con el lugar de cada argumento Blip.ar(freq, numharm, mul, add). Yo no sé como te sonó esto, sin armónicos y con 3 de amplitud!!!!*/

    ResponderSuprimir
  14. Sonido de 20 segundos(stereo) tarea 2

    {Saw.ar([(EnvGen.ar(Env.new([440,440,880,830,440,415,560,788,440], [10,1,1,2,1,1,2,2]))),
    (EnvGen.ar(Env.new([880,880,440,415,880,415,280,399,440], [10,1,1,2,1,1,2,2])))],
    EnvGen.ar(Env.new([0.1,0.01,0.3,0.03,0.4,0.2,0.1,0.7,0.6,0.3], [1,1,1,1,1,1,1,1,1])))}.scope

    ResponderSuprimir

Nota: solo los miembros de este blog pueden publicar comentarios.