function [TDe,YLIMe]=eclipse_limit_to_plot(current_axis_lim,code);
% Рисование на текущем графике вертикальных линий 
% начала, максимума и конца затмения
%
%      [TDe,YLIMe]=eclipse_limit_to_plot(current_axis_lim,code);
%
% current_axis_lim - пределы осей текущего графика (plot,subplot)
%                    полученные с помощью
%                           current_axis_lim=axis;
%             code - код (1 - сериальная дата, 2 - часы UT)

T1=datenum(2008,8,1,09,41,19);
T2=datenum(2008,8,1,11,45,09);
Tmax=datenum(2008,8,1,10,45,12);

Te=[T1 T1 NaN Tmax Tmax NaN T2 T2];
UTe=rem(Te,1)*24;

Ye=[current_axis_lim(3) current_axis_lim(4) NaN ...
    current_axis_lim(3) current_axis_lim(4) NaN ...
    current_axis_lim(3) current_axis_lim(4)];

hold on;
switch code,
    case 1,
        plot(Te,Ye,'rd-','MarkerFaceColor','y');
        TDe=Te;
    case 2,
        plot(UTe,Ye,'r');
        TDe=UTe;
end
hold off
YLIMe=Ye;
