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; arg sampleNumber = 0, repeats=inf;
^Pindex(Bank(this), sampleNumber, repeats); ^Pindex(Bank(this), sampleNumber, repeats);
} }
p {
^Pdv.parse(this)
}
} }

View File

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