function tenPlotsDAEnhanced(uFRET,uc,savePDF,fromto)
%%      MultiPlot 
%   corrected for $uc=2 (uncorrected $uc=1)
%   saves .pdf of every plot for $savePDF=1, if not set = 0
%   pages $fromto for specific pages

if nargin<4
    fromto(1,1)=1;
    fromto(1,2)=ceil(size(uFRET,2)/10);
    t=1;


end

if nargin<3
    savePDF=0;
end
t=fromto(1,1)*10
for s=fromto(1,1):fromto(1,2)
   
    figure(s)
    
    for p1=1:10

        ende=size(uFRET(uc,t).eff50,1);
        xTix=[0,round(ende/4),ende-round(ende/4),ende];
        xTix(end)=ende;
        xTixL=round(xTix*10^(-5)*100)/100;
        yMax=max(max(uFRET(uc,t).ints50));
        xDbleach=uFRET(1,t).D_bleached;
        yDbleach=uFRET(1,t).eff20(uFRET(1,t).D_bleached,1);
        xAbleach=uFRET(1,t).A_bleached;
        yAbleach=uFRET(1,t).eff20(uFRET(1,t).A_bleached,1);
        subplot(10,4,4*p1-3:4*p1-1)

        plotI=line(1:ende,uFRET(uc,t).ints50(1:ende,1:2));
        
        text(xAbleach,yAbleach,'\bf{A} bleached \rightarrow','Rotation',33,'Fontsize',8, 'HorizontalAlignment','right');
        text(xDbleach,yDbleach,'\bf{D} bleached \rightarrow','Rotation',33,'Fontsize',8, 'HorizontalAlignment','right');
        
        set(plotI(1),'Color',[0.702 0.7804 1]);
        set(plotI(2),'Color',[0.7569 0.8667 0.7765]);
        
        ax1 = gca;
        xyPos=get(ax1,'Position')-[0.1 0 -0.1 0];
              set(ax1, 'Position',xyPos,...
                   'YColor','b','YAxisLocation','left',...
                    'Color','none','xtick',[],...
                    'XLim',[0,ende],'YLim',[0,yMax]);
        if strcmp(uFRET(uc,t).names(1),'r')==1;
            set(get(ax1,'XLabel'),'String',...
                ['time in sec   #',num2str(t),' - ',uFRET(uc,t).names(7:9),uFRET(uc,t).names(17:20)])
        else
            set(get(ax1,'XLabel'),'String',...
                ['time in sec   #',num2str(t),' - ',uFRET(uc,t).names(1:2),uFRET(uc,t).names(11:14)])
        end

        if (uc==2)
            ylabel(ax1,'Intensities (cor)');
        else
            ylabel(ax1,'Intensities (uc)');              
        end
        
        ax2 = axes('Position',get(ax1,'Position'),...
            'YAxisLocation','right',...
            'Color','none','XColor','k','YColor','k',...
            'xtick', xTix, 'XTickLabel', xTixL, 'XLim',[0,ende],...
            'YLim',[0,1.0],'YTick',[0,0.5,1],'YTickLabel',{'0';'50%';'100%'});

        line(1:ende,uFRET(uc,t).eff50,'Color','k','Parent',ax2);
        ylabel(ax2,'Efficiency')
        set(ax2,'Position',get(ax1,'Position'));
        
     

        subplot(10,4,4*p1)

        hist(uFRET(uc,t).eff50,100);

        ax3=gca;

        set(ax3, 'YAxisLocation','right','XAxisLocation','bottom',...
            'xtick', [], 'XTickLabel','','YLimMode','auto',...
            'YColor',[0.04 0.1 0.5],...
            'Color','none','YColor','k','Box','off',...
            'CameraUpVector', [-1,1,0],'XDir','reverse')
        axis tight
        maxCounts=get(ax3,'YLim');
        ylabel(ax3,'counts','Rotation',[0],'Position',[-0.02,maxCounts(1,2),1],'fontweight','demi'); %#ok<NBRAK>
        %newCamera=get(gca,'CameraPosition')*[1 0 0;0 1 0;0 0 -1]   ...'CameraPosition',newCamera, ;

        t=t+1;

    end
    maximize
    if savePDF==1
        if (uc==2)
            save2pdf(['CorFRET',num2str(s)],gcf,600)
        else
        save2pdf(['UncorFRET',num2str(s)],gcf,600)
        end
    else
    end
 end
end
