samer@0: function a=audioplay(ch,rate,window,varargin)
samer@0: 	if nargin<3, window=[]; end
samer@37: 	opts=options('buffer',1,'queue',4,'dspargs',{},varargin{:});
samer@0: 
samer@0: 	a=asysobj(@(sz)dsp.AudioPlayer(rate,'BufferSizeSource','Property', ...
samer@0: 					'BufferSize',   opts.buffer*sz{1}(1), ...
samer@0: 					'QueueDuration',opts.queue*sz{1}(1)/rate, ...
samer@0: 					opts.dspargs{:}), ...
samer@0: 			1,0, @(sz){});
samer@0: 
samer@0: 	if ~isempty(window), a=arr(@(x)x(window,:))*a; end
samer@0: end
samer@0: