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

puts "========================"
puts "OCC23375"
puts "========================" 
puts ""
#######################################################################
# (OCC 6.5.3 regression) BRepBuilderAPI_Sewing returns wrong result
#######################################################################

pload XSDRAW

restore [locate_data_file bug23375_Volute1.brep] v

explode v
sewing result 0.01 v_1 v_2

# 1
checkshape result

# 2
set tolmaxres [tolmax result]
regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
set CMP_TOL 1.e-4
if { ${MaxTolerance} > ${CMP_TOL} } {
   puts "Error: invalid tolerance"
}

# 3
freebounds $result -0.01
set s [explode result_c e]
puts $s
set index [ llength $s ]
if { $index != 8 } {
   puts "Error : Number of free edges is $index"
}

set 2dviewer 1
Commit	Line	Data
2c896b8f	1	puts "========================"
	2	puts "OCC23375"
	3	puts "========================"
	4	puts ""
	5	#######################################################################
	6	# (OCC 6.5.3 regression) BRepBuilderAPI_Sewing returns wrong result
	7	#######################################################################
	8
5a29f57e	9	pload XSDRAW
5a29f57e	10
f2cc4711	11	restore [locate_data_file bug23375_Volute1.brep] v
2c896b8f	12
f2cc4711	13	explode v
f2cc4711	14	sewing result 0.01 v_1 v_2
2c896b8f	15
f2cc4711	16	# 1
2c896b8f	17	checkshape result
2c896b8f	18
f2cc4711	19	# 2
	20	set tolmaxres [tolmax result]
	21	regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
	22	set CMP_TOL 1.e-4
	23	if { ${MaxTolerance} > ${CMP_TOL} } {
	24	puts "Error: invalid tolerance"
2c896b8f	25	}
f2cc4711	26
f2cc4711	27	# 3
5a29f57e	28	freebounds $result -0.01
f2cc4711	29	set s [explode result_c e]
	30	puts $s
	31	set index [ llength $s ]
5a29f57e	32	if { $index != 8 } {
f2cc4711	33	puts "Error : Number of free edges is $index"
2c896b8f	34	}
	35
	36	set 2dviewer 1