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)