[occt.git] / tests / bugs / modalg_7 / bug25385

puts "============"
puts "OCC25385"
puts "============"
puts ""
#######################################################################
# steep increase in tolerance by intersection
#######################################################################

restore [locate_data_file bug25385_shell2.brep] s

regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance s] full MaxTol_s_1

plane p 28.5 0 0 1 0 0 0 1 0
mkface f p
bop s f
bopsection r

regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance s] full MaxTol_s_2

set tol_abs_MaxTol 0.0001
set tol_rel_MaxTol 0.0001
checkreal "MaxTolerance " ${MaxTol_s_2} ${MaxTol_s_1} ${tol_abs_MaxTol} ${tol_rel_MaxTol}

checkprops r -l 36.2401
Commit	Line	Data
dfdfa61f	1	puts "============"
	2	puts "OCC25385"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# steep increase in tolerance by intersection
	7	#######################################################################
	8
	9	restore [locate_data_file bug25385_shell2.brep] s
	10
	11	regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance s] full MaxTol_s_1
	12
	13	plane p 28.5 0 0 1 0 0 0 1 0
	14	mkface f p
	15	bop s f
	16	bopsection r
	17
	18	regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance s] full MaxTol_s_2
	19
	20	set tol_abs_MaxTol 0.0001
	21	set tol_rel_MaxTol 0.0001
	22	checkreal "MaxTolerance " ${MaxTol_s_2} ${MaxTol_s_1} ${tol_abs_MaxTol} ${tol_rel_MaxTol}
03cca6f7	23
03cca6f7	24	checkprops r -l 36.2401