[occt.git] / tests / bugs / moddata_2 / bug75_1

puts "============"
puts "BUC60861"
puts "OCC75"
puts "============"
puts ""
puts "(case 1)"
###############################
## Incorrect work of section Shell-Shell. 
###############################

restore [locate_data_file BUC60861_gap.brep] ss 
checkshape ss

plane pl1 25680.2288 21428 9995 1 0 0
mkface f1 pl1 -4000 8000 -5000 5000
bsection result ss f1

set good_len 9265
regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full tol
regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
if { [expr 1.*abs(${good_len} - $len)] > $tol } {
   puts "Error : Length is bad"
}

set 2dviewer 0
Commit	Line	Data
0e94a94e	1	puts "============"
	2	puts "BUC60861"
	3	puts "OCC75"
	4	puts "============"
	5	puts ""
	6	puts "(case 1)"
	7	###############################
	8	## Incorrect work of section Shell-Shell.
	9	###############################
	10
	11	restore [locate_data_file BUC60861_gap.brep] ss
	12	checkshape ss
	13
	14	plane pl1 25680.2288 21428 9995 1 0 0
	15	mkface f1 pl1 -4000 8000 -5000 5000
4e57c75e	16	bsection result ss f1
0e94a94e	17
	18	set good_len 9265
	19	regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full tol
	20	regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full len
	21	if { [expr 1.*abs(${good_len} - $len)] > $tol } {
	22	puts "Error : Length is bad"
	23	}
	24
	25	set 2dviewer 0
	26
	27
	28
	29