%filters data and plots raw traces for 7 electrode array
%requires raw data and sampling frequency

function [data] = PlotRaw7Ch( wave, t );
%data = BudapestbandPass(wave,1000,10,40,1000);
%waveFilt = BudapestbandPass(wave(:,1:4),1000,5,200);
data=wave;
%Lrotate=ones(8,8);
%for m=1:8
 %   for n=1:8
  %      Lrotate(m,n)=n*8-m+1;
  % end
  %end
%Lrotate=reshape(Lrotate,1,64);

%Rrotate=ones(8,8);
%for n=1:8
 %   for m=1:8
  %      Rrotate(m,n)=8*(8-m)+n
  % end
  %end
%Rrotate=reshape(Rrotate,1,64);

%figure
%plot(t, waveFilt(:,1)); axis([100 1000 -0.2 0.2]); 
figure
for n=1:8 
subplot(8,1,n); plot(data(:,n)); 
%axis([2650 2750 -0.1 0.1]); axis off;
end
