samer@34: % noise - white noise generator
samer@34: %
samer@34: % noise :: 
samer@34: %    D:natural ~'maximum duration to expect',
samer@34: % -> (   nonneg  ~'sampling frequency', 
samer@34: %        N:1..D  ~'duration' 
samer@34: %     -> [[1,N]] ~'some noise') ~'function to generate white noise'.
samer@34: function gen=noise(maxdur)
samer@34: 	buf=randn(1,maxdur);
samer@34: 	gen=@(fs,dur)buf(1:dur);