1puts "================"
2puts "OCC251: Section of two faces f1 and f2 depends on order of arguments:  section r1 f1 f2 and section r2 f2 f1 give different results, one of result is invalid - overlapped edges."
3puts "================"
4puts ""
5
6restore [locate_data_file OCC251.brep] f
7explode f
8checkshape f_1
9checkshape f_2
10
11bsection result f_2 f_1
12explode result
13
14foreach a [explode result e] {
15  foreach b [explode result e] {
16    if { ![regexp {not} [compare b_1 n_1]] } {
17      continue;
18    }
19
20    set coe [checkoverlapedges e1 e2 5.0e-5]
21
22    puts "$a <-> $b: $coe"
23    if { [regexp "Edges are not overlapped" $coe] != 1 } {
24      puts "Error: $a and $b are overlapped"
25    }
26  }
27}
28
29checkprops result -l 1.
30checkshape result
31checksection result -r 2
32
33smallview
34don result*
35fit
36
37checkview -screenshot -2d -path ${imagedir}/${test_image}.png
38