pitch shift

SynthDef(\p_shift, {arg pitch;
    var in, rd1, rd2, hann1, hann2, snd1, snd2;
    in = In.ar(2,2);
    rd1 = LFSaw.ar(pitch, 1, 0.5, 0.5);
    hann1 = (rd1 * pi).sin;
    rd2 = Wrap.ar(rd1 + 0.5);
    hann2 = (rd2 * pi).sin;
    snd1 = AllpassL.ar(in, 1, rd1 * 0.01,0) * hann1;
    snd2 = AllpassL.ar(in, 1, rd2 * 0.01,0) * hann2;
    Out.ar(0, snd1 + snd2);
}).add;