// title: live performance no teatro: "Fausto in Progress"
// author: Caio Bonvenuto
// description:
// live_performance com teatro
// code:
//=====================================================================
//live-performance com samplers, alguns eletrônicos e controlador midi
//=====================================================================


/*

código ultilizado para live performance na peça teatral do agrupamento andar7:
"Fausto in Progress",
se constroi a partir de alguns eletronicos e manipulação de samplers ultilizando um
controlador midi Korg Nono Kontrol como interface.

*/




//======================================================================
//iniciando e alocando samplers na memória:
//======================================================================



b = ();
b.media = "/home/caio/live_1/media/*.wav".pathMatch.collect { |i| Buffer.read(s, i)};
b.new = "/home/caio/live_1/new/*.wav".pathMatch.collect { |i| Buffer.read(s, i)};

(

s = Server.local.boot;

MIDIIn.connect;


//=======================================================================
// synth`s para manipulação da leitura dos áudios
//=======================================================================




   SynthDef(\bufsampler,  {

   | vol = 0, rate=1, buf = 0 |
  
   var  phase = Phasor.ar(0, BufRateScale.kr(buf) * rate, 0, BufFrames.kr(buf));
   var  sinal = BufRd.ar(2, buf, phase , 1, 2)*vol;
                Out.ar(0, sinal);
 }).add;



   SynthDef(\bufsampler_1, { 

   | vol = 0, buf = 0, pulse = 5, alt = 1000, osc = 100 |
  
   var  phase = LFSaw.ar(Pulse.kr(pulse, osc), 0, alt);
   var  sinal = BufRd.ar(2, buf, phase)*vol;
                Out.ar(0, sinal);
 }).add;


   SynthDef(\bufsampler_2, {

   | buf = 0, vol = 0, time = 1, altura = 400 |  

   var  control = SinOsc.kr(time, 200, altura);
   var  phase   = SinOsc.ar(control)*BufFrames.ir(buf);
   var  sinal   = BufRd.ar(2, buf, phase)*vol;
                  Out.ar(0, sinal);
}).add;


   SynthDef(\bufsampler_3, {
  
   | buf = 0, vol = 0 |
  
   var phase = SinOsc.ar(0.007)*BufFrames.ir(0);
   var sinal = BufRd.ar(2, buf, phase)*vol;
               Out.ar(0, sinal);
 }).add;


   SynthDef(\bufsampler_4, {

   | vol = 0, buf = 0, velo = 2, alt = 0.02 |

   var control = {SinOsc.ar(velo, 0, alt)};
   var frames  = BufFrames.ir(buf);
   var phase   = Mix.new (Array.fill(2, control));
   var sinal   = BufRd.ar(2, buf, phase*frames)*vol;
                 Out.ar(0, sinal);
}).add;


   SynthDef(\bufsampler_5, {
   
   | buf = 0, vol = 0, time = 3, alt = 0 |
 
   var frames  = BufFrames.ir(buf);
   var phase   = LFNoise1.ar(time, 1, alt);
   var sinal   = BufRd.ar(2, buf, phase*frames)*vol;
                 Out.ar(0, sinal);
}).add;

 

   SynthDef(\bufsampler_6, {

   | buf = 0, velo = 1, vol = 0, rate = 1 |

   var frames = {BufFrames.ir(buf)*rate};
   var phase  = LFSaw.ar(velo);
   var sinal  = BufRd.ar(2, buf, phase*frames ) * vol;
                Out.ar(0, sinal);
}).add;


 
   SynthDef(\bufsampler_7, { 

   | vol = 0, buf = 0, vel = 5, alt  = 0.9 |

   var control = {LFNoise1.ar(vel, alt)};
   var sinal   = Mix.new(Array.fill(2, control));
   var out     = BufRd.ar(2, buf, sinal * BufFrames.ir(buf))*vol;
                 Out.ar(0,out);

 }).add;





//========================================================================
// definições de synths eletronicos
//========================================================================


    SynthDef(\eletronicos, {

    |  freq = 440, amp = 1.0, endReflection = 0.5,
       jetReflection = 0.5, jetRatio = 0.32, noiseGain = 0.15,
       vibFreq = 5.925, vibGain = 0.0, outputGain = 0               |


	var adsr           = (amp*0.2) + EnvGen.ar(
                 Env.adsr(0.005, 0.01, 1.1, 0.01), 1, doneAction: 2);
	var noise          = WhiteNoise.ar(noiseGain);
	var vibrato        = SinOsc.ar(vibFreq, 0, vibGain);
	var delay          = (freq*0.66666).reciprocal;
	var lastOut        = LocalIn.ar(1);
	var breathPressure = adsr*Mix([1.0, noise, vibrato]);
	var filter         = LeakDC.ar(OnePole.ar(lastOut.neg, 0.7));
	var pressureDiff   = breathPressure - (jetReflection*filter);
	var jetDelay       = DelayL.ar(pressureDiff, 0.025, delay*jetRatio);
	var jet            = (jetDelay * (jetDelay.squared - 1.0)).clip2(1.0);
	var boreDelay      = DelayL.ar(jet + (endReflection*filter), 0.05, delay);
	                     LocalOut.ar(boreDelay);
	                     Out.ar(0, Pan2.ar(0.3*boreDelay*outputGain));
                       
}).add; 


    SynthDef(\walkingBass, { 
  
    | trig = 2, vol = 0.7 |
 
      
    var  trigger =  Impulse.kr(trig);
    var  freq    =  TRand.kr(30, 50, trigger).midicps;
    var  sinal   =  SinOsc.ar(freq);  
    var  out     =  Pan2.ar(sinal, TRand.kr(-1.0, 1.0, trigger));
                    Out.ar(0, out*vol)

  }).add;


    SynthDef(\pan, { 
   
    | velPan = 2, freqAmp = 100, quantNote = 10, vol = 0.7 |

    var line   = Dseq([-0.9, -0.7, -0.5, -0.3, -0.1,
 0.2, 0.4, 0.6, 0.8, 0.5, 0.3, 0.1, -0.2, -0.4, -0.6, -0.8], inf);
    var test   = Demand.kr(Impulse.kr(velPan), 0, line);
    var lfo    = LFNoise0.kr(quantNote, freqAmp, freqAmp*5);
    var sinal  = SinOsc.ar(lfo);
    var pan    = Pan2.ar(sinal, test);
                 Out.ar(0, pan*vol);
}).add;


   SynthDef(\bass, {
     
   | vol = 0.7, vel = 2, rangerA = 30, rangerB = 80 |

   var sinal = SinOsc.ar(SinOsc.kr(vel).range(rangerA, rangerB));
                 Out.ar(0, sinal*vol);
 }).add;



  SynthDef(\osc, {
 
  | pulse = 0.02, osci  = 0.01 |

  var trigger = TRand.kr(Line.kr(0, 0.4, 0.02), Line.kr(0, 0.7, 0.02));
  var env = EnvGen.kr(Env.perc(0.001, 3.05, 0.5, 0.5, -30), trigger, doneAction:3);
  var control  = LFNoise2.ar([osci, osci+2, osci*4]).range(60.0, 90.0);
  var sinal = Mix.ar(SinOsc.ar(control, 0,  env));
              Out.ar(0, sinal*0.07)
 }).store;


  SynthDef(\osci, {
 
  | freq = #[200, 220], pulse = 0.01, osci  = 0.01, vol = 0.3 |

  var trigger = Pulse.kr(0.001);
  var env = EnvGen.kr(Env.perc(), trigger, doneAction:3);
  var sinal = Mix.ar(SinOsc.ar(freq, 0,  env));
              Out.ar(0, Pan2.ar(sinal*vol, Line.kr(-1, 1, 3)))
  }).store;





//=======================================================================
// definindo variáveis globais
//=======================================================================


//cena 1 (controlador midi)

~s_001  = Synth.newPaused(\bufsampler_5, [\buf, b.media[0].bufnum, \vol, 0]);
~s_002  = Synth.newPaused(\bufsampler_4, [\buf, b.media[1].bufnum, \vol, 0]);
~s_003  = Synth.newPaused(\bufsampler_2, [\buf, b.media[2].bufnum, \vol, 0]);
~s_004  = Synth.newPaused(\bufsampler_6, [\buf, b.media[3].bufnum, \vol, 0]);
~s_005  = Synth.newPaused(\bufsampler_7, [\buf, b.media[4].bufnum, \vol, 0]);
~s_006  = Synth.newPaused(\bufsampler_7, [\buf, b.media[5].bufnum, \vol, 0]);
~s_007  = Synth.newPaused(\bufsampler_5, [\buf, b.media[6].bufnum, \vol, 0]);
~s_008  = Synth.newPaused(\bufsampler_5, [\buf, b.media[7].bufnum, \vol, 0]);
~s_009  = Synth.newPaused(\bufsampler_1, [\buf, b.media[0].bufnum, \vol, 0]);
~s_010  = Synth.newPaused(\bufsampler_2, [\buf, b.media[0].bufnum, \vol, 0]);
~s_011  = Synth.newPaused(\bufsampler_3, [\buf, b.media[0].bufnum, \vol, 0]);
~s_012  = Synth.newPaused(\bufsampler_4, [\buf, b.media[0].bufnum, \vol, 0]);
~s_013  = Synth.newPaused(\walkingBass,[\trig, 3]);
~s_014  = Synth.newPaused(\pan, [\velPan, 6, \freqAmp, 20, \quantNote, 200]);
~s_015  = Synth.newPaused(\eletronicos, [\freq, rand(200)]);
~s_016  = Synth.newPaused(\eletronicos,[\freq, rrand(20, 500)]);
~s_bass = Synth.newPaused(\bass, [\vel, 10, \rangerA, 40, \rangerB, 70]);

// cena 2 (controlador midi)


~s_021  = Synth.newPaused(\bufsampler_5, [\buf, b.media[9].bufnum,  \vol, 0]);
~s_022  = Synth.newPaused(\bufsampler_4, [\buf, b.media[10].bufnum, \vol, 0]);
~s_023  = Synth.newPaused(\bufsampler_2, [\buf, b.media[17].bufnum, \vol, 0]);
~s_024  = Synth.newPaused(\bufsampler_6, [\buf, b.media[13].bufnum, \vol, 0]);
~s_025  = Synth.newPaused(\bufsampler_7, [\buf, b.media[14].bufnum, \vol, 0]);
~s_026  = Synth.newPaused(\bufsampler_7, [\buf, b.media[12].bufnum, \vol, 0]);
~s_027  = Synth.newPaused(\bufsampler_5, [\buf, b.media[06].bufnum, \vol, 0]);
~s_028  = Synth.newPaused(\bufsampler_5, [\buf, b.media[01].bufnum, \vol, 0]);
~s_029  = Synth.newPaused(\bufsampler_1, [\buf, b.media[03].bufnum, \vol, 0]);
~s_030  = Synth.newPaused(\bufsampler_2, [\buf, b.media[06].bufnum, \vol, 0]);
~s_031  = Synth.newPaused(\bufsampler_3, [\buf, b.media[18].bufnum, \vol, 0]);
~s_032  = Synth.newPaused(\bufsampler_4, [\buf, b.media[17].bufnum, \vol, 0]);
~s_033  = Synth.newPaused(\walkingBass,[\trig, 3]);
~s_034  = Synth.newPaused(\pan, [\velPan, 6, \freqAmp, 20, \quantNote, 200]);
~s_035  = Synth.newPaused(\eletronicos, [\freq, rand(200)]);
~s_036  = Synth.newPaused(\eletronicos,[\freq, rrand(20, 500)]);


 //cena 3 (Controlador Midi)


~s_041  = Synth.newPaused(\bufsampler_3, [\buf, b.new[0].bufnum, \vol, 0]);
~s_042  = Synth.newPaused(\bufsampler_4, [\buf, b.new[1].bufnum, \vol, 0]);
~s_043  = Synth.newPaused(\bufsampler_2, [\buf, b.new[2].bufnum, \vol, 0]);
~s_044  = Synth.newPaused(\bufsampler_6, [\buf, b.new[3].bufnum, \vol, 0.7]);
~s_045  = Synth.newPaused(\bufsampler_7, [\buf, b.new[4].bufnum, \vol, 0]);
~s_046  = Synth.newPaused(\bufsampler_7, [\buf, b.new[5].bufnum, \vol, 0]);
~s_047  = Synth.newPaused(\bufsampler_5, [\buf, b.new[6].bufnum, \vol, 0]);
~s_048  = Synth.newPaused(\bufsampler_5, [\buf, b.new[7].bufnum, \vol, 0]);
~s_049  = Synth.newPaused(\bufsampler_1, [\buf, b.new[8].bufnum, \vol, 0]);
~s_050  = Synth.newPaused(\bufsampler_2, [\buf, b.new[9].bufnum, \vol, 0]);
~s_051  = Synth.newPaused(\bufsampler_3, [\buf, b.new[10].bufnum, \vol, 0]);
~s_052  = Synth.newPaused(\bufsampler_4, [\buf, b.new[11].bufnum, \vol, 0]);
~s_053  = Synth.newPaused(\walkingBass,[\trig, 3]);
~s_054  = Synth.newPaused(\pan, [\velPan, 6, \freqAmp, 20, \quantNote, 200]);
~s_055  = Synth.newPaused(\eletronicos, [\freq, rand(200)]);
~s_056  = Synth.newPaused(\eletronicos,[\freq, rrand(20, 500)]);
p = Pbind(\instrument, \osc,\dur, Pseq([2, 3, 5], inf)/8,\vol, 0.9).play.stop;


// cena 4 (controlador midi)

~s_061  = Synth.newPaused(\bufsampler, [\buf, b.media[0].bufnum, \vol, 0]);
~s_062  = Synth.newPaused(\bufsampler, [\buf, b.media[1].bufnum, \vol, 0]);
~s_063  = Synth.newPaused(\bufsampler, [\buf, b.media[2].bufnum, \vol, 0]);
~s_064  = Synth.newPaused(\bufsampler, [\buf, b.media[3].bufnum, \vol, 0]);
~s_065  = Synth.newPaused(\bufsampler, [\buf, b.media[4].bufnum, \vol, 0]);
~s_066  = Synth.newPaused(\bufsampler, [\buf, b.media[5].bufnum, \vol, 0]);
~s_067  = Synth.newPaused(\bufsampler, [\buf, b.media[6].bufnum, \vol, 0]);
~s_068  = Synth.newPaused(\bufsampler, [\buf, b.media[7].bufnum, \vol, 0]);
~s_069  = Synth.newPaused(\bufsampler, [\buf, b.media[0].bufnum, \vol, 0]);
~s_070  = Synth.newPaused(\bufsampler, [\buf, b.media[0].bufnum, \vol, 0]);
~s_071  = Synth.newPaused(\bufsampler, [\buf, b.media[0].bufnum, \vol, 0]);
~s_072  = Synth.newPaused(\bufsampler, [\buf, b.media[0].bufnum, \vol, 0]);
~s_073  = Synth.newPaused(\walkingBass,[\trig, 3]);
~s_074  = Synth.newPaused(\pan, [\velPan, 6, \freqAmp, 20, \quantNote, 200]);
~s_075  = Synth.newPaused(\eletronicos, [\freq, rand(200)]);
~s_076  = Synth.newPaused(\eletronicos,[\freq, rrand(20, 500)]);



//====================================================================
// programação do controlador midi
//====================================================================



MIDIIn.control = { arg src, chan, num, vel;


[chan, num, vel].postln;


	//cena1 == trilha1//

case {[num, vel] == [23, 127]}   {~s_001.run(true)}
     {[num, vel] == [23, 0]}     {~s_001.run(false)}
            
     {num == 14}                 {~s_001.set(\alt, vel*299);
                                  ~s_002.set(\velo, vel/50, \alt, vel/200)}
     
     {num == 2}                  {~s_001.set(\vol, vel/127);
                                  ~s_002.set(\vol, vel/127)}

     {[ num, vel] == [33, 127]}  {~s_002.run(true)}
     {[ num, vel] == [33, 0]}    {~s_002.run(false)}


	//cena1 == trilha2//

     {[num, vel] == [24, 127]}   {~s_003.run(true)}
     {[num, vel] == [24, 0]}     {~s_003.run(false)}

     {num == 15}                 {~s_003.set(\altura, vel/100); 
                                  ~s_004.set(\rate, vel/50)}

     {num == 3}                  {~s_003.set(\vol, vel/127);    
                                  ~s_004.set(\vol, vel/127)}

     {[num, vel] == [34, 127]}   {~s_004.run(true)}
     {[num, vel] == [34, 0]}     {~s_004.run(false)}


	//cena1 == trilha3//

     {[num, vel] == [25, 127]}   {~s_005.run(true)}
     {[num, vel] == [25, 0]}     {~s_005.run(false)}

     {num == 16}                 {~s_005.set(\alt, vel*3);   
                                  ~s_006.set(\alt, vel/50)}

     {num == 4}                  {~s_005.set(\vol, vel/127); 
                                  ~s_006.set(\vol, vel/127)}
 
     {[num, vel] == [35, 127]}   {~s_006.run(true)}
     {[num, vel] == [35, 0]}     {~s_006.run(false)} 


	//cena1 == trilha4//

      {[num, vel] == [26, 127]}  {~s_007.run(true)}
      {[num, vel] == [26, 0]}    {~s_007.run(false)}

      {num == 17}                {~s_007.set(\rate, vel/50)}
      {num == 5}                 {~s_007.set(\vol, vel)}

      {[num, vel] == [36, 127]}  {~s_008.run(true)}
      {[num, vel] == [36, 0]}    {~s_008.run(false)}

      {num == 17}                {~s_008.set(\time, vel/127)}

    //    if( num == 5,  {~s_008.set(\vol, vel)});

	//cena1 == trilha5//

      {[num, vel] == [27, 127]}  {~s_bass.run(true)}
      {[num, vel] == [27, 0]}    {~s_bass.run(false)}
          
      {num == 18}                {~s_bass.set(\vel, vel/5);
                                  ~s_010.set(\buf, vel/80)}

      {num == 6}                 {~s_bass.set(\vol, vel/127);
                                  ~s_010.set(\vol, vel/127)}

      {[num, vel] == [37, 127]}  {~s_010.run(true)}
      {[num, vel] == [37, 0]}    {~s_010.run(false)}
           

	//cena1 == trilha6//

      {[num, vel] == [28, 127]}  {~s_011.run(true)}
      {[num, vel] == [28, 0]}    {~s_011.run(false)}
          
      {num == 19}                {~s_011.set(\buf,vel/80);
                                  ~s_012.set(\buf, vel/80)}

      {num == 8}                 {~s_011.set(\vol, vel/127);
                                  ~s_012.set(\vol, vel/127)}

      {[num, vel] == [38, 127]}  {~s_012.run(true)}
      {[num, vel] == [38, 0]}    {~s_012.run(false)}
          

	//cena1 == trilha7//

      {[num, vel] == [29, 127]}  {~s_013.run(true)}
      {[num, vel] == [29, 0]}    {~s_013.run(false)}
            
      {num == 20}                {~s_013.set(\trig, vel/127*15);
                                  ~s_014.set(\freqAmp, vel, \quantNote, vel*1600)}

      {num == 9}                 {~s_013.set(\vol, vel/127);
                                  ~s_014.set(\vol, vel/127)}

      {[num, vel] == [39, 127]}  {~s_014.run(true)}
      {[num, vel] == [39, 0]}    {~s_014.run(false)}
            

	//cena1 == trilha 8 e 9//

      {[num, vel] == [30,127]}   {~s_015.run(true)}
      {[num, vel] == [40, 127]}  {~s_015.run(false)}
      {[num, vel] == [31, 127]}  {~s_016.run(true)}
      {[num, vel] == [41, 127]}  {~s_016.run(false)}


      {num == 21}                {~s_015.set(\jetRatio, vel/80)}
      {num == 22}                {~s_016.set(\jetRatio, vel/80)}
      {num == 12}                {~s_015.set(\outputGain, vel/100)}
      {num == 13}                {~s_016.set(\outputGain, vel/100)} 


            	//cena2


	//cena2 == trilha1//



     {[num, vel] == [67, 127]}   {~s_021.run(true)}
     {[num, vel] == [67, 0]}     {~s_021.run(false)}
            
     {num == 57}                 {~s_021.set(\alt, vel*299);
                                  ~s_022.set(\velo, vel/50, \alt, vel/200)}

     {num == 42}                  {~s_021.set(\vol, vel/127);
                                   ~s_022.set(\vol, vel/127)}

     {[ num, vel] == [76, 127]}  {~s_022.run(true)}
     {[ num, vel] == [76, 0]}    {~s_022.run(false)}


	//cena2 == trilha2//

     {[num, vel] == [68, 127]}   {~s_023.run(true)}
     {[num, vel] == [68, 0]}     {~s_023.run(false)}

     {num == 58}                 {~s_023.set(\altura, vel/100);
                                  ~s_024.set(\rate, vel/50)}

     {num == 43}                 {~s_023.set(\vol, vel/127);
                                  ~s_024.set(\vol, vel/127)}

     {[num, vel] == [77, 127]}   {~s_024.run(true)}
     {[num, vel] == [77, 0]}     {~s_024.run(false)}


	//cena2 == trilha3//

     {[num, vel] == [69, 127]}   {~s_025.run(true)}
     {[num, vel] == [69, 0]}     {~s_025.run(false)}

     {num == 59}                 {~s_025.set(\alt, vel*3);
                                  ~s_026.set(\alt, vel/50)}

     {num == 50}                 {~s_025.set(\vol, vel/127);
                                  ~s_026.set(\vol, vel/127)}
 
     {[num, vel] == [78, 127]}   {~s_026.run(true)}
     {[num, vel] == [78, 0]}     {~s_026.run(false)} 


	//cena2 == trilha4//

      {[num, vel] == [70, 127]}  {~s_027.run(true)}
      {[num, vel] == [70, 0]}    {~s_027.run(false)}

      {num == 60}                {~s_027.set(\rate, vel/50);
                                  ~s_028.set(\time, vel/127)}

      {num == 51}                {~s_027.set(\vol, vel)}

      {[num, vel] == [79, 127]}  {~s_028.run(true)}
      {[num, vel] == [79, 0]}    {~s_028.run(false)}



    //    if( num == 5,  {~s_008.set(\vol, vel)});

	//cena2 == trilha5//

      {[num, vel] == [71, 127]}  {~s_029.run(true)}
      {[num, vel] == [71, 0]}    {~s_029.run(false)}
          
      {num == 61}                {~s_029.set(\buf, vel); 
                                  ~s_030.set(\buf, vel/80)}

      {num == 52}                {~s_009.set(\vol, vel/127);
                                  ~s_30.set(\vol, vel/127)}

      {[num, vel] == [80, 127]}  {~s_030.run(true)}
      {[num, vel] == [80, 0]}    {~s_030.run(false)}
            

	//cena2 == trilha6//

      {[num, vel] == [72, 127]}  {~s_031.run(true)}
      {[num, vel] == [72, 0]}    {~s_031.run(false)}
          
      {num == 62}                {~s_031.set(\buf,vel/80);
                                  ~s_032.set(\buf, vel/80)}

      {num == 53}                {~s_031.set(\vol, vel/127);
                                  ~s_032.set(\vol, vel/127)}

      {[num, vel] == [81, 127]}  {~s_032.run(true)}
      {[num, vel] == [81, 0]}    {~s_032.run(false)}
           


	//cena2 == trilha7//

      {[num, vel] == [73, 127]}  {~s_033.run(true)}
      {[num, vel] == [73, 0]}    {~s_033.run(false)}
            
      {num == 63}                {~s_033.set(\trig, vel/127*15);
                                  ~s_034.set(\freqAmp, vel, \quantNote, vel*1600)}

      {num == 54}                {~s_033.set(\vol, vel/127);
                                  ~s_034.set(\vol, vel/127)}

      {[num, vel] == [82, 127]}  {~s_034.run(true)}
      {[num, vel] == [82, 0]}    {~s_034.run(false)}
            
          
	//cena2 == trilha 8 e 9//

      {[num, vel] == [74,127]}   {~s_035.run(true)}
      {[num, vel] == [83, 127]}  {~s_035.run(false)}
      {[num, vel] == [75, 127]}  {~s_036.run(true)}
      {[num, vel] == [84, 127]}  {~s_036.run(false)}


      {num == 65}                {~s_035.set(\jetRatio, vel/80)}
      {num == 66}                {~s_036.set(\jetRatio, vel/80)}
      {num == 55}                {~s_035.set(\outputGain, vel/100)}
      {num == 56}                {~s_036.set(\outputGain, vel/100)} 

   
	                 // cena 3

	//cena3 == trilha1//



     {[num, vel] == [107, 127]}   {~s_041.run(true)}
     {[num, vel] == [107, 0]}     {~s_041.run(false)}
            
     {num == 94}                  {~s_041.set(\time, vel/80, \alt, vel/200);
                                   ~s_042.set( \alt, vel/2000)}

     {num == 85}                  {~s_041.set(\vol, vel/127);
                                   ~s_042.set(\vol, vel/127)}

     {[ num, vel] == [116, 127]}  {~s_042.run(true)}
     {[ num, vel] == [116, 0]}    {~s_042.run(false)}


	//cena3 == trilha2//

     {[num, vel] == [108, 127]}   {~s_043.run(true)}
     {[num, vel] == [108, 0]}     {~s_043.run(false)}

     {num == 95}                  {~s_043.set(\altura, vel/100);
                                   ~s_044.set(\rate, vel/50)}

     {num == 86}                  {~s_043.set(\vol, vel/127);
                                   ~s_044.set(\vol, vel/127)}

     {[num, vel] == [117, 127]}   {~s_044.run(true)}
     {[num, vel] == [117, 0]}     {~s_044.run(false)}


	//cena3 == trilha3//

     {[num, vel] == [109, 127]}   {~s_045.run(true)}
     {[num, vel] == [109, 0]}     {~s_045.run(false)}

     {num == 96}                  {~s_045.set(\alt, vel*3);
                                   ~s_046.set(\alt, vel/50)}

     {num == 87}                  {~s_045.set(\vol, vel/127);
                                   ~s_046.set(\vol, vel/127)}
 
     {[num, vel] == [118, 127]}   {~s_046.run(true)}
     {[num, vel] == [118, 0]}     {~s_046.run(false)} 


	//cena3 == trilha4//

      {[num, vel] == [110, 127]}  {~s_047.run(true)}
      {[num, vel] == [110, 0]}    {~s_047.run(false)}

      {num == 97}                 {~s_047.set(\rate, vel/50);
                                   ~s_048.set(\time, vel/127)}

      {num == 88}                 {~s_047.set(\vol, vel)}

      {[num, vel] == [119, 127]}  {~s_048.run(true)}
      {[num, vel] == [119, 0]}    {~s_048.run(false)}


    //    if( num == 5,  {~s_008.set(\vol, vel)});

	//cena3 == trilha5//

     {[num, vel] == [111, 127]}  {p.play}  
   
     {[num, vel] == [111, 0]}    {p.pause}
          
     {num == 102}                {~s_050.set(\buf, vel/80)}

     {num == 89}                 {~s_050.set(\vol, vel/127)}

     {[num, vel] == [120, 127]}  {~s_050.run(true)}
     {[num, vel] == [120, 0]}    {~s_050.run(false)}
           

	//cena3 == trilha6//

      {[num, vel] == [112, 127]}  {~s_051.run(true)}
      {[num, vel] == [112, 0]}    {~s_051.run(false)}
          
      {num == 103}                {~s_051.set(\buf,vel/80);
                                   ~s_052.set(\buf, vel/80)}

      {num == 90}                 {~s_051.set(\vol, vel/127);
                                   ~s_052.set(\vol, vel/127)}

      {[num, vel] == [121, 127]}  {~s_052.run(true)}
      {[num, vel] == [121, 0]}    {~s_052.run(false)}
         

	//cena3 == trilha7//

      {[num, vel] == [113, 127]}  {~s_053.run(true)}
      {[num, vel] == [113, 0]}    {~s_053.run(false)}
            
      {num == 104}                {~s_053.set(\trig, vel/127*15);
                                   ~s_054.set(\freqAmp, vel, \quantNote, vel*1600)}

      {num == 91}                 {~s_053.set(\vol, vel/127);
                                   ~s_054.set(\vol, vel/127)}

      {[num, vel] == [122, 127]}  {~s_054.run(true)}
      {[num, vel] == [122, 0]}    {~s_054.run(false)}
            

	//cena3 == trilha 8 e 9//

      {[num, vel] == [114,127]}   {~s_055.run(true)}
      {[num, vel] == [123, 127]}  {~s_055.run(false)}
      {[num, vel] == [115, 127]}  {~s_056.run(true)}
      {[num, vel] == [124, 127]}  {~s_056.run(false)}


      {num == 105}                {~s_055.set(\jetRatio, vel/80)}
      {num == 106}                {~s_056.set(\jetRatio, vel/80)}
      {num == 92}                {~s_055.set(\outputGain, vel/100)}
      {num == 93}                {~s_056.set(\outputGain, vel/100)}; 


            	//cena4


	//cena4 == trilha1//



    case { [chan, num, vel] == [0, 16, 127] }      { ~s_061.run(true) }
         { [chan, num, vel] == [0, 16, 0] }        {~s_061.run(false)}

            
     {[chan, num] == [0, 10]}                  {~s_061.set(\rate, vel/127);
                                                 ~s_062.set(\rate, vel/127)}

     {[chan, num] == [0,  7]}                  {~s_061.set(\vol, vel/127);
                                                ~s_062.set(\vol, vel/127)}

     {[chan, num, vel] == [0, 17, 127]}  {~s_062.run(true)}
     {[chan, num, vel] == [0, 17, 0]}    {~s_062.run(false)}


	//cena4 == trilha2//

     {[chan, num, vel] == [1, 16, 127]}   {~s_063.run(true)}
     {[chan, num, vel] == [1, 16, 0]}     {~s_063.run(false)}

     {[chan, num] == [1, 10]}                 {~s_063.set(\rate, vel/100);
                                                ~s_064.set(\rate, vel/50)}

     {[chan, num] == [1, 7]}                  {~s_063.set(\vol, vel/127);
                                               ~s_064.set(\vol, vel/127)}

     {[chan, num, vel] == [1, 17, 127]}   {~s_064.run(true)}
     {[chan, num, vel] == [1, 17, 0]}     {~s_064.run(false)}


	//cena4 == trilha3//

     {[chan, num, vel] == [2, 16, 127]}   {~s_065.run(true)}
     {[chan, num, vel] == [2, 16, 0]}     {~s_065.run(false)}

     {[chan, num] == [2, 10]}                 {~s_065.set(\rate, vel*3);
                                               ~s_066.set(\rate, vel/50)}

     {[chan, num] == [2, 7]}                  {~s_065.set(\vol, vel/127);
                                               ~s_066.set(\vol, vel/127)}
 
     {[chan, num, vel] == [2, 17, 127]}   {~s_066.run(true)}
     {[chan, num, vel] == [2, 17, 0]}     {~s_066.run(false)} 


	//cena4 == trilha4//

      {[chan, num, vel] == [3, 16, 127]}  {~s_067.run(true)}
      {[chan, num, vel] == [3, 16, 0]}    {~s_067.run(false)}

      {[chan, num] == [3, 10]}                {~s_067.set(\rate, vel/50);
                                                ~s_068.set(\vol, vel/127)}

      {[chan, num] == [3, 7]}                 {~s_067.set(\vol, vel)}

      {[chan, num, vel] == [3, 17, 127]}  {~s_068.run(true)}
      {[chan, num, vel] == [3, 17, 0]}    {~s_068.run(false)}



    //    if( num == 5,  {~s_008.set(\vol, vel)});

	//cena4 == trilha5//

      {[chan, num, vel] == [4, 16, 127]}  {~s_069.run(true)}
      {[chan, num, vel] == [4, 16, 0]}    {~s_069.run(false)}
          
      {[chan, num] == [4, 10]}                {~s_069.set(\rate, vel/127);
                                               ~s_070.set(\rate, vel/127)}

      {[chan, num] == [4, 7]}                 {~s_069.set(\vol, vel/127);
                                               ~s_070.set(\vol, vel/127)}

      {[chan, num, vel] == [4, 17, 127]}  {~s_070.run(true)}
      {[chan, num, vel] == [4, 17, 0]}    {~s_070.run(false)}
            

	//cena4 == trilha6//

      {[chan, num, vel] == [5, 16, 127]}  {~s_071.run(true)}
      {[chan, num, vel] == [5, 16, 0]}    {~s_071.run(false)}
          
      {[chan, num] == [5, 10]}                {~s_071.set(\rate,vel/127);
                                               ~s_072.set(\rate, vel/127)}

      {[chan, num] == [5, 7]}                 {~s_071.set(\vol, vel/127);
                                                ~s_072.set(\vol, vel/127)}

      {[chan, num, vel] == [5, 17, 127]}  {~s_072.run(true)}
      {[chan, num, vel] == [5, 17, 0]}    {~s_072.run(false)}
          

	//cena4 == trilha7//

      {[chan, num, vel] == [6, 16, 127]}  {~s_073.run(true)}
      {[chan, num, vel] == [6, 16, 0]}    {~s_073.run(false)}
            
      {[chan, num] == [6, 10]}                {~s_073.set(\rate, vel/127*15);
                                              ~s_074.set(\freqAmp, vel, \quantNote, vel*1600)}

      {[chan, num] == [6, 7]}                 {~s_073.set(\vol, vel/127);
                                               ~s_074.set(\vol, vel/127)}

      {[chan, num, vel] == [6, 17, 127]}  {~s_074.run(true)}
      {[chan, num, vel] == [6, 17, 0]}    {~s_074.run(false)}
            

	//cena4 == trilha 8 e 9//

      {[chan, num, vel] == [7, 16, 127]}   {~s_075.run(true)}
      {[chan, num, vel] == [7, 17, 127]}  {~s_075.run(false)}
      {[chan, num, vel] == [8, 16, 127]}  {~s_076.run(true)}
      {[chan, num, vel] == [8, 17, 127]}  {~s_076.run(false)}


      {[chan, num] == [7, 10]}                {~s_075.set(\jetRatio, vel/80)}
      {[chan, num] == [7, 7]}                {~s_076.set(\jetRatio, vel/80)}
      {[chan, num] == [8, 10]}                {~s_075.set(\outputGain, vel/100)}
      {[chan, num] == [8, 7]}                {~s_076.set(\outputGain, vel/100)} 



};)