for other in tree.Search window do
if not other.Processed
then
let areaOther = other.Ellipse.Area
match EEOver.EEOverlapArea e.Ellipse other.Ellipse with
| Some (commonArea, _, _) ->
for other in tree.Search window do
if not other.Processed
then
let areaOther = other.Ellipse.Area
match EEOver.EEOverlapArea e.Ellipse other.Ellipse with
| Some (commonArea, _, _) ->