-
Notifications
You must be signed in to change notification settings - Fork 0
/
script3.scd
101 lines (71 loc) · 1.72 KB
/
script3.scd
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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
// script 3
(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(\x1,{
arg freq, amp;
var sig;
sig = SinOsc.ar(freq,0,amp);
sig = sig + Saw.ar([freq,freq+1],amp/3);
sig = FreeVerb.ar(sig,SinOsc.kr(0.05),0.8);
//La linea de abajo es para
//limitar la señal por seguridad
sig = Limiter.ar(sig,1);/////
////////////////////////////
});
Ndef(\x2,{
arg freq, freq1, amp;
var sig;
sig = Saw.ar([freq, freq - 1], amp/3);
sig = sig + Saw.ar([freq1,freq1+1], amp/3);
sig = FreeVerb.ar(sig,SinOsc.kr(0.01),0.8);
//La linea de abajo es para
//limitar la señal por seguridad
sig = Limiter.ar(sig,1);/////
////////////////////////////
}))
(
Tdef(\ambiente,{
1.do{
Ndef(\x).playN([0]);
Ndef(\x1).playN([1]);
Ndef(\x2).playN([1]);
3.do{
Ndef(\x).set(\freq, 155, \amp, 0.1);
Ndef(\x1).set(\freq, 155.05, \amp, 0.9);
Ndef(\x2).set(\freq, 96, \freq1, 119, \amp, 0.9);
"uno".postln;
30.wait;
Ndef(\x).set(\freq, 119, \amp, 0.1);
Ndef(\x1).set(\freq, 96, \amp, 0.9);
Ndef(\x2).set(\freq, 178, \freq1, 119, \amp, 0.9);
"dos".postln;
30.wait;
Ndef(\x).set(\freq, 119, \amp, 0.1);
Ndef(\x1).set(\freq, 96, \amp, 0.9);
Ndef(\x2).set(\freq, 178, \freq1, 150, \amp, 0.9);
"tres".postln;
30.wait;
};
Ndef(\x).set(\amp, 0.15);
Ndef(\x1).set(\amp, 0.15);
Ndef(\x2).set(\amp, 0.15);
Ndef(\x).set( \amp, 0.1);
Ndef(\x1).set( \amp, 0.1);
Ndef(\x2).set( \amp, 0.1);
Ndef(\x).set(\amp, 0.05);
Ndef(\x1).set(\amp, 0.05);
Ndef(\x2).set(\amp, 0.05);
Ndef(\x).stop;
Ndef(\x1).stop;
Ndef(\x2).stop;
}
})
)
Tdef(\ambiente).play