melodia de loop con supercollider

melodia-tdef.scd

m = [60,65,70,75,62];

// para extraer nota del arreglo con un indice,
// crear variable contador
// en el bucle,
	// usarla para tocar nota
	// incrementar contador
	// mantenerla en el rango 0-4

Tdef(\melodia,{

	var contador;

	contador=0;

	z = Synth(\bass_test);
	
	inf.do{

		z.set(\freq,m[contador].midicps);

		0.25.wait;	

		contador=contador+1;

		if( contador >= m.size, {
			contador = 0;
		});

	}

}).play;

tdef melodia dinamica con modulo.sc

m = [60,65,70,75];
m = [60,61];
m = [60,61,63,61];
m = [60,65,67,68,70,75];

t = [ 0.25, 0.5, 1 ];


// para extraer nota del arreglo con un indice,
// crear variable contador
// en el bucle,
	// usarla para tocar nota
	// incrementar contador
	// mantenerla en el rango 0-4

Tdef(\melodia,{

	z = Synth(\bass_test);
	
	inf.do{|contador|

		if( contador % 16 == 0, {
			t=[ 0.25, 0.5, 1 ];
		});
		if( contador % 16 == 6, {
			t = [ 0.25, 0.125, 0.06225 ];
		});

		z.set(\freq,m[contador%m.size].midicps);

		t[contador%t.size].wait;	

	}

}).play;