/
ritmoE.sc
77 lines (61 loc) · 1.75 KB
/
ritmoE.sc
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
RitmoE {
classvar <version;
classvar <s;
classvar <r;
classvar <y;
classvar <a;
classvar <x;
classvar <v;
*initClass {
super.initClass;
version = "Mayo 4 2016";
("ritmo : version 1.0").postln;
}
//cowbell amp should be 0.35 and guira 0.20
*toca {arg bomboDb = -200, bomboFreq = Pseq ([\r, 0.1, 0.1], inf), bomboDur = Pseq ([1, 0.5, 0.5], inf), bomboPan = 0, guiraDb = -200, guiraFreq = Pseq(#[ 1,r, 1, 1],inf), guiraDur= 0.25, guiraPan = 0, timbalesDur = Pxrand([0.25, 0.5, 0.75, 0.25, 0.25],inf), timbalesNum = 0, timbalesPan = -1, campanaDb = -200, campanaDur = 1, campanaPan = 0;
Pbindef(\bombo,
\instrument, \samplesE,
\db, bomboDb,
\buf, Pdefn (\bomboBuf, RGGTRN.bombo),
\freq, bomboFreq,
\dur, bomboDur,
\pan, bomboPan,
).play(quant:4);
Pbindef(\bombo).quant = 4;
Pbindef(\guira,
\instrument, \guiraE,
\db, Pseq([0.7,0,0.5,0.5]*guiraDb, inf),
\atk, Pdefn (\guiraAtk, 0.015),
\dura, Pdefn (\guiraDura, Pseq([1/64,1/32,1/16,1/16]*(80/60) ,inf)),
\rel, Pdefn (\guiraRel, 0.05),
\freq, guiraFreq,
\dur, guiraDur,
\pan, guiraPan,
).play(quant:4);
Pbindef(\guira).quant = 4;
Pbindef(\redoble,
\instrument, \timbal,
\db, Pseq([1, 0.25, 0.25, 1, 0.25, 0.25, 1, 0.25, 0.25 , 1,0.25, 0.5]/4, timbalesNum),
\buf, RGGTRN.timbal,
\pan, timbalesPan,
\freq, Prand(#[r,1, 1, 1, 1,1, 1, 3, 3],inf),
\dur, timbalesDur,
).play(quant:4);
Pbindef(\redoble).quant = 4;
Pbindef(\cowBell,
\instrument, \timbalE,
\db, campanaDb,
\buf, RGGTRN.timbal,
\freq, Prand(#[7],inf),
\dur, campanaDur,
\pan, campanaPan,
).play(quant:4);
Pbindef(\cowBell).quant = 4;
}
*detener {
Pbindef(\bombo).stop;
Pbindef(\guira).stop;
Pbindef(\redoble).stop;
Pbindef(\cowBell).stop;
}
}