codigo-y-materialidad/script5.scd at master · ivan-paz/codigo-y-materialidad · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
//   script 2

para encender el servidor de audio hay que declarar la siguiente linea:

s.boot

luego para probar si funciona ejecuta esta linea:

{SinOsc.ar()}.play

//para apagar todo el sonido
en mac    cmd + .

en linux  ctrl  +  .


//  ahora si
//  tenemos un Ndef
{SinOsc.ar(40)}.scope

(
Ndef(\x,{
	arg freq, amp;
	var sig;
	sig = SinOsc.ar(freq,0,amp);
	//La linea de abajo es para
	//limitar la señal por seguridad
	sig = Limiter.ar(sig,1);/////
	////////////////////////////
})
)
Ndef(\x).playN([0,1])
Ndef(\x).set(\freq, 240,  \amp, 0)
(
Ndef(\x1,{
	arg freq, amp;
	var sig;
	sig = SinOsc.ar(freq,0,amp);
	//La linea de abajo es para
	//limitar la señal por seguridad
	sig = Limiter.ar(sig,1);/////
	////////////////////////////
})
)
s.meter

(
Tdef(\tarea,{

	3.do{
		Ndef(\x).playN([0,1]);
		Ndef(\x1).playN([0,1]);

		Ndef(\x).set(\freq, 28.78 * 4,  \amp, 0.5);
		90.wait;

		Ndef(\x).set(\freq, 28.78 * 8,  \amp, 0.4);
		90.wait;

		Ndef(\x1).set(\freq, 28.78 * 4,  \amp, 0.5);
		Ndef(\x).set(\freq, 28.78 * (3/2) * 4,  \amp, 0.5);
		90.wait;
	};
	     Ndef(\x).stop;
	     Ndef(\x1).stop;
		"ya estubo".postln

})
)
Tdef(\tarea).play