[occt.git] / tests / bugs / modalg_1 / buc60880


puts "============"
puts "BUC60880"
puts "============"
puts ""
##########################################
## We have overlapping edges when section a shell by plane. 
##########################################

restore [locate_data_file BUC60880_sec_error2.brep] sh 
checkshape sh

plane pl 65000 19000 2600 1 0 0
mkface f pl

bsection result sh f

set nb_info [nbshapes result]
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed

if { $ed == 1 } {
    puts  "BUC60880 OK: SECTION operation was made properly"
} else {
    explode result e
    set status [OCC333 result_1 result_2]
    if {[llength ${status}] < 1} {
	puts "BUC60880 ERROR"
    } else {
	regexp {([-0-9.+eE]+)} $status full code
	if { ${code} == 3 || ${code} == 2} {
	    puts "BUC60880  : Section command works properly"
	} else {
	    puts "Faulty BUC60880: Section was made WRONGLY"
	}
    }
}
set length 1424.94
set 2dviewer 0
Commit	Line	Data
a87752f3	1
	2	puts "============"
	3	puts "BUC60880"
	4	puts "============"
	5	puts ""
	6	##########################################
	7	## We have overlapping edges when section a shell by plane.
	8	##########################################
	9
	10	restore [locate_data_file BUC60880_sec_error2.brep] sh
352ffd73	11	checkshape sh
a87752f3	12
	13	plane pl 65000 19000 2600 1 0 0
	14	mkface f pl
	15
	16	bsection result sh f
	17
	18	set nb_info [nbshapes result]
	19	regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
	20
	21	if { $ed == 1 } {
	22	puts "BUC60880 OK: SECTION operation was made properly"
	23	} else {
	24	explode result e
	25	set status [OCC333 result_1 result_2]
	26	if {[llength ${status}] < 1} {
	27	puts "BUC60880 ERROR"
	28	} else {
	29	regexp {([-0-9.+eE]+)} $status full code
	30	if { ${code} == 3 \|\| ${code} == 2} {
	31	puts "BUC60880 : Section command works properly"
	32	} else {
	33	puts "Faulty BUC60880: Section was made WRONGLY"
	34	}
	35	}
	36	}
	37	set length 1424.94
	38	set 2dviewer 0