function s=tone(note,delay,len,peak,total)
freq=44100;
%tmax=1.5*freq;
%tf=t/freq;
%s=zeros(1,total*freq);
%size(s)
delay_index=floor(delay*freq)
len_act=floor(freq*len)
t=1:len_act;
tf=t/freq;
p1=floor(peak*len_act);
p2=len_act-p1;
m=1:p1;
mask=([s2(m/p1) s1(1-(1:p2)/p2)]);
v=2^(1/12);
mj=sin(tf*2*pi*220*v^note)+0.5*sin(tf*2*pi*440*v^note)+0.5*sin(tf*2*pi*660*v^note);
%size(mask)
%size(mj)
%s((delay_index+1):(delay_index+tmax))=mask.*mj;
pre=floor(delay*freq)
post=total*freq-size(mj,2)-pre;
s=[zeros(1,pre) (mask.*mj) zeros(1,post)];