function y=synth(freq,dur,amp,Fs,type)
% y=synth(freq,dur,amp,Fs,type)
%
% Synthesize a single note
%
% Inputs:
% freq - frequency in Hz
% dur - duration in seconds
% amp - Amplitude in range [0,1]
% Fs - sampling frequency in Hz
% type - string to select synthesis type
% current options: 'fm', 'sine', or 'saw'
%
%---------------------------------------------------------------
% Subversion Revision: 12 (2006-01-24)
%
% This software can be used freely for non-commerical use.
% Visit http://www.kenschutte.com/software for more
% documentation, copyright info, and updates.
%---------------------------------------------------------------
N = floor(dur*Fs);
n=0:N-1;
if type==1
y = amp.*sin(2*pi*n*freq/Fs);
end
if type==2
T = (1/freq)*Fs; % period in fractional samples
ramp = (0:(N-1))/T;
y = ramp-fix(ramp);
y = amp.*y;
y = y - mean(y);
end
if type==3
t = 0:(1/Fs):dur;
envel = interp1([0 dur/6 dur/3 dur/5 dur], [0 1 .75 .6 0], 0:(1/Fs):dur);
I_env = 5.*envel;
y = envel.*sin(2.*pi.*freq.*t + I_env.*sin(2.*pi.*freq.*t));
end
if type==4
%y = amp.*(sin((2*pi*n*freq/Fs))/tan((2*pi*n*freq/Fs)));
t = 0:(1/Fs):dur;
y = square(2*pi*t);
end
% smooth edges w/ 10ms ramp
if (dur > .02)
L = 2*fix(.01*Fs)+1; % L odd
ramp = bartlett(L)'; % odd length
L = ceil(L/2);
y(1:L) = y(1:L) .* ramp(1:L);
y(end-L+1:end) = y(end-L+1:end) .* ramp(end-L+1:end);
end
