try
close(inst_plot);
catch
    fprintf('Already closed');
end

inst_plot=figure;
set(inst_plot,'name','HS2 STATS');

t=get(Dhand.Time_Select,'value');
    switch t,
     case 1
        t=1;
      case 2
        t=3;
     case 3
        t=7;
     case 4
        t=100000; 
    end % switch
 
tind=find(Drift.hs2(1,:)>=now-t);
subplot(2,1,1);
plot(Drift.hs2(1,tind),Drift.hs2(2,tind),'b.');
datetick('x');
hold on;
plot(Drift.hs2(1,tind),Drift.hs2(3,tind),'r.');
xlabel('Time','FontWeight','Bold');
ylabel('(m^-1)','FontWeight','Bold');
legend('b_b(470)','b_b(676)',2);
titl=sprintf('%s Backscattering from HS2',graphtitle);
title(titl,'FontWeight','Bold');
hold off;
subplot(2,1,2);
plot(Drift.hs2(1,tind),Drift.hs2(4,tind),'g.');
datetick('x');
xlabel('Time','FontWeight','Bold');
ylabel('Arbitrary Units','FontWeight','Bold');
titl=sprintf('%s HS2 Fluorescence at 676',graphtitle);
title(titl,'FontWeight','Bold');
