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

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

brestore [locate_data_file CTO909_IR2_TuyoPipe20.brep] b1
brestore [locate_data_file CTO909_IR2_sphere1_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} 5.8654166482879483e-009 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.4569392656749484e-008 1.e-7 0

set only_screen_axo 1
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 CTO909_IR2_TuyoPipe20.brep] b1
	10	brestore [locate_data_file CTO909_IR2_sphere1_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} 5.8654166482879483e-009 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
	29	checkreal "Reached tolerance" ${Tolerance_2d} 1.4569392656749484e-008 1.e-7 0
	30
	31	set only_screen_axo 1