129         }

   129         }

   130         otherwise result "0";

   130         otherwise result "0";

   131     }

   131     }

   132 }

   132 }

   133 

   133 

   134 // return overlapping geometry for a given element

   136 // return overlapping geometry for a given element

   135 // all intersercting element are returned

   137 // all intersercting element are returned

   136 // except groups, that must be contained to be counted in

   138 // except groups, that must be contained to be counted in

   137 def "func:overlapping_geometry" {

   139 def "func:overlapping_geometry" {

   138     param "elt";

   140     param "elt";

   140     const "g", "$geometry[@Id = $elt/@id]"; 

   141     const "g", "$geometry[@Id = $elt/@id]"; 

   141     const "candidates", "$geometry[@Id != $elt/@id]";

   142     const "candidates", "$geometry[@Id != $elt/@id]";

   142     result """$candidates[(@Id = $groups/@id and (func:intersect($g, .) = 9)) or 

   143     result """$candidates[(@Id = $groups/@id and (func:intersect($g, .) = 9)) or 

   143                           (not(@Id = $groups/@id) and (func:intersect($g, .) > 0 ))]""";

   144                           (not(@Id = $groups/@id) and (func:intersect($g, .) > 0 ))]""";

   144 }

   145 }