códigos de fin de curso

Esta página es para que compartan sus códigos con el resto de la clase. Dejen en un comentario una breve explicación de lo que hicieron y luego el código para que todos podamos analizarlo y aprender de él. En los códigos en los que se usen buffers simplemente se puede reemplazar el nombre del archivo audio por alguno que tengan en su computadora.

 

Muchas gracias a todos por participar y trabajar con tanto ánimo!

One Response to “códigos de fin de curso”

  1. //SYNTH ROKEANDO
    (
    (
    SynthDef(\rokeando,{|frecuencia=280,granos=3000,fade=2,in=0.1|
    var sen,env,dust;
    sen=SinOsc.ar([frecuencia,frecuencia+1.0],0,0.9);
    env=EnvGen.kr(Env.perc(in,fade),doneAction:2);
    dust=Dust.kr(granos,0.8);
    Out.ar(0,sen*dust*env)
    }).send(s)
    );

    //SYNTH CHAN-CHAN-CHAN
    (
    SynthDef(\secuencia,{arg frec=440,fade=0.5,in=0.01;
    var sen1,sen2,sen3,env,dust;
    sen1=LFSaw.ar(frec,0.3);
    sen2=LFSaw.ar([frec*7.midiratio],0.3);
    sen3=LFSaw.ar([frec*12.midiratio],0.3);
    env=EnvGen.kr(Env.perc(in,fade),doneAction:2);
    dust=Dust.kr(1000,0.3);
    Out.ar(0,[sen1+sen2+sen3]*dust*env)
    }).load(s)
    );

    //SYNTH CLUSTER

    (
    SynthDef(\cluster,{|frec=200,mul=0.05,en=0.3,sal=3|
    var sen,env;
    sen=SinOsc.ar(frec,0,mul);
    env=EnvGen.kr(Env.perc(en,sal),doneAction:2);
    Out.ar(0,sen*env)
    }).send(s)
    );

    //CLUSTEREX

    (
    SynthDef(\clusterex,{|mul=0.1|
    var clus,env;
    clus=LFPulse.ar([93,94,95,96,97,98,99,100,101,102].midicps,0.7,mul);
    env=EnvGen.kr(Env.perc(0.5,2.5),doneAction:2);
    Out.ar(0,clus*env)
    }).send(s)
    );

    //SYNTH SOPLO

    (
    SynthDef(\soplo,{|frec=440,mul=1,wide=0.5,in=0.3,fade=0.5|
    var bpf,brf,env;
    bpf=BPF.ar(LFTri.ar([frec,frec+1],1),1046,0.2,mul);
    brf=BRF.ar(BrownNoise.ar(0.3),1660,wide,mul);
    env=EnvGen.kr(Env.perc(in,fade),doneAction:2);
    Out.ar(0,bpf*brf*env)
    }).send(s)
    )

    )

    //TDEF CHAN-CHAN-CHAN
    (
    (
    Tdef(\chanchanchan,{
    inf.do{
    2.do{
    Synth(\secuencia);
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(466)]);
    0.25.wait};
    1.do{
    Synth(\secuencia);
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(554)]);
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(523)]);
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(415)]);
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(392)]);
    0.25.wait};
    2.do{
    Synth(\secuencia);
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(466)]);
    0.25.wait};
    1.do{
    Synth(\secuencia);
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(554)]);
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(523)]);
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(659)]);
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(698)]);
    1.do{{LFPulse.ar(rrand(440,880),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};

    2.do{
    Synth(\secuencia);
    1.do{{LFPulse.ar(rrand(440,880),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(466)]);
    1.do{{LFPulse.ar(rrand(440,880),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia);
    1.do{{LFPulse.ar(rrand(440,880),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(554)]);
    1.do{{LFPulse.ar(rrand(440,880),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(523)]);
    1.do{{LFPulse.ar(rrand(440,880),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(415*2)]);
    1.do{{LFPulse.ar(rrand(440,880),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(392)]);
    1.do{{LFPulse.ar(LFNoise0.ar(6,440,1660),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};

    2.do{
    Synth(\secuencia);
    1.do{{LFPulse.ar(LFNoise0.ar(6,440,1660),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};

    1.do{
    Synth(\secuencia,[\frec,(466)]);
    1.do{{LFPulse.ar(LFNoise0.ar(6,440,1660),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};

    1.do{
    Synth(\secuencia);
    1.do{{LFPulse.ar(LFNoise0.ar(6,440,1660),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};

    1.do{
    Synth(\secuencia,[\frec,(554)]);
    1.do{{LFPulse.ar(LFNoise0.ar(6,440,1660),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};

    1.do{
    Synth(\secuencia,[\frec,(523)]);
    1.do{{LFPulse.ar(LFNoise0.ar(6,440,1660),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};

    1.do{
    Synth(\secuencia,[\frec,(784)]);
    1.do{{LFPulse.ar(LFNoise0.ar(6,440,1660*2),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};

    1.do{
    Synth(\secuencia,[\frec,(830)]);
    1.do{{LFPulse.ar(LFNoise0.ar(8,440,3320),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    2.do{
    Synth(\secuencia);
    1.do{{LFPulse.ar(LFNoise0.ar(8,440,3320),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(466)]);
    1.do{{LFPulse.ar(LFNoise0.ar(8,440,3320),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia);
    1.do{{LFPulse.ar(LFNoise0.ar(8,440,3320),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(554)]);
    1.do{{LFPulse.ar(LFNoise0.ar(8,440,3320),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(523)]);
    1.do{{LFPulse.ar(LFNoise0.ar(8,440,3320),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(415)]);
    1.do{{LFPulse.ar(LFNoise0.ar(8,440,3320),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait}; 1.do{
    Synth(\secuencia,[\frec,(392)]);
    1.do{{LFPulse.ar(LFNoise0.ar(12,440,6640),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait}; 2.do{
    Synth(\secuencia);
    1.do{{LFPulse.ar(LFNoise0.ar(12,440,6640),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(466)]);
    1.do{{LFPulse.ar(LFNoise0.ar(12,440,6640),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia);
    1.do{{LFPulse.ar(LFNoise0.ar(12,440,6640),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(554)]);
    1.do{{LFPulse.ar(LFNoise0.ar(12,440,6640),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(523)]);
    1.do{{LFPulse.ar(LFNoise0.ar(12,440,6640),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(659)]);
    1.do{{LFPulse.ar(LFNoise0.ar(12,440,6640),0.7,0.025)*
    EnvGen.kr(Env.perc(0.1,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(698)]);
    3.do{{LFPulse.ar(LFNoise0.ar(6,440,3320),0.7,0.025)*
    EnvGen.kr(Env.perc(0.01,0.5),doneAction:2)}.play};
    0.25.wait};

    2.do{
    Synth(\secuencia); 0.25.wait};

    1.do{
    Synth(\secuencia,[\frec,(466)]);
    3.do{{LFPulse.ar(LFNoise0.ar(6,440,3320),0.7,0.025)*
    EnvGen.kr(Env.perc(0.01,0.5),doneAction:2)}.play};
    0.25.wait};

    1.do{
    Synth(\secuencia);
    0.25.wait};

    1.do{
    Synth(\secuencia,[\frec,(554)]);
    3.do{{LFPulse.ar(LFNoise0.ar(6,440,3320),0.7,0.025)*
    EnvGen.kr(Env.perc(0.01,0.5),doneAction:2)}.play};
    0.25.wait};

    1.do{
    Synth(\secuencia,[\frec,(523)]);
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(415*2)]);
    3.do{{LFPulse.ar(LFNoise0.ar(6,440,3320),0.7,0.025)*
    EnvGen.kr(Env.perc(0.01,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(392)]);
    5.do{{LFPulse.ar(LFNoise0.ar(3,440,1660),0.7,0.025)*
    EnvGen.kr(Env.perc(0.01,0.5),doneAction:2)}.play};
    0.25.wait};
    2.do{
    Synth(\secuencia);
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(466)]);
    5.do{{LFPulse.ar(LFNoise0.ar(3,440,1660),0.7,0.025)*
    EnvGen.kr(Env.perc(0.01,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia);
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(554)]);
    5.do{{LFPulse.ar(LFNoise0.ar(3,440,1660),0.7,0.025)*
    EnvGen.kr(Env.perc(0.01,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(523)]);
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(784)]);
    5.do{{LFPulse.ar(LFNoise0.ar(3,440,1660),0.7,0.025)*
    EnvGen.kr(Env.perc(0.01,0.5),doneAction:2)}.play};
    0.25.wait};
    1.do{
    Synth(\secuencia,[\frec,(830)]);
    10.do{{LFPulse.ar(rrand(440,880),0.5,0.01)*
    EnvGen.kr(Env.perc(0.01,3.5),doneAction:2)}.play};
    0.25.wait}

    }})
    )
    ;

    //TDEF SOPLIDOS

    (
    Tdef(\soplidos,{
    inf.do{
    1.do{
    Synth(\soplo,[\frec,([440,493,1046,293,622,2792,740].choose),
    \fade,(rrand(0.1,2))]);
    rrand(0.1,2).wait};
    }})
    );

    //SAPO (Y UNO QUE OTRO GRILLO (O CHICHARRA))
    (
    Tdef(\sapo,{
    inf.do{
    5.do{
    Synth(\rokeando,[\frecuencia,rrand(100,3000),\granos,rrand(4,5000)]);
    0.1.wait};
    3.do{
    Synth(\rokeando,[\frecuencia,([440,932,554,1046,349].choose),\in,(0.01),\fade,(0.17)]);
    0.16.wait};
    4.do{
    Synth(\rokeando,[\frecuencia,([220,1660,932,554,1046,339,678,440].choose),\in,(0.01)]);
    0.125.wait};
    6.do{
    Synth(\rokeando,[\frecuencia,(1108.72),\in,(0.01),\fade,(0.09)]);
    0.085.wait};
    10.do{
    Synth(\rokeando,[\frecuencia,rrand(20,7000),\fade,(0.12),\in,(0.1)]); 0.125.wait};
    1.do{
    Synth(\rokeando,[\frecuencia,rrand(1846,2000),\fade,(2.01),\in,(1)]);
    2.01}.wait

    }})
    );

    //TDEF CLUSTER

    (
    Tdef(\clus,{
    inf.do{
    1.do{
    Synth(\cluster,[\frec,(1864),\mul,rrand(0.01,0.03)]);
    Synth(\cluster,[\frec,(1760)]);
    Synth(\cluster,[\frec,(1975)]);
    Synth(\cluster,[\frec,(2093)]);
    Synth(\cluster,[\frec,(2217)]);
    Synth(\cluster,[\frec,(2349)]);
    Synth(\cluster,[\frec,(2489)]);
    Synth(\cluster,[\frec,(2637)]);
    Synth(\cluster,[\frec,(2793)]);
    Synth(\cluster,[\frec,(2959)]);
    Synth(\cluster,[\frec,(3135)]);
    Synth(\cluster,[\frec,(3322)]);
    Synth(\cluster,[\frec,(3520)]);
    Synth(\cluster,[\frec,(3729)]);
    Synth(\cluster,[\frec,(3951)]);
    Synth(\cluster,[\frec,(4186)]);
    Synth(\cluster,[\frec,(4434)]);
    8.wait}
    }})
    );

    //TDEF MIN SERIE

    (
    Tdef(\minserie,{
    inf.do{
    3.do{
    1.do{
    Synth(\cluster,[\frec,(1660),\mul,(0.3),\en,(0.1),\sal,(0.3)]);
    0.125.wait};
    1.do{
    Synth(\cluster,[\frec,(1479),\mul,(0.2),\en,(0.1),\sal,(0.3)]);
    1.do{{SinOsc.ar(1660,0,0.3)*
    EnvGen.kr(Env.perc(0.2,0.1),doneAction:2)}.play};
    0.125.wait};

    1.do{
    Synth(\cluster,[\frec,(1174),\mul,(0.1),\en,(0.1),\sal,(0.3)]);
    1.do{{SinOsc.ar(1479,0,0.2)*
    EnvGen.kr(Env.perc(0.2,0.1),doneAction:2)}.play};
    0.125.wait};

    1.do{
    Synth(\cluster,[\frec,(1396),\mul,(0.2),\en,(0.1),\sal,(0.3)]);
    1.do{{SinOsc.ar(1174,0,0.2)*
    EnvGen.kr(Env.perc(0.2,0.1),doneAction:2)}.play};
    0.125.wait};

    1.do{
    Synth(\cluster,[\frec,(1318),\mul,(0.3),\en,(0.1),\sal,(0.3)]);
    1.do{{SinOsc.ar(1396,0,0.2)*
    EnvGen.kr(Env.perc(0.2,0.1),doneAction:2)}.play};
    0.125.wait};

    1.do{
    Synth(\cluster,[\frec,(1174),\mul,(0.2),\en,(0.1),\sal,(0.3)]);
    1.do{{SinOsc.ar(1318,0,0.3)*
    EnvGen.kr(Env.perc(0.2,0.1),doneAction:2)}.play};
    0.125.wait};

    1.do{
    Synth(\cluster,[\frec,(1396),\mul,(0.1),\en,(0.1),\sal,(0.3)]);
    1.do{{SinOsc.ar(1174,0,0.2)*
    EnvGen.kr(Env.perc(0.2,0.1),doneAction:2)}.play};
    0.125.wait};
    1.do{
    Synth(\cluster,[\frec,(1318),\mul,(0.2),\en,(0.1),\sal,(0.3)]);
    1.do{{SinOsc.ar(1396,0,0.1)*
    EnvGen.kr(Env.perc(0.2,0.1),doneAction:2)}.play};
    0.125.wait};

    1.do{
    Synth(\cluster,[\frec,(1174),\mul,(0.3),\en,(0.1),\sal,(0.3)]);
    1.do{{SinOsc.ar(1318,0,0.2)*
    EnvGen.kr(Env.perc(0.2,0.1),doneAction:2)}.play};
    0.125.wait};

    1.do{
    Synth(\cluster,[\frec,(1479),\mul,(0.2),\en,(0.1),\sal,(0.3)]);
    1.do{{SinOsc.ar(1174,0,0.3)*
    EnvGen.kr(Env.perc(0.2,0.1),doneAction:2)}.play};
    0.125.wait};

    1.do{
    Synth(\cluster,[\frec,(1660),\mul,(0.1),\en,(0.1),\sal,(0.3)]);
    1.do{{SinOsc.ar(1479,0,0.2)*
    EnvGen.kr(Env.perc(0.2,0.1),doneAction:2)}.play};
    0.125.wait}};
    1.do{
    10.do{{Pulse.ar(rrand(110,440),0.5,0.01)*
    EnvGen.kr(Env.perc(0.6,8),doneAction:2)}.play};
    11.875.wait};

    }})
    );

    //MIN SERIE 2
    (
    Tdef(\minserie2,{
    inf.do{
    1.do{
    Synth(\cluster,[\frec,([1479,1318,1396,1174].choose),\mul,(0.4),
    \en,rrand(0.01,0.5),\sal,rrand(0.2,0.5)]);
    rrand(0.05,1).wait};
    1.do{
    Synth(\cluster,[\frec,([1479,1318,1396,1174].choose),\mul,(0.4),
    \en,rrand(0.01,0.5),\sal,rrand(0.2,0.5)]);
    rrand(0.05,1).wait};
    1.do{
    Synth(\cluster,[\frec,([1479,1318,1396,1174].choose),\mul,(0.4),
    \en,rrand(0.01,0.5),\sal,rrand(0.2,0.5)]);
    rrand(0.05,1).wait};
    1.do{
    Synth(\cluster,[\frec,([1479,1318,1396,1174].choose),\mul,(0.4),
    \en,rrand(0.01,0.5),\sal,rrand(0.2,0.5)]);
    rrand(0.05,1).wait};

    1.do{
    Synth(\cluster,[\frec,([1479,1318,1396,1174].choose),\mul,(0.4),
    \en,rrand(0.01,0.5),\sal,rrand(0.2,0.5)]);
    rrand(0.05,1).wait};
    1.do{
    Synth(\clusterex);
    1.5.wait};

    1.do{
    Synth(\cluster,[\frec,(1567),\mul,(0.4),\en,(0.01),\sal,(0.2)]);
    0.031.wait};
    1.do{
    Synth(\cluster,[\frec,(1975),\mul,(0.5),\en,(0.01),\sal,(0.2)]);
    0.062.wait};
    1.do{
    Synth(\cluster,[\frec,(1864),\mul,rrand(0.01,0.03)]);
    Synth(\cluster,[\frec,(1760)]);
    Synth(\cluster,[\frec,(1975)]);
    Synth(\cluster,[\frec,(2093)]);
    Synth(\cluster,[\frec,(2217)]);
    Synth(\cluster,[\frec,(2349)]);
    Synth(\cluster,[\frec,(2489)]);
    Synth(\cluster,[\frec,(2637)]);
    Synth(\cluster,[\frec,(2793)]);
    Synth(\cluster,[\frec,(2959)]);
    Synth(\cluster,[\frec,(3135)]);
    Synth(\cluster,[\frec,(3322)]);
    Synth(\cluster,[\frec,(3520)]);
    Synth(\cluster,[\frec,(3729)]);
    Synth(\cluster,[\frec,(3951)]);
    Synth(\cluster,[\frec,(4186)]);
    Synth(\cluster,[\frec,(4434)]);
    0.015.wait};

    1.do{
    Synth(\cluster,[\frec,(2489),\mul,(0.6),\en,(0.01),\sal,(0.2)]);
    0.062.wait};
    1.do{
    Synth(\cluster,[\frec,(3135),\mul,(0.7),\en,(0.01),\sal,(0.2)]);
    0.125.wait};
    1.do{
    Synth(\cluster,[\frec,(3951),\mul,(0.8),\en,(0.01),\sal,(0.2)]);
    0.062.wait};
    1.do{
    Synth(\cluster,[\frec,(4978),\mul,(0.4),\en,(0.01),\sal,(0.2)]);
    0.125.wait};
    2.do{
    Synth(\cluster,[\frec,(1864),\mul,rrand(0.01,0.03)]);
    Synth(\cluster,[\frec,(1760),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(1975),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(2093),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(2217),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(2349),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(2489),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(2637),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(2793),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(2959),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(3135),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(3322),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(3520),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(3729),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(3951),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(4186),\en,(0.01),\sal,(0.062)]);
    Synth(\cluster,[\frec,(4434),\en,(0.01),\sal,(0.062)]);
    0.25.wait};

    1.do{
    Synth(\cluster,[\frec,(6271),\mul,(0.5),\en,(0.01),\sal,(0.2)]);
    0.062.wait};
    1.do{
    Synth(\cluster,[\frec,(7902),\mul,(0.6),\en,(0.01),\sal,(0.2)]);
    0.125.wait};
    1.do{
    Synth(\cluster,[\frec,(9956),\mul,(0.7),\en,(0.01),\sal,(0.2)]);
    0.062.wait};
    1.do{
    Synth(\cluster,[\frec,(12543),\mul,(0.8),\en,(0.01),\sal,(0.2)]);
    0.125.wait};
    1.do{
    Synth(\cluster,[\frec,(7902),\mul,(0.5),\en,(0.01),\sal,(0.2)]);
    0.062.wait};
    1.do{
    Synth(\cluster,[\frec,(6271),\mul,(0.6),\en,(0.01),\sal,(0.2)]);
    0.125.wait};
    1.do{
    Synth(\cluster,[\frec,(9956),\mul,(0.7),\en,(0.01),\sal,(0.2)]);
    0.062.wait};
    1.do{
    Synth(\cluster,[\frec,(7902),\mul,(0.8),\en,(0.01),\sal,(0.2)]);
    0.125.wait};

    }})
    );

    (
    Tdef(\roy1,{
    inf.do{
    1.do{
    {LFPulse.ar(8,0,0.4,0.5)*
    BRF.ar(Saw.ar([277,293,698,349,1316,391,782,1564].choose,0.5),200,0.2,1)*
    EnvGen.kr(Env.perc(0.3,0.3),doneAction:2)!2}.play};
    rrand(0.1,3).wait};
    })
    );

    (
    Tdef(\roy2,{
    inf.do{
    1.do{
    {LFPulse.ar(8,0,0.4,0.5)*
    BRF.ar(Saw.ar([277,293,698,349,1316,391,782,1564].choose,0.5),200,0.2,1)*
    EnvGen.kr(Env.perc(0.3,0.3),doneAction:2)!2}.play};
    rrand(0.1,3).wait};
    })
    );

    (
    Tdef(\roy3,{
    inf.do{
    1.do{
    {LFPulse.ar(8,0,0.4,0.5)*
    BRF.ar(Saw.ar([277,293,698,349,1316,391,782,1564].choose,0.5),200,0.2,1)*
    EnvGen.kr(Env.perc(0.3,0.3),doneAction:2)!2}.play};
    rrand(0.1,3).wait};
    })
    );

    (
    Tdef(\roy4,{
    inf.do{
    1.do{
    {LFPulse.ar(8,0,0.4,0.5)*
    BRF.ar(Saw.ar([277,293,698,349,1316,391,782,1564].choose,0.5),200,0.2,1)*
    EnvGen.kr(Env.perc(0.3,0.3),doneAction:2)!2}.play};
    rrand(0.1,3).wait};
    })
    );

    (
    Tdef(\roy5,{
    inf.do{
    1.do{
    {LFPulse.ar(8,0,0.4,0.5)*
    BRF.ar(Saw.ar([277,293,698,349,1316,391,782,1564].choose,0.5),200,0.2,1)*
    EnvGen.kr(Env.perc(0.3,0.3),doneAction:2)!2}.play};
    rrand(0.1,3).wait};
    })
    )
    )

    Tdef(\chanchanchan).quant_(0).play
    Tdef(\chanchanchan).stop

    Tdef(\sapo).quant_(0).play
    Tdef(\sapo).stop

    Tdef(\clus).quant_(0).play
    Tdef(\clus).stop

    Tdef(\minserie).quant_(0).play
    Tdef(\minserie).stop

    Tdef(\minserie2).quant_(0).play
    Tdef(\minserie2).stop

    Tdef(\roy1).play;
    Tdef(\roy1).stop;

    Tdef(\roy2).play;
    Tdef(\roy2).stop;

    Tdef(\roy3).play;
    Tdef(\roy3).stop;

    Tdef(\roy4).play;
    Tdef(\roy4).stop;

    Tdef(\roy5).play;
    Tdef(\roy5).stop;

    Tdef(\soplidos).play
    Tdef(\soplidos).stop

    P.D – perdona por tardar, gracias por el curso, estuvo genial

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: