////////////////////////////     Primer código   /////////////////////////
/*(
s=Server.local;
s.boot;
)*/
(
SynthDef(\gam, {|gate=1, scale=1, dur=3|
var sig, filtro, env;
sig=Decay2.ar(Impulse.ar(0.1), 0.003,0.005, WhiteNoise.ar);
filtro=Klank.ar(`[Array.series(5,250.0,500.0)++Array.rand(5,1000.0,10000.0),[0.12,0.1,0.15],[1.5,1.02,1.01,0.3,0.2,0.222,0.17,0.8,0.85,0.3]], sig, scale)!2;
env=EnvGen.kr(Env.perc(0.01,dur), doneAction:2);
Out.ar([0,1],filtro*env)
}).send(s);
);
/*
Synth(\gam, [\scale, 0.midiratio])
*/
////////////////////
(
SynthDef(\gmbajo, {|gate=1, scale=1, dur=3, atk=4, sus=7, rel=7|
var sig, filtro, env;
sig=Decay.ar(Impulse.ar(Rand(0.8, 2.2)), 0.03, ClipNoise.ar(0.01));
filtro=Klank.ar(`[[ 493.88330125612, 987.76660251224, 2067.8436756134, 2923.7456798553, 1450.9098291397, 785.13991832733, 3099.7180461884, 1084.103679657, 3622.4365711212, 3710.0549221039, 1232.7631473541, 3090.5738830566],0.04,[ 20.78649399280548, 12.63628528118134, 3.2333890318871, 2.73653223514557, 1.75404231548309, 2.0305751085281, 2.7691316246986, 1.9776942849159, 2.47652606964111, 1.1023184657097, 1.4777442097664, 1.3589450597763 ]], sig, scale)!2;
env=EnvGen.kr(Env.linen(atk, sus, rel, 1, 4), doneAction:2);
Out.ar([0,1],filtro*env)
}).send(s);
);
/*
Synth(\gmbajo, [\scale, 0.midiratio])
*/
//////////////////
(
SynthDef(\gmbas, {|gate=1, scale=1, dur=5|
var sig, filtro, env;
sig=Decay2.ar(Impulse.ar(0.1), 0.003,0.005, WhiteNoise.ar);
filtro=Klank.ar(`[[123.47082531403, 246.94165062806, 493.88330125612, 987.76660251224, 2067.8436756134, 2923.7456798553, 1450.9098291397, 785.13991832733, 1084.103679657, 3622.4365711212, 1232.7631473541, 3090.5738830566],0.06,[ 25.78649399280548, 25.63628528118134, 15.2333890318871, 7.73653223514557, 1.75404231548309, 2.0305751085281, 2.7691316246986, 1.9776942849159, 2.47652606964111, 1.1023184657097, 1.4777442097664, 1.3589450597763 ]], sig, scale)!2;
env=EnvGen.kr(Env.perc(0.01,dur), doneAction:2);
Out.ar([0,1],filtro*env)
}).send(s);
);
/*
Synth(\gmbas, [\scale, 0.midiratio])
*/
/////////////////////
(
SynthDef(\tmbr, {var sig, env;
sig=WhiteNoise.ar(0.05);
env=EnvGen.kr(Env.perc(0.08,0.3),doneAction:2);
Out.ar([0,1],sig*env)
}).send(s);
);
////////////////////////////////////
(
SynthDef(\tmbr0, {var sig, env;
sig=SinOsc.ar(1360,0,0.15);
env=EnvGen.kr(Env.perc(0.005,0.2),doneAction:2);
Out.ar([0,1],sig*env)
}).send(s);
);
////////////////////////////////////
(
SynthDef(\tmbr1, {|freq=123|
var sig, env;
sig=SinOsc.ar(freq,0,0.34);
env=EnvGen.kr(Env.perc(0.005,0.5,2,-4),doneAction:2);
Out.ar([0,1],sig*env)
}).send(s);
);
////////////////////////////////////
(
SynthDef(\tmbr2, {|freq=165,amp=0.2|
var sig, env;
sig=SinOsc.ar(freq,0,amp);
env=EnvGen.kr(Env.perc(0.005,0.5,2,-4),doneAction:2);
Out.ar([0,1],sig*env)
}).send(s);
);
///////////////////////////////////////
(
SynthDef(\tmbr3, {|freq= 329.6, amp=0.2|
var sig, env, ataq;
ataq=EnvGen.ar(Env([1,0],[0.1]));
sig=SinOsc.ar(Line.kr(freq*1.2,freq*[1,1.1],0.01),0,amp);
env=EnvGen.kr(Env.perc(0.005,0.2,1,-4),doneAction:2);
Out.ar([0,1],sig*env)
}).send(s);
);
///////////////////////////////////////
(
SynthDef(\tmbr4, {|freq= 233, amp=0.3|
var sig, env, ataq;
ataq=EnvGen.ar(Env([1,0],[0.1]));
sig=SinOsc.ar(Line.kr(freq*1.2,freq*[1,1.1],0.02),0,amp);
env=EnvGen.kr(Env.perc(0.005,0.2,1,-4),doneAction:2);
Out.ar([0,1],sig*env)
}).send(s);
);
/////////////////////////
(
SynthDef(\bombo, {|freq=92.49, dur=1.2, amp=0.4|
var sig, env, ataque;
ataque=EnvGen.ar(Env([1,0],[0.01]));
sig=SinOsc.ar(Line.kr(freq*1.2,freq*[1,1.1],0.1),0,amp);
env=EnvGen.kr(Env.perc(0.01,dur),doneAction:2);
Out.ar([0,1], (sig+ataque)*env);
}).send(s)
);
/*
Synth(\bombo).play
*/
/////////////
(SynthDef(\silencio, { }).send(s));
////////////////////////////
/*
Synth(\tmbr).play;
Synth(\tmbr0).play;
Synth(\tmbr1).play;
Synth(\tmbr2).play;
Synth(\tmbr3).play;
Synth(\tmbr4).play;
Synth(\bombo).play;
Synth(~arrayDuo[0]);
Synth(~arrayDuo[1]);
*/
///////////////////////////
(
(Tdef(\tklan,{4.do{Synth(\gmbajo, [\scale, [0,4,5,7,12,].choose.midiratio]);0.5.wait;}}));
(Tdef(\tklan2,{4.do{Synth(\gmbajo, [\scale, [-5,0,4,5,7].choose.midiratio]);[1,0.25,0.5,0.5].choose.wait;}}));
(Tdef(\tklan3,{4.do{Synth(\gmbajo, [\scale, [-12,-8,-7].choose.midiratio]);[1,0.5].choose.wait;}}));
(Tdef(\tklan4,{4.do{Synth(\gmbajo, [\scale, [19,23,24].choose.midiratio]);[0.25,0.5,0.25,0.125].choose.wait;}}));
(Tdef(\tbom,{inf.do{Synth(\bombo );([3,2,2,0.5]-0.25).choose.wait;}}));

);
/*
Tdef(\tklan).play;
Tdef(\tklan2).play;
Tdef(\tklan3).play;
Tdef(\tklan4).play;
Tdef(\tbom).play;

Tdef(\tklan).stop;
Tdef(\tklan2).stop;
Tdef(\tklan3).stop;
Tdef(\tklan4).stop;
Tdef(\tbom).stop;
*/

(
~arrayRitmo=([1/4, 1/8, 1/4, 1/8, 1/8, 1/8, 3/8, 1/8, 1/4, 1/8, 1/8 ] *1);
~arrayAltura=[0,-1,0,5,0,7,-1,0,4,7,5];
~arrayAltura2=[-24,-19,-12];
~arrayRitmo2=([1/4,1/8,1/4,7/8,1/4,1/4]*1);
);
(
~arrayDuo=[\tmbr1,\tmbr2,\tmbr2,\tmbr2,\tmbr1,\tmbr1,\tmbr2,\tmbr2];
~arrayRit0=([1/8,1/8]*4);
~arrayRit1=([1/8,3/8]*1);
~arrayRit2=([1/6,3/24,2/24,3/24,1/8,1/8,1/16,3/16]*2);

);
/*(
~arrayRitmo=([1/4, 1/8, 1/4, 1/8, 1/8, 1/8, 3/8, 1/8, 1/4, 1/8, 1/8 ] *1).scramble;
~arrayAltura=[0,-1,0,5,0,7,-1,0,4,7,5].scramble;
~arrayAltura2=[-24,-19,-12].scramble;
~arrayRitmo2=([1/4,1/8,1/4,7/8,1/4,1/4]*1).scramble;
~arrayRitmo3=([1/8,1/8]*4).scramble;
~arrayRitmo4=([1/8,3/8]*1).scramble;
)*/
///.scramble
////////////////
( ~arrayRg1=([1/6,3/24,2/24,3/24,1/8,1/8,1/16,3/16] *4);
~arrayAg1=[-1,3,3,3,0,0,5,3];
Tdef(\g1, {
inf.do{| i |
Synth(\gmbas, [\scale, ~arrayAg1[i%~arrayAg1.size].midiratio]);
~arrayRg1[i%~arrayRg1.size].wait;
}
}).quant_(0)
);
////////////////
(
Tdef(\g2, {~arrayRg2=([1/8,1/4,1/4,1/4,1/4,1/4,1/4,1/4,1/8] *2);
~arrayAg2=[7,12,12,12,12,12,12,7,12];
inf.do{| i |
Synth(\gam, [\scale, ~arrayAg2[i%~arrayAg2.size].midiratio]);
~arrayRg2[i%~arrayRg2.size].wait;
}
}).quant_(0)
);
////////////////
~arrayRg3=([1/4,1/4,1/4,1/4,1/4,1/4,1/4,1/4] *4);
~arrayAg3=[0,0,0,0,0,0,-5,0];
(
Tdef(\g3, {
inf.do{| i |
Synth(\gmbas, [\scale, ~arrayAg3[i%~arrayAg3.size].midiratio]);
~arrayRg3[i%~arrayRg3.size].wait;
}
}).quant_(0)
);
////////////////
(
Tdef(\game0, {~arrayRg0=([1/4, 1/8, 1/4, 1/8, 1/8, 1/8, 3/8, 1/8, 1/4, 1/8, 1/8 ] *2);
~arrayAg0=[-1,0,0,3,0,-1,-7,-5];
inf.do{| i |
Synth(\gam, [\scale, ~arrayAg0[i%~arrayAg0.size].midiratio]);
~arrayRg0[i%~arrayRg0.size].wait;
}
}).quant_(0)
);
////////////////

~ritm1=([3/8, 1, 1/8,1/4,1/8,1/8,3/8,1,1/8,1/4,1/8,1/8,3/8,1,1/8,1/4,1/8,1/8,1/2,3/16,1/16,3/16,1/16,
1/16,1/16,1/16,1/16, 3/4]*2);
~ritm2=([1/8,1/4,1/4,1/4,1/8, 1/16,1/16,1/4,1/8,1/2, 1/8,1/8,1/8,1/8,1/8,1/8,1/8,1/8, 1/8,1/8,1/8,1/8,
1/8,1/8,1/16,1/16,1/8,1/2,1/2, 1/8,1/4,1/4,1/4,1/8]*2);
~melodia1=[-5, -5, -5, -6, -8, -8, -12, -12, -5, -6, -8, -12, -5, -5, -5, -6, -8, -8, -12, -12, -24, -12, -24,
-17,-19,-17,-13, -12]-12;
~melodia2=[-19, -19, -19, -19, -19, 51, -24, 51, -17, -19, -19, -17, -13, -17, -19, -17, -13, -17, -13, -17, -13, -12, -8,
51, -24, 51, -17, -19, -24, -12, -12, -12, -12, -12]-12;
(
Tdef(\gamelodia1, {
28.do{| i |
Synth(\gam, [\scale, ~melodia1[i%~melodia1.size].midiratio]);
~ritm1[i%~ritm1.size].wait;
}
}).quant_(0)
);
/*
Tdef(\gamelodia1).play;
*/
////////////////
(
Tdef(\gamelodia2, {
68.do{| i |
Synth(\gam, [\scale, ~melodia2[i%~melodia2.size].midiratio]);
~ritm2[i%~ritm2.size].wait;
}
}).quant_(0)
);
/*
Tdef(\gamelodia2).play;
*/
////////////////
(
Tdef(\game, {
inf.do{| i |
Synth(\gam, [\scale, ~arrayAltura[i%~arrayAltura.size].midiratio]);
~arrayRitmo[i%~arrayRitmo.size].wait;
}
}).quant_(0)
);

////////////////////////////
(
Tdef(\game2, {
inf.do{| i |
Synth(\gmbas, [\scale, ~arrayAltura2[i%~arrayAltura2.size].midiratio]);
~arrayRitmo2[i%~arrayRitmo2.size].wait;
}
}).quant_(0)
);

//////////////////////////////
(
Tdef(\gP1, {~arrayRgp1=[1/2,1,1/2]*4;
inf.do{| i |
Synth(\bombo);
~arrayRgp1[i%~arrayRgp1.size].wait;
}
}).quant_(0)
);
/*Tdef(\gP1).play;*/
//////////////////////////////
(
Tdef(\gP2, {~arrayRgp2=[1,2,5,9,10,12,14];
inf.do{| i |
if(~arrayRgp2.find([i%16])!=nil, {Synth(\tmbr3, [\freq, ([66,71]).midicps.choose])});
0.25.wait;
}
}).quant_(0)
);
//////////////////////////////
(
Tdef(\gP3, {~arrayRgp3=[1,2,3,5,6,7];
inf.do{| i |
if(~arrayRgp3.find([i%8])!=nil, {Synth(\tmbr2, [\freq, [58,51].midicps.choose] )});
0.25.wait;
}
}).quant_(0)
);
//////////////////////////////
(
Tdef(\gP4, {~arrayRgp4=[0,1,4,5,7,8,11,12,13];
inf.do{| i |
if(~arrayRgp4.find([i%16])!=nil, {Synth(\tmbr2, [\freq, [42,47].midicps.choose] )});
0.125.wait;
}
}).quant_(0)
);
//////////////////////////////
(
Tdef(\gP5, {~arrayRgp5=[1/12, 1/12, 1/12, 1/12, 1/12, 1/12]*2.5;
~arrayAgp5=[51, 63.32, 63, 51.3, 63, 63.32];
inf.do{| i |
Synth(\tmbr2, [\freq, ~arrayAgp5[i%~arrayAgp5.size].midicps]);
~arrayRgp5[i%~arrayRgp5.size].wait;
}
}).quant_(0)
);
//////////////////////////////
(
Tdef(\gP6, {~arrayRgp6=[1/12, 1/12, 1/12, 1/12, 1/12, 1/12, 3/16,1/16,1/4]*2;
~arrayAgp6=[ 63.32, 63, 51.3, 63, 63.32,63.3,51,63];
10.do{| i |
Synth(\tmbr2, [\freq, ~arrayAgp6[i%~arrayAgp6.size].midicps]);
~arrayRgp6[i%~arrayRgp6.size].wait;
}
}).quant_(0)
);
//////////////////////////////
(
Tdef(\gP7, {~arrayRgp6=[1/12, 1/12, 1/12, 1/12, 1/12, 1/12, 3/16,1/16,1/4]*2;
~arrayAgp6=[ 63.32, 63, 51.3, 63, 63.32,63.3,51,63]-12;
10.do{| i |
Synth(\tmbr2, [\freq, ~arrayAgp6[i%~arrayAgp6.size].midicps]);
~arrayRgp6[i%~arrayRgp6.size].wait;
}
}).quant_(0)
);
//////////////////////////////
(
Tdef(\gfinal, {~arrayRgp6=[1/12, 1/12, 1/12, 1/12, 1/12, 1/12, 3/16,1/16,1/4]*2;
~arrayAgp6=[ 63.32, 63, 51.3, 63, 63.32,63.3,51,63];
10.do{| i |
Synth(\gam, [\freq, ~arrayAgp6[i%~arrayAgp6.size].midicps]);
Synth(\tmbr);
Synth(\gmbas, [\freq, ~arrayAgp6[i%~arrayAgp6.size].midicps]);
~arrayRgp6[i%~arrayRgp6.size].wait;
}
}).quant_(0)
);
//////////////////////////////
(
Tdef(\gamP, {
inf.do{| i |
Synth(\tmbr);
~arrayRit0[i%~arrayRit0.size].wait;
}
}).quant_(0)
);
////////////////
(
Tdef(\gamP2, {
inf.do{| i |
Synth(\tmbr0);
~arrayRit1[i%~arrayRit1.size].wait;
}
}).quant_(0)
);
//////////////////////////////
(
Tdef(\gamP3, {
inf.do{| i |
Synth(~arrayDuo[i%~arrayDuo.size]);
~arrayRit2[i%~arrayRit2.size].wait;
}
}).quant_(0)
);

//////////////////////
(
Tdef(\tklan1,{
4.do{Synth(\gmbajo, [\scale, [0,4,5,7,12,].choose.midiratio]);
Synth(\gmbajo, [\scale, [-5,0,4,5,7].choose.midiratio]);
Synth(\gmbajo, [\scale, [-12,-8,-7].choose.midiratio]);
Synth(\gmbajo, [\scale, [19,23,24].choose.midiratio]);
[0.25,0.5,0.25,0.125].choose.wait;
};
13.do{Synth(\silencio);1.wait;};
2.do{Synth(\gmbas);4.wait;};
3.do{Synth(\gmbas,[\scale,[-7,-7,-1].choose.midiratio]);[4,3].choose.wait;};
~arrayln=[-1,0,0,3,0,-1,-7,-5];
8.do{|i|
Synth(\gmbas,[\scale,~arrayln[i%~arrayln.size].midiratio]);
1.wait;};
1.do{Synth(\gmbas);0.5.wait;};
4.do{Synth(\gmbajo, [\scale, ([0,4,5,7,12,]-2).choose.midiratio]);
Synth(\gmbajo, [\scale, ([-5,0,4,5,7]-2).choose.midiratio]);
Synth(\gmbajo, [\scale, ([-12,-8,-7]-2).choose.midiratio]);
Synth(\gmbajo, [\scale, ([19,23,24]-2).choose.midiratio]);
[0.25,0.5,0.25,0.125].choose.wait;};
2.do{Synth(\gmbas);2.wait;};
1.do{~arrayRln=[1/4,1/4,1/4,1/4,1/4,1/4,1/4,1/4]*2;
16.do{|i|
Synth(\gmbas,[\scale,~arrayln[i%~arrayln.size].midiratio]);
~arrayRln[i%~arrayRln.size].wait;};
0.001.wait};
1.do{~arrayln=[-1,0,0,5,0,-1,-7,-5];
~arrayRln=[1/4,1/4,1/4,1/4,1/4,1/4,1/4,1/4]*2;
16.do{|i|
Synth(\gmbas,[\scale,~arrayln[i%~arrayln.size].midiratio]);
~arrayRln[i%~arrayRln.size].wait;};
0.001.wait};
2.do{~arrayln2=[5,7,11,7];
~arrayRln2=[3/8,1/8,1/4,1/4]*2;
16.do{|i|
Synth(\gmbas,[\scale,~arrayln[i%~arrayln.size].midiratio]);
Synth(\gmbas,[\scale,~arrayln2[i%~arrayln2.size].midiratio]);
~arrayRln[i%~arrayRln.size].wait;};
0.001.wait};
4.do{Synth(\gmbajo, [\scale, ([0,4,5,7,12,]-2).choose.midiratio]);
Synth(\gmbajo, [\scale, ([-5,0,4,5,7]-2).choose.midiratio]);
Synth(\gmbajo, [\scale, ([-12,-8,-7]-2).choose.midiratio]);
Synth(\gmbajo, [\scale, ([19,23,24]-2).choose.midiratio]);
[0.25,0.5,0.25,0.125].choose.wait;};
4.do{~arrayln2=[5,7,11,7].scramble;
4.do{|i|
Synth(\gmbas,[\scale,~arrayln2[i%~arrayln2.size].midiratio]);
~arrayRln2[i%~arrayRln2.size].wait;};
0.001.wait};
4.do{Synth(\gmbajo, [\scale, ([0,4,5,7,12,]+1).choose.midiratio]);
Synth(\gmbajo, [\scale, ([19,23,24]+1).choose.midiratio]);
0.01.wait;};
4.do{~arrayln2=[5,7,12,7].scramble;
4.do{|i|
Synth(\gmbas,[\scale,~arrayln2[i%~arrayln2.size].midiratio]);
~arrayRln2[i%~arrayRln2.size].wait;};
0.001.wait};
2.do{~arrayln=[-1,0,0,4,0,-1,-7,-5];
~arrayln2=[5,7,11,7].scramble;
~arrayRln2=([3/8,1/8,1/4,1/4]*2).scramble;
~arrayRln=([1/4,1/4,1/4,1/4,1/4,1/4,1/4,1/4]*2);
16.do{|i|
Synth(\gmbas,[\scale,~arrayln[i%~arrayln.size].midiratio]);
Synth(\gmbas,[\scale,~arrayln2[i%~arrayln2.size].midiratio]);
~arrayRln[i%~arrayRln.size].wait;};
0.001.wait};
2.do{~arrayln3=[-17,4,7,5,-12,4,7,11,-12,4,7,5,-12,4,7,12];
~arrayRln=([1/4,1/4,1/4,1/4,1/4,1/4,1/4,1/4]*2);
16.do{|i|
Synth(\gmbas,[\scale,~arrayln3[i%~arrayln3.size].midiratio]);
~arrayRln[i%~arrayRln.size].wait;};
0.001.wait};
2.do{~arrayln2=[5,7,11,7,11].pyramid;
~arrayRln2=([3/8,1/8,1/4,1/4]*2).scramble;
16.do{|i|
Synth(\gmbas,[\scale,~arrayln2[i%~arrayln2.size].midiratio]);
~arrayRln[i%~arrayRln.size].wait;};
0.001.wait};
2.do{~arrayln3=[-17,4,7,5,-12,4,7,12,-12,4,7,5,-12,4,4,16];
~arrayRln=([1/4,1/4,1/4,1/4,1/4,1/4,1/4,1/4]);
16.do{|i|
Synth(\gmbas,[\scale,~arrayln3[i%~arrayln3.size].midiratio]);
~arrayRln[i%~arrayRln.size].wait;};
0.001.wait};
4.do{Synth(\gmbajo, [\scale, [0,4,5,7,12,].choose.midiratio]);
Synth(\gmbajo, [\scale, [-5,0,4,5,7].choose.midiratio]);
Synth(\gmbajo, [\scale, [-12,-8,-7].choose.midiratio]);
Synth(\gmbajo, [\scale, [19,23,24].choose.midiratio]);
[0.25,0.5,0.25,0.125].choose.wait;
};
1.do{Tdef(\g2).play;
1.wait};
}).quant_(0)
);
/*
Tdef(\tklan1).play;
*/
/*
(
Tdef(\g2).stop;
Tdef(\g2).play;
Tdef(\g3).play;
);*/
/*(
~arrayRg1=([1/6,3/24,2/24,3/24,1/8,1/8,1/16,3/16] *4);
~arrayAg1=[-1,3,3,3,0,0,5,3];
~arrayAg2=[7,12,12,12,12,12,12,7,12];
~arrayAg0=[-1,0,0,3,0,-1,-7,-5];
~arrayAg3=[0,0,0,0,0,0,-5,0];
~arrayRgp1=([1/2,1,1/2]*4);
~arrayRgp2=[1,2,5,9,10,12,14];
~arrayRgp3=[1,2,3,5,6,7];
~arrayRgp4=[0,1,4,5,7,8,11,12,13];
)*/
/*(
~arrayAg1=[-1,3,3,3,0,0,5,3].scramble;
~arrayAg2=[7,12,12,12,12,12,12,7,12].scramble;
~arrayAg0=[-1,0,0,3,0,-1,-7,-5].scramble;
~arrayAg3=[0,0,0,0,0,0,-5,0];
~arrayRgp1=([1/2,1,1/2]*4).scramble;
~arrayRgp2=[1,2,5,9,10,12,14].scramble;
~arrayRgp3=[1,2,3,5,6,7].scramble;
~arrayRgp4=[0,1,4,5,7,8,11,12,13].scramble;
)*/
/*
(
Tdef(\g2).stop;
Tdef(\g3).stop;
Tdef(\tbom).play;
Tdef(\g1).play;
Tdef(\game0).play;
Tdef(\g2).play;
Tdef(\g3).play;
);
*/
/*
~arrayAg1=[-1,3,3,3,0,0,5,3].rand;
~arrayAg2=[7,12,12,12,12,12,12,7,12].rand;
~arrayAg0=[-1,0,0,3,0,-1,-7,-5].rand;
~arrayRgp1=([1/2,1,1/2]*4).rand;
~arrayRgp2=[1,2,5,9,10,12,14].rand;
~arrayRgp3=[1,2,3,5,6,7].rand;
~arrayRgp4=[0,1,4,5,7,8,11,12,13].rand;
*/
/*
(
Tdef(\g1).stop;
Tdef(\gP6).play;
Tdef(\gP7).play;
);
(
Tdef(\gP1).play;
Tdef(\gP2).play;
Tdef(\gP3).play;
Tdef(\gP4).play;
);
(
Tdef(\game0).stop;
Tdef(\g2).stop;
Tdef(\g3).stop;
Tdef(\gP1).stop;
Tdef(\gP2).stop;
Tdef(\gP3).stop;
Tdef(\gP4).stop;
Tdef(\g3).stop;
Tdef(\tbom).stop;
Tdef(\g1).play;
Tdef(\gP6).play;
Tdef(\gP7).play;
);
(
~arrayRg1=([1/6,3/24,2/24,3/24,1/8,1/8,1/16,3/16] *2);
~arrayAg1=[-1,3,3,3,0,0,5,3].scramble;
~arrayRg1=([1/6,3/24,2/24,3/24,1/8,1/8,1/16,3/16] *8).scramble;
~arrayAg1=[-1,4,4,4,0,0,5,7].scramble;
~arrayAg1=[[4,5,7,-1].choose];
~arrayAg1=[0];
Tdef(\tklan2).play;
Tdef(\tklan3).play;
Tdef(\tklan4).play;
);
(
Tdef(\gamP).play;
Tdef(\gamP2).play;
Tdef(\gamP3).play;
);
(
Tdef(\g1).stop;
Tdef(\gamP3).stop;
Tdef(\g1).play;
Tdef(\gamP3).play;
~arrayRg1=([1/4,1/4,1/8,1/8,1/16,19/16]*2);
~arrayRit2=([1/4,1/4,1/8,1/8,1/16,19/16]*2);
~arrayDuo=[\tmbr1];
);
(
Tdef(\g1).stop;
Tdef(\gamP3).stop;
Tdef(\g1).play;
Tdef(\gamP3).play;
~arrayRit2=([1/6,3/24,2/24,3/24,1/8,1/8,1/16,3/16]*2);
~arrayDuo=[\tmbr1,\tmbr2,\tmbr2,\tmbr2,\tmbr1,\tmbr1,\tmbr2,\tmbr2];


Tdef(\game).play;
Tdef(\game2).play;
);
*/
/*(
~arrayAltura=[0,-1,0,5,0,7,-1,0,4,7,5].scramble;
Tdef(\gamelodia1).play;
Tdef(\gamelodia2).play;
);
(
~arrayRg3=[1/4,1/4,1/4,1/4,1/4,1/4,1/4,1/4] *2;
Tdef(\g2).play;
Tdef(\g3).play;
);
~arrayAltura=[0,-1,0,5,0,7,-1,0,4,7,5];
~arrayRitmo=([1/4, 1/8, 1/4, 1/8, 1/8, 1/8, 3/8, 1/8, 1/4, 1/8, 1/8 ] *1);
(
Tdef(\g1).stop;
Tdef(\g2).stop;
Tdef(\g3).stop;
Tdef(\game).stop;
Tdef(\game2).stop;
Tdef(\game).play;
Tdef(\g1).play;
Tdef(\gamP3).play;
~arrayRitmo=([1/4,1/4,1/8,1/8,1/16,19/16]*2);
~arrayRg1=([1/4,1/4,1/8,1/8,1/16,19/16]*2);
);
*/
/*
(
Tdef(\g1).stop;
Tdef(\g2).stop;
Tdef(\g3).stop;
Tdef(\game).stop;
Tdef(\gamP).stop;
Tdef(\gamP2).stop;
Tdef(\gamP3).stop;
Tdef(\game2).stop;
Tdef(\gP6).play;
Tdef(\gP7).play;
Tdef(\gfinal).play;
);
*/
/*
Tdef(\tklan2).play;
Tdef(\tklan3).play;
Tdef(\tklan4).play;
Tdef(\tbom).play;

Tdef(\tklan).stop;
Tdef(\tklan2).stop;
Tdef(\tklan3).stop;
Tdef(\tklan4).stop;
Tdef(\tbom).stop;
*/