[occt.git] / tests / bugs / modalg_6 / bug27263

puts "================"
puts "OCC27263"
puts "================"
puts ""
#######################################################################
# Regression vs 6.9.1: Exception is raised during intersection of two faces
#######################################################################

set MaxTol 1.e-7
set GoodNbCurv 1

restore [locate_data_file  bug27262_cmpd.brep] b
explode b

smallview
explode b_1 f
don b_1_27 b_2
fit

set log [bopcurves b_1_27 b_2 -2d]

regexp {Tolerance Reached=+([-0-9.+ee]+)\n+([-0-9.+ee]+)} ${log} full Toler NbCurv

if {${Toler} > ${MaxTol}} {
  puts "Error: Tolerance is too big!"
}

if {${NbCurv} != ${GoodNbCurv}} {
  puts "Error: Curve Number is bad!"
}

checklength c_1 -l 2.9620641619623407

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
16423f20	1	puts "================"
	2	puts "OCC27263"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# Regression vs 6.9.1: Exception is raised during intersection of two faces
	7	#######################################################################
	8
	9	set MaxTol 1.e-7
	10	set GoodNbCurv 1
	11
	12	restore [locate_data_file bug27262_cmpd.brep] b
	13	explode b
	14
	15	smallview
	16	explode b_1 f
	17	don b_1_27 b_2
	18	fit
	19
	20	set log [bopcurves b_1_27 b_2 -2d]
	21
	22	regexp {Tolerance Reached=+([-0-9.+ee]+)\n+([-0-9.+ee]+)} ${log} full Toler NbCurv
	23
	24	if {${Toler} > ${MaxTol}} {
	25	puts "Error: Tolerance is too big!"
	26	}
	27
	28	if {${NbCurv} != ${GoodNbCurv}} {
	29	puts "Error: Curve Number is bad!"
	30	}
	31
73e5a645	32	checklength c_1 -l 2.9620641619623407
16423f20	33
16423f20	34	checkview -screenshot -2d -path ${imagedir}/${test_image}.png