figure
hold on
 
j = 1;
q=0;
for p = 1:1
    hold on
    startlist = [];
    pirOne =[];
    pirTwo =[];
    pirThree =[];
    pirFour =[];
 
    for i = 1:100
 
        startlist = [startlist i];
        tic;
 
        pirOne =[pirOne pirOneStore((p-1)*100+i)];
        subplot(7,1,1);
        axis([0 100 0 50])
        plot(startlist, pirOne)
        axis([0 100 0 50])
        set(gca,'xtick',[],'ytickMode','auto')
 
        pirTwo =[pirTwo pirTwoStore((p-1)*100+i)];
        subplot(7,1,2);
        axis([0 100 0 50])
        plot(startlist, pirTwo);
        axis([0 100 0 50])
         set(gca,'xtick',[],'ytickMode','auto')
 
        pirThree =[pirThree pirThreeStore((p-1)*100+i)];
        subplot(7,1,3);
        axis([0 100 0 50])
        plot(startlist, pirThree);
        axis([0 100 0 50])
         set(gca,'xtick',[],'ytickMode','auto')
 
        pirFour =[pirFour pirFourStore((p-1)*100+i)];
        subplot(7,1,4);
        axis([0 100 0 50])
        plot(startlist, pirFour);
        axis([0 100 0 50])
        set(gca,'xtickMode', 'auto')
 
        drawnow
 
        pause(increment(j)-toc);
        j = j+1;
 
        %if(mod(i,3) == 0)
            subplot(7,1,5:7);
           imshow(data(1:240,1+(q*320):320+(q*320),1:3));
            q=q+1;
 
        %end
 
    end
    clf
end