6 ##########################################
7 ## We have overlapping edges when section a shell by plane.
8 ##########################################
10 restore [locate_data_file BUC60880_sec_error2.brep] sh
13 plane pl 65000 19000 2600 1 0 0
18 set nb_info [nbshapes result]
19 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
22 puts "BUC60880 OK: SECTION operation was made properly"
25 set status [OCC333 result_1 result_2]
26 if {[llength ${status}] < 1} {
29 regexp {([-0-9.+eE]+)} $status full code
30 if { ${code} == 3 || ${code} == 2} {
31 puts "BUC60880 : Section command works properly"
33 puts "Faulty BUC60880: Section was made WRONGLY"