% trois notes avec effet Leslie
%------------------------------

clear all

Fe = 22050;
f0 = 220;
x1 = hammond(f0,.7,Fe);
x2 = hammond(f0*2^(1/4),.3,Fe);
x3 = hammond(f0*3/2,2.2,Fe);
x = [x1;x2;x3];
x = .98*x/max(max(abs(x)));
sound(x,Fe); 

%wavwrite(x,Fe,'../SONS/613leslie.wav');

% visualisation

nfft = 256; 
window = nfft; 
noverlap = ceil(nfft*.8);

clf
subplot(2,1,1);
specgram(x(:,1),nfft,Fe,window,noverlap);
xlabel('Temps'); ylabel('Fréquence'); 

subplot(2,1,2);
specgram(x(:,2),nfft,Fe,window,noverlap);
xlabel('Temps'); ylabel('Fréquence'); 
