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