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
|
// these pseudo ugens replicate some SC2 ugens
// still useful as shorthands
PMOsc {
*ar { arg carfreq,modfreq,pmindex=0.0,modphase=0.0,mul=1.0,add=0.0;
^SinOsc.ar(carfreq, SinOsc.ar(modfreq, modphase, pmindex),mul,add)
}
*kr { arg carfreq,modfreq,pmindex=0.0,modphase=0.0,mul=1.0,add=0.0;
^SinOsc.kr(carfreq, SinOsc.kr(modfreq, modphase, pmindex),mul,add)
}
}
MultiTap {
*ar { arg timesArray, levelsArray, in = 0.0, mul = 1.0, add = 0.0,bufnum;
var sampleRate;
timesArray = timesArray.dereference;
levelsArray = levelsArray.dereference;
RecordBuf.ar(in,bufnum,0.0, run: -1.0);
sampleRate = BufSampleRate.kr(bufnum);
^Mix.fill(timesArray.size,{ arg i;
PlayBuf.ar(in.numChannels,
bufnum, -1.0,1.0,
timesArray.at(i) * sampleRate,
loop: 1)
.madd(levelsArray.at(i) ? 1.0)
}).madd(mul,add);
}
}
/*
GrainTap {
// overlap determines density
*ar { arg bufnum, grainDur = 0.2, pchRatio = 1.0,
pchDispersion = 0.0, timeDispersion = 0.0, overlap = 2.0, mul = 1.0, add = 0.0;
var sampleRate;
sampleRate = BufSampleRate.kr(bufnum);
pchRatio = pchRatio * BufRateScale.kr(bufnum);
^Mix.fill( howMany ? ,{ arg i;
PlayBuf.ar(buf.numChannels,
bufnum,1.0,1.0,
loop: 1)
}).madd(mul,add);
}
}
*/
|
