% Pitch Shifting by PSOLA and Formant Preservation (7.4.4)
clear all
close all

[x,f_s,nbits]=wavread('brass_jazz.wav');

y=zeros(1,length(x));

alpha=1;
beta=1;
gamma=2;
m=PitchMarker(x);

y=psolaF(x,m,alpha,beta,gamma);

wavwrite(y, f_s, '7_4_4_brass_jazz_psola_formant.wav');

alpha=1;
beta=1.5;
gamma=1;

y=psolaF(x,m,alpha,beta,gamma);


wavwrite(y, f_s, '7_4_4_brass_jazz_psola_formant_high.wav');

alpha=1;
beta=0.75;
gamma=1;

y=psolaF(x,m,alpha,beta,gamma);


wavwrite(y, f_s, '7_4_4_brass_jazz_psola_formant_low.wav');