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

function [data] = PlotRaw6(wave,time);
%waveFilt=wave(:,2:65);
%waveFilt = BudapestbandPass(wave(:,1:64),8.865248e8,3,60);
waveFilt = BudapestbandPass(wave(1:64),1000,10,40,1000);
%waveFilt = bandFilter(wave(:,1:64),3,60);
%time=wave(1:end,1);
%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(time,wave(:,30)); %axis([-0.02 0.18 -0.0001 0.0001]); 
%plot(wave(:,1), waveFilt(:,30)); axis([0 5000 -0.1 0.1]); 
%figure
%for n=1:64 
%subplot(8,8,n); plot(wave(:,1), waveFilt(:,n)); 
%axis([0 3000 -0.1 0.1]); axis off;
%end
figure
for n=1:64
subplot(8,8,n); plot(time,waveFilt(:,n)); axis([2000 2200 -0.1 0.1]); axis off;
%[C(n),I(n)]=max(wave(n));
end
%amp=reshape(C,8,8)'
%loc=reshape(I,8,8)'

