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

puts "============"
puts "BUC60907"
puts "OCC81"
puts "============"
puts ""
###############################
## Section shell by plane gives overlapped edges
###############################

restore [locate_data_file BUC60907_px1.rle] sh 
checkshape sh

plane f 60 0 0 1 0 0
mkface f f
bsection result sh f
puts "Info: it should be 12 edges"

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

if { $ne != 12 } {                                         
    puts "Faulty :Number of edges is wrong"                                                                               
} else {
    puts "Number of edges is OK"                                                                                                   
}

set length 33.6353
set 2dviewer 0
Commit	Line	Data
0e94a94e	1	puts "============"
	2	puts "BUC60907"
	3	puts "OCC81"
	4	puts "============"
	5	puts ""
	6	###############################
	7	## Section shell by plane gives overlapped edges
	8	###############################
	9
	10	restore [locate_data_file BUC60907_px1.rle] sh
352ffd73	11	checkshape sh
0e94a94e	12
	13	plane f 60 0 0 1 0 0
	14	mkface f f
	15	bsection result sh f
	16	puts "Info: it should be 12 edges"
	17
	18	set nb_info [nbshapes result]
	19	regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ne
	20
	21	if { $ne != 12 } {
	22	puts "Faulty :Number of edges is wrong"
	23	} else {
	24	puts "Number of edges is OK"
	25	}
	26
	27	set length 33.6353
	28	set 2dviewer 0