diff sinks/@sinkarray/sinkarray.m @ 3:3f77126f7b5f

First major revision of sequence library, now using classdef form, STILL A BIT BROKEN!

--- a/sinks/@sinkarray/sinkarray.m	Sat Dec 22 16:17:51 2012 +0000
+++ b/sinks/@sinkarray/sinkarray.m	Wed Jan 09 22:22:21 2013 +0000
@@ -7,30 +7,24 @@
 %    R:nonneg  ~'sampling rate'
 % -> sink(C,R).
 
-classdef sinkarray < sink
+classdef sinkarray < sinkbase
 	properties (GetAccess=private,SetAccess=immutable)
-		chans    % natural
 		length   % natural
-		fs       % nonneg
 		cont     % [[C,N]] -> void
 	end
 	methods
 		function s=sinkarray(cont,ch,len,rate)
 			if nargin<4, rate=nan; end
-			s.chans=ch;
 			s.length=len;
-			s.fs=rate;
 			s.cont=cont;
+			s=s@sinkbase(ch,rate);
 		end
 
 		function s=tostring(sig),
-			s=sprintf('sinkarray(%s,<%dx%d>)',tostring(sig.cont),sig.chans,sig.length);
+			s=sprintf('sinkarray(%s,<%dx%d>)',tostring(sig.cont),channels(sig),sig.length);
 		end
 
-		function c=channels(s), c=s.chans; end
-		function c=rate(s), c=s.fs; end
 		function s=construct(sig)
-
 			length=sig.length;
 			ch=channels(sig);
 			array=zeros(ch,length);