function P=presek_daljic(A,B)
%izracuna presek daljic A,B
%ali pa vrne prazen seznam, ce ni preseka
P=[];
T1=A(:,1);%izpisimo si krajisca daljic
T2=A(:,2);
S1=B(:,1);
S2=B(:,2);
a=T2-T1;%vektorja vzdolz nosilk
b=S2-S1;
c=S1-T1;%desna stran sistema
A=[a,-b];%matrika sistema
x=A\c;%resimo sistem
t=x(1);%vrednosti parametrov v preseku
s=x(2);
if t>=0 && t<=1 && s>=0 && s<1
    P=T1+a*t;%ce sta vrednosti parametrov na [0,1] vrnemo tocko
end