3 puts "================"
5 puts "================"
7 ###########################################################
8 ## Section of two faces f1 and f2 depends on order of arguments: section r1 f1 f2 and
9 ## section r2 f2 f1 give different results, one of result is invalid - overlapped edges.
10 ###########################################################
12 restore [locate_data_file OCC251.brep] f
17 bsection result f_2 f_1
20 set status [OCC333 result_1 result_2]
21 if {[llength ${status}] < 1} {
24 regexp {([-0-9.+eE]+)} $status full code
25 if { ${code} == 3 || ${code} == 2 } {
26 puts "OCC251 OK (case 2) : Section command works properly"
28 puts "Faulty OCC251 (case 2): Section was made WRONGLY"