pitched samples

This commit is contained in:
2024-01-01 21:06:00 +01:00
parent ba2a3a6173
commit d14cafbe59
2 changed files with 6 additions and 2 deletions

View File

@ -3,4 +3,8 @@
arg sampleNumber = 0, repeats=inf;
^Pindex(Bank(this), sampleNumber, repeats);
}
p {
^Pdv.parse(this)
}
}

View File

@ -14,14 +14,14 @@ f.vardel = {
(
z = SynthDef.new(\sampler, {
arg buf, out=0, rate=1, amp=1, pan=0, attack=0.01, release=1, loop=0;
arg buf, out=0, freq=400, rate=1, amp=1, pan=0, attack=0.01, release=1, loop=0;
var sig;
var env = EnvGen.ar(Env.perc(attack, release, doneAction: 2));
var startPos = 0;
sig = PlayBuf.ar(
numChannels: 1,
bufnum: buf,
rate:BufRateScale.kr(buf) * rate,
rate:BufRateScale.kr(buf) * (rate * freq / 60.midicps),
trigger: 1, startPos:startPos,
loop:loop, doneAction: 2);
sig = sig * amp;