samer@10: % sinkbase - A useful base class for sinks
samer@10: %
samer@10: % sinkbase :: C:natural -> sink(C,_).
samer@10: % sinkbase :: C:natural, R:nonneg -> sink(C,R).
samer@10: classdef sinkbase < sink
samer@10: 	properties (GetAccess=private,SetAccess=immutable)
samer@10: 		chans
samer@10: 		fs
samer@10: 	end
samer@10: 	methods
samer@10: 		function s=sinkbase(channels,rate)
samer@10: 			if nargin<2, rate=nan; end
samer@10: 			if nargin<1, channels=nan; end
samer@10: 			s.chans=channels;
samer@10: 			s.fs=rate;
samer@10: 		end
samer@10: 		function c=rate(s), c=s.fs; end
samer@10: 		function c=channels(s), c=s.chans; end
samer@10: 	end
samer@10: end