function s = cloche(f1,T,Fe)
%        s = cloche(f1,T,Fe)
% imitation d'une cloche
% f1  = frequence du principal
% Fe = frequence d'echantillonnage
% T  = duree du son
%---------------------------------------------

h  = 1/Fe;
th = 0:h:T;

f =  f1*[0.5  1 1.188 1.530 2.0000 2.470 2.607 2.650 2.991 3.367 4.137 4.487 4.829 5.385 5.863 6.709 8.077 8.547 9.017 9.530 11.026 12.393];
a = [350 950 500 150 700 100 250 370 1000 180 300 100  150  300  100   100  50   20   10   35   5   15];

s = synthad(a,f,0*f,T,Fe);

t  = T*[0 .001 .01 .4 .6 .9 1];
a  =   [0  .6    1 .4 .2 .1 0];
env = envelop(t,a,Fe);

s   = s.*env;

