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

puts "============"
puts "OCC26684"
puts "============"
puts ""
###################################################
## Big tolerance values of the intersection curves
###################################################

brestore [locate_data_file IR2_TuyoPipeBSpline_20_draw2.brep] b1
brestore [locate_data_file IR2_sphere2_20.brep] b2

explode b1 f; copy b1_1 f1
explode b2 f; copy b2_1 f2

smallview
donly f1 f2
fit

# 1 case
set bop_info [bopcurves f1 f2]
regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info full Tolerance

checkreal "Reached tolerance" ${Tolerance} 1.2530391548405894e-008 1.e-7 0

# 2 case
set bop_info_2d [bopcurves f1 f2 -2d]
regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info_2d full Tolerance_2d

checkreal "Reached tolerance" ${Tolerance_2d} 1.4134494834137484e-005 0 1.e-2

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
83bb023e	1	puts "============"
	2	puts "OCC26684"
	3	puts "============"
	4	puts ""
	5	###################################################
	6	## Big tolerance values of the intersection curves
	7	###################################################
	8
	9	brestore [locate_data_file IR2_TuyoPipeBSpline_20_draw2.brep] b1
	10	brestore [locate_data_file IR2_sphere2_20.brep] b2
	11
	12	explode b1 f; copy b1_1 f1
	13	explode b2 f; copy b2_1 f2
	14
	15	smallview
	16	donly f1 f2
	17	fit
	18
	19	# 1 case
	20	set bop_info [bopcurves f1 f2]
	21	regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info full Tolerance
	22
	23	checkreal "Reached tolerance" ${Tolerance} 1.2530391548405894e-008 1.e-7 0
	24
	25	# 2 case
	26	set bop_info_2d [bopcurves f1 f2 -2d]
	27	regexp {Tolerance Reached=([-0-9.+eE]+)} $bop_info_2d full Tolerance_2d
	28
a09c8f3a	29	checkreal "Reached tolerance" ${Tolerance_2d} 1.4134494834137484e-005 0 1.e-2
83bb023e	30
5747059b	31	checkview -screenshot -2d -path ${imagedir}/${test_image}.png