set coe [checkoverlapedges e1 e2 5.0e-5]
puts "result_$ic <-> result_$ip: $coe"
- if { [regexp "Edges is not overlaped" $coe] != 1 } {
- puts "Error: result_$ic and result_$ip are overlaped"
+ if { [regexp "Edges are not overlapped" $coe] != 1 } {
+ puts "Error: result_$ic and result_$ip are overlapped"
}
}
fit
clear
don s1 s2 result*
-checkview -screenshot -2d -path ${imagedir}/${test_image}.png
\ No newline at end of file
+checkview -screenshot -2d -path ${imagedir}/${test_image}.png