set coe [checkoverlapedges e1 e2 5.0e-5]
puts "$a <-> $b: $coe"
- if { [regexp "Edges is not overlaped" $coe] != 1 } {
- puts "Error: $a and $b are overlaped"
+ if { [regexp "Edges are not overlapped" $coe] != 1 } {
+ puts "Error: $a and $b are overlapped"
}
}
}