[occt.git] / tests / bugs / modalg_5 / bug25224

puts "================"
puts "OCC25224"
puts "================"
puts ""
#######################################################################
# The section curve between two cylindrical faces is incomplete
#######################################################################

restore [locate_data_file bug25224_Input_5.brep]  b1
restore [locate_data_file bug25224_Input_21.brep] b2

# 1. bopcurves
explode b1 f
explode b2 f

set log [bopcurves b1_1 b2_1]

regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
set MaxTol 1.e-7
if {${Toler} > ${MaxTol}} {
  puts "Error: Tolerance is too big!"
}
checklength c_1 -l 0.52377379499528021

# 2. BOP
bclearobjects
bcleartools
baddobjects b1
baddtools b2
bfillds
bbuild result

checkprops result -s 21.4983 
checkshape result

checknbshapes result -vertex 10 -edge 19 -wire 13 -face 13 -shell 3 -solid 3 -compsolid 0 -compound 1 -shape 62
checkview -display result -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
e6cd0977	1	puts "================"
	2	puts "OCC25224"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# The section curve between two cylindrical faces is incomplete
	7	#######################################################################
	8
	9	restore [locate_data_file bug25224_Input_5.brep] b1
	10	restore [locate_data_file bug25224_Input_21.brep] b2
	11
	12	# 1. bopcurves
	13	explode b1 f
	14	explode b2 f
	15
	16	set log [bopcurves b1_1 b2_1]
	17
	18	regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
	19	set MaxTol 1.e-7
	20	if {${Toler} > ${MaxTol}} {
	21	puts "Error: Tolerance is too big!"
	22	}
3ad6d001	23	checklength c_1 -l 0.52377379499528021
e6cd0977	24
	25	# 2. BOP
	26	bclearobjects
	27	bcleartools
	28	baddobjects b1
	29	baddtools b2
	30	bfillds
	31	bbuild result
	32
58cf74e0	33	checkprops result -s 21.4983
58cf74e0	34	checkshape result
e6cd0977	35
a4eba920	36	checknbshapes result -vertex 10 -edge 19 -wire 13 -face 13 -shell 3 -solid 3 -compsolid 0 -compound 1 -shape 62
5747059b	37	checkview -display result -3d -path ${imagedir}/${test_image}.png