comparison arrows/@asink/asink.m @ 0:672052bd81f8

Initial partial import.

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