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

function [data] = PlotRawPico( wave );
waveFilt = BudapestbandPass(wave(:,2:65),1000,5,50,1000);

%waveFilt = BudapestbandPass(wave(:,2:65),1000,5,200);

%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(wave(:,1), waveFilt(:,27)); axis([10500 11000 -0.2 0.2]); 
figure
for n=1:64 
%subplot(8,8,n); plot(waveFilt(:,n)); axis([700 900 -0.07 0.07]); axis off;
subplot(8,8,n); plot(waveFilt(:,n),('r')); axis([700 900 -0.07 0.07]); axis off;
%axis([1 1000 -0.2 0.2]); axis off;
end
