let segmentF x y = let i=fst x and j=snd x and k=fst y and l=snd y in
if y-->(dN e i j) then inter (dN e i j) (dS e k l) else
if y-->(dS e i j) then inter (dS e i j) (dN e k l) else
if y-->(dO e i j) then inter (dO e i j) (dE e k l) else
if y-->(dE e i j) then inter (dE e i j) (dO e k l) else
if y-->(dNE e i j) then inter (dNE e i j) (dSO e k l) else
if y-->(dSO e i j) then inter (dSO e i j) (dNE e k l) else
if y-->(dSE e i j) then inter (dSE e i j) (dNO e k l) else
inter (dNO e i j) (dSE e k l)