samer@0: % asink - output arrow using sink object
samer@0: %
samer@0: % asink :: 
samer@0: %    sink(C,R) ~'signal sink'
samer@0: % -> arrow({[[N,1]]]},{},empty).
samer@0: %
samer@0: % asink :: 
samer@0: %    sink(C,R) ~'signal sink',
samer@0: %    [[1,M]]   ~'indices of samples to select from input'
samer@0: % -> arrow({[[N,1]]]},{},empty).
samer@0: %
samer@0: % This unit will accept vectors of any size and send them to an audio output
samer@0: % device or destination. If 2nd argument is specified as I and data is supplied
samer@0: % in array x, then only samples x(I) are played.
samer@0: function o=asink(sink,window)
samer@0: 	if nargin==0, sink=sinknull; end
samer@0: 	if nargin<2, window=[]; end
samer@0: 	s.sink=sink;
samer@0: 	s.window=window;
samer@0: 	o=class(s,'asink',arrow(1,0));
samer@0: end
samer@0: