function stm = gentone(freq, t, t_envelope)

% FUNCTION stm = gentone(freq, t, t_envelope)
%
% Geeft een sinusvormig signaal terug met een frequentie 'freq' en een
% tijdsduur 't' (in msec), met een envelopje 't_envelope'(ook in msec).
% 
% Marcel, 11-3-'99

if nargin<3; t_envelope = 5; end

f_sample  = 50000;
N = t*f_sample/1000;
Nenvelope = t_envelope*f_sample/1000;

stm = envelope(sin(2*pi*[1:N]*freq/f_sample)', Nenvelope);