samer@0: % asignal - Arrow which produces frames from a signal
samer@0: %
samer@0: % asignal :: 
samer@0: %    signal(C,R),
samer@0: %    N:natural ~'block size',
samer@0: %    M:natural ~'hop size'
samer@0: % -> arrow({},{[[C,N]]]}).
samer@0: %
samer@0: % asignal :: 
samer@0: %    signal(C,R),
samer@0: %    N:natural ~'block size',
samer@0: % -> arrow({},{[[C,N]]]}).
samer@0: %
samer@0: % If hop size is omitted, it defaults to the block size
samer@0: 
samer@0: function o=asignal(source,block,hop)
samer@0: 	if nargin<3, hop=block; end
samer@0: 	s.source=source;
samer@0: 	s.block=block;
samer@0: 	s.hop=hop;
samer@0: 	o=class(s,'asignal',arrow(0,1));
samer@0: end
samer@0: