[occt.git] / tests / bugs / modalg / buc60865


puts "============"
puts "BUC60865"
puts "BUC60864"
puts "============"
puts ""
##########################
## Section gives duplicate edges. 
##########################

restore [locate_data_file BUC60865_sh6.brep] sh 
checkshape sh

plane pl 1.1 0.99999 1 0 1 0
mkface f pl
bsection result sh f

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

if {  $ed == 5 } {
    puts  " BUC60865 : SECTION operation was made properly"
} else {
    puts "Faulty BUC60865: SECTION operation was made wrongly"
}
set length 4.5
set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "============"
	3	puts "BUC60865"
	4	puts "BUC60864"
	5	puts "============"
	6	puts ""
	7	##########################
	8	## Section gives duplicate edges.
	9	##########################
	10
	11	restore [locate_data_file BUC60865_sh6.brep] sh
352ffd73	12	checkshape sh
0e94a94e	13
	14	plane pl 1.1 0.99999 1 0 1 0
	15	mkface f pl
	16	bsection result sh f
	17
0e94a94e	18	set nb_info [nbshapes result]
	19	regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
	20
	21	if { $ed == 5 } {
	22	puts " BUC60865 : SECTION operation was made properly"
	23	} else {
	24	puts "Faulty BUC60865: SECTION operation was made wrongly"
	25	}
	26	set length 4.5
	27	set 2dviewer 0
	28