function s = leslie(f1,T,Fe)
%        s = leslie(f1,T,Fe)
% orgue avec effet Leslie
%------------------------------------------

mu = .01;
eta = .3;
fL = 4;

dt = 1/Fe;
t = 0:dt:T;
nt = length(t);

% harmoniques
nh = 8; N = 1:nh;
ak = N.^(-2);
harm = N;

% 'plein-jeux'
jeux = [1 2 3 4 5];
pj = [80 100 30 10 10];
nj = length(pj);

% liste des frequences et de leurs amplitudes
f = []; a = [];
for j = 1:nj
    f = [f f1*jeux(j)*N];
    a = [a pj(j)*ak];
end

% synthese
s = synthadl(a,f,0*f,T,Fe);
