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

puts "========"
puts "OCC27310"
puts "========"
puts ""
#################################################
# Huge tolerance obtained in the result of intersection of two cylindrical faces
#################################################

set ExpTol 7.7015195151142059e-006
set GoodNbCurv 2

restore [locate_data_file OCC496a.brep] a 
restore [locate_data_file OCC496b.brep] b

explode a f
explode b f

set log [bopcurves a_10 b_4 -2d]

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

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

checkreal TolReached $Toler $ExpTol 0.0 0.1

smallview
don c_*
fit
disp a_10 b_4

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
79997052	1	puts "========"
	2	puts "OCC27310"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Huge tolerance obtained in the result of intersection of two cylindrical faces
	7	#################################################
	8
	9	set ExpTol 7.7015195151142059e-006
	10	set GoodNbCurv 2
	11
	12	restore [locate_data_file OCC496a.brep] a
	13	restore [locate_data_file OCC496b.brep] b
	14
	15	explode a f
	16	explode b f
	17
	18	set log [bopcurves a_10 b_4 -2d]
	19
	20	regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
	21
	22	if {${NbCurv} != ${GoodNbCurv}} {
	23	puts "Error: Number of curves is bad!"
	24	}
	25
	26	checkreal TolReached $Toler $ExpTol 0.0 0.1
	27
	28	smallview
	29	don c_*
	30	fit
	31	disp a_10 b_4
	32
	33	checkview -screenshot -2d -path ${imagedir}/${test_image}.png