% Phase Vocoder Effects by John Arroyo, ja2124@columbia.edu
% chorus example using the vocoding engine created

[signal,Sr] = wavread('flute-C5.wav');

hannWindowLength = 1024;
amplitude = .8;

% .5 hop size creates a stuttering effect when the signal is stretched
signalChorus = chorus(signal,amplitude,Sr,hannWindowLength);

%original sudio clip
wavplay(signal,Sr)

%time stretched signal
wavplay(signalChorus,Sr)

%wavwrite(signalChorus,Sr,16,'flute-C5_chorus.wav')

%used only during debugging
clear chorus;