% asignal - Arrow which produces frames from a signal
%
% asignal :: 
%    signal(C,R),
%    N:natural ~'block size',
%    M:natural ~'hop size'
% -> arrow({},{[[C,N]]]}).
%
% asignal :: 
%    signal(C,R),
%    N:natural ~'block size',
% -> arrow({},{[[C,N]]]}).
%
% If hop size is omitted, it defaults to the block size

function o=asignal(source,block,hop)
	if nargin<3, hop=block; end
	s.source=source;
	s.block=block;
	s.hop=hop;
	o=class(s,'asignal',arrow(0,1));
end

