drawAllNeurons.m

% This script draws all the neurons with the same scale

close all, clear all

r = RGCclass(0);
r.lazyLoad();


nColumns = 5;
nRows = 6;   
xspacing = 600;
yspacing = 500;

axisRange = [-xspacing/2, nColumns*xspacing+xspacing/2, -nRows*yspacing+yspacing/2, 0.7*yspacing];

nameList = {};

for i = 1:numel(r.RGCuniqueNames)
  figure
  hold on
  plot([0 100]+xspacing,-yspacing/4*[1 1]-50,'k-','linewidth',2)
  text(50+xspacing,-yspacing/4-50-15,'100 \mum','fontsize', 8, ...
       'horizontalalignment','center','verticalalignment','top')
  
  showType = r.RGCuniqueNames{i};

  pageCtr = 1;
  
  idx = find(ismember(r.RGCtypeName,{showType}));

  x = xspacing; y = 0;
  ctr = 1;
  
  text(0,0,showType,'fontsize',18, ...
       'horizontalalignment','center', ...
       'verticalalignment','bottom')
  
  while(ctr <= numel(idx))
    if(x >= xspacing*nColumns)
      x = 0;
      y = y - yspacing;
    end
    
    if(y <= - yspacing * nRows)
      % Save old figure
      axis(axisRange)
      axis off
      fName = sprintf('FIGS/%s-all-cells-%d.eps',showType,pageCtr);
      printA4(fName);

      
      % Start new figure
      y = 0;
      axis(axisRange)
      figure % New figure
      hold on
      plot([0 100]+xspacing,-yspacing/3*[1 1],'k-','linewidth',2)
      text(50,-yspacing/3,'100 \mum','fontsize', 10,'horizontalalignment','center')
      
      pageCtr = pageCtr + 1;
    end
    
    r.RGC(idx(ctr)).drawNeuron(1,0,[x y 0],0,0.1);
    nameList{i}{ctr} = r.RGC(idx(ctr)).xmlFile;
    
    text(x-0.45*xspacing,y+0.45*yspacing,num2str(ctr))
    %text(x,y+spacing/2,r.RGC(idx(ctr)).xmlFile, ...
    %     'horizontalalignment','center','fontsize',4)
    
    ctr = ctr + 1;
    x = x + xspacing;
    % title(showType,'fontsize',18)
    title([])
  end

  
  axis(axisRange)
  axis off
  
  fName = sprintf('FIGS/%s-all-cells-%d.eps',showType,pageCtr);
  printA4(fName);
  
end



% Write list of files to file

fid = fopen('FIGS/List-of-files-in-all-cells-figure.txt','w');
for i = 1:numel(nameList)
  fprintf(fid,'%s\n\n', r.RGCuniqueNames{i})
  for j = 1:numel(nameList{i})
    fprintf(fid,'%d. %s\n', j, strrep(nameList{i}{j},'.xml',''))
  end
  
  fprintf(fid,'\n\n')
end

fclose(fid)