samer@43: % sndread - read entire contents of any audo file readable by sndfile
samer@0: function X=sndread(file,FS,varargin)
samer@37: 	opts=options('bs',1024,varargin{:});
samer@0: 	sig=sndfile(file,opts);
samer@0: 	i=info(sig); 
samer@0: 	if isfinite(i.length), init=ceil(1.01*i.length*rate(sig)/opts.bs); 
samer@0: 	else init=fs; end
samer@0: 	X=gather(sig,'chunk',opts.bs,'init',init);
samer@0: